chidams78 Currently Banned New User
Joined: 29 May 2006 Posts: 59 Location: India
|
|
|
|
Thanks Pedro for your suggestion. Indeed it was somewhat tricky logic.:-)
The other problem I had encountered is,
When the macro is exeuted in the PROC, it changes the existing TAPE name to TAPE,RETPD=60, thereby truncating the below shown lines 5 and 8.
//TST0222W EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=UBA.INS.QTRGRST.TEST1,
// DISP=(OLD,KEEP,KEEP),
// UNIT=&TAPE,LABEL=1,VOL=,RETAIN,REF=*.TST020.PRINTR)
// DD DSN=&ENVO2..INS.QTRUNIST.SPOOL,
DISP=(OLD,KEEP,KEEP),
// UNIT=&TAPE,LABEL=2,VOL=,RETAIN,REF=*.TST0202S.PRINTR)
The logic i thought to handle this situation is like
1. Just search for DISP= after the column number 35 and if it is
encountered, put it in new line. The same thing for UNIT= and VOL=
Note: The disadv with this logic is that we will be unneccessarily puting all
the DISP=, UNIT= and VOL= into the new line even if the variable
in that line is not changed.
Whether this logic holds good or is there any other good logic to acheive this result |
|