expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Well, I don't know what YOU are doing wrong, but Kevins job works perfectly for me.
Can only think that your output GDG is (,CATLG) instead of (MOD,CATLG) |
|
janmejay Warnings : 1 New User
Joined: 22 Jun 2007 Posts: 85 Location: bangalore
|
|
|
|
its working fine. thankx.
can anyone or or kevin can explain me the below code.
I gone through the document but did n't understand it fully.
a brief explain is enough.
BUILD=(%2,SQZ=(SHIFT=LEFT,LEAD=C'''',TRAIL=C''''),81:%1)
OPTION COPY
OUTFIL INCLUDE=(81,4,CH,EQ,C'DD'),REMOVECC,
BUILD=(C'ALLOC F(SYSUT1) DA',
1,46,SQZ=(SHIFT=LEFT,LEAD=C'(',TRAIL=C') SHR REU'),80:X,/,
C'CALL *(ICEGENER)'),
TRAILER1=(C'FREE F(SYSUT1)',80:X) |
|