View previous topic :: View next topic
Author
Message
Bhuvanakp New User Joined: 29 Aug 2007Posts: 19 Location: Chennai
Hi,
I need to replace the below card with Sort card:
$$DD01 COPYALL IF=(1,EQ,X'107C001C'),AND=(5,EQ,C'16540210'),
REPL=(5,C'12525V10'),
IF=(1,EQ,X'107C002C'),AND=(5,EQ,C'16540220'),
REPL=(5,C'12525V20')
Please help me.
Back to top
Arun Raj Moderator Joined: 17 Oct 2006Posts: 2481 Location: @my desk
Quote:
I need to replace the below card with Sort card:
Bhuvanakp,
Could you please explain what exactly you want to do using sort instead of letting others to make a guess out of the above card. Nobody but you knows exactly what your requirement is.
Please post the input/output file attributes and a few sample records if possible.
Thanks,
Arun
Back to top
gcicchet Senior Member Joined: 28 Jul 2006Posts: 1702 Location: Australia
Hi,
you can try this
Code:
OPTION COPY
INREC IFTHEN=(WHEN=(01,4,BI,EQ,X'107C001C',AND,
05,6,BI,EQ,C'16540210'),
OVERLAY=(5:C'12525V10')),
IFTHEN=(WHEN=(01,4,BI,EQ,X'107C002C',AND,
05,6,BI,EQ,C'16540220'),
OVERLAY=(5:C'12525V20'))
Gerry
Back to top
Bhuvanakp New User Joined: 29 Aug 2007Posts: 19 Location: Chennai
Hi,
Held up with some other works..
Thanks for the reply.
I have replaced the same like below & it is working fine too.
Code:
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,2,PD,EQ,107,AND,3,2,PD,EQ,001,AND,
5,8,CH,EQ,C'16540210'),
OVERLAY=(5:C'12525V10')),
IFTHEN=(WHEN=(1,2,PD,EQ,107,AND,3,2,PD,EQ,002,AND,
5,8,CH,EQ,C'16540220'),
OVERLAY=(5:C'12525V20'))
Regards,
Bhuvana
Back to top
Please enable JavaScript!