10
Sun, Nov
10 New Articles

Dressing Up Your Dates

RPG
Typography
  • Smaller Small Medium Big Bigger
  • Default Helvetica Segoe Georgia Times

We spend a great deal of time discussing dates (the kind you find on the calendar). From dealing with Y2K to using API programs to reformat dates, we have talked about many calendar-related issues here in MC.

This time, we elected to show how your RPG III and RPG IV programs can benefit from the versatility of the date data type. We felt the best way to show off the capabilities of the date data type was to create a date calculator that could perform many date-related functions but require very little code.

Picture This

The date calculator program utilizes date windowing and is therefore Y2K-friendly. Among other things, the program can be used to validate dates, change a date to a wide variety of output formats, calculate age, determine duration, or translate a date to a month or day of the week.

The DAT006RG date calculator program in Figure 1 can be called from any RPG III or RPG IV program. By passing the program a date (or two) and a parameter that we

refer to as an action code, you specify which function you would like the date calculator to perform. Because the program is so flexible and can serve so many different date-related functions, we have provided a list of the parameters and functions for the date calculator program. This list is in Figure 2.

Calculating duration and calculating age are two very common date functions in most business systems. Prior to the date data type, we had to use some reasonably complex routines to keep track of leap years, how many days were in a month, and which century the date belonged in. But RPG IV and the date data type changed all that. New RPG IV op codes that work with the date data type allow us to let the system keep track of all those things. Routines to convert a date to a day of the week, determine how old a date is, or calculate the duration between two dates have become very simple operations.

Since RPG III programs can call RPG IV programs, we thought everyone should be able to benefit from the date data type and the associated functions. It is for that reason that we put together this date calculator program.

As you can see from Figure 2, you can call the DAT006RG RPG IV program with either five or seven parameters, depending upon your needs. Parameters 1 and 2 are the input date and its format. The allowable input formats are mmddyy, ddmmyy, or yymmdd. Parameter 3 is the action code, which represents the date-related function you would like the program to perform. The action code will tell the date calculator program if you are interested in aging a date, calculating a duration, or reformatting a date for output.

Passing an action code of *FMTM, *FMTD, or *FMTY will cause the date calculator to reformat the input date to mmddyy, ddmmyy, or yymmdd, respectively, and return the new value to the calling program. An action code of *DOW will cause the representative day of the week to be returned to the calling program.

If you choose to use the *MONS, *DAYS, or *YEAR action codes, the action taken will depend upon whether you pass the program one or two dates. If you pass only one input date to the program, the date calculator will return the age of the input date in months, days, or years. On the other hand, if you pass the second input date and its format in parameters 6 and 7, the date calculator will determine the duration between both input dates and return that value to the calling program.

Parameter 4 of the DAT006RG program is used to return the requested value. If you have specified an invalid date edit picture (as described in the next paragraph) or action code, an error message will be returned to the calling program in parameter 5. The error message will describe the particular problem found.

A Picture Worth a Thousand Words

The *FMTA action code may be passed to the program to convert the input date to an alphanumeric representation like January 31, 2001. But the *FMTA action code may also be used to indicate that you would like to use a special date edit picture.

Dates can be written in dozens of ways. Since we did not want to reinvent the wheel, we chose to design our date calculator utility to optionally use the date input pictures that are accepted by IBM’s CEEDAYS API. To learn more about the CEE date APIs, see our article “In Search of a Good-looking Date” in the October 1996 issue of MC.

If you pass the optional date edit picture to the date calculator program along with your input date, the input date will be reformatted to match the date edit picture and returned in the output parameter. The DAT006RG program can accept a wide variety of date edit pictures, and Figure 3 shows a few of them. If you need to utilize others that are not included in Figure 3, refer to the ILE CEE APIs manual.

The Picture in the Window

Date windowing means that the program will take a six-digit input date and decipher whether the date belongs in the 20th or 21st century. If the two digits of the date that represent the year are 40 or above, the system will interpret that to mean that the date belongs in the 20th century (and the century digits are assumed to be 19). On the other hand, if the two digits representing the year are 39 or below, the 21st century will be assumed, and the century digits will be assumed to be 20. For example, if the input date is 12/31/99, the utilization of date windowing will mean that the date will be interpreted as 12/31/1999. An input date of 12/31/01 would be interpreted as 12/31/2001 (because the two digits representing the year are below 40).

You will have no problems with date windowing as long as the dates being used are between the years of 1940 and 2039. This should cover pretty much all dates except birth dates and special functions like long-range forecasting.

Seeing the Big Picture

The system you are working on may not use RPG IV, but that does not necessarily mean that you are shut out from using current tools and techniques.

As AS/400 programmers, all of us should allocate some time to studying and trying to keep current. Our time spent studying will be returned in the form of greater efficiency, improved programming technique, and more timely production.

The computer industry, particularly the development of the AS/400, is moving at light speed. You will not survive very long as an AS/400 programmer if you live like an ostrich, with your head buried in the sand.

Reference OS/400 Integrated Language Environment (ILE) CEE APIs (SC41-4861, CDROM QBKAMM01)

*===============================================================

* To compile:

*

* CRTBNDRPG PGM(XXX/DAT006RG) SRCFILE(XXX/QRPGLESRC) +

* DFTACTGRP(*NO) ACTGRP(QILE)

*

*===============================================================

* Program accepts an input date, input date format code, and

* action code. Data returned depends on action code. An optional

* second date (with format code) can be passed to compare with

* first date. If action code indicates duration and second date

* is not passed, program uses UDATE for second date.

* Action codes: *DOW - returns day of the week

* *FMTA - returns character date

* *FMTY - returns YYMMDD

* *FMTM - returns MMDDYY

* *FMTD - returns DDMMYY

* *MONS - returns # of months between date1 - date2

* *DAYS - returns # of days between date1 - date2

* *YEAR - returns # of years between date1 - date2

**********************************************************************

D AlphaDate s 35

d DateIn s 6 0

d Date10 s 10

d Date2In s 6 0

d DateOut s 6 0

d DoWhat s 5

d Duration s 5 0

d ErrorDsc s 35

d FmtIn s 1

d Fmt2In s 1

d FmtOut s 1

D InDate s 25

D InPicture s 35

d IsoDate s d

d IsoDate2 s d

D LilianDate s 9B 0

d OutData s 35

D OutPicture s 35

d Valid s 1

d Valid2 s 1

d Fc DS Inz

d Sev 4B 0

d Msgno 4B 0

d Flags 1

d Facid 3

d Isi 9B 0

* Returned ErrorDsc constants

d ActionCon C ‘Invalid - Action code’

d GreaterCon C ‘Invalid - 1st date > 2nd date’

d InvalidCon C ‘Invalid - 1st date’

d InvFmtCon C ‘Invalid - 1st date format code’

d InvFmt2Con C ‘Invalid - 2nd date format code’

d Inval2Con C ‘Invalid - 2nd date’

d ValidCon C ‘Valid - 1st date’

c *entry Plist

c Parm DateIn

c Parm FmtIn

c Parm DoWhat

c Parm OutData

c Parm ErrorDsc

c Parm Date2In

c Parm Fmt2In

c Exsr Validate

c If Valid = ‘Y’

c DoWhat Caseq ‘*VAL ‘ OutVal

c DoWhat Caseq ‘*DOW ‘ CalcDow

c DoWhat Caseq ‘*FMTA’ CalcFmt

c DoWhat Caseq ‘*FMTY’ CalcFmt

c DoWhat Caseq ‘*FMTM’ CalcFmt

c DoWhat Caseq ‘*FMTD’ CalcFmt

c DoWhat Caseq ‘*MONS’ CalcDiff

c DoWhat Caseq ‘*DAYS’ CalcDiff

c DoWhat Caseq ‘*YEAR’ CalcDiff

c Cas OutInval

c Endcs

c Endif

c Eval * inlr = *on

* Validate input dates

c Validate Begsr

c Eval Valid = ‘N’

c Select

c When FmtIn = ‘Y’

c *ymd Test(d) DateIn 01

c If *in01 = *off

c *ymd move DateIn IsoDate

c Eval Valid = ‘Y’

c Endif

c When FmtIn = ‘M’

c *mdy Test(d) DateIn 01

c If *in01 = *off

c *mdy move DateIn IsoDate

c Eval Valid = ‘Y’

c Endif

c When FmtIn = ‘D’

c *dmy Test(d) DateIn 01

c If *in01 = *off

c *dmy move DateIn IsoDate

c Eval Valid = ‘Y’

c Endif

c Other

c Eval ErrorDsc = InvFmtCon

c Endsl

c If Valid <> ‘Y’ AND

c ErrorDsc = *blanks

c Eval ErrorDsc = InvalidCon

c End

* If second date passed, validate it

c If %Parms >= 6

c Eval Valid2 = ‘N’

c Select

c When Fmt2In = ‘Y’

c *ymd Test(d) Date2In 01

c If *in01 = *off

c *ymd move Date2In IsoDate2

c Eval Valid2 = ‘Y’

c Endif

c When Fmt2In = ‘M’

c *mdy Test(d) Date2In 01

c If *in01 = *off

c *mdy move Date2In IsoDate2

c Eval Valid2 = ‘Y’

c Endif

c When Fmt2In = ‘D’

c *dmy Test(d) Date2In 01

c If *in01 = *off

c *dmy move Date2In IsoDate2

c Eval Valid2 = ‘Y’

c Endif

c Other

c Eval ErrorDsc = InvFmt2Con

c Eval Valid = ‘N’

c Endsl

c If Valid2 <> ‘Y’ AND

c ErrorDsc = *blanks

c Eval ErrorDsc = Inval2Con

c Else

c If IsoDate > IsoDate2

c eval Valid = ‘N’

c eval ErrorDsc = GreaterCon

c Endif

c Endif

c Endif

c Endsr

* Validate date was the action code, output valid constant

c OutVal Begsr

c eval ErrorDsc = ValidCon

c Endsr

* Output invalid action code

c OutInVal Begsr

c eval ErrorDsc = ActionCon

c Endsr

* Calculate interval between dates

c CalcDiff Begsr

c if %Parms <= 5

c *mdy move Udate IsoDate2

c endif

c Select

c When DoWhat = ‘*MONS’

c IsoDate2 SubDur IsoDate Duration:*M

c When DoWhat = ‘*YEAR’

c IsoDate2 SubDur IsoDate Duration:*Y

c

c When DoWhat = ‘*DAYS’

c IsoDate2 SubDur IsoDate Duration:*D

c Endsl

c Movel Duration OutData

c Endsr

* Convert input date to requested format indicated in Action Code

c CalcFmt Begsr

c Select

c When DoWhat = ‘*FMTY’

c *ymd Move IsoDate DateOut

c Movel DateOut OutData

c When DoWhat = ‘*FMTM’

c *mdy Move IsoDate DateOut

c Movel DateOut OutData

c

c When DoWhat = ‘*FMTD’

c *dmy Move IsoDate DateOut

c Movel DateOut OutData

c

c When DoWhat = ‘*FMTA’

* If character date requested and no picture representing the format

* of the output was passed in, set the default picture

c If OutData = *blanks

c eval OutPicture = ‘Mmmmmmmmmz ZD, YYYY’

c else

c movel OutData OutPicture

c endif

c Exsr Alpha

c eval OutData = AlphaDate

c Endsl

c Endsr

* Retrieve day of the week

c CalcDow Begsr

c eval OutPicture = ‘Wwwwwwwww’

c exsr Alpha

c eval OutData = AlphaDate

c Endsr

* Retrieve character description of the date (can actually be used

* to convert date from one format to another - with or without

* separator characters - using the input picture from outdata).

c Alpha Begsr

c move IsoDate Date10

c movel Date10 InDate

c movel ‘YYYY-MM-DD’ InPicture

* Convert input date to lilian date format

c CALLB(D) ‘CEEDAYS’

c PARM InDate

c PARM InPicture

c PARM LilianDate

* Convert lilian date to character date

c CALLB(D) ‘CEEDATE’

c PARM LilianDate

c PARM OutPicture

c PARM AlphaDate

c PARM Fc

c Endsr

Figure 1: RPG IV date calculator program

Parameter Value Description

1. Input date Date as mmddyy, This is the primary input date for the date calculator, yymmdd, or ddmmyy as described by parameter 2.

2. Date format M for mmddyy, D for This format option is used to describe the format of

ddmmyy, or Y for the input date. yymmdd

3. Action code *VAL *VAL will validate the input date or dates. See parameter 5 (Error message) for potential errors.

*MONS *MONS returns either how many months old the input date is or how many months have elapsed between the first and the second input date.

*DAYS This is the same as *MONS, except the result is in days instead of months.

*YEAR This is the same as *MONS, except the result is in years instead of months.

*FMTM If *FMTM is specified, the input date will be returned in a mmddyy format.

*FMTD *FMTD is essentially the same as *FMTM, except that the date is returned in a ddmmyy format.

*FMTY *FMTY is essentially the same as *FMTM, except that the date is returned in a yymmdd format.

*DOW The weekday that represents the input date will be returned to the calling program. The weekday will be spelled out as Monday, Tuesday, and so on.

*FMTA The input date will be returned in complete alphanumeric form. For example, an input date of 013101 would be returned as January 31, 2001, unless a valid edit picture is specified in parameter 4. If a valid edit picture (see Figure 3) is specified, the date will be returned in the specified format.

4. Output Output based upon The combination of the input date and the action code action requested will determine what output is returned to this field (to the calling program).

Optional edit picture The API edit picture can be inserted here to return any (see Figure 3) when an valid date format. For some examples, check out the *FMTA action code is entries in Figure 3. This entry is valid only if you have specified chosen the *FMTA action code.

5. Error message Errors found in the input If invalid dates or action codes are specified when the program is called, a description of the error will be returned. Possible errors include the following: Invalid - Action code
Invalid - 1st date > 2nd date
Invalid - 1st date
Invalid - 1st date format code Invalid - 2nd date format code
Invalid - 2nd date
Valid - 1st date

6. Second input Date as mmddyy, This is the secondary input date for the date date (optional) yymmdd, or ddmmyy calculator, as described by parameter 7.

7. Second date Y for yymmdd, M for This format option is used to describe the format of format (optional) mmddyy, or D for the secondary input date.
ddmmyy

Date Picture Sample Description

WWW TUE This is the three-character day of the week in uppercase. The weekday could be printed in mixed case if the second and third characters of the picture were lowercase.

WWWWWWWWWW TUESDAY This is the ten-character day of the week in uppercase. Mixed case may be used by applying the same rules as above.

Wwwwwwwwwz Tuesday This is the same ten-character day of the week as above, except the case is mixed and trailing blanks are suppressed because the picture ends with the character z.

MMM DEC This is the three-character abbreviation for the month. The abbreviation could be printed in mixed case if the second and third characters of the picture were lowercase.

MMMMMMMMMM DECEMBER This is the ten-character name of the month in uppercase. Mixed case may be used by applying the same rules as above.

Mmmmmmmmmz December This is the same ten-character name of the month as above, except the case is mixed and trailing blanks

Figure 2: Parameters for the date calculator program

are suppressed because the picture ends with the character z.

DD MMM YY 01 DEC 98 This is the day-month-year format. The day and year are entered as two-digit numeric (including leading zeros). The month is entered as the three-character abbreviation.

DD Mmmmmmmmmm YY 01 December 98 This is also the day-month-year format. The day and year are entered as two-digit numeric (including leading zeros). The month is entered as the full ten- character description (including blanks).

ZD Mmmmmmmmmz YY 1 December 98 This is the same as above, except leading zeros and trailing blanks are suppressed.

Mmmmmmmmmz ZD, December 1, 1998 This is the same as above, except the input date is YYYY specified as month-day-year. A comma separates the day and year. The year is specified as four digits (including the century).

Wwwwwwwwwz, Tuesday, Dec 1, 1998 This is the same as above, but the day of week has Mmm ZD, YYYY been added and the month is abbreviated.

YYMMDD 981201 This must include all six digits of the date (including leading zeros).

YYYYMMDD 19981201 This is the same as above, except the entire year, including the century, is specified.

YYYY-MM-DD 1998-12-1 This eight-digit date is specified with dashes as a separator character. Leading zeros are not mandatory for the month and day.

MMDDYY 120198 This month-day-year six-digit date format requires leading zeros on the month and day.

MM/DD/YY 12/01/98 This is the same as above, except slashes are included as separator characters. Leading zeros on the month and day must be specified.

ZM/ZD/YY 12/1/98 This is the same as above, except leading zeros on the month and day may be suppressed.

MM/DD/YYYY 12/01/1998 This eight-digit date is specified with slashes as separator characters. Leading zeros are required on the month and day.

DD.MM.YY 01.12.98 This is a six-digit day-month-year format with decimals as separator characters. Leading zeros are required on the month and day.

YY.DDD 98.335 This is a Julian date with a decimal as a separator character.

YYDDD 98335 This is the same as above, but with no separator characters.

Figure 3: Sampling of the edit pictures that the DAT006RG program can accept

BLOG COMMENTS POWERED BY DISQUS

LATEST COMMENTS

Support MC Press Online

$

Book Reviews

Resource Center

  • SB Profound WC 5536 Have you been wondering about Node.js? Our free Node.js Webinar Series takes you from total beginner to creating a fully-functional IBM i Node.js business application. You can find Part 1 here. In Part 2 of our free Node.js Webinar Series, Brian May teaches you the different tooling options available for writing code, debugging, and using Git for version control. Brian will briefly discuss the different tools available, and demonstrate his preferred setup for Node development on IBM i or any platform. Attend this webinar to learn:

  • SB Profound WP 5539More than ever, there is a demand for IT to deliver innovation. Your IBM i has been an essential part of your business operations for years. However, your organization may struggle to maintain the current system and implement new projects. The thousands of customers we've worked with and surveyed state that expectations regarding the digital footprint and vision of the company are not aligned with the current IT environment.

  • SB HelpSystems ROBOT Generic IBM announced the E1080 servers using the latest Power10 processor in September 2021. The most powerful processor from IBM to date, Power10 is designed to handle the demands of doing business in today’s high-tech atmosphere, including running cloud applications, supporting big data, and managing AI workloads. But what does Power10 mean for your data center? In this recorded webinar, IBMers Dan Sundt and Dylan Boday join IBM Power Champion Tom Huntington for a discussion on why Power10 technology is the right strategic investment if you run IBM i, AIX, or Linux. In this action-packed hour, Tom will share trends from the IBM i and AIX user communities while Dan and Dylan dive into the tech specs for key hardware, including:

  • Magic MarkTRY the one package that solves all your document design and printing challenges on all your platforms. Produce bar code labels, electronic forms, ad hoc reports, and RFID tags – without programming! MarkMagic is the only document design and print solution that combines report writing, WYSIWYG label and forms design, and conditional printing in one integrated product. Make sure your data survives when catastrophe hits. Request your trial now!  Request Now.

  • SB HelpSystems ROBOT GenericForms of ransomware has been around for over 30 years, and with more and more organizations suffering attacks each year, it continues to endure. What has made ransomware such a durable threat and what is the best way to combat it? In order to prevent ransomware, organizations must first understand how it works.

  • SB HelpSystems ROBOT GenericIT security is a top priority for businesses around the world, but most IBM i pros don’t know where to begin—and most cybersecurity experts don’t know IBM i. In this session, Robin Tatam explores the business impact of lax IBM i security, the top vulnerabilities putting IBM i at risk, and the steps you can take to protect your organization. If you’re looking to avoid unexpected downtime or corrupted data, you don’t want to miss this session.

  • SB HelpSystems ROBOT GenericCan you trust all of your users all of the time? A typical end user receives 16 malicious emails each month, but only 17 percent of these phishing campaigns are reported to IT. Once an attack is underway, most organizations won’t discover the breach until six months later. A staggering amount of damage can occur in that time. Despite these risks, 93 percent of organizations are leaving their IBM i systems vulnerable to cybercrime. In this on-demand webinar, IBM i security experts Robin Tatam and Sandi Moore will reveal:

  • FORTRA Disaster protection is vital to every business. Yet, it often consists of patched together procedures that are prone to error. From automatic backups to data encryption to media management, Robot automates the routine (yet often complex) tasks of iSeries backup and recovery, saving you time and money and making the process safer and more reliable. Automate your backups with the Robot Backup and Recovery Solution. Key features include:

  • FORTRAManaging messages on your IBM i can be more than a full-time job if you have to do it manually. Messages need a response and resources must be monitored—often over multiple systems and across platforms. How can you be sure you won’t miss important system events? Automate your message center with the Robot Message Management Solution. Key features include:

  • FORTRAThe thought of printing, distributing, and storing iSeries reports manually may reduce you to tears. Paper and labor costs associated with report generation can spiral out of control. Mountains of paper threaten to swamp your files. Robot automates report bursting, distribution, bundling, and archiving, and offers secure, selective online report viewing. Manage your reports with the Robot Report Management Solution. Key features include:

  • FORTRAFor over 30 years, Robot has been a leader in systems management for IBM i. With batch job creation and scheduling at its core, the Robot Job Scheduling Solution reduces the opportunity for human error and helps you maintain service levels, automating even the biggest, most complex runbooks. Manage your job schedule with the Robot Job Scheduling Solution. Key features include:

  • LANSA Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.

  • LANSAWhen it comes to creating your business applications, there are hundreds of coding platforms and programming languages to choose from. These options range from very complex traditional programming languages to Low-Code platforms where sometimes no traditional coding experience is needed. Download our whitepaper, The Power of Writing Code in a Low-Code Solution, and:

  • LANSASupply Chain is becoming increasingly complex and unpredictable. From raw materials for manufacturing to food supply chains, the journey from source to production to delivery to consumers is marred with inefficiencies, manual processes, shortages, recalls, counterfeits, and scandals. In this webinar, we discuss how:

  • The MC Resource Centers bring you the widest selection of white papers, trial software, and on-demand webcasts for you to choose from. >> Review the list of White Papers, Trial Software or On-Demand Webcast at the MC Press Resource Center. >> Add the items to yru Cart and complet he checkout process and submit

  • Profound Logic Have you been wondering about Node.js? Our free Node.js Webinar Series takes you from total beginner to creating a fully-functional IBM i Node.js business application.

  • SB Profound WC 5536Join us for this hour-long webcast that will explore:

  • Fortra IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn: