Model 204 PSFASM job stream for IBM z/VSE

The PSFASM job stream is used to translate and assemble IFPS and link the M204PSF phase during installation on IBM z/VSE.

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

// JOB PSFASM * PSFASM translates and assembles IFPS, and links M204PSF phase * Note: PRD1.BASE is IBM distributed CICS library * Remove the leading '*' from the $$ SLI statement /* /* 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=PSFASM V 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$ ** $$ SLI MEM=IFPS.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 DFHPSF,* INCLUDE DFHEAI INCLUDE IFIFDOS // EXEC ASMA90,SIZE=(ASMA90,64K),PARM='CPAT(SYSL),EX(LBX(EDECKXIT)),* FOLD,OP(UNI),LINECOUNT(056)' CLOSE SYSIPT,SYSRDR ENTRY DFHPSF // EXEC LNKEDT /* /&