How to copy ADSO process from IDD to PDS

varshasawant · New User Joined: 25 Jul 2006 Posts: 2

Hi,
I need a JCL to copy/transfer ADSO processes from IDD to datasets or PDS.
Please forward if you have one!!

Regards,
Varsha

arun.gopal · Posted: Tue Jul 25, 2006 8:32 pm

Hi Varsha,

use this JCL.

//DEVAXGIT JOB ,'IDD TO TSO',CLASS=A,
// MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=DEVAXG
/*ROUTE PRINT PRU
/*JOBPARM ROOM=2TXG,LINES=100
//IDMSDDDL EXEC PGM=IDMSDDDL
//STEPLIB DD DSN=IDMSR.TVNT.LOADLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSLST DD SYSOUT=*
//SYSPCH DD DSN=DEVAXG.WSK.SOURCE(SLSDIP95),DISP=OLD
//SYSCTL DD DSN=IDMSR.TVNT.SYSCTL,DISP=SHR
//SYSIPT DD *
SIGNON USER=DEVAXG PASSWORD=ABCD
DBNAME=TVNTDICT USAGE MODE IS RETRIEVAL FOR ALL.
PUNCH PROC SLSDIP95-PREMAP VERSION 1 VERB ADD AS SYN.
SIGNOFF
/*