Two days back I have written one JCL to concatenate 8 datasets into one dataset using JCL.
I am going to post the JCL here so that I can have a reference for my own.
1. Here the input files should be of same DCB parameter and all the input files are flat files.
The JCL is as follows:
Output Dataset:
I am going to post the JCL here so that I can have a reference for my own.
1. Here the input files should be of same DCB parameter and all the input files are flat files.
The JCL is as follows:
//NUMHP53A JOB
,'SYNC',MSGCLASS=Q,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//STEP01 EXEC
PGM=SORT
//SORTIN
DD DSN=NUMHP53.MAITREE.DATA1,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA2,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA3,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA4,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA5,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA6,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA7,
//
DISP=SHR
//
DD
DSN=NUMHP53.MAITREE.DATA8,
//
DISP=SHR
//SORTOUT DD
DSN=NUMHP53.MAITREE.DATA9,
//
DISP=(MOD,CATLG,DELETE),
//
UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=30)
//SYSOUT DD
SYSOUT=*
//SYSIN
DD *
SORT FIELDS=(1,10,CH,A)
/*
//*
|
Input datasets:
VIEW
NUMHP53.MAITREE.DATA1 Columns 00001
00072
Command ===>
Scroll ===>
CSR
****** ***************************** Top of Data
******************************
000001 45785214
000002 1111111
000003 457851426
****** **************************** Bottom of Data
****************************
VIEW
NUMHP53.MAITREE.DATA2 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 2222222
****** **************************** Bottom of Data
****************************
VIEW
NUMHP53.MAITREE.DATA3 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 333333
****** **************************** Bottom of Data
****************************
VIEW NUMHP53.MAITREE.DATA4 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 4444444
****** **************************** Bottom of Data
****************************
VIEW
NUMHP53.MAITREE.DATA5
Columns 00001 00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 55555555
****** **************************** Bottom of Data
****************************
VIEW
NUMHP53.MAITREE.DATA6 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 66666
****** **************************** Bottom of Data
****************************
VIEW NUMHP53.MAITREE.DATA7 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 777777
****** **************************** Bottom of Data
****************************
VIEW
NUMHP53.MAITREE.DATA8 Columns 00001
00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 888888
****** **************************** Bottom of Data ****************************
|
VIEW
NUMHP53.MAITREE.DATA9 Columns 00001
00072
Command ===>
Scroll ===> CSR
****** ***************************** Top of Data
******************************
000001 1111111
000002 2222222
000003 333333
000004 4444444
000005 55555555
000006 66666
000007 777777
000008 888888
000009 1111111
000010 2222222
000011 333333
000012 4444444
000013 45785214
000014 457851426
000015 55555555
000016 66666
000017 777777
000018 888888
000019 1111111
000020 2222222
000021 333333
000022 4444444
000023 457851426
000024 45785214
000025 55555555
000026 66666
000027 777777
000028 888888
****** **************************** Bottom of Data
****************************
|
No comments:
Post a Comment