WER476A in JOIN Processing



Support for NetApp SyncSort for z/OS, Visual SyncSort, SYNCINIT, SYNCLIST and SYNCTOOL

WER476A in JOIN Processing

Postby mberger » Thu May 13, 2010 2:09 am

Good afternoon,

I am now attempting to join 2 files:

the first is a VB VSAM file with LRECL 2000(+4), the key is in byte 15(+4) for a length of 6
the second is FB80 with the key value in bytes 1-6

For all matching key values, I want to copy the entire VSAM record to the output file

I defined the output file as:
SORTOUT DD DSN=HLQ.FILE1,
DISP=(NEW,CATLG),
* UNIT=3490,VOL=(,,,99),
UNIT=3390,SPACE=(CYL,(10,10),RLSE),
DCB=(RECFM=VB,LRECL=2004,BLKSIZE=0)

I am using this control card:
SYSIN :
JOINKEYS FILES=F1,FIELDS=(19,6,A)
JOINKEYS FILES=F2,FIELDS=(1,6,A)
REFORMAT FIELDS=(F1:1,4,5)
SORT FIELDS=(COPY)

Error Message Received (RC=16)
WER164B 93,024K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,020K BYTES USED
WER476A FIRST 4 BYTES OF A VARIABLE LENGTH REFORMAT DEFINITION MUST BE FROM A VL JOIN FILE
WER482I JNF1 STATISTICS
WER483B 6,920K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B 0 BYTES RESERVE REQUESTED, 1,020K BYTES USED
WER108I SORTJNF1 : RECFM=F ; LRECL= 2000; CISIZE = 6144
WER482I JNF2 STATISTICS
WER483B 6,920K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B 0 BYTES RESERVE REQUESTED, 1,020K BYTES USED
WER108I SORTJNF2 : RECFM=FB ; LRECL= 80; BLKSIZE= 27920

It seems to be interpreting the VSAM as having RECFM=F rather than RECFM=VB.
The VSAM file has an avg record length of 860 and a maximum record length of 2000.
mberger
 
Posts: 9
Joined: Thu May 06, 2010 8:56 pm
Has thanked: 0 time
Been thanked: 0 time

Re: WER476A in JOIN Processing

 

Re: WER476A in JOIN Processing

Postby Alissa Margulies » Tue May 18, 2010 2:06 am

TYPE should be provided if the input file being specified is VSAM. If TYPE is not provided, TYPE=F will be assumed if the SORTJNFn file is VSAM.

JOINKEYS FILES=F1,FIELDS=(19,6,A),TYPE=V

I also suggest that you remove the DCB you coded for SORTOUT. Give that a try and let me know if you continue to encounter a problem.
Alissa Margulies
Syncsort Mainframe Product Services
201-930-8260
zos_tech@syncsort.com
Alissa Margulies
Global moderator
 
Posts: 369
Joined: Tue Feb 26, 2008 11:15 pm
Location: USA
Has thanked: 1 time
Been thanked: 1 time


Return to Syncsort/Synctool

 


  • Related topics
    Replies
    Views
    Last post