Module Format for Programs and Panels › Module Definition › Creating Modules › Sample JCL

Sample JCL

For z/OS:

//IDLMODS JOB . . .
//*
//*           EXECUTE CREATE COMMAND IN IDEAL.               *
//*
//BATCH EXEC IDLBATCH
//OBJECT    DD DSN=&&TEMP,UNIT=SYSDA,DISP=(MOD,PASS,DELETE),
//          SPACE=(CYL,(2,2))
//SYSIN     DD *
PERSON $IDEAL PSW $IDEAL
SEL SYS $ID
CREATE MODULE DEMPGM5 FROM PGM DEMOPGM5
CREATE MODULE DEMPNL5 FROM PNL DEMOPNL5 VERSION 1
OFF 
//* 
//*      LINKEDIT MVS OBJECT DECKS PRODUCED BY CREATE.       *
//* 
//LKED     EXEC PGM=IEWL,COND=(0,NE,BATCH),
//              PARM='RENT,XREF,MAP,LIST'
//*
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSLMOD   DD DSN=IDEAL.APPLIC.LOAD,DISP=SHR
//SYSLIN    DD DSN=&&TEMP,DISP=(OLD,DELETE)
/*

Note: DCB information is taken from the OBJECT entry in the CA Ideal System File Table (@IIDSYSF).

For VSE:

* $$ JOB JNM=IDLMODS,CLASS=0,DISP=D
* $$ LST DISP=D,CLASS=R,JSEP=0
// JOB IDLMODS
// OPTION LOG,NODUMP
// DLBL IDLPROC,'Ideal.Proclib'
// EXTENT ,vse004
// LIBDEF *,SEARCH=(IDLPROC.Sublib)
// ASSGN SYS000,DISK,VOL=vse004,SHR
// DLBL OBJECT,'Ideal.test.object',0
// EXTENT SYS000,vse004,,,76636,200
// EXEC PROC=IDLBATCH
// EXEC IDBATCH,SIZE=128K
PERSON $IDEAL PSW $IDEAL
SEL SYS $ID
CREATE MODULE DEMPGM5 FROM PGM DEMOPGM5
CREATE MODULE DEMPNL5 FROM PNL DEMOPNL5 VERSION 1
OFF
/*
// OPTION CATAL
// DLBL IJSYSIN,'Ideal.test.object'
// EXTENT SYSIPT,vse004
   ASSGN SYSIPT,DISK,VOL=vse004,SHR
// DLBL 'Ideal.sp.library'
// EXTENT ,vse004
// LIBDEF *,SEARCH=(Ideal.sublib), catalog=Ideal.sublib
   INCLUDE
// EXEC LNKEDT
/*
   CLOSE SYSIPT,05c
/&
* $$ EOJ