PROGRAM X


LastUpdated... = "Rev: 16:00 21SEP87 MIS.SNA.PROG.ATM <D4.3>DEVEL 2 Z <D4.3>DEVEL>UTILITIES>BP>TIME.CONV.IBAS"
****
*
* THIS PROGRAM REQUESTS A DATE IN EXTERNAL FORMAT AND CONVERTS
* IT TO INTERNAL FORMAT OR VICE VERSA
*
****
     PROMPT ''
     WIDTH = 28
     FORMAT = 'L#':WIDTH
     LOOP
        PRINT FMT('Enter time to be converted: ',FORMAT):
        INPUT TIME
     UNTIL TIME EQ ''
        ITIME = ICONV(TIME,'MTS')
        IF STATUS() EQ 0 THEN
           PRINT FMT('Internal format: ',FORMAT):ITIME
        END ELSE
           ITIME = OCONV(TIME,'MTS')
           IF STATUS() EQ 0 THEN
              PRINT FMT('External format: ',FORMAT):ITIME
           END ELSE
              PRINT FMT('Unable to convert ',FORMAT):TIME
           END
        END
     REPEAT
  END