shankar.v
Active User
Joined: 25 Jun 2007
Posts: 196
Location: Bangalore
|
|
|
|
skrishnavijay,
Please check with the following code for your requirement.
The below code will work fine provided your input(34,21) has trailing spaces and the code will not suitable for leading spaces.
| Code: |
// EXEC PGM=SORT
//SORTIN DD *
000000000212
0000034
000000003445
00000000000000456
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(34,1,CH,EQ,C' '),BUILD=(21C'0')),
IFTHEN=(WHEN=(35,1,CH,EQ,C' '),BUILD=(20C'0',34,01)),
IFTHEN=(WHEN=(36,1,CH,EQ,C' '),BUILD=(19C'0',34,02)),
IFTHEN=(WHEN=(37,1,CH,EQ,C' '),BUILD=(18C'0',34,03)),
IFTHEN=(WHEN=(38,1,CH,EQ,C' '),BUILD=(17C'0',34,04)),
IFTHEN=(WHEN=(39,1,CH,EQ,C' '),BUILD=(16C'0',34,05)),
IFTHEN=(WHEN=(40,1,CH,EQ,C' '),BUILD=(15C'0',34,06)),
IFTHEN=(WHEN=(41,1,CH,EQ,C' '),BUILD=(14C'0',34,07)),
IFTHEN=(WHEN=(42,1,CH,EQ,C' '),BUILD=(13C'0',34,08)),
IFTHEN=(WHEN=(43,1,CH,EQ,C' '),BUILD=(12C'0',34,09)),
IFTHEN=(WHEN=(44,1,CH,EQ,C' '),BUILD=(11C'0',34,10)),
IFTHEN=(WHEN=(45,1,CH,EQ,C' '),BUILD=(10C'0',34,11)),
IFTHEN=(WHEN=(46,1,CH,EQ,C' '),BUILD=(09C'0',34,12)),
IFTHEN=(WHEN=(47,1,CH,EQ,C' '),BUILD=(08C'0',34,13)),
IFTHEN=(WHEN=(48,1,CH,EQ,C' '),BUILD=(07C'0',38,14)),
IFTHEN=(WHEN=(49,1,CH,EQ,C' '),BUILD=(06C'0',34,15)),
IFTHEN=(WHEN=(50,1,CH,EQ,C' '),BUILD=(05C'0',34,16)),
IFTHEN=(WHEN=(51,1,CH,EQ,C' '),BUILD=(04C'0',34,17)),
IFTHEN=(WHEN=(52,1,CH,EQ,C' '),BUILD=(03C'0',34,18)),
IFTHEN=(WHEN=(53,1,CH,EQ,C' '),BUILD=(02C'0',34,19)),
IFTHEN=(WHEN=(54,1,CH,EQ,C' '),BUILD=(01C'0',34,20)),
IFTHEN=(WHEN=NONE,BUILD=(34,21))
/*
// |
|
|
.jpg)
