DML Precompile, PL/I Compile, and Link-Edit JCL › Compiling a PL/I Program › Under z/OS

Under z/OS

Executing Under the Central Version

IDMSDMLP (Central Version) (z/OS)

//*****************************************************************
//**         PRECOMPILE PL/I PROGRAM          **
//*****************************************************************
//precomp EXEC PGM=IDMSDMLP,REGION=1024K,
//       PARM='optional parameters'
//STEPLIB DD  DSN=idms.dba.loadlib,DISP=SHR
//     DD  DSN=idms.custom.loadlib,DISP=SHR
//         DD DSN=idms.cagjload,DISP=SHR
//sysctl  DD  DSN=idms.sysctl,DISP=SHR
//dcmsg  DD  DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//SYS001  DD  UNIT=disk,SPACE=(TRK,(10,10))
//SYS002  DD  UNIT=disk,SPACE=(TRK,(10,10))
//SYS003  DD  UNIT=disk,SPACE=(TRK,(10,10))
//SYSPCH  DD  DSN=&&source,DISP=(NEW,PASS),
//       UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//       DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSLST  DD  SYSOUT=A
//SYSIDMS DD  *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other SYSIDMS parameters, as appropriate
/*
//SYSIPT  DD  *
PL/I DML source statements
/*
//*****************************************************************
//**         COMPILE PL/I PROGRAM            **
//*****************************************************************
//plicmp  EXEC PGM=IEL0AA,REGION=300K,
//       PARM='DECK,LIST,OFFSET,STORAGE,NOP'
//STEPLIB DD  DSN=sys1.pliopt,DISP=SHR
//SYSUT1  DD  UNIT=disk,SPACE=(1024,(200,50),,CONTIG,ROUND),
//       DCB=BLKSIZE=6144
//SYSPUNCH DD  DSN=&&object,DISP=(NEW,PASS),
//       UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//       DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSPRINT DD  SYSOUT=A
//SYSIN  DD  DSN=&&source,DISP=(OLD,DELETE)
//*****************************************************************
//**         LINK PROGRAM MODULE            **
//*****************************************************************
//link   EXEC PGM=HEWL,REGION=300K,PARM='LET,LIST,XREF'
//SYSUT1  DD  UNIT=disk,SPACE=(TRK,(20,5))
//SYSLIB  DD  DSN=sys1.plibase,DISP=SHR
//vanilla DD  DSN=idms.cagjload,DISP=SHR
//custom   DD DSN=idms.custom.loadlib,DISP=SHR
//SYSLMOD DD  DSN=idms.custom.loadlib,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//SYSLIN  DD  DSN=&&object,DISP=(OLD,DELETE)
//     DD  *
 INCLUDE vanilla(IDMS)   Required, except omit for CICS
 INCLUDE vanilla(IDMSCANC) Required for BATCH and DC_BATCH
              if using IDMS_STATUS module
 INCLUDE custom(IDMSOPTI) Optional; BATCH and DC_BATCH only
 INCLUDE custom(IDMSCINT) Required for CICS, otherwise omit
 ENTRY  userentry
 NAME  userprog(R)
/*
//*

Note: The link of CICS application programs that use IDMSCINT must incorporate JCL to resolve external reference DFHEI1. The particular JCL depends on the nature and language of your application. See the appropriate IBM CICS application programming documentation for details.

optional parameters

options that control various aspects of the precompile process. See “Passing Parameters to the Precompiler” for a complete description of the options.

precomp

Name of the precompile step