Model 204 OPLTASMC job stream for IBM z/VSE

From m204wiki
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

The OPLTASMC job stream is used to translate and assemble the CICS Shutdown program OBPLTSD, and catalog it in the Model 204 library, during installation on IBM z/VSE.

See the comments in the code below for instructions on editing OPLTASMC.

// JOB OPLTASMC * OPLTASMC translates and assembles the CICS Shutdown program * OBPLTSD, and catalogs it in the MODEL 204 library. * Note: PRD1.BASE is IBM distributed CICS library /* /* To adapt this procedure to your installation: /* 1. Modify JOB statement /* 2. Modify the following in the job stream: /* ASSGN - this jcl assumes standard assignments /* for the logical units (SYS000) referenced /* in EXTENT statements. Add as needed: /* (e.g., // ASSGN SYS000,cuu) /* DATE - expiration date of dataset /* LENGTH - length of dataset in blocks/tracks /* if a MODEL 204 distribution file, see installation /* guide for number of 6184 byte pages /* START - starting location of dataset /* VOLSER - volume serial of dataset /* /* (-- For Rocket Support only: filename=OPLTASMC 7.7 2016/11/14 --) /* ON $RC=0 CONTINUE // EXEC PROC=M204JCL DLBL for JCL sublibrary // LIBDEF PROC,SEARCH=M204LIB.V770 // EXEC PROC=M204WRK1 // EXEC PROC=M204V770 DLBL for V770 M204 library // LIBDEF SOURCE,SEARCH=M204LIB.V770 // LIBDEF PHASE,SEARCH=PRD1.BASE // EXEC DFHEAP1$ * ***** copy OBPLTSD.A code ***** /* CLOSE SYSPCH,PUNCH // OPTION CATAL // EXEC PROC=M204JCL DLBL for JCL sublibrary // LIBDEF PROC,SEARCH=M204LIB.V770 // EXEC PROC=M204WRK1,DLBNAME=IJSYSIN,PLU=SYSIPT // EXEC PROC=M204V770 DLBL for V770 M204 library // LIBDEF OBJ,SEARCH=(M204LIB.V770,PRD1.BASE) // LIBDEF SOURCE,SEARCH=(M204LIB.V770,PRD1.BASE) // LIBDEF PHASE,CATALOG=M204LIB.V770 PHASE OBPLTSD,* REPLACE=YES INCLUDE DFHEAI // EXEC ASMA90,SIZE=(ASMA90,64K),PARM='CPAT(SYSL),EX(LBX(EDECKXIT)),* FOLD,OP(UNI),LINECOUNT(056)' CLOSE SYSIPT,SYSRDR ENTRY OBPLTSD // EXEC LNKEDT /* /&