* /* START OF SPECIFICATIONS **** 00010000 *02* PROCESSOR = ASSEMBLER 00020000 **** END OF SPECIFICATIONS ***/ 00030000 GBLC &COMPNM,&ASMID 00050000 JHEAD 'OUTPUT COMMON LOAD MODULE - PROLOG', X01000000 PHASEID=X0G, X02000000 LEVEL=10 03000000 * * 04000000 *FUNCTION/OPERATION- * 05000000 * THIS MODULE IS THE OUTPUT COMMON WORK AREA FOR THE OUTPUT I/O * 06000000 * PACKAGE. THIS IS LOADED BY THE DRIVER. REGISTER R7 POINTS TO * 07000000 * THIS MODULE WHILE THE INPUT I/O PACKAGE HAS CONTROL. * 08000000 * * 09000000 *ENTRY POINT- * 10000000 * N/A * 11000000 * * 12000000 *INPUT- * 13000000 * N/A * 14000000 * * 15000000 *OUTPUT- * 16000000 * SYSPRINT, SYSPUNCH, SYSLIN. * 17000000 * * 18000000 *EXITS, NORMAL- * 19000000 * N/A * 20000000 * * 21000000 *EXITS, ERROR- * 22000000 * BRANCH TO JABORT IN COMMON. * 23000000 * * 24000000 *TABLE/WORK AREAS- * 25000000 * THIS MODULE IS ONE ENTIRE WORK AREA. * 26000000 * * 27000000 *ATTRIBUTES- * 28000000 * NON-REFRESHABLE. * 29000000 * * 30000000 *NOTES- * 31000000 SPACE 2 31050000 PRINT OFF DON'T PRINT JCOMMON COPY CODE 32000000 COPY JCOMMON 33000000 PRINT OFF DON'T PRINT JERMSGCD COPY CODE 34000000 COPY JERMSGCD 35000000 PRINT ON THAT'S ALL WE WON'T PRINT 36000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - JOUTCOM DSECT' 36050000 COPY JOUTCOM 37000000 SPACE 2 38000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - POINTER LIST' 38050000 JCSECT (X0G00) 39000000 JMODID EMBEDDED IDENTIFIER 40000000 USING START,R7 41000000 START DS 0D 42000000 JENTRY (X0G01=START) 43000000 ORG START+JSYSLST-JOUTCOM ADDRESS OF PRINT FILE DEF 44000000 DC A(SYSLST) '' 45000000 ORG START+JSYSPCH-JOUTCOM ADDR OF PUNCH FILE DEF 46000000 DC A(SYSPCH) '' 47000000 ORG START+JSYSLNK-JOUTCOM ADDR OF LINK FILE DEF 48000000 DC A(SYSLNK) '' 49000000 ORG START+JSYSTRM-JOUTCOM ADDR OF TERM FILE DEF 49300000 DC A(SYSTRM) '' 49600000 ORG START+JOUTOPEN-JOUTCOM ADDR OF OUTPUT OPEN PARM LIST 50000000 DC A(OUTOPEN) '' 53000000 ORG START+JOUTCLOS-JOUTCOM ADDR OF OUTPUT CLOSE PARM LIST 54000000 DC A(OUTCLOS) '' 55000000 ORG JDECKSEQ+START-JOUTCOM ZERO DECK SEQUENCE NUMBER 56000000 DC H'0' '' 57000000 ORG START+JOUTSW-JOUTCOM ZERO JOUTSW 58000000 DC X'00' '' 59000000 ORG START+JOUTCMND-JOUTCOM END OF OUTPUT COMMON 60000000 SPACE 5 61000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - OPEN AND CLOSX61050000 E LISTS FOR SYSPUNCH, SYSPRINT AND SYSGO' 61100000 OUTOPEN OPEN (SYSLST,(OUTPUT,DISP),SYSPCH,(OUTPUT,DISP),SYSLNK, X62000000 (OUTPUT,DISP),SYSTRM,(OUTPUT,DISP)),MF=L OPEN PARM LIST 63000000 OUTCLOS CLOSE (SYSLST,DISP,SYSPCH,DISP,SYSLNK,DISP,SYSTRM,DISP),MF=L *64000000 OUTPUT CLOSE PARM LIST 64500000 SPACE 3 65000000 XTPRT DC 0F'0',X'85',AL3(*+3) SYSPRINT DCB EXIT 66000000 BR R10 R10 LOADED BEFORE OPEN 67000000 SPACE 3 68000000 XTPCHLIN DC 0F'0',X'85',AL3(*+3) SYSPUNCH & SYSLIN DCB EXIT 69000000 BR R11 R11 LOADED BEFORE OPEN 70000000 SPACE 3 71000000 ABORTSYN LA R10,ERR261 SYNAD EXIT (I/O ERROR) ABORT 72000000 LR R11,R0 SAVE R0 FOR ABORT ROUTINE 73000000 B JABORT GO ABORT 74000000 SPACE 3 75000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - SYSPRINT DCB' 75050000 SYSLST DCB DSORG=PS,DEVD=DA,MACRF=(PL),BFTEK=S,SYNAD=ABORTSYN, X78000000 DDNAME=SYSPRINT,LRECL=121,EXLST=XTPRT 79000000 SPACE 3 80000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - SYSPUNCH DCB' 80050000 SYSPCH DCB DSORG=PS,DEVD=DA,MACRF=(PL),BFTEK=S,SYNAD=ABORTSYN, X81000000 DDNAME=SYSPUNCH,LRECL=80,EXLST=XTPCHLIN 82000000 SPACE 3 83000000 TITLE '&COMPNM&ASMID - OUTPUT COMMON LOAD MODULE - SYSGO DCB' 83050000 SYSLNK DCB DSORG=PS,DEVD=DA,MACRF=(PL),BFTEK=S,SYNAD=ABORTSYN, X84000000 DDNAME=SYSGO,LRECL=80,EXLST=XTPCHLIN 85000000 SYSTRM DCB DSORG=PS,DEVD=DA,MACRF=(PL),BFTEK=S,SYNAD=ABORTSYN, *85010000 DDNAME=SYSTERM,LRECL=121,EXLST=XTPRT 85020000 SPACE 5 85050000 JPATCH X0G00,1E8 5% PATCH AREA 85100000 SPACE 3 85150000 END START 86000000