IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Sort with JOINKEYS using two VB files


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
tony.secundo

New User


Joined: 08 Sep 2022
Posts: 1
Location: US

PostPosted: Thu Sep 08, 2022 3:40 am
Reply with quote

My eyes are getting crossed with so many errors I am having. I am counting on another pair of eyes to see what is wrong.

I have two VB files with LRECL=1100.
F1 and F2 have the same key but the contents may vary.
I am running this to remove any extra records that will make the comparison that I will make next problematic.

Results I hope to get:
one file with the only records on F1
one file with the only records on F2
one file with the common records on F1
one file with the common records on F2
then I will compare the last two files to get the differences
it would be ok if I have to run it twice, one to get F1 common records, and another to get the F2 common records

Code:

//JKE5  EXEC  PGM=SORT                                 
//SYSOUT    DD  SYSOUT=*                               
//SORTJNF1 DD DISP=SHR,DSN=PGMA3S.DPG027A.RSF.KEYCHGE   
//SORTJNF2 DD DISP=SHR,DSN=PGMA3S.DPG027A.RSF.KEYBASE   
//F1ONLY   DD DSN=PGMA3S.DPG027A.RSF.CHGEONLY,         
//         DISP=(NEW,CATLG,DELETE),                     
//         LIKE=PGMA3S.C01.DPG027A.D4BBRSF0.RSF.G0015V00
//F2ONLY   DD DSN=PGMA3S.DPG027A.RSF.BASEONLY,         
//         DISP=(NEW,CATLG,DELETE),                     
//         LIKE=PGMA3S.C01.DPG027A.D4BBRSF0.RSF.G0015V00
//BOTH     DD DSN=PGMA3S.DPG027A.RSF.BOTH,             
//         DISP=(NEW,CATLG,DELETE),                     
//         LIKE=PGMA3S.C01.DPG027A.D4BBRSF0.RSF.G0015V00
//SYSIN    DD    *                                     
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION           
  JOINKEYS FILE=F1,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V
  JOINKEYS FILE=F2,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V
  JOIN UNPAIRED,F1,F2                                   
  REFORMAT FIELDS=(F1:1,1100,F2:1,1100,?)               
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)     
  OPTION COPY                                           
  OUTFIL FNAMES=F1ONLY,INCLUDE=(2201,1,CH,EQ,C'1'),     
  BUILD=(1,1100)                                       
  OUTFIL FNAMES=F2ONLY,INCLUDE=(2201,1,CH,EQ,C'2'),
  BUILD=(1101,1100)                               
  OUTFIL FNAMES=BOTH,INCLUDE=(2201,1,CH,EQ,C'B'), 
  BUILD=(1,1100)                                   
//*                                               


Results:
Code:

SYSIN :                                                           
* CONTROL STATEMENTS FOR JOINKEYS APPLICATION                     
  JOINKEYS FILE=F1,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V           
  JOINKEYS FILE=F2,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V           
  JOIN UNPAIRED,F1,F2                                             
* REFORMAT FIELDS=(F1:1,4,5,F2:1,4,5,1100,?)                       
  REFORMAT FIELDS=(F1:1,1100,F2:1,1100,?)                         
* CONTROL STATEMENTS FOR MAIN TASK (JOINED RECORDS)               
  OPTION COPY                                                     
  OUTFIL FNAMES=F1ONLY,INCLUDE=(2201,1,CH,EQ,C'1'),               
  BUILD=(1,1100)                                                   
  OUTFIL FNAMES=F2ONLY,INCLUDE=(2201,1,CH,EQ,C'2'),               
  BUILD=(1101,1100)                                               
  OUTFIL FNAMES=BOTH,INCLUDE=(2201,1,CH,EQ,C'B'),                 
  BUILD=(1,1100)                                                   
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED     
WER276B  SYSDIAG= 12106225, 22823143, 22823143, 37702365           
WER164B  22,128K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 988K BYTES USED             
WER146B  32K BYTES OF EMERGENCY SPACE ALLOCATED                   
WER481I  JOINKEYS REFORMAT RECORD LENGTH= 2201, TYPE = F           
WER202A  F1ONLY   RECFM INCOMPATIBLE                               
WER110I  F1ONLY   : RECFM=VB   ; LRECL=  1100; BLKSIZE=           
WER110I  F2ONLY   : RECFM=VB   ; LRECL=  1100; BLKSIZE=           
WER110I  BOTH     : RECFM=VB   ; LRECL=  1100; BLKSIZE=           
WER074I  F1ONLY   : DSNAME=PGMA3S.DPG027A.RSF.CHGEONLY           
WER074I  F2ONLY   : DSNAME=PGMA3S.DPG027A.RSF.BASEONLY           
WER074I  BOTH     : DSNAME=PGMA3S.DPG027A.RSF.BOTH               
WER202A  F2ONLY   RECFM INCOMPATIBLE                             
WER202A  BOTH     RECFM INCOMPATIBLE                             
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                     
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                     
WER482I  JNF1 STATISTICS                                         
WER483B  1,616K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B     0 BYTES RESERVE REQUESTED, 988K BYTES USED           
WER108I  SORTJNF1 : RECFM=VB   ; LRECL=  1104; BLKSIZE= 27966     
WER073I  SORTJNF1 : DSNAME=PGMA3S.DPG027A.RSF.KEYCHGE             
WER482I  JNF2 STATISTICS                                         
WER483B  1,616K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B     0 BYTES RESERVE REQUESTED, 988K BYTES USED           
WER108I  SORTJNF2 : RECFM=VB   ; LRECL=  1104; BLKSIZE= 27966     
WER073I  SORTJNF2 : DSNAME=PGMA3S.DPG027A.RSF.KEYBASE             


Thank you,
Tony
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 905
Location: Bamberg, Germany

PostPosted: Thu Sep 08, 2022 8:22 am
Reply with quote

Have a look at:

WER481I JOINKEYS REFORMAT RECORD LENGTH= 2201, TYPE = F

Compare with attributes of your LIKEd Output DD's.

Next, see:

JOINKEYS FILE=F1,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V
JOINKEYS FILE=F2,FIELDS=(5,30,A),SORTED,NOSEQCK,TYPE=V

and check if that makes sense with the REFORMAT statement.


PS: Next time, please post in the right section of the forum. This is for DFSORT.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts WER999A - UNSUCCESSFUL SORT 8ED U Ab... SYNCSORT 5
No new posts Merge files with a key and insert a b... DFSORT/ICETOOL 6
No new posts COBOL Ascending and descending sort n... COBOL Programming 5
No new posts SORT deletes the SORTOUT file DFSORT/ICETOOL 8
No new posts Creating CSV file from Variable recs ... DFSORT/ICETOOL 11
Search our Forums:

Back to Top