Procedure Modules › System Time and Date Retrieval (CULLUS10) › How to Use CULLUS10

How to Use CULLUS10

To invoke CULLUS10:

First—Define a 1-character alphanumeric work field, initialized with a return format code (see below under format-v) or a blank, as the sending field.

Second—Define an 8-byte numeric work field, initialized to zero, for each receiving field.

Third—Issue a CALL to CULLUS10 in type 7 logic:

Col
2
▼
RPT-nn7sssCALLUSnn(format-v date-mdcy-v date-ccyy-v date-mm-v date-dd-v time-v)

• Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
• Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
• Format-v (ARG1) requires the name of the 1-character alphanumeric work field containing the return format code:

• Date-mdcy-v (ARG2) requires the name of the 8-byte numeric work field that receives the system date in mmddyy or mmddccyy format.
• Date-ccyy-v (ARG3) requires the name of the 8-byte numeric work field that receives the system year in yy or ccyy format.
• Date-mm-v (ARG4) requires the name of the 8-byte numeric work field that receives the system month.
• Date-dd-v (ARG5) requires the name of an 8-byte numeric work field that receives the system day.
• Time-v (ARG6) requires the address of an 8-byte numeric work field that receives the system time.

Fourth—Test the value of the sending work field in type 7 logic. If the value is 'E', an invalid field specification exists.