Dhaneshkumar
New User
Joined: 17 May 2010 Posts: 4 Location: Banglore
|
|
|
|
I have two KSDS files. Attributes are as follows :
File 1: LRECL – 160 ( VB ) , Key - 1 to 40 byte
File 2 : LRECL – 50byte ( VB) - Key : 1 to 16 byte
In this the second file's key is available either in the 4th postion or in the 16th position of the first file.
we need to fetch the 40 byte key from first file using the 16byte key( Second file’s key).
I tried JOINKEYS but it did not work.
FILE1
CBC000040110001XXXX2090000015XX XXXXXXXXXXXXXXXXXXXXXXXX
CFC284190100001XXXX7300500880XX AAAAAAA01OTOMLP489 AAAAAA
CFC295440100001XXXX7300500886XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
CFC215220100001XXXX7390000010XX AAAAA1 XXXXXXXXX
CFMXXXX7390000010XX000000000000 215220100001 EVERGREE
CFMXXXX7390000010XX0000217026 215220100001 MIKE REE
FILE2
XXXX7300500880XX
XXXX7300500886XX
XXXX7390000010XX
OUTPUT FILE
CFC284190100001XXXX7300500880XX
CFC295440100001XXXX7300500886XX
CFC215220100001XXXX7390000010XX
CFMXXXX7390000010XX000000000000
CFMXXXX7390000010XX0000217026
CODE
Code: |
//PS040 EXEC PGM=SYNCSORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DISP=SHR,DSN=FILE1
//SORTJNF2 DD DISP=SHR,DSN=FILE2
//SORTOUT DD DSN=OUTFILE,
// UNIT=PERMDA,
// SPACE=(TRK,(100,200),RLSE),
// DISP=(,KEEP,DELETE)
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,16,A,1,16,A),TYPE=V
JOINKEYS FILES=F2,FIELDS=(4,16,A,16,16,A),TYPE=V
REFORMAT FILEDS=(F2:1,40)
SORT FIELDS=COPY
/* |
SYSOUT:
SYSIN :
JOINKEYS FILES=F1,FIELDS=(1,16,A,1,16,A),TYPE=V
JOINKEYS FILES=F2,FIELDS=(4,16,A,16,16,A),TYPE=V
REFORMAT FIELDS=(F2:1,40)
SORT FIELDS=COPY
WER901I **WARNING** SYNCSORT 1.3.2.2 WILL EXPIRE IN 43 DAYS
WER276B SYSDIAG= 263068, 1558197, 1558197, 2775375
WER164B 60,900K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 100K BYTES RESERVE REQUESTED, 1,126,416 BYTES USED
WER146B 16K BYTES OF EMERGENCY SPACE ALLOCATED
WER481I JOINKEYS REFORMAT RECORD LENGTH= 40, TYPE = F
WER110I SORTOUT : RECFM=FB ; LRECL= 40; BLKSIZE= 27960
WER410B 59,772K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE
WER410B 0 BYTES RESERVE REQUESTED, 100K BYTES USED
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B SORTOUT : EXCP'S=0,UNIT=3390,DEV=908A,CHP=(ABAFACB0ADB1AE,1),V
WER416B TOTAL OF 0 EXCP'S ISSUED FOR COPYING
WER054I RCD IN 0, OUT 0
WER072I NOEQUALS, BALANCE IN EFFECT
WER169I RELEASE 1.3 BATCH 0506 TPF LEVEL 2.2
WER482I JNF1 STATISTICS
WER483B 1,032K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER108I SORTJNF1 : RECFM=V ; LRECL= 50; CISIZE = 7680
WER483B G=9358,B=8560,SEGLEN=56,BIAS=80
WER483B 0 PREALLOCATED SORTWORK TRACKS, 150 DYNAMICALLY ALLOCATED,
WER483B 0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 91 TRA
WER484I SORTJNF1 : RCD IN= 77886,OMITTED= 0,PAIRED= 0,UNPAIRED= 77886
WER416B VSAM WAS USED FOR SORTJNF1
WER416B JNF1WK01 : EXCP'S=137,UNIT=3390,DEV=9186,CHP=ABAFACB0ADB1AE,VOL
WER416B JNF1WK02 : EXCP'S=137,UNIT=3390,DEV=9500,CHP=B3B7B4B8B5B2B6,VOL
WER416B TOTAL OF 274 EXCP'S ISSUED FOR SORTWORKS
WER487I FILESIZE 4,205,844 BYTES
WER482I JNF2 STATISTICS
WER483B 1,032K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER108I SORTJNF2 : RECFM=V ; LRECL= 160; CISIZE = 4096
WER483B G=6916,B=8560,SEGLEN=80,BIAS=99
WER483B 0 PREALLOCATED SORTWORK TRACKS, 1,260 DYNAMICALLY ALLOCATED,
WER483B 26,460 ACQUIRED IN 12 SECONDARY EXTENTS, 0 RELEASED, TOTAL O
WER484I SORTJNF2 : RCD IN= 11151545,OMITTED= 0,PAIRED= 0,UNPAIRED= 1115
WER416B VSAM WAS USED FOR SORTJNF2
WER416B JNF2WK01 : EXCP'S=35912,UNIT=3390,DEV=9636,CHP=B3B7B4B8B5B2B6,V
WER416B JNF2WK02 : EXCP'S=35932,UNIT=3390,DEV=9694,CHP=B3B7B4B8B5B2B6,V
WER416B TOTAL OF 71,844 EXCP'S ISSUED FOR SORTWORKS
WER487I FILESIZE 1,159,760,680 BYTES
WER052I END SYNCSORT - U005506T,PS040,,DIAG=CA00,414C,E284,006E,827A,6C
WER052I DIAG1=A000,6253,88AC,0144,E852,4CCB,0AE8,8460
WER052I DIAG2=A800,625D,8084,014C,E07A,4CE3,02C8,AE60
Result:
The job executed successfully but output file is empty. |
|