Module Format for Programs and Panels › Module Runtime Considerations › Tailoring the LMT › Establishing @ILMLIST AMT Lists

Establishing @ILMLIST AMT Lists

The following is the input for the assembly of @ILMLIST. Specify on the LMTGEN macro TABLEID parameter the list of AMT tableids that reflect the contents for @ILMLIST.

LMLIST                TITLE '@ILMLIST Application LMTs'
                      LMTGEN TABLEID=(tid,tid,...)
                      END
Tid

Represents the list of AMT tableids. All @ILMTsss modules and the @ILMLIST module must be in a library accessible to the CICS or batch region.

To produce an empty @ILMLIST, specify the following for the assembly input:

LMLIST                TITLE '@ILMLIST Application LMTs'
                      LMTGEN TYPE=DUMMY
                      END

The following is an example of entries and JCL that assemble and link @ILMLIST.

z/OS

//IDLMLIST JOB ...
//ASMOPT EXEC PGM=IEV90,PARM=(DECK,NOOBJ),REGION=500K
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//         DD DSN=Ideal.maclib,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DSN=Ideal.objlib(LMLIST),DISP=SHR
//SYSIN    DD *
LMLIST   TITLE '@ILMLIST Application LMTs'
         LMTGEN TABLEID=(000,999,DRA)
         END
//LNKOPT EXEC PGM=IEWL,PARM=(RENT,XREF,LIST,NCAL), COND=(4,LT)
//SYSLMOD  DD DSN=Ideal.cailib,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSPRINT DD SYSOUT=*
//OBJLIB   DD DSN=Ideal.objlib,DISP=SHR
//SYSLIN   DD *
  INCLUDE  OBJLIB(LMLIST)
  NAME     @ILMLIST(R)
//

VSE

* $$ JOB JNM=@ILMLIST,CLASS=A,LDEST=(*,VMUID)
* $$ LST CLASS=R
// JOB    @ILMLIST
// ON     $RC>0 GOTO $EOJ
// LIBDEF *,SEARCH=(CAI.IDEAL,CAI.IPC),CATALOG=CAI.USER
// OPTION CATAL
   PHASE  @ILMLIST
// EXEC   ASSEMBLY,PARM='VSE'
         TITLE '@ILMLIST APPLICATION LMTS'
         PRINT NOGEN
         LMTGEN TABLEID=($ID,DRA)
         END
/*
// EXEC   LNKEDT
/*
/&
* $$ EOJ

Note: A CICS PPT entry is required for the @ILMLIST phase.