I am describing my Problem along with the Conditions. I am Having 2 Sequential Files File A (LRECL = 277, RECFM = FB) & File B (LRECL=500, RECFM=FB). Both the Files are Sorted on Item Number Field. For File A Item Number = 94,6 & for File B = 1,6. Below is my Requirement.
1. If Item Number is Present in Both The Files & > 499999. All Records From File A to be Written To File C (O/P File, LRECL = 279, RECFM=FB) & Last Two Bytes 278,2 Need to Have Space.
2. If Item Number is Present in Both The Files & < 499999. All Records From File A to be Written To File C (O/P File, LRECL = 279, RECFM=FB) & Last Two Bytes 278,2 Need to Have Value from File B Starting (172,2)
3. If Item Number Present in File A But Not in File and > 499999 OR < 499999 OR = 499999 All Records From File A to be Written To File C (O/P File, LRECL = 279, RECFM=FB) & Last Two Bytes 278,2 Need to Have Space.
Note: Output File C Should have Length = 279 i.e. Length of File A + 2 Bytes Extra at the End. I have Raised a Similar Query, as Requirement is Changed so mailing U. Below is the JCL I wrote. I am Getting Error Please Correct me.
JCL:
JOINKEYS F1=IN1,FIELDS=(94,6,A)
JOINKEYS F2=IN2,FIELDS=(1,6,A)
JOIN UNPAIRED,F1
REFORMAT FIELDS=(F1:1,278,?,F2:172,2)
INREC IFTHEN=(WHEN=(278,1,CH,EQ,C'B',AND,94,6,ZD,GT,499999),
OVERLAY=(278:2X)),
IFTHEN=(WHEN=(278,1,CH,EQ,C'B',AND,94,6,ZD,LT,499999),
OVERLAY=(278:172,2)),
IFTHEN=(WHEN=(278,1,CH,EQ,C'1',AND,94,6,ZD,LE,499999),
OVERLAY=(278:2X))
IFTHEN=(WHEN=(278,1,CH,EQ,C'1',AND,94,6,ZD,GE,499999),
OVERLAY=(278:2X))
SORT FIELDS = (94,6,ZD,A)
OUTREC BUILD=(1,279)
ERROR:
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN1 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN2 - SEE JNF2JMSG MESSAGES
ICE414A 0 IN1 (F1) REFORMAT FIELD END AT 278 IS BEYOND LENGTH OF 277
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 E7-K62201
ICE052I 3 END OF DFSORT
I appreciate UR Help.