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
//*

——————————————————————————————————–

If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary
Important SQL CODES and ABEND CODES
SORT JOIN – TO JOIN TWO FILES BASED ON A KEY
KNOW YOUR MAINFRAME
REXX – INITIAL SETUP
HOW TO SUBMIT A BATCH JOB FROM THE CICS PROGRAM
CICS – EXEC interface block – EIBRESP Values
CICS – EXEC interface block Fields
Flow of control between COBOL programs, run units, and CICS
CICS INTERVIEW QUESTIONS
CICS TIPS
COBOL – COPY and INCLUDE statements
COBOL – PERFORMANCE IMPROVEMENT
COBOL – SIGN STORED IN COMP, COMP-3 AND DISPLAY FORMATS
SHORTEST COBOL PROGRAM
RESTART LOGIC IN COBOL DB2 Program
GOBACK – EXIT PROGRAM – STOP RUN
Continuation lines in COBOL
Computational items – COMP, COMP 1 , COMP 2, COMP 3
COBOL program format
cobol indicator area column-7 and area a and area b
COBOL INTERVIEW QUESTIONS
COBOL TIPS
COBOL COMPILER OPTIONS
The IDENTIFICATION DIVISION