Syntax Error
Posted: Tue Dec 21, 2010 3:01 am
INPUT FILE DESCRITPION: FB, LRECL=80
Record Format:
#F0001234567890123xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx?xxxxxxxxxxxxxxxxx1000212364578
Now using DFSORT utility I have to check,
IF first column 1 and 2 is not '#F' and column 54 is not '?' then records is invalid, dump these invalid records to member xxxxxx.xxxxx.xxxxxx(record1)
IF column 6 to 19 is not numeric, then record is invalid, dump these invalid records to member xxxxxx.xxxxx.xxxxxx(record2)
IF column 69 to 80 is not numeric, then record is invalid, dump these record to member xxxxxx.xxxxx.xxxxxx(record3)
Now rest are valid record, dump these valid records to member xxxxxx.xxxxx.xxxxxx(record4),
Here is my JCL,
Record Format:
#F0001234567890123xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx?xxxxxxxxxxxxxxxxx1000212364578
Now using DFSORT utility I have to check,
IF first column 1 and 2 is not '#F' and column 54 is not '?' then records is invalid, dump these invalid records to member xxxxxx.xxxxx.xxxxxx(record1)
IF column 6 to 19 is not numeric, then record is invalid, dump these invalid records to member xxxxxx.xxxxx.xxxxxx(record2)
IF column 69 to 80 is not numeric, then record is invalid, dump these record to member xxxxxx.xxxxx.xxxxxx(record3)
Now rest are valid record, dump these valid records to member xxxxxx.xxxxx.xxxxxx(record4),
Here is my JCL,
//JOBCARD
//SORT EXEC PGM=SORT
//SORTIN DD DSN=INPUT.DATA.SET
//SORTOUT DD SYSOUT=*
//RECORD01 DD DSN=xxxxxx.xxxxx.xxxxxx(record1),DISP=SHR
//RECORD02 DD DSN=xxxxxx.xxxxx.xxxxxx(record2),DISP=SHR
//RECORD03 DD DSN=xxxxxx.xxxxx.xxxxxx(record3),DISP=SHR
//RECORD04 DD DSN=xxxxxx.xxxxx.xxxxxx(record4),DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL INCLUDE COND=(1,1,FS,NQ,C'#',OR,2,1,FS,NQ,C'F',OR,54,1,FS,NQ,C'?'),FNAMES=RECORD01
OUTFIL INCLUDE COND=(6,13,FS,NQ,NUM),FNAMES=RECORD02
OUTFIL INCLUDE COND=(69,11,FS,NQ,NUM),FNAMES=RECORD03
OUTFIL SAVE, FNAMES=RECORD04
/*
//SORT EXEC PGM=SORT
//SORTIN DD DSN=INPUT.DATA.SET
//SORTOUT DD SYSOUT=*
//RECORD01 DD DSN=xxxxxx.xxxxx.xxxxxx(record1),DISP=SHR
//RECORD02 DD DSN=xxxxxx.xxxxx.xxxxxx(record2),DISP=SHR
//RECORD03 DD DSN=xxxxxx.xxxxx.xxxxxx(record3),DISP=SHR
//RECORD04 DD DSN=xxxxxx.xxxxx.xxxxxx(record4),DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL INCLUDE COND=(1,1,FS,NQ,C'#',OR,2,1,FS,NQ,C'F',OR,54,1,FS,NQ,C'?'),FNAMES=RECORD01
OUTFIL INCLUDE COND=(6,13,FS,NQ,NUM),FNAMES=RECORD02
OUTFIL INCLUDE COND=(69,11,FS,NQ,NUM),FNAMES=RECORD03
OUTFIL SAVE, FNAMES=RECORD04
/*