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

SYNCSORT :: RE: Sort card to replace text using cross reference file

$
0
0
Author: Susanta
Posted: Wed Sep 21, 2016 12:22 pm (GMT 5.5)

Hi I am facing a issue , job fails saying

Code:
WER481I  JOINKEYS REFORMAT RECORD LENGTH=  135, TYPE = F     
WER110I  F2ONLY   : RECFM=FB   ; LRECL=    80; BLKSIZE= 27920
WER074I  F2ONLY   : DSNAME=TXX.XATA.XXXX.VX         
WER247A  F2ONLY   HAS INCOMPATIBLE LRECL                     


the card is

Code:
JOINKEYS FILE=F1,FIELDS=(1,14,CH,A)               
JOINKEYS FILE=F2,FIELDS=(2,14,CH,A)               
JOIN UNPAIRED,F1,F2                               
REFORMAT FIELDS=(F1:1,80,F2:1,55),FILL=C'$'       
OPTION COPY                                       
                                                 
OUTFIL FNAMES=F2ONLY,                             
IFTHEN=(WHEN=(1,1,CH,NE,C'$',AND,81,1,CH,EQ,C'$'),
       BUILD=(1,80)),                             
IFTHEN=(WHEN=(1,1,CH,NE,C'$',AND,81,1,CH,NE,C'$'),
       OVERLAY=(1:96,14))

_________________
Regards


Viewing all articles
Browse latest Browse all 9405

Trending Articles