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

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

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

Hi ... ran job ... still same issue

Code:
JOINKEYS FILE=F1,FIELDS=(11,14,CH,A)                             
 JOINKEYS FILE=F2,FIELDS=(2,14,CH,A)                               
 JOIN UNPAIRED,F1                                                 
 REFORMAT FIELDS=(F1:1,90,F2:1,55),FILL=C'$'                       
 SORT FIELDS=(1,10,ZD,A)                                           
                                                                   
 OUTFIL FNAMES=F1ONLY,                                             
 IFTHEN=(WHEN=(1,1,CH,NE,C'$',AND,91,1,CH,EQ,C'$'),               
        BUILD=(1,90)),                                             
 IFTHEN=(WHEN=(1,1,CH,NE,C'$',AND,91,1,CH,NE,C'$'),               
        BUILD=(1,10,106,14,25,66))                                 
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED     
WER164B  17,736K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 416K BYTES USED             
WER146B  32K BYTES OF EMERGENCY SPACE ALLOCATED                   
WER481I  JOINKEYS REFORMAT RECORD LENGTH=  145, TYPE = F           
WER110I  F1ONLY   : RECFM=FB   ; LRECL=    90; BLKSIZE= 27990     
WER074I  F1ONLY   : DSNAME=XXX.XXXX.XXXXX
WER247A  F1ONLY   HAS INCOMPATIBLE LRECL                           

_________________
Regards


Viewing all articles
Browse latest Browse all 8500

Trending Articles