home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / for.smp < prev    next >
Text File  |  1998-02-24  |  457b  |  17 lines
  1. C*comment
  2.       COMMON/PRS/TKUSED,CURST
  3.       INTEGER CHCNT,RM,TLC,ERRLST,ER1LST,
  4.      .        TIM(3),PCT,PMAX,PAGE,STPNXT,
  5.      .        PCT,PMAX,PAGE
  6. !*remark
  7.        SUBROUTINE DTIME ( TIM )
  8.        DIMENSION TIM(3), I(3)
  9.        REAL*8 TIM, I
  10.        DATA I / 8H...DAY/Y, 8H/EAR...., 8H.TIME... /
  11.  20    TIM(1) = I(1)
  12.        TIM(2) = I(2)####
  13. D****  TIM(3) = I(3)
  14.  100   FORMAT(/7X'NO ERRORS DETECTED')
  15.        RETURN
  16.        END SUBROUTINE
  17.