IMSPLI procedure

The IMSPLI procedure is a two-step compile and bind procedure for IMS applications written in PL/I.

Sample JCL for the IMSPLI procedure demonstrates the IMSPLI procedure. This sample procedure assumes that:
  • Your supply source data is from SYSIN.
  • The output class is A.
  • MBR=NAME, where NAME is the load module name for the program.
  • SYSDA is a generic device name.

Parameters

The following parameters are valid for the IMSPLI procedure. See Parameter descriptions for IMS procedures for descriptions.

  • MBR=
  • NODE1=
  • NODE2=
  • SPIE=
  • SYS2=

DD statements

The following DD statements are valid for the IMSPLI procedure. See DD statement descriptions for descriptions.

  • DFSRESLB DD
  • SYSLIB DD
  • SYSLIN DD
  • SYSLMOD DD
  • SYSPRINT DD
  • SYSUT1 DD

Sample JCL for the IMSPLI procedure

//       PROC MBR=TEMPNAME,PAGES=50,SYS2=,
//            LNGPRFX=IEL,
//            LIBPRFX=CEE,
//            SOUT=A
//C      EXEC PGM=IEL1AA,REGION=4M,
//            PARM=(XREF,A,OBJ,NODECK,NOMACRO,,
//            'OPT(TIME)')
//STEPLIB  DD DSN=&LNGPRFX..SIELCOMP,DISP=SHR
//         DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,
//         SPACE=(1024,(200,50),RLSE,,ROUND),
//         DCB=BLKSIZE=1024,DISP=(,DELETE)
//SYSPRINT DD SYSOUT=&SOUT,
//         DCB=(LRECL=125,BLKSIZE=629,RECFM=VBA),
//         SPACE=(605,(&PAGES.0,&PAGES),RLSE)
//SYSLIN   DD UNIT=SYSDA,SPACE=(80,(250,100),RLSE),
//         DCB=(IMS.&SYS2.PROCLIB),
//         DISP=(,PASS)
//L      EXEC PGM=IEWL,PARM='XREF,LIST,LET',
//            COND=(9,LT,C),REGION=4M
//SYSLIB   DD DSN=&LIBPRFX..SCEELKED,DISP=SHR
//SDFSRESL DD DSN=IMS.&SYS2.SDFSRESL,DISP=SHR
//SYSLIN   DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
//         DD DISP=SHR,
//         DSN=IMS.&SYS2.PROCLIB(PLITDLI)
//         DD DDNAME=SYSIN
//SYSLMOD  DD DISP=SHR,
//         DSN=IMS.&SYS2.PGMLIB(&MBR)
//SYSPRINT DD SYSOUT=&SOUT,
//         DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605),
//         SPACE=(605,(&PAGES.0,&PAGES),RLSE)
//SYSUT1   DD UNIT=SYSDA,DISP=(,DELETE),
//         SPACE=(CYL,(5,1),RLSE)