580-STRING-TIME-HHMMSS

580-STRING-TIME-HHMMSS strings the input data into the output area as HH:MM:SS. If the time value is 0, no data moves to output.

Library STRRTNS
Input WS-STRFMT-TIME
Output

WS-STRFLD-OUT (optional)

WS-STRFLD-PNTR (set to next available character position in output)

Programming Example

           MOVE WOH-UPDATE-TIME          TO WS-STRFMT-TIME
           MOVE 1                        TO WS-STRFLD-PNTR
           MOVE SPACES                   TO WS-STRFLD-OUT
           PERFORM 580-STRING-TIME-HHMMSS
           MOVE WS-STRFLD-OUT            TO CRT-ERR-VAR3