* /* START OF SPECIFICATIONS ****                                       00060000
*                                                                       00070000
*01*  MODULE-NAME = USSTAB                                              00080000
*                                                                       00090000
*01*  DESCRIPTIVE-NAME = USS TABLE DEFINITION MACRO                     00092000
*                                                                       00094000
*01*  COPYRIGHT = NONE                                                  00096000
*                                                                       00098000
*01*  STATUS = RELEASE 2                                                00098400
*                                                                       00098800
*01*  FUNCTION = THE PURPOSE OF THIS MACRO IS TO GENERATE A UDT         00099200
*     (USS DEFINITION TABLE). THE TABLE CONSISTS OF THREE WORDS         00099300
*     TRANSLATE TABLE POINTER, FIRST USS COMMAND BLOCK POINTER, AND     00099400
*     FIRST USS MESSAGE BLOCK POINTER.                                  00099500
*                                                                       00099700
*02*    CHARACTER-CODE-DEPENDENCIES = NONE                              00133000
*                                                                       00133100
*02*    DEPENDENCIES= NONE                                              00133200
*                                                                       00140800
*02*    RESTRICTIONS = NONE                                             00142800
*                                                                       00143200
*02*    REGISTER-CONVENTIONS = NONE                                     00143600
*                                                                       00144000
*02*    PATCH-LABEL = NONE                                              00144100
*                                                                       00144200
*01*  MODULE-TYPE = MACRO                                               00144300
*                                                                       00158200
*02*    PROCESSOR = ASSEM-370R                                          00168200
*                                                                       00170200
*02*    MACRO-SIZE = 18 STATEMENTS                                      00170600
*                                                                       00171000
*02*    ATTRIBUTES = LIST-EXEC                                          00171400
*                                                                       00171800
*01*  ENTRY-POINT = NA                                                  00171900
*                                                                       00172000
*01*  EXIT-NORMAL = NA                                                  00172100
*                                                                       00176700
*01*  EXIT-ERROR = NA                                                   00178700
*                                                                       00180700
*01*  EXTERNAL-REFERENCES = NONE                                        00181100
*                                                                       00181200
*01*  TABLES = UDT (USS DEFINITION TABLE)                               00181300
*                                                                       00181400
*01*  INNER-MACROS = USSEND                                             00186000
*                                                                       00188000
*01*  SYSTEM-MACROS = NONE                                              00190000
*                                                                       00190400
*01*  CHANGE-ACTIVITY = AS-FOLLOWS                                      00190500
*                       NEW MACRO - FIRST RELEASE   32  DOS/VS          00190600
*                                                   04  OS/VS1          00190700
*                                                   03  OS/VS2          00202500
*            APAR OZ26263  ADDITIONAL VALIDITY CHECKS        @ZA26263   00207500
**** END OF SPECIFICATIONS ***/                                         00212500
         MACRO                                                          00214500
&LABEL   USSTAB &TABLE=0                                                00214600
         GBLC  &Q                 USSEND OUTPUT VARIABLE                00226400
         GBLC  &N                 STATEMENT LABEL PREFIX                00238200
         GBLB  &B                 SWITCH FOR USSCMD SPECIFIED           00250000
         GBLB  &Z                 SWITCH FOR USSTAB SPECIFIED           00270000
&N       SETC  'IST'              USE 'IST' FOR LABEL PREFIX            00300000
&B       SETB  0                  INDIC NO USSCMD SPECIFIED             00350000
&Z       SETB  1                  INDIC USSTAB SPECIFIED                00370000
         SPACE 1                                                        00400000
         AIF   ('&LABEL' EQ '').SQ010                                   00450000
&LABEL   CSECT ,                  START USS DEFINITION TABLE            00500000
         SPACE 1                                                        00550000
.SQ010   DC    A(&TABLE)          ADDR TRANSLATE TABLE                  00600000
         USSEND INC=C             INCREMENT USSCMD COUNTER              00650000
         DC    A(&N.C&Q)          ADDR FIRST USSCMD BLOCK               00700000
         USSEND INC=M             INCREMENT USSCMD COUNTER              00750000
         DC    A(&N.M&Q)          ADDR FIRST USSMSG BLOCK               00800000
         SPACE 1                                                        00850000
         MEND                                                           00900000