%GOTO OUTGOTO; /* THIS IS A BI-LINGUAL MACRO 00050002 MACRO 00100002 IKJOCMTB &DSECT= 00150002 AIF ('&DSECT' EQ 'NO').NODSECT 00200002 OUTCOMTB DSECT 00250002 AGO .ADSECT 00300002 .NODSECT ANOP 00350002 OUTCOMTB EQU * 00400002 .ADSECT ANOP 00450002 * 00500002 * THIS IS A BILINGUAL MAPPING MACRO OF OUTCOMTB. IT IS THE ONLY 00550002 * INTERFACE BETWEEN ALL OF THE MODULES IN THE 00600002 * 'OUTPUT' CP. 00650002 * 00700002 * CHANGE ACTIVITY 00706000 * A 083700,087600-087700,089700 @ZM30982 00712000 * A 097250-097350,181100-181200,181700 @ZM30982 00718000 * A 184900-185100,187100-187200 @ZM30982 00724000 * A 187700,196440-196480 @ZM30982 00730000 * C 084000,090000,181500,187500 @ZM30982 00736000 * D 081500 @ZM30982 00742000 OUTCPPL DS A . ADDR OF COPY OF CPPL 00750002 OUTMSGID DS CL1 INDICATE MSG TO ISSUE 00800002 OUTFLAGS DS BL1 FLAGS REQUIRED IN 67 00850002 KEY1 EQU X'80' RUNNING IN KEY 1 SUPR STATE 00900002 OUTRTCD DS XL2 RETURN CODE PASSED TO MSG RTN 00950002 OUTMACN DS CL8 . NAME OF SVC100'S FAILING MACRO 01000002 OUTCMDNM DS CL8 . COMMAND NAME FROM ECT VIA SVC100 01050002 OUTATTN DS F . ECB, POSTED BY ATTENTION EXIT 01100002 POSTED EQU X'40' . VALUE TO TEST IF ECB POSTED 01150002 OUTEXTRA DS CL4 . FOR FUTURE USE (RESERVED) 01200002 OUTEMPMN DS CL8 . TEMPNAME FOR PO DS 01220002 OUTSOBH DS A . ADDR OF SSOB HEADER 01250002 OUTSOBSO DS A . ADDR OF SSSO FUNCTION SECTION 01300002 OUTRPL DS A . ADDRESS OF RPL 01350002 OUTRPLL DS F . RPL LENGTH 01400002 OUTACB DS A . ADDRESS OF ACB, TO BE PUT INTO RPL 01450002 OUTACBL DS F . ACB LENGTH 01500002 OUTEMPSB DS A . SAVE PTR TO SUBCMD FROM ATTN 01550002 OUTHOLD DS 2F . CURRENT RBA OF SYSOUT D.S. 01600002 * 01650002 * THESE FIELDS ARE USED TO MAINTAIN THE SYSOUT RBA 01700002 * CORRESPONDING TO APPROXIMATELY 10 'PUT' LINES BACK. 01720002 * THIS IS USED FOR RESUMING TERMINAL PRINTING (C HERE) 01750002 * AFTER AN ATTENTION THUS MAKING UP FOR LOST TCAM BUFFERS. 01760002 * IT'S ALSO USED FOR CHKPTING THE CURRENT SYSOUT DS AFTER 01770002 * AN ATTN/END, ATTN/NEXT, OR TERMINATING ERROR. 01800002 OUTBKNEW DS CL8 . RBA OF SYSOUT CORRESPONDING TO THE 01820002 * LATEST 10TH RCD PUT. IT'S UPDATED 01840002 * EVERY 10 'PUTS' 01860002 OUTBKAPX DS CL8 . RBA OF SYSOUT CORRESPONDING TO AT 01900002 * LEAST 10 'PUT' LINES BACK. IT'S SET 01908002 * EQUAL TO OUTBKNEW BEFORE OUTBKNEW 01916002 * IS UPDATED. THIS IS THE OFFICIAL 01924002 * RBA FOR CKPTING AND POINTING IN 01932002 * IN CERTAIN CASES. 01940002 OUTBKCNT DS F . COUNT OF LINES 'PUT' SINCE LAST 01950002 * APPROXIMATION OF SYSOUT RBA 01970002 * 02000002 * STRUCTURE CONTAINING SIMILAR DATA FOR PRINT AND SAVE DATASETS 02050002 * 02100002 STRCTNUM DS FL4 . STRUCTURE ELEMENT NUMBER 02150002 O73PARM DS CL40 . 02190002 ORG O73PARM+0 02230002 OUTDCB DS AL4 . DCB ADDR FOR '71 02270002 PRINTDDN DS CL8 . DDNAME OF DATASET ALLOCATED BY '73 02310002 OUTBUFA DS AL4 . ADDR OF 'PUT' BUFFER IN '71 02350002 NONAME DS FL4 . PLACE HOLDER IN STRUCTURE 02390002 ORG NONAME+0 02430002 NONAME1 DS CL1 . PLACE HOLDER 02470002 NONAME2 DS BL1 . PLACE HOLDER 02510002 DSALLOC EQU X'40' . DATASET IS ALLOCATED FLAG 02550002 DSOPEN EQU X'20' . DATASET IS OPENED 02590002 OUTRECV EQU X'10' . INDICATES VARIABLE FORMAT OF OUTPUT DS 02630002 NEEDFREE EQU X'08' . FREEMAIN NEEDED FOR BUFFER ('71) 02670002 NEWDS EQU X'04' . NEW DATASET ALLOCATED BY DAIR 02710002 NOMEMNAM EQU X'02' . NO MEMBER NAME PRESENT FOR PO DS 02750002 OUTRECUN EQU X'01' . RECFM IS UNDEFINED 02790002 OUTBUFL DS FL2 . LENGTH OF 'PUT' BUFFER FOR '71 02830002 ORG O73PARM+20 02910002 NONAME3 DS CL20 . PLACE HOLDER FOR SECOND PLACE IN STRUC 02950002 * 02990002 OUTRECA DS A . ADDR OF SYSOUT RCD FOR '71 TO 'PUT' 03030002 OUTRECL DS H . LENGTH OF SYSOUT RCD TO BE 'PUT' 03130002 * 03450002 OUTKEYWD DS XL1 . SWITCHES FOR KEYWORDS ENTERED 03500002 PAUSE EQU X'80' . PAUSE KEYWORD ENTERED 03550002 HOLD EQU X'40' . HOLD KEYWORD ENTERED 03600002 HERE EQU X'20' . HERE KEYWORD ENTERED 03650002 BEGIN EQU X'10' . BEGIN KEYWORD ENTERED 03700002 NEXT EQU X'08' . NEXT KEYWORD ENTERED 03750002 DELETE EQU X'04' . DELETE KEYWORD ENTERED 03800002 PRINT EQU X'02' . PRINT KEYWORD ENTERED OR DEFAULTED 03850002 NEWCLASS EQU X'01' . NEWCLASS KEYWORD ENTERED 03900002 OUTKEYW2 DS XL1 . 03950002 KEEP EQU X'80' . KEEP KEYWORD ENTERED 04000002 DEST EQU X'40' . DEST KEYWORD ENTERED 04050002 SUBCONT EQU X'20' . CONTINUE SUBCMD ENTERED 04100002 SUBHERE EQU X'10' . CONTINUE HERE SUBCMD ENTERED 04150002 SUBBEGN EQU X'08' . CONTINUE BEGIN SUBCMD ENTERED 04200002 SUBNEXT EQU X'04' . CONTINUE NEXT SUBCMD ENTERED 04250002 * 04300002 OUTSW DS XL1 . INTER-MODULE SWITCHES 04350002 SUBSYS EQU X'80' . SUBSYS PROCESSING A SET OF DATASETS 04400002 SUBCMODE EQU X'40' . IN SUBCOMMAND MODE 04450002 UNALCALL EQU X'20' . IKJCT473 IS BEING CALL FOR 04500002 * CLOSE/UNALLOCATION ONLY 04550002 ENDSW EQU X'10' . QUIT COMMAND DUE TO 'END' 04600002 ERROR EQU X'08' . QUIT CMD - CRITICAL ERROR 04650002 ENDKEEP EQU X'04' . OVERIDE NOKEEP ON CMD IF END 04700002 * SUBCMD IN MIDDLE OF PROCESSING 04750002 NOWORK EQU X'02' . NO MORE JOBS OR CLASSES TO PROCESS 04760002 HASPABND EQU X'01' . ABEND OCCURED IN HASP 04800002 OUTSW2 DS XL1 . INTER-MODULE SWITCHES 04850002 SYNADERR EQU X'80' SYNAD ERROR OCCURRED 04870002 OPENED EQU X'40' . SYSOUT DATASET OPENED BY '62 04900002 NONTERM EQU X'20' . CLIST - NON TERMINAL INPUT 04950002 WORKDONE EQU X'10' . IF ANY ACTION TAKEN FOR A 05000002 * JOB/CLASSLIST 05050002 ENDLIST EQU X'08' . LAST CALL FOR A GIVEN JOBNAME 05100002 * IF DELETE OR ROUTING SPECIFIED 05150002 OUTIDSSW DS XL1 . INPUT (I.E. SYSOUT) DATA SET FLAGS 05200002 POINT EQU X'80' . FORCE IKJCT470 TO ISSUE POINT 05250002 EODSW EQU X'10' . EOD REACHED, USED BY IKJCT463 05280002 TERM EQU X'08' . TERMINAL IS ALLOCATED 05320002 ALLOC EQU X'04' . SYSOUT DATASET ALLOCATED 05360002 INTRPMSG EQU X'02' . NEED MSG - INTERRUPTED OUTPUT 05400002 * RESUMED 05450002 OUTDARB DS A . ADDR OF DYN ALLOC REQ BLOCK FOR '67 05500002 OUTDAIR DS A . ADDR OF DAIR PARM LIST FOR '67 05550002 OUTPDL DS A . ADDR OF PDL OF ORIGINAL CMD 05600002 * 05650002 OUTXMSG DS A . ADDR OF USER SUPPLIED MSG 05700002 OUTSYNMS EQU OUTXMSG ADDR OF SYNAD MSG - PRINT/SAVE DS 05720002 OUTXRPLY DS A . ADDR OF REPLY TO USER MSG 05750002 * 05800002 OUTTCBH DS A . ADDR OF HELP TCB 05850002 OHELPECB DS A . ADDR OF HELP ECB 05900002 * 05950002 OUTSBPDL DS A . ADDR OF SUBCOMMAND PDL 06000002 OUTSBBUF DS A . ADDR OF SUBCOMMAND BUFFER 06050002 * 06100002 OUTSTAE DS 2F . SAVE R13 & R14 IN ESTAE EXIT 06150002 * 06200002 OUTWORK DS 12F . MISC WORK AREA 06250002 CLASBUFF DS CL8 . ZERO OR ONE CLASS FOR PRINT OR 06300002 * ZERO TO EIGHT CLASSES FOR DELETE 06350002 * OR ROUTING 06400002 OSYSODDN DS CL8 SYSOUT DDNAME 06450002 * 06500002 * POINTERS TO VARIOUS PDE'S (OR THE 1ST OF A CHAIN) 06550002 OUTPLIST EQU * 06600002 CPDE DS A FIRST 'CLASS' PDE 06650002 OUTCPDE1 EQU CPDE 06700002 PPDE DS A ADDR OF 'PRINT' PDE 06750002 OPRDSPDE EQU PPDE 06800002 NPDE DS A ADDR OF 'NEWCLASS' PDE 06850002 ONEWCPDE EQU NPDE 06900002 DPDE DS A . ADDR OF THE 'DEST' PDE 06950002 ODESTPDE EQU DPDE 07000002 OUTJBPDE DS A ADDR OF 'JOB' PDE 07050002 OUTCLPDE DS A ADDR OF 'CLASS' PDE 07100002 OSVDSPDE DS A ADDR OF 'SAVE DATASET' PDE 07150002 EWAPTR DS A PTR TO ESTAE WORK AREA 07200002 * 07250002 * 07300002 IOPLPTR DS A . ADDR OF IOPL, NEEDED BY CSECTS 07350002 * THE BELOW MAKES THE IOPL CONTIG. 07400002 IOPL DS 0F . IOPL (LABELS SAME AS MACRO) 07450002 IOPLUPT DS A PTR TO UPT 07500002 IOPLECT DS A PTR TO ECT 07550002 IOPLECB DS A PTR TO ECB 07600002 IOPLIOPB DS A PTR TO I/O SERVICE RTN PARM BLK 07650002 * 07700002 * M S G I D E Q U ' S 07750002 * 07800002 M300A EQU 0 . MODE MSG 07850002 M309I EQU 106 . OPEN FAILED - PRINT/SAVE 07900002 M310I EQU 110 . INVALID DSNAME EXCEEDS 44 CHAR 07950002 M312I EQU 112 . NOT ENOUGH VIRTUAL STORAGE 08000002 M312A EQU 111 . NOT ENOUGH VIRTUAL STORAGE 08050002 M313I EQU 113 . COMMAND SYSTEM ERROR 08100002 M318A EQU 114 . OUTPUT ENDED B37 ABEND 08200002 M318B EQU 115 . HELP ABENDED, CODE IN ECB 08250002 M318C EQU 116 . OUTPUT ENDED 913 ABEND 08300002 M318D EQU 117 . OUTPUT ENDED SYS ABEND CODE XXX 08350002 M320A EQU 120 . NO CLASS(CLASSNAME) OUTPUT FOR JOB @ZM30982 08370000 M320I EQU 118 . NO CLASS(CLASSNAME) OUTPUT FOR JOB(JOBID) @ZM30982 08400000 M321I EQU 119 . CMD NOT AUTHORIZED 08450002 M323I EQU 128 . INVALID SUB CMD 08500002 M325I EQU 122 . DSNAME SAVED (SEQUENTIAL DATASET) 08550002 M325A EQU 121 . DSNAME SAVED (PARTITIONED DATASET) 08600002 M330I EQU 126 . DSORG OF (DSNAME) UNACCEPTABLE 08650002 M332I EQU 142 . UNKNOWN INSTALLATION EXIT RETURN CODE 08700002 M333I EQU 143 . MISSING REPLY FOR MSG 08750002 M339A EQU 109 . NO HELD OUTPUT FOR JOB @ZM30982 08760000 M339I EQU 108 . NO HELD OUTPUT FOR JOB(JOBID) @ZM30982 08770000 M340I EQU 102 . JOB NOT FOUND 08800002 M341I EQU 145 . CMD INVALID CONFLICTING KEYWORDS 08850002 M342A EQU 103 . FIB/SVC MACRO ERROR 08900002 M342B EQU 104 . FIB/SVC ERROR 08950002 M343A EQU 127 . NO OUTPUT FOR JOB IN REQ CLASS(ES) @ZM30982 08970000 M343I EQU 131 . NO OUTPUT FOR JOB(JOBID) IN REQ CLASS(ES) @ZM30982 09000000 M344I EQU 132 . DS SKIPPED 09050002 M345I EQU 133 . SUBSYSTEM INTERFACE ERROR 09100002 M346I EQU 134 . SUBSYSTEM ERROR 09150002 M347I EQU 135 . CMD FAILED - SUB SYSTEM NOT ACTIVE 09200002 M348I EQU 136 . DUPLICATE JOBNAME 09250002 M349I EQU 137 . JOBNAME/JOBID INVALID 09300002 M350I EQU 129 . UNABLE TO PROCESS JOB NOW 09340002 M351I EQU 130 . INVALID DEST ID 09380002 M353I EQU 138 . UNKNOWN SSOBRETN CODE 09420002 M355I EQU 140 . SYNAD MSG - PRINT/SAVE 09440002 M357I EQU 107 . NO MEMBER NAME FOR PO DATASET 09460002 M358I EQU 146 . INVALID SEARCH ARG RETURN CODE FROM SUBSYS 09500002 ATTCHERR EQU 4 . ERROR FROM ATTACHING HELP MODULE 09540002 MDYNALC EQU 8 . DYN ALC FAIL MSG NEEDED 09580002 MPARSERR EQU 12 . PARSE ERROR MSG 09585002 MDAIRF EQU 16 . DAIR FAIL MSG NEEDED 09590002 CMDSCAN EQU 20 . COMMAND SCAN FAILURE 09595002 MPTGTERR EQU 24 . PUTGET FAILURE 09600002 POINTERR EQU 28 . ERROR RETURN CODE RECEIVED FROM 'POINT' 09606002 GETERR EQU 32 . ERROR RETURN CODE RECEIVED FROM 'GET' 09612002 HELPFAIL EQU 36 . HELP MODULE FAILED 09620002 ESTAERR EQU 40 . NONZERO RETURN CODE FROM SVC60 09660002 STAXERR EQU 44 . ERROR FROM STAX MACRO 09700002 STATERR EQU 48 . ERROR RETURN CODE FROM STATUS MACRO 09710002 OPENERR EQU 52 . OPEN FAILURE 09720002 JESM320 EQU 56 . MSG320 NEEDED @ZM30982 09725000 JESM339 EQU 60 . MSG339 NEEDED @ZM30982 09730000 JESM343 EQU 64 . MSG443 NEEDED @ZM30982 09735000 MSECXP EQU 123 . PUTGET FOR SEC EXIT (GET REPLY) 09740002 MSECXM EQU 124 . PUTLINE FOR SEC EXIT ( WITH NO REPLY) 09780002 * 10350002 * 10400002 OUTTOTLN EQU *-OUTCOMTB . TOTAL LENGTH FOR GETMAIN 10450002 MEND , */ 10500002 *%OUTGOTO: ; 10550002 * /*******************************************************************/ 10555002 * /*THIS IS AN INTERNAL MACRO FOR THE TSO OUTPUT COMMAND PROCESSOR. */ 10560002 * /*IT IS THE ONLY INTERFACE FROM ONE MODULE (CSECT) TO ANOTHER */ 10565002 * /* USAGE */ 10570002 * /* %NOBASE='1' -------- FOR AN UNBASED EXPANSION */ 10575002 * /*******************************************************************/ 10580002 * DCL 1 OUTCOMTB 10590002 * %IF NOBASE = '1' %THEN 10950002 * %GOTO SKIPBASE; 11000002 * BASED(OCMTBPTR) 11050002 * %SKIPBASE: ; 11100002 * , /* OUTPUT'S COMMUNICATIONS TABLE */ 11200002 * 2 OUTCPPL PTR(31), /* ADDR OF COPY OF CPPL */ 11250002 * 2 OUTMSGID CHAR(1), /* ID OF MESSAGE FOR '67 TO WRITE */ 11300002 * 2 OUTFLAGS CHAR(1), /* FLAGS REQUIRED IN 67 */ 11350002 * 3 KEY1 BIT(1), /* RUNNING IN KEY 1 SUPR STATE */ 11400002 * 2 OUTRTCD FIXED(15), /* RETN CODE PASSED TO MSG WRITER */ 11450002 * 2 OUTMACN CHAR(8), /* NAME OF SVC100'S FAILING MACRO */ 11500002 * 2 OUTCMDNM CHAR(8), /*COMMAND NAME FROM ECT VIA SVC100*/ 11550002 * 2 OUTATTN PTR(31), /* ECB, POSTED BY ATTENTION EXIT */ 11600002 * 3 * BIT(1), /* RESERVED */ 11650002 * 3 POSTED BIT(1), /* 1 - POSTED BY EXIT */ 11700002 * 2 OUTEXTRA CHAR(4), /* FOR FUTURE USE (RESERVED) */ 11750002 * 2 OUTEMPMN CHAR(8), /* TEMPNAME FOR PO DS */ 11770002 * 2 OUTSOBH PTR(31), /* ADDR OF SSOB HEADER */ 11800002 * 2 OUTSOBSO PTR(31), /* ADDR OF SSSO CTL BLOCK */ 11850002 * 2 OUTRPL PTR(31), /* ADDR OF RPL */ 11890002 * 2 OUTRPLL FIXED(31), /* RPL LENGTH */ 11930002 * 2 OUTACB PTR(31), /* ADDR OF ACB, TO BE PUT IN RPL */ 11970002 * 2 OUTACBL FIXED(31), /* ACB LENGTH */ 12010002 * 2 OUTEMPSB PTR(31), /* SAVE PTR TO SUBCMD FROM ATTN */ 12100002 * 2 OUTHOLD CHAR(8), /* CURRENT RBA OF SYSOUT D.S. */ 12150002 * /***************************************************************/ 12200002 * /* THESE FIELDS ARE USED TO MAINTAIN THE SYSOUT RBA */ 12250002 * /* CORRESPONDING TO APPROXIMATELY 10 'PUT' LINES BACK. */ 12258002 * /* THIS IS USED FOR RESUMING TERMINAL PRINTING (C HERE) */ 12266002 * /* AFTER AN ATTENTION THUS MAKING UP FOR LOST TCAM BUFFERS. */ 12274002 * /* IT'S ALSO USED FOR CHKPTING THE CURRENT SYSOUT DS AFTER */ 12282002 * /* AN ATTN/END, ATTN/NEXT, OR TERMINATING ERROR. */ 12290002 * /***************************************************************/ 12300002 * 2 OUTBKNEW CHAR(8), /* RBA OF SYSOUT CORRESPONDING TO 12350002 * THE LATEST 10TH RCD PUT. IT'S 12360002 * UPDATED EVERY 10 'PUTS' */ 12370002 * 2 OUTBKAPX CHAR(8), /* RBA OF SYSOUT CORRESPONDING TO 12400002 * AT LEAST 10 'PUT' LINES BACK. 12408002 * IT'S SET EQUAL TO OUTBKNEW BEFORE 12416002 * OUTBKNEW IS UPDATED. THIS IS THE 12424002 * OFFICIAL RBA FOR CKPTING AND 12432002 * POINTING IN CERTAIN CASES. */ 12440002 * 2 OUTBKCNT FIXED(31), /* COUNT OF LINES 'PUT' SINCE LAST 12450002 * APPROXIMATION OF SYSOUT RBA */ 12500002 * 2 STRCTNUM FIXED(31), /* COUNTER FOR ELEMENT IN STRUCT */ 12550002 * 2 O73PARM (2), /*PARAMETERS FOR PRINT/SAVE IN '71*/ 12600002 * 3 OUTDCB PTR(31), /* ADDR OF PRINT OR SAVE DCB */ 12650002 * 3 PRINTDDN CHAR(8), /* DDNAME OF DATASET ALLOC BY '73 */ 12700002 * 3 OUTBUFA PTR(31), /* ADDR OF BUFFER FOR '71'S 'PUT' */ 12750002 * 3 * FIXED(31), 12800002 * 4 * CHAR(1), /* RESERVED */ 12850002 * 4 * BIT(1), /* RESERVED */ 12900002 * 4 DSALLOC BIT(1), /* 1 - DATASET ALLOCATED */ 12950002 * 4 DSOPEN BIT(1), /* 1 - DATASET OPENED */ 13000002 * 4 OUTRECV BIT(1), /* 1 - RECFMT IS VARIABLE FOR 'PUT'*/ 13050002 * 4 NEEDFREE BIT(1), /* FREEMAIN NEEDED FOR 'PUT' BUF */ 13100002 * 4 NEWDS BIT(1), /* NEW DATASET ALLOCATED BY DAIR */ 13150002 * 4 NOMEMNAM BIT(1), /* NO MEMBER NAME FOR PO DS */ 13200002 * 4 OUTRECUN BIT(1), /* 1 - RECFMT IS UNDEFINED */ 13240002 * 4 OUTBUFL FIXED(15), /* LENGTH OF 'PUT' BUFFER */ 13280002 * 13320002 * 2 OUTRECA PTR(31), /* ADDR SYSOUT RCD FOR '71 TO PUT */ 13360002 * 2 OUTRECL FIXED(15), /* LTH SYSOUT RCD FOR '71 TO PUT */ 13400002 * 13520002 * 2 OUTKEYWD CHAR(2), /* FLAGS FOR KEYWORDS ENTERED */ 13560002 * 3 PAUSE BIT(1), /* 1 - 'PAUSE' WAS ENTERED */ 13600002 * 3 HOLD BIT(1), /* 1 - 'HOLD' WAS ENTERED */ 13640002 * 3 HERE BIT(1), /* 1 - 'HERE' WAS ENTERED */ 13680002 * 3 BEGIN BIT(1), /* 1 - 'BEGIN' WAS ENTERED */ 13720002 * 3 NEXT BIT(1), /* 1 - 'NEXT' WAS ENTERED */ 13760002 * 3 DELETE BIT(1), /* 1 - 'DELETE' WAS ENTERED */ 13800002 * 3 PRINT BIT(1), /* 1 - 'PRINT' WAS ENTERED */ 13840002 * 3 NEWCLASS BIT(1), /* 1 - 'NEWCLASS' WAS ENTERED */ 13880002 * 3 KEEP BIT(1), /* 1 - 'KEEP' WAS ENTERED */ 13920002 * 3 DEST BIT(1), /* 1 - 'DEST' WAS ENTERED */ 13960002 * 3 SUBCONT BIT(1), /* 1 - 'CONTINUE' WAS ENTERED */ 14200002 * 3 SUBHERE BIT(1), /* 1 - 'HERE' WAS ENTERED */ 14250002 * 3 SUBBEGN BIT(1), /* 1 - 'BEGIN WAS ENTERED */ 14300002 * 3 SUBNEXT BIT(1), /* 1 - 'NEXT' WAS ENTERED */ 14350002 * 2 OUTSW BIT(16), /* INTER-MODULE SWITCHES */ 14400002 * 3 SUBSYS BIT(1), /* SUBSYSTEM OPEN FOR PROCESSING */ 14450002 * 3 SUBCMODE BIT(1), /* 1 - IN SUBCOMMAND MODE */ 14500002 * 3 UNALCALL BIT(1), /* 1 - IKJCT473 IS BEING CALLED FOR 14550002 * CLOSE/UNALLOCATION ONLY */ 14600002 * 3 ENDSW BIT(1), /* 1 - QUIT COMMAND DUE TO 'END' */ 14650002 * 3 ERROR BIT(1), /* 1 - QUIT CMD DUE TO CRITICAL 14700002 * ERROR */ 14750002 * 3 ENDKEEP BIT(1), /* SET TO OVERRIDE NOKEEP ON CMD IF 14800002 * END SUBCMD IN MIDDLE OF PROCESSING*/ 14850002 * 3 NOWORK BIT(1), /* NO MORE JOBS OR CLASSES TO 14900002 * PROCESS */ 14920002 * 3 HASPABND BIT(1), /* ABEND IN HASP */ 14950002 * 3 SYNADERR BIT(1), /* SYNAD ERROR OCCURRED */ 15000002 * 3 OPENED BIT(1), /* SYSOUT DATASET OPENED */ 15050002 * 3 NONTERM BIT(1), /* 1 - CLIST ISSUING CMDS */ 15100002 * 3 WORKDONE BIT(1), /* 1 - IF ANY ACTION TAKEN FOR A 15150002 * JOB / CLASSLIST */ 15200002 * 3 ENDLIST BIT(1), /* LAST CALL FOR A GIVEN JOBNAME 15250002 * IF DELETING OR ROUTING */ 15300002 * 2 OUTIDSSW BIT(8), /* INPUT (SYSPOOL) DATA SET FLAGS */ 15350002 * 3 POINT BIT(1), /* 1 - DO A POINT BEFORE NEXT GET */ 15400002 * 3 * BIT(1), /* RESERVED */ 15450002 * 3 * BIT(1), /* RESERVED */ 15500002 * 3 EODSW BIT(1), /* EOD REACHED */ 15550002 * 3 TERM BIT(1), /* 1 - PRINT(*) WAS ENTERED */ 15600002 * 3 ALLOC BIT(1), /* INDICATE SYSOUT HAS BEEN ALLOC */ 15650002 * 3 INTRPMSG BIT(1), /* NEED MSG - INTERRUPTED OUTPUT 15700002 * RESUMED */ 15750002 * 3 * BIT(1), /* RESERVED */ 15800002 * 15850002 * 2 OUTDARB PTR(31), /*ADDR OF DYNALLOC REQ BLK FOR '67*/ 15900002 * 2 OUTDAIR PTR(31), /* PTR TO DAIR PARM LIST FOR '67 */ 15950002 * 2 OUTPDL PTR(31), /* ADDR OF COMMAND PDL */ 16000002 * 16050002 * 2 OUTXMSG PTR(31), /* ADDR OF USER SUPPLIED MSG */ 16100002 * 3 OUTSYNMS PTR(31), /* ADDR SYNAD MSG */ 16120002 * 2 OUTXRPLY PTR(31), /* ADDR OF REPLY TO USER MSG */ 16150002 * 16200002 * 2 OUTTCBH PTR(31), /* ADDR OF THE 'HELP' TCB */ 16250002 * 2 OHELPECB PTR(31), /* ADDR OF HELP ECB */ 16300002 * 16350002 * 2 OUTSBPDL PTR(31), /* ADDR OF SUBCOMMAND PDL */ 16400002 * 2 OUTSBBUF PTR(31), /* ADDR OF SUBCOMMAND BUFFER */ 16450002 * 16500002 * 2 OUTSTAE (2)PTR(31), /* SAVE R13, R14 IN ESTAE EXIT */ 16550002 * 2 OUTWORK (12)FIXED(31),/* MISC WORK AREA */ 16600002 * 2 CLASBUFF CHAR(8), /* 0 OR 1 CLASS FOR PRINT OR 16650002 * 0 - 8 CLASSES FOR DELETE OR 16700002 ROUTING */ 16750002 * 2 OSYSODDN CHAR(8), /* SYSOUT DDNAME */ 16800002 * 16850002 * 2 OUTPLIST, /* PTRS FOR THE SECURITY EXIT */ 16900002 * 3 OUTCPDE1 PTR(31), /* FIRST CLASS PDE ON CHAIN */ 16950002 * 3 OPRDSPDE PTR(31), /* ADDR OF THE 'PRINT' PDE */ 17000002 * 3 ONEWCPDE PTR(31), /* ADDR OF THE 'NEWCLASS' PDE */ 17050002 * 3 ODESTPDE PTR(31), /* ADDR OF THE 'DEST' PDE */ 17100002 * 2 OUTJBPDE PTR(31), /* ADDR OF THE 'JOBNAME' PDE */ 17150002 * 2 OUTCLPDE PTR(31), /* ADDR OF 1ST 'CLASS' PDE */ 17200002 * 2 OSVDSPDE PTR(31), /* ADDR 'SAVE DATASET' PDE */ 17250002 * 2 EWAPTR PTR(31), /* PTR TO ESTAE WORK AREA */ 17300002 * 17350002 * 2 IOPLPTR PTR(31), /* ADDR OF IOPL */ 17400002 * 2 IOPLAREA CHAR(16); /* IOPL CONTIG. TO OUTCOMTB */ 17450002 *%GOTO SKIPMSG; 17500002 * /* M E S S A G E I D V A L U E S */ 17550002 *%SKIPMSG: ; 17600002 * %M300A = '0'; /* MODE MSG */ 17650002 * %M309I = '106'; /* OPEN FAILED - PRINT/SAVE */ 17700002 * %M310I = '110'; /* INVALID DSNAME EXCEEDS 44 CHAR */ 17750002 * %M312I = '112'; /* NOT ENOUGH VIRTUAL STORAGE */ 17800002 * %M312A = '111'; /* NOT ENOUGH VIRTUAL STORAGE */ 17850002 * %M313I = '113'; /* COMMAND SYSTEM ERROR */ 17900002 * %M318A = '114'; /* OUTPUT ENDED - B37 ABEND */ 17950002 * %M318B = '115'; /* HELP ABENDED, CODE IN ECB */ 18000002 * %M318C = '116'; /* OUTPUT ENDED - 913 ABEND */ 18050002 * %M318D = '117'; /* OUTPUT ENDED- SYSABEND CODE XX */ 18100002 * %M320A = '120'; /* NO CLASS(CLNAM) OUTPUT FOR 18110000 * JOB @ZM30982*/ 18120000 * %M320I = '118'; /* NO CLASS (CLNAM) OUTPUT FOR 18150000 * JOB(JOBID) @ZM30982*/ 18170000 * %M321I = '119'; /* CMD NOT AUTHORIZED */ 18200002 * %M323I = '128'; /* INVALID SUBCOMMAND */ 18250002 * %M325I = '122'; /* DSNAME SAVED (SEQUENTIAL) */ 18300002 * %M325A = '121'; /* DSNAME SAVED (PARTITIONED) */ 18350002 * %M330I = '126'; /* DSORG OF DSNAME UNACCEPTABLE */ 18400002 * %M332I = '142'; /* UNKNOWN INSTALLATION EXIT RC */ 18440002 * %M333I = '143'; /* MISSING REPLY FOR MSG */ 18480002 * %M339A = '109'; /* NO HELD OUTPUT FOR JOB @ZM30982*/ 18490000 * %M339I = '108'; /* NO HELD OUTPUT FOR 18500000 * JOB(JOBID) @ZM30982*/ 18510000 * %M340I = '102'; /* JOB NOT FOUND */ 18520002 * %M341I = '145'; /* CMD INVALID CONFLICTING KEYWDS */ 18560002 * %M342A = '103'; /* FIB/SVC MACRO ERROR */ 18650002 * %M342B = '104'; /* FIB/SVC ERROR */ 18700002 * %M343A = '127'; /* NO OUTPUT FOR JOB IN 18710000 * REQ CLASS(ES) @ZM30982*/ 18720000 * %M343I = '131'; /* NO OUTPUT FOR JOB(JOBID) IN 18750000 * REQUESTED CLASS(ES) @ZM30982*/ 18770000 * %M344I = '132'; /* DS SKIPPED */ 18800002 * %M345I = '133'; /* SUBSYS INTERFACE ERROR */ 18850002 * %M346I = '134'; /* SUBSYS ERROR */ 18900002 * %M347I = '135'; /* CMD FAILED SUBSYS NOT ACTIVE */ 18950002 * %M348I = '136'; /* DUPLICATE JOBNAMES */ 19000002 * %M349I = '137'; /* JOBNAME/JOBID INVALID */ 19050002 * %M350I = '129'; /* UNABLE TO PROCESS JOB NOW */ 19100002 * %M351I = '130'; /* INVALID DEST ID */ 19150002 * %M353I = '138'; /* UNKNOWN SSOBRETN CODE */ 19200002 * %M355I = '140'; /* SYNAD MSG ID - PRINT/SAVE DS */ 19220002 * %M357I = '107'; /* NO MEMBER NAME FOR PO DATASET */ 19250002 * %M358I = '146'; /* INV SEARCH ARG RC FROM SUBSYS */ 19300002 * %ATTCHERR = '4'; /* ERROR WHILE ATTACHING 'HELP' */ 19350002 * %MDYNALC = '8'; /* DYNALC FAIL MSG NEEDED */ 19390002 * %MPARSERR = '12'; /* PARSE ERROR */ 19430002 * %MDAIRF = '16'; /* DAIR FAIL MSG NEEDED */ 19470002 * %CMDSCAN = '20'; /* COMMAND SCAN FAILURE */ 19510002 * %MPTGTERR = '24'; /* PUTGET FAILURE */ 19550002 * %POINTERR = '28'; /* ERROR RETURN CODE FROM 'POINT' */ 19600002 * %GETERR = '32'; /* ERROR RC FROM 'GET' */ 19607002 * %HELPFAIL = '36'; /* HELP MOD FAILED */ 19614002 * %ESTAERR = '40'; /* NONZERO RC FROM SVC 60 */ 19621002 * %STAXERR = '44'; /* ERROR FROM STAX MACRO */ 19628002 * %STATERR = '48'; /* ERROR FROM STATUS MACRO */ 19635002 * %OPENERR = '52'; /* OPEN FAILURE */ 19642002 * %JESM320 = '56'; /* MSG 320 NEEDED @ZM30982*/ 19644000 * %JESM339 = '60'; /* MSG 339 NEEDED @ZM30982*/ 19646000 * %JESM343 = '64'; /* MSG 443 NEEDED @ZM30982*/ 19648000 * %MSECXP = '123'; /* PUTGET SEC EXIT (GET REPLY) */ 19650002 * %MSECXM = '124'; /* PUTLINE SEC EXIT(W/NO REPLY) */ 19700002