Tags

, , , , , , , ,

Requirement is that the input file has few records with special characters and few without special characters (just alphanumeric chars). Records without special chars should be written to a file and records with special chars should be written to a different file.

//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=YOUR.INPUT.FILE,DISP=SHR
//FILEA DD DSN=YOUR.FILEA,DISP=NEW
//FILEB DD DSN=YOUR.FILEB,DISP=NEW
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(1,80,SS,EQ,C’`’,OR,1,80,SS,EQ,C’`’,OR,
1,80,SS,EQ,C’!’,OR,1,80,SS,EQ,C’@’,OR,
1,80,SS,EQ,C’#’,OR,1,80,SS,EQ,C’$’,OR,
1,80,SS,EQ,C’%’,OR,1,80,SS,EQ,C’¢’,OR,
1,80,SS,EQ,C’&’,OR,1,80,SS,EQ,C’*’,OR,
1,80,SS,EQ,C'(‘,OR,1,80,SS,EQ,C’)’,OR,
1,80,SS,EQ,C’_’,OR,1,80,SS,EQ,C’-‘,OR,
1,80,SS,EQ,C’+’,OR,1,80,SS,EQ,C’=’,OR,
1,80,SS,EQ,C’¬’,OR,1,80,SS,EQ,C'{‘,OR,
1,80,SS,EQ,C’¦’,OR,1,80,SS,EQ,C’}’,OR,
1,80,SS,EQ,C”,OR,1,80,SS,EQ,C’/’,OR,
1,80,SS,EQ,C’|’,OR,1,80,SS,EQ,C’;’,OR,
1,80,SS,EQ,C'[‘,OR,1,80,SS,EQ,C’]’,OR,
1,80,SS,EQ,C’:’,OR,1,80,SS,EQ,C’,’,OR,
1,80,SS,EQ,C'<‘,OR,1,80,SS,EQ,C’>’,OR,
1,80,SS,EQ,C’.’,OR,1,80,SS,EQ,C’?’,OR,
1,80,SS,EQ,C'”‘,OR,1,80,SS,EQ,C””,OR,
1,80,SS,EQ,C’^’,OR,1,80,SS,EQ,X’05’),
OVERLAY=(81:C’B’))

OUTFIL FNAMES=FILEA,BUILD=(1,80),INCLUDE=(81,1,CH,EQ,C’ ‘)
OUTFIL FNAMES=FILEB,BUILD=(1,80),SAVE
//*

Advertisements