MACRO                                                          00005057
         BLSUSTBN &SCMD,&EP=                                            00010057
.*--------------------------------------------------------------------* 00020057
.* BLSUSTBN--DEFINE PROCESSING FOR ONE SUBCOMMAND                     * 00030057
.*--------------------------------------------------------------------* 00040057
         GBLA  &GA                                                      00050057
         GBLC  &GP,&GS                                                  00066057
         LCLA  &A1                                                      00074057
         LCLB  &BDSD,&BDU,&BINV,&BPDR                                   00082057
         LCLC  &CE,&CT                                                  00088057
         AIF   (K'&SCMD GE K'&GS).L01  PRIMARY SORT KEY                 00100057
         MNOTE 8,'SUBCOMMAND NAMES NOT ORDERED BY LENGTH'               00116057
         MEXIT                                                          00124057
.L01     AIF   (K'&SCMD EQ K'&GS).L02  NEW PRIMARY SORT KEY             00132057
&GS      SETC  ' '                     NO CURRENT SUBCOMMAND NAME       00138057
.L02     AIF   ('&SCMD' GE '&GS').L03  SUBCOMMAND NAMES ALPHABETIZED    00150057
         MNOTE 8,'SUBCOMMAND NAMES OF SAME LENGTH ARE NOT ALPABETIZED'  00166057
         MEXIT                                                          00174057
.*------------ PROCESS POSITIONAL KEYWORDS --------------------------*. 00182057
.L03     ANOP                                                           00188057
&GA      SETA  &GA+1                   DIMENSION OF SUBCOMMAND ARRAY    00200057
&GS      SETC  '&SCMD'                 CURRENT SUBCOMMAND NAME          00216057
&A1      SETA  2                       SUBSCRIPT FOR SEARCH             00224057
&CT      SETC  'L'                     IPCS SUBCOMMAND                  00232057
.L04     AIF   (&A1 GT N'&SYSLIST).L13 POSITION OPERANDS SCANNED        00238057
         AIF   ('&SYSLIST(&A1)' NE 'DSD').L05                           00250057
&BDSD    SETB  1                       REQUIRES DATA SET DIRECTORY      00266057
         AGO   .L12                                                     00274057
.L05     AIF   ('&SYSLIST(&A1)' NE 'DUMP').L06                          00282057
&BDU     SETB  1                       REQUIRES A DUMP DATA SET         00288057
         AGO   .L12                                                     00300057
.L06     AIF   ('&SYSLIST(&A1)' NE 'INVALID').L07                       00316057
&BINV    SETB  1                       INVALID IN IPCS                  00324057
         AGO   .L12                                                     00332057
.L07     AIF   ('&SYSLIST(&A1)' NE 'IPCS').L08                          00338057
&CT      SETC  'L'                     IPCS SUBCOMMAND                  00350057
         AGO   .L12                                                     00366057
.L08     AIF   ('&SYSLIST(&A1)' NE 'PDR').L09                           00374057
&BPDR    SETB  1                       REQUIRES PROBLEM DIRECTORY       00382057
         AGO   .L12                                                     00388057
.L09     AIF   ('&SYSLIST(&A1)' NE 'SPECIAL').L10                       00400057
&CT      SETC  'S'                     SPECIAL COMMAND                  00416057
         AGO   .L12                                                     00424057
.L10     AIF   ('&SYSLIST(&A1)' NE 'TSO').L11                           00432057
&CT      SETC  'T'                     TSO COMMAND                      00438057
         AGO   .L12                                                     00450057
.L11     MNOTE 8,'''&SYSLIST(&A1)'' KEYWORD NOT SUPPORTED'              00466057
.L12     ANOP                                                           00474057
&A1      SETA  &A1+1                   SUBSCRIPT FOR SEARCH             00482057
         AGO   .L04                                                     00488057
.*------------ PROCESS SUBCOMMAND ENTRY POINT NAME ------------------*. 00500057
.L13     AIF   (T'&EP EQ 'O').L14      IMPLICIT ENTRY POINT NAME        00516057
&CE      SETC  '&EP'                   SUBCOMMAND ENTRY POINT NAME      00524057
         AGO   .L15                                                     00532057
.L14     ANOP                                                           00538057
&CE      SETC  '&SCMD'                 SUBCOMMAND ENTRY POINT NAME      00550057
.*------------ GENERATE SUBCOMMAND TABLE ENTRY ----------------------*. 00566057
.L15     SPACE                                                          00574057
&GP.&GA  DS    0F                      SUBCOMMAND TABLE ENTRY           00582057
         DC    CL1'&CT'                TYPE OF SUBCOMMAND               00588057
         DC    BL2'&BINV&BPDR&BDSD&BDU.000000000000' ATTRIBUTES         00600057
&A1      SETA  K'&SCMD                 LENGTH OF SUBCOMMAND NAME        00616057
         DC    FL1'&A1'                LENGTH OF SUBCOMMAND NAME        00624057
         DC    CL8'&SCMD'              SUBCOMMAND NAME                  00632057
         DC    CL8'&CE'                SUBCOMMAND ENTRY POINT NAME      00638057
         MEND                                                           00650057