santosh_g
New User
Joined: 14 Aug 2011 Posts: 24 Location: india
|
|
|
|
I tried something below for test runs but it didn't work out.
I was not using FINDREP but IFTHEN & OVERLAY.
Code: |
//SORTIN DD *
&YYYYMMDD
/*
|
Code: |
SORT FIELDS=COPY
INREC IFOUTLEN=80,IFTHEN=(WHEN=INIT,
OVERLAY=(81:DATE2-1,C'01',81:81,8,Y4T,LASTDAYM,TOGREG=Y4T,
11:87,2,85,2,81,4))
IFTHEN=(WHEN=(1,9,CH,EQ,C'&YYYYMMDD'),
OVERLAY=(81:DATE2-1,C'01',81:81,8,Y4T,LASTDAYM,TOGREG=Y4T,
11:C'Y',12:81,4,16:C'M',17,87,2)) |
|
|