arunsoods
New User
Joined: 13 Jul 2016
Posts: 35
Location: India
|
|
|
|
Hi Team I want to compare current time with the time present in the file when the job is on "HOLD".
| Code: |
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,08,A)
JOINKEYS FILE=F2,FIELDS=(1,08,A)
REFORMAT FIELDS=(F1:1,08,F2:10,4,F1:10,20)
JOIN UNPAIRED,F2
SORT FIELDS=COPY
OMIT COND=(13,20,CH,EQ,C'ENDED_OK')
OUTREC IFTHEN=(WHEN=(13,20,CH,EQ,C'NOT_OK'),
BUILD=(1,8,C' ',09,4,C' ',13,20)),
IFTHEN=(WHEN=(09,4,CH,LE,&TIME2,AND,13,20,CH,EQ,C'HOLD'),
BUILD=(1,8,C' ',09,4,C' ',13,20)),
IFTHEN=(WHEN=(13,20,CH,EQ,C'JOB WAIT SCHEDULE'),
BUILD=(1,8,C' ',09,4,C' ',13,20))
/* |
When I am running above mentioned code I am getting below error:-
| Code: |
SYSIN :
JOINKEYS FILE=F1,FIELDS=(1,08,A)
JOINKEYS FILE=F2,FIELDS=(1,08,A)
REFORMAT FIELDS=(F1:1,08,F2:10,4,F1:10,20)
JOIN UNPAIRED,F2
SORT FIELDS=COPY
OMIT COND=(13,20,CH,EQ,C'ENDED_OK')
OUTREC IFTHEN=(WHEN=(13,20,CH,EQ,C'NOT_OK'),
BUILD=(1,8,C' ',09,4,C' ',13,20)),
IFTHEN=(WHEN=(09,4,CH,LE,&TIME2,13,20,CH,EQ,C'HOLD'),
*
BUILD=(1,8,C' ',09,4,C' ',13,20)),
IFTHEN=(WHEN=(13,20,CH,EQ,C'JOB WAIT SCHEDULE'),
BUILD=(1,8,C' ',09,4,C' ',13,20))
WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
|
|
