An example is needed to show the creation of the standalone IDMSCTAB module
IDMS - all supported releases
//ASMCTAB EXEC PGM=ASMA90,
// REGION=512K
//SYSLIB DD DSN=Your.IDMS.CAGJMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT2 DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(600,100))
//SYSUT3 DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(600,100))
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSLIN DD DSN=&&OBJECT,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(80,(500,1000))
//SYSIN DD *
#CTABGEN LOGIN=YES, X
(A,1,B,2,C,9), X
(N033,C,N001,C,N002,C,N028,A,N009,A,N030,A,N059002,B)
END
//LINK EXEC PGM=IEWL,PARM='LET,LIST,XREF',REGION=512K,
// COND=(8,LT,ASMCTAB)
//SYSLIB DD DSN=your.IDMS.CAGJLOAD,DISP=SHR
//SYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE)
// DD *
ENTRY CTABEP1
MODE AMODE(31),RMODE(ANY)
NAME IDMSCTAB(R)
//SYSLMOD DD DSN=your.CUSTOM.LOADLIB(IDMSCTAB),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(6400,(80)),
// DISP=(NEW,DELETE)