Helpful Hints

Procedure Modules › System Time and Date Retrieval (CULLUS10) › Helpful Hints

Helpful Hints

To improve run-time efficiency, code your logic so that CULLUS10 is invoked only once.
Instead of using CULLUS10 to print the system date on report headings, code the CA Culprit reserved word DATE on a type 4 parameter. The system date will print in the mm/dd/yy format.
Use global work fields (GW0) when more than one report in the run requires system time or date output rather than calling CULLUS10 in each report.
When testing for the value of the sending work field, branch to a type 7 statement that causes a dump (ZERO / ZERO ZERO) or calls CULLUS48 to issue a run-time message.
Canadian users can specify DS=C on the PROFILE parameter and retrieve the system date in yy/mm/dd format on report titles.

Example 1

This example is a daily balance report that has the system date and time printed as subtitles.

The following code:

Defines these work fields:
- FORMAT, an alphanumeric work field, is assigned 6 as a format code.
- WK-MDY, by default an 8-byte numeric work field, receives the system date retrieved by CULLUS10.
- WK-TIME, by default an 8-byte numeric work field, receives the system time retrieved by CULLUS10.
Uses a SORT/NOSORT parameter to make the current value of WK-MDY and WK-TIME available to the type 4 parameter references.

Issues a CALL to CULLUS10 in type 7 logic to retrieve the date and time. Since ARG3 through ARG5 are not used, zeros act as position holders.

IN 80 F 80
REC NAME      5    25
REC BALANCE 160     7   3  DP=2
010 FORMAT '6'
010 WK-MDY
010 WK-TIME
013 CULLUS10
01OUT 60 D
01SORT WK-MDY WK-TIME NOSORT
01410001 ' '
01420001 'DATE:'
01420007 WK-MDY      FD
01430001 'TIME'
01430007 WK-TIME     FM '99.99.99'
01440001 ' '
01510001 NAME           HH 'NAME'
01510022 BALANCE        HH 'BALANCE'
017      CALL US10 (FORMAT WK-MDY 0 0 0 WK-TIME)

REPORT NO. 01 CULLUS10 mm/dd/yy PAGE 1 DATE: mm/dd/yy TIME 17.32.56 NAME BALANCE TERRY JANENS E 38,000.00 JOE NGUYA 31,000.00 MARK TIME 33,000.00 ROGER WILCO 80,000.00 ALBERT BREEZE 38,000.00 CAROLYN CROW 37,500.00 BURT LANCHESTER 54,500.00 RENE MAKER 85,000.00 MARYLOU JOHNSON 12.00

Example 2

This example is a daily balance report that has the system date and time printed as subtitles. It is similar to Example 1, except the date is retrieved with the century.

The following code:

Defines these work fields:
- FORMAT, an alphanumeric work field, is assigned 0 as a format code.
- WK-MDC, by default an 8-byte numeric work field, receives the system date retrieved by CULLUS10.
- WK-TIME, by default an 8-byte numeric work field, receives the system time retrieved by CULLUS10.
Uses a SORT/NOSORT parameter to make the current value of WK-MDC and WK-TIME available to the type 4 parameter references.

Issues a CALL to CULLUS10 in type 7 logic to retrieve the date and time. Since ARG3 through ARG5 are not used, zeros act as position holders.

IN 80 F 80
REC NAME      5    25
REC BALANCE 160     7   3  DP=2
020 FORMAT '0'
020 WK-MDC
020 WK-TIME
023 CULLUS10
02OUT 60 D
02SORT WK-MDC WK-TIME NOSORT
02410001 ' '
02420001 'DATE:'
02420007 WK-MDC      FM '99/99/9999'
02430001 'TIME'
02430007 WK-TIME     FM '99.99.99'
01440001 ' '
01510001 NAME           HH 'NAME'
01510022 BALANCE        HH 'BALANCE'
017      CALL US10 (FORMAT WK-MDC 0 0 0 WK-TIME)

REPORT NO. 02 CULLUS10 mm/dd/yy PAGE 1 DATE: mm/dd/yyyy TIME 19.26.21 NAME BALANCE TERRY JANENS E 38,000.00 JOE NGUYA 31,000.00 MARK TIME 33,000.00 ROGER WILCO 80,000.00 ALBERT BREEZE 38,000.00 CAROLYN CROW 37,500.00 BURT LANCHESTER 54,500.00 RENE MAKER 85,000.00 MARYLOU JOHNSON 12.00