Quantcast
Viewing all articles
Browse latest Browse all 8500

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

Author: Susanta
Posted: Sun Sep 25, 2016 4:34 pm (GMT 5.5)

Hi...

I am facing issue with F1 (VB file with len 80) and F2 (FB file of len 55).
getting abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000


The card is ..


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




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

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


Could you please help.
Thnaks,
_________________
Regards


Viewing all articles
Browse latest Browse all 8500

Trending Articles