IBM Mainframe Forum

[mberger]

I am receiving the same issue when I attempt to JOIN 2 VB files.
File 1 is VB, LRECL=3588, the key is in byte 167 for a length of 6 (added +4 for VB)
File 2 is VB, LRECL=84, the key is in byte 1 for a length of 6 (added +4 for VB)
I want to output all file 1 records where the key exists on File 2.

Here is my SORT control card:

Select all

    JOINKEYS FILES=F1,FIELDS=(171,6,A)
    JOINKEYS FILES=F2,FIELDS=(5,6,A) 
    REFORMAT FIELDS=(F1:1,3588)                        (I originally tried this with F1:5,3588 and received the same error below)
    SORT FIELDS=(171,6,CH,A)         

Error messages after submitting job:

Select all

WER481I  JOINKEYS REFORMAT RECORD LENGTH= 3588, TYPE = F   (original try: JOINKEYS REFORMAT RECORD LENGTH= 3584, TYPE = F)
WER202A  SORTOUT  RECFM INCOMPATIBLE                             
WER110I  SORTOUT  : RECFM=VB   ; LRECL=      ; BLKSIZE=           
WER482I  JNF1 STATISTICS                                         
WER483B  1,984K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B     0 BYTES RESERVE REQUESTED, 436K BYTES USED           
WER108I  SORTJNF1 : RECFM=VB   ; LRECL=  3588; BLKSIZE= 27998     
WER482I  JNF2 STATISTICS                                         
WER483B  5,972K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B     0 BYTES RESERVE REQUESTED, 436K BYTES USED           
WER108I  SORTJNF2 : RECFM=VB   ; LRECL=    84; BLKSIZE= 27998     

The error is stating that the LRECL is 3588 and the record format is F(ixed). I defined the output file as RECFM VB, LRECL 3588.

My original intention was to join a FB80 and VB3588 file into a VB3588 output file but was getting incompatible errors so I copied the FB80 file to a VB84 file so I would at least get past that problem.

Thanks.

[CICS Guy]

Please post all the JCL.

[William Thompson]

EXPLANATION: The ddname will be SORTOUT, SORTOFxx,
SORTOFx or the ddname provided by an OUTFIL FNAMES parameter.
The record format of the output file is not the same as the input file, the
record format of a record provided by an E15, or the record format created
by a JOIN REFORMAT statement. (Both formats must be either
fixed-length or variable-length.) If you want to convert a variablelength
input file into a fixed-length output file, use the CONVERT
parameter of the OUTFIL or OUTREC control statements. If you want
to convert a fixed-length input file into a variable-length output file, use
the FTOV parameter of the OUTFIL control statement.

If the REFORMAT statement only defines p,l fields, then the output of the join will be a
fixed-length record. If a variable-length record format is desired when one or both input
files are variable-length, then the first p,l REFORMAT field must be 1,4 (from either
SORTJNFn input file) to define the RDW. This p,l specification of 1,4 must reference an Fn
that is a variable-length file. The variable portion of the record must then be specified as
the last REFORMAT field by coding a position p without a length l. If both files are
variable-length, then the variable portion from each of the variable-length input files may
be specified once at the end of the REFORMAT statement.

[Alissa Margulies]

MBERGER,

Change your REFORMAT statement to the following:

Select all

REFORMAT FIELDS=(F1:1,4,5)

And since you are sorting on the JOINKEYS, you can simply code SORT FIELDS=COPY.

Let us know if you still encounter a problem after making this change.

Regards,

[mberger]

Thanks William and Alissa,

Good information on the error messages and the modification to the REFORMAT statement worked perfectly.

I was originally attempting to join a VB and an FB file by key matching, please verify that I indeed have to convert the FB to a VB file (or convert the VB files to an FB file) before joining the two files to generate a VB output file. Would there be any way to join the FB and VB input files to generate a VB output file without having to first transform one of the input files?

Thanks again.

[Alissa Margulies]

The files to be joined do NOT need to have the same RECFM. You do not need to convert either file.

[mberger]

Thanks again, that worked perfectly.

[RajeshT]

Thank you from my end too. It just worked for me on the same issue while joining an FB with VB.

Thank You.
Rajesh.