Page 1 of 1

How to merge two FB files with different LRECL using Joinkey

PostPosted: Mon May 09, 2016 11:44 am
by Surabhi
Hi,

I have two input files F1 with lrecl 80 and F2 with lrecl 390, I want to merge these two files on the basis of a key field.
I have used the below sortcard, but getting abend S013:-

JOINKEYS F1=SORTIN1,      
          FIELDS=(25,6,A)  
 JOINKEYS F2=SORTIN2,      
          FIELDS=(115,6,A)
 REFORMAT FIELDS=(F1:1,390)
 SORT FIELDS=COPY          

SYSOUS-  AN S013  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT
SYSOUT-
---+----2----+----3----+----4----+----5----+----6----+----7----+---->
RECORD TYPE IS F - DATA STARTS IN POSITION 1                        
C5-I21470 C6-BASE   C7-K96411 C8-I25275 E4-BASE   C9-BASE   E5-I25610
BLOCKSET     SORT  TECHNIQUE SELECTED                                
- CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R1  - 15:32 ON SUN M
**  SORT ON CONTRACT ID, EFFECTIVE DATE AND        **                
**          GROUP ID                               **                
**                                                 **                
    SORT FIELDS=(1,25,CH,A,30,10,CH,A,118,12,CH,A,130,12,CH,A)      
SYSOUS   NOT FOUND - SYSOUT USED                                    
ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS        
SXP0213A.STEP01  .SORTB   , INPUT LRECL = 331, BLKSIZE = 27804, TYPE
MAIN STORAGE = (MAX,10485760,10485760)                              
MAIN STORAGE ABOVE 16MB = (10383344,10383344)                        
OPTIONS: OVFLO=RC4 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC4 ,VLSCMP=N,SZERO=Y
OPTIONS: SIZE=10485760,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,E
OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=Y,CHALT
OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKP
OPTIONS: TMAXLIM=10485760,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CF
OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXIT
OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
OPTIONS: NULLOUT=RC0                                                
OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=MAX    ,EXPOLD=35     ,
EXCP ACCESS METHOD USED FOR SORTOUT                                  
EXCP ACCESS METHOD USED FOR SORTIN                                  
DC 166128900 TC 0 CS DSVVV KSZ 63 VSZ 63                            
FSZ=501900 RC  IGN=0 E  AVG=336 0  WSP=219032 C  DYN=0 0            
DE-BASE   D5-I29410 D3-BASE   ED-BASE   E8-I29717                    
OUTPUT LRECL = 390, BLKSIZE = 27690, TYPE = FB                      
SORTOUT LRECL OF 390 IS DIFFERENT FROM SORTIN(NN) LRECL OF 331 - RC=0

INSERT 0, DELETE 0


code' d for readability

Please tell me, how do i get through this abend?

recased the text,
all caps is equivalent to shouting
and on any forum it is considered bad manners,
a moderator

Re: How to merge two FB files with different LRECL using Joi

PostPosted: Mon May 09, 2016 1:39 pm
by Aki88
Hello,

What did you make of the message:

Surabhi wrote:SYSOUS NOT FOUND - SYSOUT USED


And did you revisit your JCL (and not SORT card) to correct the typo in a DD statement?

Re: How to merge two FB files with different LRECL using Joi

PostPosted: Mon May 09, 2016 1:48 pm
by enrico-sorichetti
duplicate of

post53778.html#p53778

where the TS did not care to follow up the questions asked

AN S013 ABEND WAS ISSUED BY DFSORT


just follow the standard procedure for an S013 abend
as described in the messages and code manual

Re: How to merge two FB files with different LRECL using Joi

PostPosted: Mon May 09, 2016 1:53 pm
by Aki88
Unable to edit the previous post anymore:

On giving the post a second look, are you sure you posted the SYSOUT of JOINKEYS and not some other SORT step? I ask this because the SYSOUT you show, gives a SORT FIELDS as below:
 SORT FIELDS=(1,25,CH,A,30,10,CH,A,118,12,CH,A,130,12,CH,A)  


Which is not present in your actual JOINKEYS statements; also, the SYSOUT doesn't show a message pertaining to JOIN being performed, unless I've missed a line of code in the SYSOUT.

Re: How to merge two FB files with different LRECL using Joi

PostPosted: Mon May 09, 2016 5:34 pm
by BillyBoyo
You have a typo. You have posted the wrong output. In that wrong output you have an LRECL difference between input and output which, even if it is what you want, is an untidy way to do it.

In your JOINKEYS you are only using F1-data, so it is unclear in what sense you are expecting to "merge" data. Note that when talking about SORT, use some other expression than "merge" as MERGE is a SORT statement with a specific meaning (to produce an ordered output from multiple ordered inputs).