Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
kalpana manohar,
The following JCL will give you the desired results. I assumed that you always want to create a sequence (A00,A01....A99,B00,B01...B99,C00,C01,C02..C99...... Z00,Z01......Z99) eliminating the ones you have in your input file.
You can run STEP0100 once and have the results stored in a dataset permanently. And you just need to run step0200.
Step0100 creates all the possible sequence for all the 26 alphabets which would be 2600 records.
Now concatenate this dataset with the your missing sequence dataset and eliminate all dups.
| Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
DUMMY RECORD
//SORTOUT DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REPEAT=100,
BUILD=(C'A',SEQNUM,2,ZD,START=0,INCR=1,/,
C'B',SEQNUM,2,ZD,START=0,INCR=1,/,
C'C',SEQNUM,2,ZD,START=0,INCR=1,/,
C'D',SEQNUM,2,ZD,START=0,INCR=1,/,
C'E',SEQNUM,2,ZD,START=0,INCR=1,/,
C'F',SEQNUM,2,ZD,START=0,INCR=1,/,
C'G',SEQNUM,2,ZD,START=0,INCR=1,/,
C'H',SEQNUM,2,ZD,START=0,INCR=1,/,
C'I',SEQNUM,2,ZD,START=0,INCR=1,/,
C'J',SEQNUM,2,ZD,START=0,INCR=1,/,
C'K',SEQNUM,2,ZD,START=0,INCR=1,/,
C'L',SEQNUM,2,ZD,START=0,INCR=1,/,
C'M',SEQNUM,2,ZD,START=0,INCR=1,/,
C'N',SEQNUM,2,ZD,START=0,INCR=1,/,
C'O',SEQNUM,2,ZD,START=0,INCR=1,/,
C'P',SEQNUM,2,ZD,START=0,INCR=1,/,
C'Q',SEQNUM,2,ZD,START=0,INCR=1,/,
C'R',SEQNUM,2,ZD,START=0,INCR=1,/,
C'S',SEQNUM,2,ZD,START=0,INCR=1,/,
C'T',SEQNUM,2,ZD,START=0,INCR=1,/,
C'U',SEQNUM,2,ZD,START=0,INCR=1,/,
C'V',SEQNUM,2,ZD,START=0,INCR=1,/,
C'W',SEQNUM,2,ZD,START=0,INCR=1,/,
C'X',SEQNUM,2,ZD,START=0,INCR=1,/,
C'Y',SEQNUM,2,ZD,START=0,INCR=1,/,
C'Z',SEQNUM,2,ZD,START=0,INCR=1,80:X)
/*
//STEP0200 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=&&T1,DISP=SHR
// DD *
A00
A08
B10
C27
D76
Z99
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(1,3,CH) NODUPS
/* |
|
|
