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 >
Wrap
Text File
|
1998-02-24
|
457b
|
17 lines
C*comment
COMMON/PRS/TKUSED,CURST
INTEGER CHCNT,RM,TLC,ERRLST,ER1LST,
. TIM(3),PCT,PMAX,PAGE,STPNXT,
. PCT,PMAX,PAGE
!*remark
SUBROUTINE DTIME ( TIM )
DIMENSION TIM(3), I(3)
REAL*8 TIM, I
DATA I / 8H...DAY/Y, 8H/EAR...., 8H.TIME... /
20 TIM(1) = I(1)
TIM(2) = I(2)####
D**** TIM(3) = I(3)
100 FORMAT(/7X'NO ERRORS DETECTED')
RETURN
END SUBROUTINE