Model 204 PSFSASM job stream for IBM z/VSE

The PSFSASM job stream is used to translate and assemble OBIFPS and link the M204PSFS phase during installation on IBM z/VSE.

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

/* Update to recompile 01/12/2012 // JOB PSFSASM * ******************************************************************** * Rocket Model 204 * 10/14 * ******************************************************************** * PSFSASM translates and assembles OBIFPS and links M204PSFS phase * Note: PRD1.BASE is IBM distributed CICS library * Remove the leading '*' from the $$ SLI statement ON $RC=0 CONTINUE // EXEC PROC=M204JCL DLBL for JCL sublibrary // LIBDEF PROC,SEARCH=M204LIB.V750 // EXEC PROC=M204WRK1 // EXEC PROC=M204V750 DLBL for V750 M204 library // LIBDEF SOURCE,SEARCH=M204LIB.V750 // LIBDEF PHASE,SEARCH=PRD1.BASE // EXEC DFHEAP1$ ** $$ SLI MEM=OBIFPS.A code ***** /* CLOSE SYSPCH,PUNCH // OPTION CATAL // EXEC PROC=M204JCL DLBL for JCL sublibrary // LIBDEF PROC,SEARCH=M204LIB.V750 // EXEC PROC=M204WRK1,DLBNAME=IJSYSIN,PLU=SYSIPT // EXEC PROC=M204V750 DLBL for V750 M204 library // LIBDEF SOURCE,SEARCH=(M204LIB.V750,PRD1.BASE) // LIBDEF OBJ,SEARCH=(M204LIB.V750,PRD1.BASE) // LIBDEF PHASE,CATALOG=M204LIB.V750 PHASE M204PSFS,* INCLUDE DFHEAI INCLUDE OBIF // EXEC ASMA90,SIZE=(ASMA90,64K),PARM='CPAT(SYSL),EX(LBX(EDECKXIT)),* FOLD,OP(UNI),LINECOUNT(056)' CLOSE SYSIPT,SYSRDR ENTRY OBXMAIN // EXEC LNKEDT /* /&