Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
bahugun,
Here is a simpler way to get the desired results. Use the following control cards.
Code: |
//SYSIN DD *
OMIT COND=(2,7,CH,EQ,C'LOCSITE',OR,2,7,CH,EQ,C'locsite')
INREC IFTHEN=(WHEN=INIT,OVERLAY=(101:C'1')),
IFTHEN=(WHEN=(1,100,SS,EQ,C'IFILELST',OR,1,100,SS,EQ,C'ifilelst',OR,
1,100,SS,EQ,C'QUIT',OR,1,100,SS,EQ,C'quit'),
OVERLAY=(101:C'2'))
SORT FIELDS=(101,1,CH,A),EQUALS
OUTFIL IFOUTLEN=100,IFTHEN=(WHEN=(2,4,CH,EQ,C'PUT '),
BUILD=(2:C'locsite TRAILingblanks',/,1,100))
//* |
|
|