kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
 Posted: Mon Feb 13, 2006 11:50 am Post subject: |
 |
|
stonecold,
Generate a JCL dynamically using Sort and submit to intrdr to actually copy the dataset.
Try this. Once you have verfied the generated JCL is correct, change the following statement
| Code: |
//SORTOUT DD SYSOUT=*
|
to
| Code: |
//SORTOUT DD SYSOUT=(*,INTRDR)
|
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
MY.GDG.VERSION FILE NAME
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL OUTREC=(C'//USERIDZ JOB ',X'7D',C'COPY',X'7D',C',',/,
C'//',13X,C'CLASS=A,',/,
C'//',13X,C'MSGCLASS=Y,',/,
C'//',13X,C'MSGLEVEL=(1,1),',/,
C'//',13X,C'NOTIFY=USERID',/,
C'//*',/,
C'//STEP0100 EXEC PGM=SORT',/,
C'//SYSOUT DD SYSOUT=*',/,
C'//SORTIN DD DISP=SHR,DSN=',1,44,/,
C'//SORTOUT DD DSN=YOUR OUTPUT FILE,',/,
C'// DISP=(NEW,CATLG,DELETE),',/,
C'// UNIT=SYSDA,',/,
C'// SPACE=(CYL,(X,Y),RLSE)',/,
C'//SYSIN DD *',/,
C' SORT FIELDS=COPY',/,
C'//*',80:X)
/*
|
The generated JCL will be as follows
| Code: |
//USERIDZ JOB 'COPY',
// CLASS=A,
// MSGCLASS=Y,
// MSGLEVEL=(1,1),
// NOTIFY=USERID
//*
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=MY.GDG.VERSION FILE NAME
//SORTOUT DD DSN=YOUR OUTPUT FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
//*
|
Make sure to change the userid to your t-id and code the proper space parameters.
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
