
Appendix D. Programming experience 439
// OPTION ERRS,SXREF,SYM,LIST,NODECK
// GOTO ENDCAT1
/. CAT1
// LIBDEF PHASE,CATALOG=USER.LIB
// OPTION ERRS,SXREF,SYM,NODECK,CATAL
PHASE COBSAMP,*
/. ENDCAT1
// EXEC IGYCRCTL,SIZE=IGYCRCTL
CBL LIB,APOST,NOADV,RENT,BUF(4096) DYNAM LIST
* SOURCE TO COMPILE COMES HERE !
/*
*
* ------------------------------------
* STEP 2: LINK PROGRAM PHASE: COBSAMP
* ------------------------------------
*
// IF CATALOG NE 1 OR $MRC GT 4 THEN
// GOTO NOLNK1
// EXEC LNKEDT
/*
*
* ------------------------------------
* STEP 3: RUN/INVOKE PROGRAM: COBSAMP
* ------------------------------------
*
// LIBDEF *,SEARCH=(USER.LIB,PRD2.SCEEBASE)
// EXEC ...