Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Here's am example of a job running under IMS. You may notice you don't execute your program but DFSRRC00 with parameters for your program (MBR) and PSB.
Code: |
// PROC MBR=TEMPNAME,SOUT='*',PSB=,BUF=8,
// SPIE=0,TEST=0,EXCPVR=0,RST=0,LOGT=TPCART,SUF=,
// PRLD=,SRCH=0,CKPTID=,MON=N,LOGA=0,LIB='NULLFILE',
// FMTO=T,IMSID=,SWAP=,RGN=1536K,DBRC=N,IRLM=,IRLMNM=,
// SID=,BKO=N,IOB=,SSM=,APARM=
//G EXEC PGM=DFSRRC00,REGION=&RGN,
// PARM=(DLI,&MBR,&PSB,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,
// &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,
// &BKO,&IOB,&SSM,&APARM)
//STEPLIB DD DSN=IMS&SID..RESLIB,DISP=SHR
// DD DSN=&LIB,DISP=SHR
//DFSRESLB DD DSN=IMS&SID..RESLIB,DISP=SHR
//IMS DD DSN=IMS&SID.&SUF..PSBLIB,DISP=SHR
// DD DSN=IMS&SID.&SUF..DBDLIB,DISP=SHR
//PROCLIB DD DSN=IMS&SID..PROCLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS&SID..PROCLIB(DFSVSMUT),DISP=SHR
//IEFRDER DD DUMMY,UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916,BUFNO=2)
//IEFRDER2 DD DUMMY,UNIT=(&LOGT,,DEFER),
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916,BUFNO=2)
//SYSUDUMP DD SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),
// SPACE=(605,(500,500),RLSE,,ROUND)
//IMSMON DD DUMMY
//SYSOUT DD SYSOUT=&SOUT
//SYSPRINT DD SYSOUT=&SOUT
//ABENDAID DD SYSOUT=&SOUT
|
|
|