! //IB// Src(TESTD2N.IBS) Opt("") ! ! ! PROGRAM IDENTIFICATION ! ! ! ! SOURCE FILE NAME: -TEST DATE2NUM ! ! OBJECT FILE NAME: TESTD2N ! ! ! ! TITLE: TESTD2N ! ! ! ! ENTRY FROM: QMONITOR ! ! EXIT TO: QMONITOR ! ! ! !******************************************************************************! ! !====================== PROGRAM VARIABLE DECLARATIVES =======================! ! USE '^COMPASS.INC' ! LENGTH 6.0 & LOCAL ZDYCT LENGTH 8 & LOCAL YYMMDD$ LENGTH 10 & LOCAL Z1$ LENGTH 16 & LOCAL NODENAME$ LENGTH 52 & LOCAL DSTAT$ ! 2700 FORMAT (CS);_ @(0,0);'DATE TEST ON NODE: ';NODENAME$ 2710 FORMAT_ @(0,4);'ENTER DATE';(TP);(MC);Z1$;(TP);(RC) 2720 FORMAT_ @(0,6);'DAY OF CENTURY ';ZDYCT;_ @(0,7);'YYMMDD ';YYMMDD$;_ @(0,8);'DATE ';Z1$ ! !========================== EXECUTABLE STATEMENTS ===========================! ! 3000! CLEAR LOCAL ERRORTO 9800 ! LET DSTAT$ = DSTAT('X00') LET NODENAME$ = SUB(DSTAT$,33,16) ! PRINT (0,2700) ! 3100! PRINT (0,2710) INPUT (0) Z1$ IF Z1$ EQ '' GOTO 9990 LET ZDYCT = DATE2NUM(Z1$,0) LET YYMMDD$ = NUM2DATE(ZDYCT,2) ! RETURN YYMMDD LET Z1$ =SUB(YYMMDD$,5,2)+'/'+ SUB(YYMMDD$,7,2)+'/'+SUB(YYMMDD$,1,4) PRINT (0,2720) WAIT GOTO 3100 ! 9800 ERROR ! 9990!=============== END OF JOB ============================================ RUN 'QMONITOR' END