kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
 Posted: Thu Feb 10, 2005 8:38 am Post subject: |
 |
|
kris_mf,
The following JCL will give you the desired results. I assumed that all the files to be copied as a single dataset are of the same lrecl. A brief explanation of the job. The first step reads in your pds member with dsnames to be copied and creates a concatenation list to copied.
The second step creates a dynamic job and submits it to the INTRDR.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=YOUR.PDS(DSNAME LIST),
// DISP=SHR
//T1 DD DSN=&T1,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//T2 DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=T1,ENDREC=1,
OUTREC=(C'//SORTIN',2X,C' DD DISP=SHR,DSN=',
1,44,
80:X)
OUTFIL FNAMES=T2,STARTREC=2,
OUTREC=(C'//',8X,C' DD DISP=SHR,DSN=',
1,44,
80:X)
/*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
//SORTOUT DD SYSOUT=(*,INTRDR)
//SORTIN DD DATA,DLM=$$
//TIDXXXXA JOB 'COPY',
// CLASS=A,
// MSGCLASS=Y,
// MSGLEVEL=(1,1),
// NOTIFY=TID
//*
//COPYSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD DSN=YOUR MERGE OF ALL FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
/*
$$
// DD DSN=&T1,DISP=(OLD,PASS)
// DD DSN=&T2,DISP=(OLD,PASS)
/*
|
Hope this helps...
Cheers
kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
