SAMTFMT

The SAMTFMT routine converts a time from an internal format to a printable format. The internal time formats maintained in the database index records are either an unsigned packed time or a binary time. In the database index records, time fields are designated as 00HHMMSS or BINARY-1/100 SEC, which represent an unsigned, packed time or binary time, respectively.
view
The SAMTFMT routine converts a time from an internal format to a printable format. The internal time formats maintained in the database index records are either an unsigned packed time or a binary time. In the database index records, time fields are designated as 00HHMMSS or BINARY-1/100 SEC, which represent an unsigned, packed time or binary time, respectively.
Calling Parameters
  • Address of four-byte time to be formatted
  • Address of eight-byte area to receive the formatted time
  • Address of an optional one-byte input time format:
    'B' Binary
    'T' Unsigned, packed time
If omitted, an unsigned, packed time is assumed.
Return Codes
Output Return Codes (general register 15):
  • 0
    Time formatted
Calling Example: Assembler
The following is an example using assembler:
. . . CALL SAMTFMT,(GCRATIME,PATIME),VL FORMAT ARCHIVE TIME . . . PATIME DS CL8 ARCHIVE PRINT TIME
Calling Example: COBOL
The following is an example using COBOL:
. . . 77 PADATE PIC X(10). . . . CALL 'SAMDFMT' USING GCRADATE, PADATE.