Hanfur
Active User
Joined: 21 Jun 2006 Posts: 104
|
|
|
|
Use the following JCL to do that..
//STEP01 EXEC PGM=EZACFSM1
//SYSIN DD DATA,DLM=@@
//AAAAAA JOB (XXP,TEST),'THIS JOB CARD NEEDED.',
// CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//STEP02 EXEC PGM=IEFBR14
//FILE1 DD DSN=&SYSUID..INTF.MN.Y&LYR2&LMON&LDAY,
// DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(0,0),RLSE)
//*
//STEP03 EXEC PGM=ICEGENER
//SYSUT1 DD DUMMY
//SYSUT2 DD DSN=&SYSUID..INTF.MN.Y&LYR2&LMON&LDAY,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(100,100),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
@@
//SYSOUT DD SYSOUT=(A,INTRDR)
If you want to rename your own seqential file with date the in Step03 use your own sequential file name with symbolic parameters in SYSUT1.
You may nned to change accordingly in IEFBR14 delete step too.
-Han. |
|