ca.portal.admin

CTABGEN

Discussion created by ca.portal.admin on Oct 27, 2009
Latest reply on Oct 27, 2009 by ca.portal.admin
Does anyone have JCL to assemble and link the CTABGEN macro outside of
SMP? A copy would be greatly appreciated.
=20
Tia,
=20
Bob
=20
Bob Wiklund
Tiburon Technologies
623 594-6022
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
CTABGEN
"Geez. Seems hard to post JCL . . .


//ASMLCTAB JOB (2330,X7264,216D),'DMATTHEW',CLASS=A,
// MSGCLASS=U,MSGLEVEL=(1,1),NOTIFY=SCXDEM
//* ------------------------------------------------------------------
//* --- CURRENT SOURCE. DEM 9/27/06
//* ------------------------------------------------------------------
// SET CV=DC
//ASM EXEC PGM=ASMA90,PARM='NOXREF,NORLD,NOOBJ,DECK'
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD UNIT=SYSDA,DSN=&&TEMP(RHDCCTAB),
// DISP=(,PASS,DELETE),SPACE=(TRK,(5,5,5)),
// DCB=(LRECL=80,BLKSIZE=9040,RECFM=FB,DSORG=PO)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS0.IDMS.R160.DISTMAC
//SYSIN DD *
(ctab macro statements)
/*
//LINK EXEC PGM=IEWL,PARM='LET,NOMAP,NOXREF,LIST=STMT'
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TEMPOBJ DD DISP=(OLD,DELETE,DELETE),DSN=&&TEMP
//LOADLIB DD DISP=SHR,DSN=SYS0.IDMS.R160.LOADLIB.SP2
//SYSLMOD DD DISP=SHR,DSN=CAI.IDMS&CV..LOADLIB
//SYSLIN DD *
REPLACE RHDCCTAB
INCLUDE LOADLIB(RHDCMT00)
INCLUDE TEMPOBJ(RHDCCTAB)
MODE AMODE(31),RMODE(ANY)
ENTRY MT00EP1
NAME NHDCMT00(R)
//* prefix ""N"" used to prevent premature implementation . . .
//

Best regards to Bob,
dem

Outcomes