I have written and reviewed at least a dozen routines to accomplish this type of transformation. Many of them used compile-time tables and translation tables to convert 02 to February and tricky algorithms that would some how figure out that 2002-01-12 is a Saturday.
Since RPG IV supports procedures and it is not 1976 anymore, there should be easier methods to translate a date or time into words.
I've created a procedure, GetDateString(), that greatly simplifies converting date and time values into words. GetDateString() accepts a date value in any valid date format and translates it into the day of the week and month as words, followed by the day and year as numerals. Optionally, you can specify a format for the returned value. I've used this routine extensively on reports and form-based output, and I've found that it comes in extremely handy in CGI RPG IV programming. Here is the syntax for the GetDateString procedure:
The return value is a character-formatted version of the date specified
on the first parameter. The format is based on the format codes specified on the
second parameter.
The first parameter is required and must be a valid
date value. The date value is normally specified as a date field. Since the
date-value parameter is a CONST parameter, a date value in any format can be
specified.
The second parameter is optional, and if specified, must
contain valid formatting codes for the return value. The formatting codes are
the key to creating the return string.
The formatting pattern is the
same formatting pattern supported by the strftime() function, which is a C
language runtime function. Why is it the same as strftime()? Because strftime()
is called by GetDateString() to do the difficult work of converting a date value
to words.
If unspecified, the string-format parameter of GetDateString()
defaults to '%A, %B, %d, %Y'. This default value is a format that allows a date
to be returned in Day, Month, Day, Year format. For example, 2002-01-12 is
returned as "Saturday, January 12, 2002." Other formatting codes are supported;
the complete set of formatting codes and their meanings is listed in Figure 1.
Note that format codes are case-sensitive. For example, a lowercase %a
returns the day as "Tues" whereas the uppercase %A returns "Tuesday." Formatting
codes are similar in functionality to the substitution values in OS/400 messages
or what is used in user-defined options in PDM. See Figure 1 for
details.
|
Format Code
|
Description
|
|
%a
|
Abbreviated weekday name (e.g., Mon, Tues, Wed)
|
|
%A
|
Full weekday name (e.g., Sunday, Monday,
Tuesday)
|
|
%b
|
Abbreviated month name (e.g., Jan, Feb, Mar,
Apr)
|
|
%B
|
Full month name
|
|
%c
|
Date and time representation appropriate for locale
|
|
%d
|
Day of month as decimal number (01 - 31)
|
|
%H
|
Hour in 24-hour format (00 - 23)
|
|
%I
|
Hour in 12-hour format (01 - 12)
|
|
%j
|
Day of year as decimal number (001 - 366)
|
|
%m
|
Month as decimal number (01 - 12)
|
|
%M
|
Minute as decimal number (00 - 59)
|
|
%p
|
Current locale's A.M./P.M. indicator for 12-hour clock
|
|
%S
|
Second as decimal number (00 - 59)
|
|
%U
|
Week of year as decimal number, with Sunday as first day of
week (00 - 53)
|
|
%w
|
Weekday as decimal number (0 - 6; Sunday is 0)
|
|
%W
|
Week of year as decimal number, with Monday as first day of
week (00 - 53)
|
|
%x
|
Date representation for current locale
|
|
%X
|
Time representation for current locale
|
|
%y
|
Year without century, as decimal number (00 - 99)
|
|
%Y
|
Year with century, as decimal number
|
|
%z, %Z
|
Time-zone name or abbreviation; no characters if time zone
is unknown
|
|
%%
|
Percent sign
|
Figure 1: Date/Time Formatting Codes
Using C runtime functions is getting very
popular. Essentially, any C language runtime can be used in an RPG IV program by
doing two things.
- Include the QC2LE binding directory on the BNDDIR parameter of the CRTBNDRPG or CRTPGM commands, or in the Header specification of the source code as BNDDIR('QC2LE').
- Prototype the function using RPG IV Definition specification.
Including the BNDDIR('QC2LE') statement on the
Header specification is pretty standard, and it simplifies the compile process
by allowing you to forget to specify it at compile time. Believe me: Long,
frustrating hours of recompiling can be avoided by simply including that
statement on your Header specifications.
Prototyping the C runtime
functions is getting to be a widespread practice in RPG IV. I use a standard
/COPY member when prototyping C runtime functions. However, for the strftime()
function, I needed some additional declarations, so I created the following
source member, which must be /COPY'd into source that calls the strftime()
function. I'm not going to get into the details of each line of code in this
/COPY member; we'll cover that in a future issue. For now, the /COPY we need for
the GetDateString() procedure is as shown in Figure 2:
|
Figure 2: /COPY RPGTIME Source Member
The procedure GetDateString() is illustrated in
Figure 3. The first parameter is a date value. As mentioned earlier, any date
value may be specified. The CONST keyword gives us this capability.
The
second parameter may be a quoted character string, a literal value, or a field
that contains a valid date-formatting string. Refer back to Figure 1 for a list
of the valid formatting codes. I've limited this string to an arbitrary length
of 64 characters. It is unlikely that you'll need a longer value, but if you do,
simply increase the length of the second parameter and the MYFORMAT local
variable.
|
Figure 3: GetDateString Procedure
As mentioned, the default formatting string is
'%A, %B %d, %Y'. To change the default, simply modify the DFTFORMAT local
variable in the GetDateString() procedure.
Note that in this procedure, I
use three different LIKE keywords. The reference fields being specified are all
declared in the RPGTIME source member (Figure 2), as is the prototype for the
strftime() function. Also note that I've located the /COPY statement inside the
GetDateString() procedure itself. This causes the fields declared in the /COPY
member to be declared as local variables. So there are not name collisions that
occur.
Next issue, a report from the COMMON IT Education Conference in
Nashville, Tennessee! I hope to see you there.
More 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.
TRY 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.
Forms 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.
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:
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.
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:
LATEST COMMENTS
MC Press Online