>> Here is what i am getting . Could you please let me what changes to be made ?
Ron,
Sigh ! Not sure as to how you invent your own syntax hope and that it would
work. You switched back to using 10 bytes despite me showing that the max
length is only 8 bytes? and you coded 10 bytes without a format and converting
it to TOGREG?
If you looked at the $ it is right underneath the First TOGREG function.
OVERLAY=(35:25,10,TOGREG=Y4T(-),ADDDAYS,+120,TOGREG=Y4T(-)))
$
I guess you are so used to getting complete solutions that you don’t even
bother to read and understand.
Either way here is something that meets your high expectations.
//SYSIN DD *
OPTION COPY
OUTREC IFOUTLEN=44,
IFTHEN=(WHEN=(35,10,CH,EQ,X'00000000000000000000',AND,
25,10,CH,GT,X'00000000000000000000'),
OVERLAY=(45:25,10,UFF,M11,LENGTH=8,
35:45,8,Y4T,ADDDAYS,+120,TOGREG=Y4T(-)))
/*
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
