
Appendix D. Programming experience 453
// ON $CANCEL OR $ABEND GOTO ENDJ2
// OPTION NOLIST,NODUMP,DECK
// EXEC DFHECP1$,SIZE=512K
CBL XOPTS(COBOL3 CICS DEBUG)
* $$ SLI ICCF=(SMAPEX1),LIB=(0013)
/*
/. ENDJ2
// EXEC IESINSRT
/*
// IF CATALOG NE 1 OR $MRC GT 4 THEN
// GOTO NOLNK
// EXEC LNKEDT,SIZE=256K
/. NOLNK
#&
$ $$ EOJ
* $$ END
/&
* $$ EOJ
For information about how to define resources in CICS (for example, programs,
map sets, transactions, and so on) refer to CICS Transaction Server for
VSE/ESA, Resource Definition Guide, SC33-1653.
For information about how to security-enable user-defined transactions refer to
z/VSE Administration ...