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

DFSORT/ICETOOL :: RE: Join key - Populate Zeros when Unpaired from File 1

$
0
0
Author: rexx77
Posted: Thu May 12, 2016 2:30 am (GMT 5.5)

Thanks Rahul for the solution. This will work.

My fellow colleague gave me below logic, this also worked.

Code:

JOINKEYS FILE=F1,FIELDS=(1,3,A)
 JOINKEYS FILE=F2,FIELDS=(1,3,A)
 JOIN UNPAIRED,F1
REFORMAT FIELDS=(F1:1,9,F2:5,5),FILL=C'X'
INREC IFTHEN=(WHEN=(10,1,CH,EQ,C'X'),
      BUILD=(1,9,5Z,X'0C')),
      IFTHEN=(WHEN=(10,1,CH,NE,C'X'),
      BUILD=(1,14))


Thanks folks.


Viewing all articles
Browse latest Browse all 9405

Trending Articles