*/********************************************************************/ 00056402 */* */ 00064403 */* SUBSYSTEM OPTIONS BLOCK (SSOB) */ 00073403 */* */ 00082403 */********************************************************************/ 00091402 * /* */ 00095403 * /* STATUS - FUNCTIONAL EXTENSIONS SPLIT OFF INTO SEPARATE @ZA34144*/ 00097403 * /* MACROS @ZA34144*/ 00107403 * /* */ 00150002 * /* THE SSOB IS USED TO REQUEST A PARTICULAR FUNCTION FROM */ 00200002 * /* A VS/2 SUBSYSTEM. THE FORMAT OF THIS CONTROL BLOCK IS A FIXED */ 00250002 * /* LENGTH HEADER SECTION WHICH POINTS TO A FUNCTION DEPENDENT */ 00300002 * /* SECTION. */ 00350002 * /* */ 00370003 * /* THE PARTICULAR FUNCTION REQUESTED IS INDICATED BY A FUNCTION */ 00400002 * /* ID IN THE HEADER. PLS/2 CONSTANTS DEFINE THE VARIOUS ID'S. */ 00450002 * /* */ 00500002 * /* MACRO VARIABLES ARE DEFINED TO CONTROL THE INNER MACRO @ZA34144*/ 00550003 * /* CALLING OF THE SSOB HEADER AND FUNCTIONAL EXTENSIONS. @ZA34144*/ 00570003 * /* TO OBTAIN THE HEADER, SET THE VARIABLE 'SSOBSSOB' TO ANY NON- */ 00650002 * /* NULL/BLANK CHARACTER, E.G., %SSOBSSOB = 'BASED'. */ 00700002 * /* THIS VALUE WILL BE USED TO ASSIGN ATTRIBUTES TO THE SSOB. */ 00750002 * /* %SSOBSSOB = 'BDY(WORD)' WILL CAUSE PL/S TO GET */ 00800002 * /* STORAGE FOR THE SSOB. THE ATTRIBUTES OF THE FUNCTION */ 00850002 * /* DEPENDENT SECTIONS ARE SIMILARLY SET. */ 00900002 * /* */ 00950002 * /* CONSTANTS DEFINING THE POSSIBLE VALUES OF SSOBRETN ARE */ 01000002 * /* GENERATED WITH EACH FUNCTION DEPENDENT SECTION THE */ 01050003 * /* VARIABLES WHICH CAN BE SET TO OBTAIN THE FUNCTION DEPENDENT */ 01100003 * /* SECTIONS ARE - */ 01150002 * /* */ 01170003 * /* SSOBSO - ACCESS SYSOUT DATA SETS */ 01200002 * /* SSOBCS - FIND THE STATUS OF A JOB, OR CANCEL A JOB */ 01250002 * /* %CSARAYSZ DEFINES THE SIZE OF THE C/S ARRAY */ 01260003 * /* -SET %CSARAYSZ='*' IF THE C/S EXTENSION IS */ 01268003 * /* MAPPING STORAGE. */ 01276003 * /* -SET %CSARAYSZ TO THE ACTUAL ARRAY SIZE IF */ 01284003 * /* PLS IS GETTING STORAGE. */ 01292003 * /* SSOBJS - SUBSYSTEM JOB SELECTION */ 01300002 * /* SSOBAL - ALLOCATION/UNALLOCATION OF SYSOUT DATA SETS */ 01350002 * /* SSOBEN - NOTIFY SUBSYSTEM OF END OF MEMORY */ 01400002 * /* SSOBET - NOTIFY SUBSYSTEM OF END OF TASK */ 01410002 * /* SSOBWT - NOTIFY SUBSYSTEM OF A WRITE TO OPERATOR */ 01450002 * /* SSOBCM - NOTIFY SUBSYSTEM OF AN OPERATOR COMMAND */ 01500002 * /* SSOBUS - REQUEST SUBSYSTEM TO VERIFY A REMOTE DESTINATION */ 01550002 * /* SSOBJT - NOTIFY SUBSYSTEM OF JOB TERMINATION */ 01600002 * /* SSOBRQ - REQUEST SUBSYSTEM TO RE-ENQUEUE A JOB */ 01650002 * /* SSOBDM - REQUEST SUBSYSTEM TO DELETE OPERATOR MESSAGE */ 01700002 * /* SSOBVS - REQUEST (MSTR) SUBSYSTEM TO VERIFY SUBSYSTEM NAME */ 01750002 * /* SSOBDA - OPEN/CLOSE/CHECKPOINT RESTART */ 01760002 * /* SSOBRR - REQUEST/RETURN JOBID */ 01770002 * /* SSOBCF - FAILING SVC34 COMMAND @Z30BPSV*/ 01771003 * /* SSOBSI - NOTIFY SUBSYSTEM OF STEP INITIATION @Y02BPSD*/ 01773003 * /* SSOBDY - DYNAMIC ALLOCATION/JES3 EXIT @Y02BPSD*/ 01777003 * /* SSOBCA - COMMON ALLOCATION/JES3 EXIT @Y02BPSD*/ 01781003 * /* SSOBCU - COMMON UNALLOCATION/JES3 EXIT @Y02BPSD*/ 01785003 * /* SSOBDD - CHANGE DDNAME/JES3 EXIT @Y02BPSD*/ 01789003 * /* SSOBNQ - CHANGE ENQ USE ATTRIBUTE/JES3 EXIT @Y02BPSD*/ 01793003 * /* SSOBDR - DYNAMIC DEVICE RECONFIGURATION/JES3 EXIT @Y02BPSD*/ 01796003 * /* SSOBMO - MASS STORAGE VOLUME CONTROL JES3 EXIT @G18MP21*/ 01797003 * /* SSOBMS - MSSC MESSAGE TASK JES3 EXIT @G18MP21*/ 01797603 * /* SSOBCI - CONVERTER SUBSYS KEYWORD EXIT @G29AN2F*/ 01798203 * /* SSOBAG - ALLOCATION GROUP SUBSYSTEM REQUESTS @G29AN2F*/ 01798803 * /* */ 01800002 * /* */ 01810003 * /*******************************************************************/ 01820003 * %GOTO PLSSSOB; /* 01850002 MACRO 01860002 IEFJSSOB &EXT,&CONTIG= 01870002 .********************************************************************** 01880002 .* 01890002 .* MACRO NAME = IEFJSSOB 01892002 .* 01894002 .* DESCRIPTIVE NAME = SUBSYSTEM OPTIONS BLOCK (SSOB) MAPPING 01896002 .* GENERATOR 01898002 .* 01898402 .* FUNCTION = GENERATE MAPPING FOR THE SSOB 01898802 .* 01899202 .* OPERATION = THE SSOB CONSISTS OF TWO PARTS - A FIXED HEADER 01899602 .* AND A VARIABLE EXTENSION THAT IDENTIFIES INFORMATION 01899702 .* PERTINANT TO THE FUNCTION BEING REQUESTED. 01899802 .* 01899902 .* THE ISSUER OF IEFJSSOB MAY REQUEST THE FIXED HEADER 01916602 .* ONLY OR THE HEADER PLUS ANY OF THE SSOB EXTENSIONS. 01926602 .* ADDITIONALLY, THE ISSUER MAY SPECIFY WHETHER THE 01928602 .* EXTENSION IS TO BE CONTIGUOUS WITH THE FIXED HEADER. 01930602 .* IF IT IS TO BE CONTIGUOUS, NO DSECT CARD IS GENERATED 01932602 .* BETWEEN THE HEADER AND EXTENSIONS. OTHERWISE, A 01933002 .* DSECT CARD IS GENERATED. 01933102 .* 01933202 .* EACH EXTENSION AFTER THE FIRST IS ORG'ED BACK TO THE 01938802 .* BEGINNING OF THE FIRST EXTENSION. 01940802 .* 01942802 .* INPUT = &EXT - A SUBLIST OF 2-CHARACTER SSOB EXTENSION 01943202 .* IDENTIFIERS. AN EXTENSION MAPPING IS GENERATED 01943602 .* FOR EACH ID SPECIFIED. IF &EXT IS NOT SPECIFIED, 01944002 .* ONLY THE SSOB HEADER IS GENERATED. 01944102 .* 01944202 .* &CONTIG - A KEYWORD PARAMETER WITH VALID VALUES OF 01944302 .* YES OR NO. IF NOT SPECIFIED, THE DEFAULT IS 01958202 .* YES. 'YES' CAUSES THE EXTENSION TO BE CONTIGUOUS 01968202 .* WITH THE HEADER (NO DSECT CARD IS GENERATED). 01970202 .* 'NO' GENERATES A DSECT CARD. 01970602 .* 01971002 .* EXIT-NORMAL 01971402 .* CONDITIONS = SSOB MAPPING IS GENERATED 01971802 .* OUTPUT = SSOB HEADER AND OPTIONAL EXTENSIONS 01971902 .* 01972002 .* EXIT-ERROR 01972102 .* CONDITIONS = -INVALID &CONTIG PARAMETER 01976702 .* -INVALID &EXT PARAMETER 01978702 .* -DUPLICATE &EXT PARAMETERS SPECIFIED 01980702 .* OUTPUT = NO MAPPING IS GENERATED 01981102 .* 01981202 .* CHANGE ACTIVITY = Y02668,YM02677,YM02726,Y02886,YM04976,YM06023, 01981303 .* YM06036,@Y30OPSD,@Y02BPSD,Z30CPPH,Z309PSV,ZM30478 01982303 .* OZ03626,OZ08725,OZ04791,OZ06466,OZ06623 01982503 .* @G18MP21,G29AN2F,ZM44655,OZ28624 @ZA28624 01982803 .* OZ34144 @ZA34144 01983103 .* 01983402 .* MNOTES = 'CONTIG=&CONTIG - INVALID PARAMETER' 01986002 .* '&EXT(&K) - INVALID PARAMETER' 01988102 .* '&EXT(&K) - DUPLICATE PARAMETERS' 01990102 .* 01992102 .* SEVERITY CODES = 12 FOR ALL MNOTES 01994102 .* 01996102 .********************************************************************** 01998102 *********************************************************************** 01998503 * * 01998903 * SUBSYSTEM OPTIONS BLOCK (SSOB) * 01999303 * * 01999703 *********************************************************************** 02002503 * 02004503 * STATUS - FUNCTIONAL EXTENSIONS SPLIT OFF INTO SEPERATE @ZA34144 02005503 * MACROS @ZA34144 02007603 * 02009003 * THE SUBSYSTEM OPTIONS BLOCK (SSOB) IS USED TO REQUEST A 02010503 * PARTICULAR FUNCTION FROM A VS/2 SUBSYSTEM. THE FORMAT IS 02012502 * A FIXED LENGTH HEADER SECTION FOLLOWED BY A FUNCTION-DEPENDENT 02014502 * EXTENSION. 02018402 * 02020402 * THE MACRO CALL IS OF THE FOLLOWING FORM - 02022402 * 02026302 * IEFJSSOB (EXTID1,EXTID2,...),CONTIG=YES/NO 02028302 * 02030302 * EXTID1,... 02032402 * THE EXTENSION IDS SPECIFY WHICH FUNCTION-DEPENDENT 02034202 * EXTENSIONS ARE TO BE GENERATED. 02036202 * IF NO EXTENSION IDS ARE SPECIFIED, ONLY THE SSOB FIXED 02036602 * HEADER IS GENERATED. 02037002 * 02038202 * CONTIG=NO - RESULTS IN A DSECT CARD BEING GENERATED 02048502 * BETWEEN THE FIXED HEADER AND THE EXTENSION. 02058502 * 02058602 * CONTIG=YES - RESULTS IN THE EXTENSION BEING CONTIGUOUS 02058702 * WITH THE FIXED HEADER. (ALSO THE DEFAULT) 02062102 * 02064102 * THE FOLLOWING EXTENSION IDS GENERATE THE INDICATED FUNCTION- 02064502 * DEPENDENT EXTENSIONS - 02064902 * 02065302 * SO - ACCESS SYSOUT DATA SETS 02065402 * CS - FIND THE STATUS OF A JOB, CANCEL A JOB 02065502 * JS - SUBSYSTEM JOB SELECTION 02065602 * AL - ALLOCATION/UNALLOCATION OF SYSOUT DATA SETS 02069002 * EN - NOTIFY SUBSYSTEM OF END OF MEMORY 02071002 * ET - NOTIFY SUBSYSTEM OF END OF TASK 02071102 * WT - NOTIFY SUBSYSTEM OF A WRITE TO OPERATOR 02071402 * CM - NOTIFY SUBSYSTEM OF AN OPERATOR COMMAND 02071802 * US - REQUEST SUBSYSTEM TO VERIFY A REMOTE DESTINATION 02072202 * JT - NOTIFY SUBSYSTEM OF JOB TERMINATION 02072302 * RQ - REQUEST SUBSYSTEM TO RE-ENQUEUE A JOB 02072402 * DM - REQUEST SUBSYSTEM TO DELETE OPERATOR MESSAGE 02072502 * VS - REQUEST SUBSYSTEM (MASTER) TO VERIFY SUBSYSTEM NAME 02075902 * DA - OPEN/CLOSE/CHECKPOINT RESTART 02076302 * RR - REQUEST/RETURN JOBID 02076702 * CF - FAILING SVC34 COMMAND @Z30BPSV 02076803 * SI - NOTIFY SUBSYSTEM OF STEP INITIATION @Y02BPSD 02077103 * DY - DYNAMIC ALLOCATION/JES3 EXIT @Y02BPSD 02077203 * CA - COMMON ALLOCATION/JES3 EXIT @Y02BPSD 02077303 * CU - COMMON UNALLOCATION/JES3 EXIT @Y02BPSD 02077403 * DD - CHANGE DDNAME/JES3 EXIT @Y02BPSD 02077503 * NQ - CHANGE ENQ USE ATTRIBUTE/JES3 EXIT @Y02BPSD 02077603 * DR - DYNAMIC DEVICE RECONFIGURATION/JES3 EXIT @Y02BPSD 02077703 * MO - MASS STORAGE VOLUME CONTROL JES3 EXIT @G18MP21 02078703 * MS - MSSC MESSAGE TASK JES3 EXIT @G18MP21 02079703 * CI - CONVERTER SUBSYS KEYWORD EXIT @G29AN2F 02080703 * AG - ALLOCATION GROUP SUBSYSTEM REQUESTS @G29AN2F 02081703 * 02083803 *********************************************************************** 02084803 .* 02085603 .* &N - NUMBER OF SSOB EXTENSIONS REQUESTED 02087403 .* &I - GENERATE NO DSECT CARD INDICATOR 02089403 .* &J - FIRST PASS, SECOND PASS INDICATOR 02090403 .* &K - CURRENT EXTENSION ID SUBSCRIPT 02091403 .* &M - EXTENSION ID HAS BEEN PREVIOUSLY SPECIFIED INDICATORS. 02092403 .* SUBSCRIPT OF 100 IS USED. WHEN SSOB EXTENSIONS REACH 101, 02093403 .* THIS NUMBER SHOULD BE UPDATED. 02094403 .* &L - 'EXTENSION ID HAS PREVIOUSLY SPECIFIED' SUBSCRIPT 02098203 .* 02100203 LCLA &N,&J,&K,&L 02101203 LCLB &I 02102203 LCLB &M(100) 02104203 .* CHECK IF CONTIG PARAMETER WAS SPECIFIED-IF NOT, DEFAULT IS YES 02106203 AIF ('&CONTIG' EQ '').NODSECT 02106603 .* 02107603 .* CHECK IF CONTIG=YES WAS SPECIFIED (DONT GENERATE DSECT CARD 02108603 .* FOR THE SSOB EXTENSION) 02109603 .* 02110603 AIF ('&CONTIG' EQ 'YES').NODSECT 02111603 .* 02112603 .* CHECK IF CONTIG=NO WAS SPECIFIED (GENERATE DSECT CARD FOR 02118502 .* THE SSOB EXTENSION) 02128502 .* 02128902 AIF ('&CONTIG' NE 'NO').ERR1 02129302 .* SET INDICATOR TO GENERATE DSECT CARD 02129702 &I SETB 0 02130102 AGO .CKEXT 02130202 .* SET INDICATOR TO NOT GENERATE DSECT CARD 02130302 .NODSECT ANOP 02131102 &I SETB 1 02131502 .* 02131902 .* CHECK IF EXTENSION ID PARAMETER WAS SPECIFIED 02132302 .* 02132702 .CKEXT ANOP 02135602 &N SETA N'&EXT 02137602 AIF (&N EQ 0).GENHDR 02139602 .* SET FIRST PASS SYNTAX CHECK INDICATOR 02140002 &J SETA 1 02140402 .* INITIALIZE EXTENSION ID SUBSCRIPT 02140802 &K SETA 1 02141202 .* CHECK FOR VALID EXTENSION ID PARAMETERS 02141302 .EXTIDCK ANOP 02143402 AIF ('&EXT(&K)' EQ 'SO').SOCHK 02145402 AIF ('&EXT(&K)' EQ 'CS').CSCHK 02147402 AIF ('&EXT(&K)' EQ 'JS').JSCHK 02147802 AIF ('&EXT(&K)' EQ 'AL').ALCHK 02151202 AIF ('&EXT(&K)' EQ 'EN').ENCHK 02153202 AIF ('&EXT(&K)' EQ 'WT').WTCHK 02153602 AIF ('&EXT(&K)' EQ 'CM').CMCHK 02154002 AIF ('&EXT(&K)' EQ 'US').USCHK 02154402 AIF ('&EXT(&K)' EQ 'JT').JTCHK 02154802 AIF ('&EXT(&K)' EQ 'RQ').RQCHK 02154902 AIF ('&EXT(&K)' EQ 'DM').DMCHK 02158502 AIF ('&EXT(&K)' EQ 'VS').VSCHK 02160502 AIF ('&EXT(&K)' EQ 'DA').DACHK 02160602 AIF ('&EXT(&K)' EQ 'ET').ETCHK 02160702 AIF ('&EXT(&K)' EQ 'RR').RRCHK 02160802 AIF ('&EXT(&K)' EQ 'SI').SICHK @Y02BPSD 02160903 AIF ('&EXT(&K)' EQ 'DY').DYCHK @Y02BPSD 02162903 AIF ('&EXT(&K)' EQ 'CA').CACHK @Y02BPSD 02164903 AIF ('&EXT(&K)' EQ 'CU').CUCHK @Y02BPSD 02166903 AIF ('&EXT(&K)' EQ 'DD').DDCHK @Y02BPSD 02168903 AIF ('&EXT(&K)' EQ 'NQ').NQCHK @Y02BPSD 02170903 AIF ('&EXT(&K)' EQ 'DR').DRCHK @Z30BPSV 02171903 AIF ('&EXT(&K)' EQ 'CF').CFCHK @Z30BPSV 02172903 AIF ('&EXT(&K)' EQ 'MO').MOCHK @G18MP21 02173403 AIF ('&EXT(&K)' EQ 'MS').MSCHK @G18MP21 02173603 AIF ('&EXT(&K)' EQ 'CI').CICHK @G29AN2F 02173803 AIF ('&EXT(&K)' EQ 'AG').AGCHK @G29AN2F 02174003 .* 02174403 .* IF ADDITIONAL SSOB EXTENSIONS ARE DEFINED, THE CORRESPONDING 02175903 .* EXTENSION ID CHECK SHOULD BE ADDED HERE. 02176403 .* 02177403 .* INVALID EXTENSION ID SPECIFIED - GO ISSUE MNOTE (THIS BRANCH 02178403 .* SHOULD NEVER OCCUR ON PASS 2) 02178903 .* 02180403 AGO .ERR2 02180903 .* 02181403 .* FOLLOWING ARE EXTENSION ID PARAMETER ROUTINES - 02182403 .* IF PASS 1 - SET SUBSCRIPT FOR DUPLICATE PARAMETER CHECK 02183203 .* - GO TO COMMON ROUTINE TO CHECK IF THIS PARAMETER 02184403 .* HAS ALREADY BEEN SPECIFIED. 02185403 .* 02185903 .* IF PASS 2 - GO GENERATE EXTENSION SPECIFIED. 02187403 .* 02187903 .SOCHK ANOP 02189403 AIF (&J EQ 2).GENSO 02189903 &L SETA 1 02190403 AGO .DUPARM 02191403 .CSCHK ANOP 02192403 AIF (&J EQ 2).GENCS 02193403 &L SETA 2 02194403 AGO .DUPARM 02195003 .JSCHK ANOP 02196403 AIF (&J EQ 2).GENJS 02196903 &L SETA 3 02198403 AGO .DUPARM 02198903 .ALCHK ANOP 02199403 AIF (&J EQ 2).GENAL 02201103 &L SETA 4 02201703 AGO .DUPARM 02202403 .ENCHK ANOP 02203803 AIF (&J EQ 2).GENEN 02204403 &L SETA 5 02205203 AGO .DUPARM 02206303 .WTCHK ANOP 02207103 AIF (&J EQ 2).GENWT 02207503 &L SETA 6 02209003 AGO .DUPARM 02209603 .CMCHK ANOP 02210203 AIF (&J EQ 2).GENCM 02211403 &L SETA 7 02212003 AGO .DUPARM 02213203 .USCHK ANOP 02213803 AIF (&J EQ 2).GENUS 02215003 &L SETA 8 02215603 AGO .DUPARM 02216803 .JTCHK ANOP 02217403 AIF (&J EQ 2).GENJT 02219003 &L SETA 9 02219703 AGO .DUPARM 02220403 .RQCHK ANOP 02221803 AIF (&J EQ 2).GENRQ 02222503 &L SETA 10 02223503 AGO .DUPARM 02223903 .DMCHK ANOP 02224903 AIF (&J EQ 2).GENDM 02226203 &L SETA 11 02227103 AGO .DUPARM 02228003 .VSCHK ANOP 02228903 AIF (&J EQ 2).GENVS 02229203 &L SETA 12 02230103 AGO .DUPARM 02231603 .DACHK ANOP 02232503 AIF (&J EQ 2).GENDA 02233403 &L SETA 13 02234303 AGO .DUPARM 02235203 .ETCHK ANOP 02236103 AIF (&J EQ 2).GENET 02237003 &L SETA 14 02237403 AGO .DUPARM 02238803 .RRCHK ANOP 02239703 AIF (&J EQ 2).GENRR 02240603 &L SETA 15 02241503 AGO .DUPARM 02242403 .SICHK ANOP 02242803 AIF (&J EQ 2).GENSI 02243303 &L SETA 16 02243603 AGO .DUPARM 02243903 .DYCHK ANOP 02244203 AIF (&J EQ 2).GENDY 02244403 &L SETA 17 02244603 AGO .DUPARM 02246003 .CACHK ANOP 02246903 AIF (&J EQ 2).GENCA 02247803 &L SETA 18 02248703 AGO .DUPARM 02249603 .CUCHK ANOP 02250503 AIF (&J EQ 2).GENCU 02251403 &L SETA 19 02251803 AGO .DUPARM 02253203 .DDCHK ANOP 02254103 AIF (&J EQ 2).GENDD 02255003 &L SETA 20 02255903 AGO .DUPARM 02256803 .NQCHK ANOP 02257103 AIF (&J EQ 2).GENNQ 02257403 &L SETA 21 02257703 AGO .DUPARM 02258603 .DRCHK ANOP 02267603 AIF (&J EQ 2).GENDR 02276603 &L SETA 22 02285603 AGO .DUPARM 02294603 .CFCHK ANOP @Z30BPSV 02308403 AIF (&J EQ 2).GENCF @Z30BPSV 02310403 &L SETA 23 @Z30BPSV 02312403 AGO .DUPARM @Z30BPSV 02314403 .MOCHK ANOP @G18MP21 02314603 AIF (&J EQ 2).GENMO @G18MP21 02314703 &L SETA 24 @G18MP21 02314803 AGO .DUPARM @G18MP21 02314903 .MSCHK ANOP @G18MP21 02315003 AIF (&J EQ 2).GENMS @G18MP21 02315103 &L SETA 25 @G18MP21 02315203 AGO .DUPARM @G18MP21 02315303 .CICHK ANOP @G29AN2F 02315403 AIF (&J EQ 2).GENCI @G29AN2F 02315503 &L SETA 26 @G29AN2F 02315603 AGO .DUPARM @G29AN2F 02315703 .AGCHK ANOP @G29AN2F 02315803 AIF (&J EQ 2).GENAG @G29AN2F 02315903 &L SETA 27 @G29AN2F 02316003 AGO .DUPARM @G29AN2F 02316103 .* 02316403 .* CODE FOR NEWLY DEFINED SSOB EXTENSIONS SHOULD BE ADDED HERE 02320303 .* 02321103 .* CHECK IF PARAMETER HAS ALREADY BEEN SPECIFIED 02321903 .DUPARM ANOP 02322703 AIF (&M(&L) EQ 1).ERR3 02323503 .* INDICATE PARAMETER HAS BEEN SPECIFIED 02324203 &M(&L) SETB 1 02324903 .* HAVE ALL EXTENSION ID PARAMETERS BEEN CHECKED - 02325603 AIF (&K EQ &N).PASS2 02326303 &K SETA &K+1 02327003 .* GO CHECK NEXT PARAMETER 02327703 AGO .EXTIDCK 02328403 .* 02329103 .* SET UP FOR PASS 2 - SSOB MAPPING GENERATION 02329803 .* 02330203 .PASS2 ANOP 02330703 .* RESET INDEX 02331603 &K SETA 1 02332503 .* SET PASS 2 INDICATOR 02333103 &J SETA 2 02333703 .* GO GENERATE SSOB HEADER 02334303 AGO .GENHDR 02335203 .* 02336103 .* GENERATE DSECT CARD IF SPECIFIED 02336503 .* 02337003 .GENDSCT ANOP 02337803 AIF (&I EQ 1).SKPDSCT 02338603 SSOBEXT DSECT 02339403 .SKPDSCT ANOP 02340203 SSOBGN EQU * 02340803 SPACE 02341503 .* GO GENERATE SSOB EXTENSIONS 02342503 AGO .EXTIDCK 02343003 .* CHECK IF MORE EXTENSIONS SHOULD BE GENERATED 02343503 .GENMORE ANOP 02344503 AIF (&K EQ &N).FINI 02345003 &K SETA &K+1 02345503 AGO .EXTIDCK 02346503 .FINI ANOP 02347003 MEXIT 02347503 .GENHDR ANOP 02348503 EJECT 02349003 IEFSSOBH @ZA34144 02349603 AIF (&N NE 0).GENDSCT 02374303 MEXIT 02374803 .GENSO ANOP 02375703 EJECT 02376603 IEFSSSO @ZA34144 02377503 AGO .GENMORE 02380503 .GENCS ANOP 02383503 EJECT 02386503 IEFSSCS @ZA34144 02389503 AGO .GENMORE 02392503 .GENJS ANOP 02395503 EJECT 02398503 IEFSSJS @ZA34144 02401503 AGO .GENMORE 02404503 .GENAL ANOP 02407503 EJECT 02410503 IEFSSAL @ZA34144 02413503 AGO .GENMORE 02416503 .GENEN ANOP 02419503 EJECT 02422503 IEFSSEN @ZA34144 02425503 AGO .GENMORE 02428503 .GENWT ANOP 02431503 EJECT 02434503 IEFSSWT @ZA34144 02437503 AGO .GENMORE 02440503 .GENCM ANOP 02443503 EJECT 02446503 IEFSSCM @ZA34144 02449503 AGO .GENMORE 02452503 .GENUS ANOP 02455503 EJECT 02458503 IEFSSUS @ZA34144 02461503 AGO .GENMORE 02464503 .GENJT ANOP 02467503 EJECT 02470503 IEFSSJT @ZA34144 02473503 AGO .GENMORE 02476503 .GENRQ ANOP 02479503 EJECT 02482503 IEFSSRQ @ZA34144 02485503 AGO .GENMORE 02488503 .GENDM ANOP 02491503 EJECT 02494503 IEFSSDM @ZA34144 02497503 AGO .GENMORE 02500503 .GENVS ANOP 02503503 EJECT 02506503 IEFSSVS @ZA34144 02509503 AGO .GENMORE 02512503 .GENDA ANOP 02515503 EJECT 02518503 IEFSSDA @ZA34144 02521503 AGO .GENMORE 02524503 .GENET ANOP 02527503 EJECT 02530503 IEFSSET @ZA34144 02533503 AGO .GENMORE 02536503 .GENRR ANOP 02539503 EJECT 02542503 IEFSSRR @ZA34144 02545503 AGO .GENMORE 02548503 .GENCF ANOP 02551503 EJECT 02554503 IEFSSCF @ZA34144 02557503 AGO .GENMORE 02560503 .GENSI ANOP 02563503 EJECT 02566503 IEFSSSI @ZA34144 02569503 AGO .GENMORE 02572503 .GENDY ANOP 02575503 EJECT 02578503 IEFSSDY @ZA34144 02581503 AGO .GENMORE 02584503 .GENCA ANOP 02587503 EJECT 02590503 IEFSSCA @ZA34144 02593503 AGO .GENMORE 02596503 .GENCU ANOP 02599503 EJECT 02602503 IEFSSCU @ZA34144 02605503 AGO .GENMORE 02608503 .GENDD ANOP 02611503 EJECT 02614503 IEFSSDD @ZA34144 02617503 AGO .GENMORE 02620503 .GENNQ ANOP 02623503 EJECT 02626503 IEFSSNQ @ZA34144 02629503 AGO .GENMORE 02632503 .GENDR ANOP 02635503 EJECT 02638503 IEFSSDR @ZA34144 02641503 AGO .GENMORE 02644503 .GENMO ANOP 02647503 EJECT 02650503 IEFSSMO @ZA34144 02653503 AGO .GENMORE @G18MP21 02656503 .GENMS ANOP @G18MP21 02659503 EJECT @G18MP21 02662503 IEFSSMS @ZA34144 02665503 AGO .GENMORE @G18MP21 02668503 .GENCI ANOP @G29AN2F 02671503 EJECT 02674503 IEFSSCI @ZA34144 02677503 AGO .GENMORE @G29AN2F 02680503 .GENAG ANOP @G29AN2F 02683503 EJECT @G29AN2F 02686503 IEFSSAG @ZA34144 02689503 AGO .GENMORE @G29AN2F 03679803 *********************************************************************** 03679903 .ERR1 ANOP 03680003 MNOTE 12,'CONTIG=&CONTIG - INVALID PARAMETER' 03680103 MEXIT 03680203 .ERR2 ANOP 03680303 MNOTE 12,'&EXT(&K) - INVALID PARAMETER' 03680403 MEXIT 03680503 .ERR3 ANOP 03680603 MNOTE 12,'&EXT(&K) - DUPLICATE PARAMETERS' 03680703 MEXIT 03680803 MEND */ 03680903 *%PLSSSOB:; 03685003 *%MACEJECT='@EJECT'; 03687003 * %IF SSOBSSOB='' %THEN %GOTO SSOBHEND; 03690003 *MACEJECT; 03692003 * %INCLUDE SYSLIB(IEFSSOBH); /*@ZA34144*/ 03695003 *%SSOBHEND:; 03715003 * %IF SSOBSO='' %THEN %GOTO SSOBSOEN; 03735003 *MACEJECT; 03755003 * %INCLUDE SYSLIB(IEFSSSO); /*@ZA34144*/ 03775003 *%SSOBSOEN:; 03795003 * %IF SSOBCS='' %THEN %GOTO SSOBCSEN; 03815003 *MACEJECT; 03835003 * %INCLUDE SYSLIB(IEFSSCS); /*@ZA34144*/ 03855003 *%SSOBCSEN:; 03875003 * %IF SSOBJS='' %THEN %GOTO SSOBJSEN; 03895003 *MACEJECT; 03915003 * %INCLUDE SYSLIB(IEFSSJS); /*@ZA34144*/ 03935003 *%SSOBJSEN:; 03955003 * %IF SSOBAL='' %THEN %GOTO SSOBALEN; 03975003 *MACEJECT; 03995003 * %INCLUDE SYSLIB(IEFSSAL); /*@ZA34144*/ 04015003 *%SSOBALEN:; 04035003 * %IF SSOBEN='' %THEN %GOTO SSOBENEN; 04055003 *MACEJECT; 04075003 * %INCLUDE SYSLIB(IEFSSEN); /*@ZA34144*/ 04095003 *%SSOBENEN:; 04115003 * %IF SSOBWT='' %THEN %GOTO SSOBWTEN; 04135003 *MACEJECT; 04155003 * %INCLUDE SYSLIB(IEFSSWT); /*@ZA34144*/ 04175003 *%SSOBWTEN:; 04195003 * %IF SSOBCM='' %THEN %GOTO SSOBCMEN; 04215003 *MACEJECT; 04235003 * %INCLUDE SYSLIB(IEFSSCM); /*@ZA34144*/ 04255003 *%SSOBCMEN:; 04275003 * %IF SSOBUS='' %THEN %GOTO SSOBUSEN; 04295003 *MACEJECT; 04315003 * %INCLUDE SYSLIB(IEFSSUS); /*@ZA34144*/ 04335003 *%SSOBUSEN:; 04355003 * %IF SSOBJT='' %THEN %GOTO SSOBJTEN; 04375003 *MACEJECT; 04395003 * %INCLUDE SYSLIB(IEFSSJT); /*@ZA34144*/ 04415003 *%SSOBJTEN:; 04435003 * %IF SSOBRQ='' %THEN %GOTO SSOBRQEN; 04455003 *MACEJECT; 04475003 * %INCLUDE SYSLIB(IEFSSRQ); /*@ZA34144*/ 04495003 *%SSOBRQEN:; 04515003 * %IF SSOBDM='' %THEN %GOTO SSOBDMEN; 04535003 *MACEJECT; 04555003 * %INCLUDE SYSLIB(IEFSSDM); /*@ZA34144*/ 04575003 *%SSOBDMEN:; 04595003 * %IF SSOBVS='' %THEN %GOTO SSOBVSEN; 04615003 *MACEJECT; 04635003 * %INCLUDE SYSLIB(IEFSSVS); /*@ZA34144*/ 04655003 *%SSOBVSEN:; 04675003 * %IF SSOBDA='' %THEN %GOTO SSOBDAEN; 04695003 *MACEJECT; 04715003 * %INCLUDE SYSLIB(IEFSSDA); /*@ZA34144*/ 04735003 *%SSOBDAEN:; 16500002 * %IF SSOBET='' %THEN 16550002 * %GO TO SSOBETEN; 16600002 *MACEJECT; 16670003 * %INCLUDE SYSLIB(IEFSSET); /*@ZA34144*/ 16700003 *%SSOBETEN:; 16740003 * %IF SSOBRR='' %THEN %GO TO SSOBRREN; 16780003 *MACEJECT; 16820003 * %INCLUDE SYSLIB(IEFSSRR); /*@ZA34144*/ 16860003 *%SSOBRREN:; 18800002 * %IF SSOBCF='' % THEN 18802003 * %GO TO SSOBCFEN; 18804003 *MACEJECT; 18806003 * %INCLUDE SYSLIB(IEFSSCF); /*@ZA34144*/ 18808003 *%SSOBCFEN:; 18876003 * %IF SSOBSI='' %THEN 18878003 * %GO TO SSOBSIEN; 18880003 *MACEJECT; 18890003 * %INCLUDE SYSLIB(IEFSSSI); /*@ZA34144*/ 18920003 *%SSOBSIEN:; 19700003 * %IF SSOBDY='' %THEN 19800003 * %GO TO SSOBDYEN; 20800003 *MACEJECT; 22300003 * %INCLUDE SYSLIB(IEFSSDY); /*@ZA34144*/ 22800003 *%SSOBDYEN:; 41800003 * %IF SSOBCA='' %THEN 42800003 * %GO TO SSOBCAEN; 43800003 *MACEJECT; 45300003 * %INCLUDE SYSLIB(IEFSSCA); /*@ZA34144*/ 45800003 *%SSOBCAEN:; 68800003 * %IF SSOBCU='' %THEN 69800003 * %GO TO SSOBCUEN; 70800003 *MACEJECT; 72300003 * %INCLUDE SYSLIB(IEFSSCU); /*@ZA34144*/ 72800003 *%SSOBCUEN:; 93800003 * %IF SSOBDD='' %THEN 94000003 * %GO TO SSOBDDEN; 94200003 *MACEJECT; 94600003 * %INCLUDE SYSLIB(IEFSSDD); /*@ZA34144*/ 94800003 *%SSOBDDEN:; 94850003 * %IF SSOBNQ='' %THEN %GOTO SSOBNQEN; 94900003 *MACEJECT; 94950003 * %INCLUDE SYSLIB(IEFSSNQ); /*@ZA34144*/ 95000003 *%SSOBNQEN:; 99720303 * %IF SSOBDR='' %THEN 99720603 * %GO TO SSOBDREN; 99720903 *MACEJECT; 99721203 * %INCLUDE SYSLIB(IEFSSDR); /*@ZA34144*/ 99721503 *%SSOBDREN:; 99730503 * %IF SSOBMO='' %THEN /*@G18MP21*/ 99739503 * %GO TO SSOBMOEN; /*@G18MP21*/ 99748503 *MACEJECT; /*@G18MP21*/ 99757503 * %INCLUDE SYSLIB(IEFSSMO); /*@ZA34144*/ 99766503 *%SSOBMOEN:; /* @G18MP21*/ 99786403 * %IF SSOBMS='' %THEN /* @G18MP21*/ 99787403 * %GO TO SSOBMSEN; /* @G18MP21*/ 99788403 *MACEJECT; /* @G18MP21*/ 99789403 * %INCLUDE SYSLIB(IEFSSMS); /*@ZA34144*/ 99790403 *%SSOBMSEN:; /* @G18MP21*/ 99810403 * %IF SSOBCI ='' %THEN /* @G29AN2F*/ 99811403 * %GOTO SSOBCIEN; /* @G29AN2F*/ 99812403 *MACEJECT; 99813403 * %INCLUDE SYSLIB(IEFSSCI); /*@ZA34144*/ 99814403 *%SSOBCIEN:; 99858403 * %IF SSOBAG = '' %THEN /* @G29AN2F*/ 99859403 * %GOTO SSOBAGEN; /* @G29AN2F*/ 99860403 *MACEJECT; @G29AN2F*/ 99861403 * %INCLUDE SYSLIB(IEFSSAG); /*@ZA34144*/ 99862403 *%SSOBAGEN:; /* @G29AN2F*/ 99864403