Template:VSE PSFSASM: Difference between revisions

From m204wiki
Jump to navigation Jump to search
(Automatically generated page update)
(Automatically generated page update)
 
Line 3: Line 3:
You've been warned.-->
You've been warned.-->
<p class="code"><nowiki>// JOB PSFSASM
<p class="code"><nowiki>// JOB PSFSASM
* ********************************************************************
*                          Rocket Model 204
*                                09/16
* ********************************************************************
*  PSFSASM translates and assembles OBIFPS and links M204PSFS phase
*  PSFSASM translates and assembles OBIFPS and links M204PSFS phase
*    Note: PRD1.BASE is IBM distributed CICS library
*    Note: PRD1.BASE is IBM distributed CICS library
*          Remove the leading '*' from the $$ SLI statement
*          Remove the leading '*' from the $$ SLI statement
*
*
* (-- For Rocket Support only: filename=PSFSASM --)
* (-- For Rocket Support only: filename=PSFSASM 7.7 2016/11/14 --)
*
*
ON $RC=0 CONTINUE
ON $RC=0 CONTINUE

Latest revision as of 21:29, 14 November 2016

// JOB PSFSASM * PSFSASM translates and assembles OBIFPS and links M204PSFS phase * Note: PRD1.BASE is IBM distributed CICS library * Remove the leading '*' from the $$ SLI statement * * (-- For Rocket Support only: filename=PSFSASM 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=OBIFPS.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 SOURCE,SEARCH=(M204LIB.V770,PRD1.BASE) // LIBDEF OBJ,SEARCH=(M204LIB.V770,PRD1.BASE) // LIBDEF PHASE,CATALOG=M204LIB.V770 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 /* /&