arun.gopal Warnings : 1 New User
Joined: 25 Jul 2006 Posts: 9 Location: Kerala, India
|
|
|
|
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
/* |
|