Hello,
By using SYMBOLIC Variables in the PROC and pass all the variables from Job. I need to write External Proc which should create a Dataset PDS and copy from one dataset to other.
Dataset should be a TAPE dataset.
Currently I used following JCL for creating a PDS and copy from one dataset to other.
//***************THE DD STATEMENT FOR A NEW DATA SET********************
//*THE IMPORTANT ITEMS ON THE FOLLOWING IS THE DISP AND DCB INFORMATION.
//**********************************************************************
//*
// EXEC PGM=IEFBR14
//SQADB512 DD DSN=WORLD.IMF714.ITD.TEST,DISP=(NEW,CATLG,DELETE),
// STORCLAS=MFI,
// SPACE=(TRK,5),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO)
//*
//*COPY A MEMBER FROM OTHER PDS TO THIS PDS THRU IEBCOPY
//******************************************************************
// EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=WORLD.SL9.JOB3 <== INPUT PDS
//SYSUT2 DD DISP=SHR,DSN=WORLD.JCL.CNTL <== OUTPUT PDS
//SYSIN DD *
COPY OUTDD=SYSUT2,INDD=((SYSUT1,R))
S M=RESTF161
I am new to JCL, this will be my first procedure. Thanks for help.
Thank You