View previous topic :: View next topic
|
Author |
Message |
HameedAli
Active User
Joined: 16 Apr 2009 Posts: 151 Location: India
|
|
|
|
Hi
In JCL, I have two files one is of LRECL 90 and other is of LRECL 10.
FILE1 - LRECL 90(100 Records)
FILE2 - LRECL 10(1 Record)
I have to generate FILE 3 - LRECL (90(File1) + 10(File2))
How do I do it?
Code: |
File 1
IamFile1
IamFile1
IamFile1
File2:
IamFile2
File3:
IamFile1IamFile2
|
|
|
Back to top |
|
|
HameedAli
Active User
Joined: 16 Apr 2009 Posts: 151 Location: India
|
|
|
|
I made a mistake it should be
Code: |
File 1
IamFile1
IamFile1
IamFile1
File2:
IamFile2
File3:
IamFile1IamFile2
IamFile1IamFile2
IamFile1IamFile2 |
|
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
try this
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN= input FILE2
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
INREC BUILD=(C'ADDME,''',1,10,C'''',80:X)
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN= input FILE1
//SORTOUT DD SYSOUT=* FILE3
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(1,90,ADDME)
|
Gerry |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
HameedAli,
If you have a common-key in your 'real-file' similar to the one shown in your sample data (say pos-1 in both the files='I' in your sample), you can achieve this using a simple SyncSort JOIN application like this.
Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN= Input1
//SORTJNF2 DD DSN= Input2
//SORTOUT DD DSN= Output
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,1,A)
JOINKEYS FILE=F2,FIELDS=(1,1,A)
REFORMAT FIELDS=(F1:1,90,F2:1,10)
SORT FIELDS=COPY |
|
|
Back to top |
|
|
HameedAli
Active User
Joined: 16 Apr 2009 Posts: 151 Location: India
|
|
|
|
It worked, Thanks a lot. |
|
Back to top |
|
|
|