Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 9405

DFSORT/ICETOOL :: RE: Change date (DD/MM/YY) in 2nd record of a file using DFSORT

$
0
0
Author: Rohit Umarjikar
Posted: Thu Sep 08, 2016 3:01 am (GMT 5.5)

Quote:
Sorry Rohit for misquoting you. I don't mean to
Please,never do that to someone who is helping you.
tested sample and modify per what you need because you poorly stated the requirement( Missing the offsets which is most important if you wanted handy solution),
Code:
SORT FIELDS=COPY                                             
INREC IFTHEN=(WHEN=INIT,OVERLAY=(20:C'20',16,2,13,2,10,2)),   
      IFTHEN=(WHEN=(1,6,CH,EQ,C'PART A'),OVERLAY=(30:20,8,Y4T,
                            SUBDAYS,+1,TOGREG=Y4T))           
OUTREC IFTHEN=(WHEN=(1,6,CH,EQ,C'PART A'),OVERLAY=(10:36,2,   
                                        C'/',34,2,C'/',32,2)),
IFOUTLEN=17   

Bill, feel free to modify or advise on this approach.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif


Viewing all articles
Browse latest Browse all 9405

Trending Articles