op
New User
Joined: 31 Oct 2006
Posts: 48
Location: Chennai
|
|
|
|
Hi,
I do have to perform two sorts.
The conditions in both the sorts are the same.
For example:
| Code: |
// EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=----- (INPUT FILE, fb, lrecl= 80)
//OUT1 DD DSN=---- (OUTPUT FILE1, fb, lrecl=82)
//OUT2 DD DSN=---- (OUTPUT FILE2, fb, lrecl=82)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(IN) USING(CTL2)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=(COND1),BUILD=(C'01',1,80)),
IFTHEN=(WHEN=(COND2),BUILD=(C'02',1,80)),
IFTHEN=(WHEN=(COND3),BUILD=(C'03',1,80)),
................................................
................................................
IFTHEN=(WHEN=(COND25),BUILD=(C'25',1,80))
OUTFIL FNAMES=OUT1,BUILD=(1,82)
//CTL2CNTL DD *
INREC IFTHEN=(WHEN=(COND1),BUILD=(C'24',1,80)),
IFTHEN=(WHEN=(COND2),BUILD=(C'29',1,80)),
IFTHEN=(WHEN=(COND3),BUILD=(C'09',1,80)),
................................................
................................................
IFTHEN=(WHEN=(COND25),BUILD=(C'12',1,80))
OUTFIL FNAMES=OUT2,BUILD=(1,82)
|
The conditions in both the control statements are the same.
I want to declare these COND1, COND2, ... , COND25 commonly as they are prone to changes frequently.
I tried using SYMNAMES, but it didn't work as the conditions exceed a single line.
Can anyone help me with this.
Thanks much in advance.
Regards,
OP |
|
