Hello
The below control card is working, but in some cases where there is a word
"CHAIN" , it is setting to zeros. We need this to be copied as it is.
If the input length is 5 then copy as it is else if it is 4 or less than 54
append zeros to it.
OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,5,UFF,M1,6,2,8,5,UFF,M1,80:X)),
IFTHEN=(WHEN=(9,5,ZD,EQ,0),OVERLAY=(9:5X))
1 – 43
343-999
CHAIN
4062 - 4108
4110 - 4700
4705 - 4706
4708
4714
4719
4723
00001 – 00043
00343 - 00999
CHAIN
04062 - 04108
04110 - 04700
04705 - 04706
04708
04714
04719
04723
Thanks
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
