Going through ADSC, its nothing but adjoining all processes and records....but first step is to make available those things into IDD,
For this, either we need to go through IDDM and create required modules or we need Punch JCL to punch records/processes and another things....
I think.. .this wud be sufficient...if not...then reply back.
Joined: 06 Dec 2004 Posts: 211 Location: Keane Inc., Minneapolis USA.
I understood your requirement as follows.... You have an ADSO program (Record or Process) in a dataset and you want to punchin this to IDD. You can use the following JCL to PUNCHIN an ADSO program, remember to change IDMS libraries to point to your system environment.
//PUNCHINPI JOB (850AE0),'PUNCH IN',CLASS=I,MSGCLASS=X,
//IDDIN01 EXEC PGM=IDMSDDDL
//STEPLIB DD DSN=IDMS.TN00.OA.LOADLIB,DISP=SHR
// DD DSN=IDMS.TN00.LOADLIB,DISP=SHR
//SYSCTL DD DSN=IDMS.TN00.SYSCTL,DISP=SHR
//SYSIDMS DD DSN=IDMS.TN00.SYSIDMS(SYSBUY),DISP=SHR
//SYSLST DD SYSOUT=*
//SYSIPT DD *
SIGNON USER TXSX1.
SET OPTIONS FOR SESSION
DEFAULT IS OFF
*+ DELETE IS ON
INPUT 1 THRU 80.
// DD DSN=TEST.COMMON.SRCLIB(PROG1),DISP=SHR