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

SYNCSORT :: Joinkeys operation betwen VB and FB file

$
0
0
Author: Susanta
Subject: Joinkeys operation betwen VB and FB file
Posted: Sun Sep 25, 2016 9:49 pm (GMT 5.5)

Hi...

Facing issue with joinkey operation for F1 (VB file with len 80) and F2 (FB file of len 55) , when F1s 1,14 mathces with F2s 2,14 then write F2s 16,14 and f1s 15 to end of record to F1only file. (In case no match then write complete F1 record to F1ONLY.)

Output file F1ONLY need to be of lrecl and format same as F1 file.

In this same step JNF1CNTL is used to add SEQNUM of 10 bytes to F1 file
XXX.XXXX.XXXXX.XXXX.VB.V1

The card is ..

Code:
   INREC FIELDS=(1:1,4,5:SEQNUM,10,ZD,15:5,76)   



Job gives abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000


The card details from sysout..

Code:

 

SYNCSORT FOR Z/OS  2.1.1.1R    U.S. PATENTS: 4210961, 5117495   (C) 2014 SYNCSO
                                                       z/OS   2.1.0             
 SYNCSORT LICENSED FOR CPU SERIAL NUMBER 19D64, MODEL 2827 718             LICEN
 SYSIN :                                                                       
  JOINKEYS FILE=F1,FIELDS=(15,14,CH,A)                                         
  JOINKEYS FILE=F2,FIELDS=(2,14,CH,A)                                           
  JOIN UNPAIRED,F1                                                             
  REFORMAT FIELDS=(F1:1,4,5,86,F2:1,55),FILL=C'$'                               
  SORT FIELDS=(5,10,ZD,A)                                                       
                                                                                 
  OUTFIL FNAMES=F1ONLY,IFOUTLEN=80,                                             
  IFTHEN=(WHEN=(5,1,CH,NE,C'$',AND,91,1,CH,EQ,C'$'),                           
         BUILD=(1,4,15,76)),                                                   
  IFTHEN=(WHEN=(5,1,CH,NE,C'$',AND,91,1,CH,NE,C'$'),                           
         BUILD=(1,4,106,14,29,62))                                             
 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                       
 WER202A  F1ONLY   RECFM INCOMPATIBLE                                           
 WER110I  F1ONLY   : RECFM=VB   ; LRECL=    80; BLKSIZE=                       
 WER074I  F1ONLY   : DSNAME=TXX.XX.XXXXX.TEST.VB.V2                       
 WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
 WER482I  JNF1 STATISTICS                                                       
 WER483B  1,956K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,             
 WER483B     0 BYTES RESERVE REQUESTED, 476K BYTES USED                         
 WER108I  SORTJNF1 : RECFM=VB   ; LRECL=    80; BLKSIZE= 27998                 
 WER073I  SORTJNF1 : DSNAME=XXX.XXXX.XXXXX.XXXX.VB.V1                       
 WER482I  JNF2 STATISTICS                                                       
 WER483B  1,956K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,             
 WER483B     0 BYTES RESERVE REQUESTED, 476K BYTES USED                         
 WER108I  SORTJNF2 : RECFM=FB   ; LRECL=    55; BLKSIZE=  5500                 
 WER073I  SORTJNF2 : DSNAME=TXX.XX.XREF.FILE


Could you please help.

Thanks
_________________
Regards


Viewing all articles
Browse latest Browse all 8500

Trending Articles