Author: uday kiran
Posted: Thu Sep 08, 2016 9:03 pm (GMT 5.5)
Rohit,
Thank You. I coded based on your hints.
Input file: 80 bytes
1st record 10th byte - MEDICARE REPORT
2nd record 1st byte - PART A
2nd record 30th byte 08/09/16
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=1,6,CH,EQ,C'PART A', OVERLAY=(40:DATE1(.)-1))
OUTREC IFTHEN=(WHEN=1,6,CH,EQ,C'PART A'),OVERLAY=(30:48,2,C'/',45,3,42,2,20X))
_________________
Thank You.
Posted: Thu Sep 08, 2016 9:03 pm (GMT 5.5)
Rohit,
Thank You. I coded based on your hints.
Input file: 80 bytes
1st record 10th byte - MEDICARE REPORT
2nd record 1st byte - PART A
2nd record 30th byte 08/09/16
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=1,6,CH,EQ,C'PART A', OVERLAY=(40:DATE1(.)-1))
OUTREC IFTHEN=(WHEN=1,6,CH,EQ,C'PART A'),OVERLAY=(30:48,2,C'/',45,3,42,2,20X))
_________________
Thank You.