Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comtusp +++|                                                                      #
00002  M00S00002.comtusp +++|          CTEXT  COMTUSP - *SSUSE* CONTROL STATEMENT PARAMETERS.
00003  M00S00003.comtusp +++|                                                                      #
00004  M00S00004.comtusp +++|                                               CONTROL NOLIST;
00005  M00S00005.comtusp +++|                                               CONTROL IFEQ LISTCON,1;
00006  M00S00006.comtusp +++|                                               CONTROL LIST;
00007  M00S00007.comtusp +++|                                               CONTROL FI;
00008  M00S00008.comtusp +++|                             BEGIN     # COMTUSP #
00009  M00S00009.comtusp +++|
00010  M00S00010.comtusp +++|                                                                      #
00011  M00S00011.comtusp +++|***       COMTUSP - ADDRESSES FOR PROCESSED *SSUSE* PARAMETERS.
00012  M00S00012.comtusp +++|*
00013  M00S00013.comtusp +++|*         *COMTUSP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00014  M00S00014.comtusp +++|*         AREA TO HOLD THE *SSUSE* PROCESSED PARAMETERS.
00015  M00S00015.comtusp +++|
00016  M00S00016.comtusp +++|
00017  M00S00017.comtusp +++|
00018  M00S00018.comtusp +++|
00019  M00S00019.comtusp +++|*         ADDRESSES AND DEFAULT PARAMETERS FOR THE *SSUSE* CONTROL
00020  M00S00020.comtusp +++|*         STATEMENT PARAMETERS.
00021  M00S00021.comtusp +++|
00022  M00S00022.comtusp +++|          USE    /TUSPCOM/
00023  M00S00023.comtusp +++|                                                    ##$$##
00024  M00S00024.comtusp +++| OP       DATA   0           REPORT OPTION
00025  M00S00025.comtusp +++| FM       DATA   0           FAMILY NAME
00026  M00S00026.comtusp +++| SB       DATA   0L01234567  SELECTED SUBFAMILIES
00027  M00S00027.comtusp +++| SM       DATA   1HA         SM-ID
00028  M00S00028.comtusp +++| L        DATA   0LOUTPUT    OUTPUT FILE
00029  M00S00029.comtusp +++| CN       DATA   0           CSN OF SPECIFIC CARTRIDGE
00030  M00S00030.comtusp +++| CM       DATA   2LA         CARTRIDGE MANUFACTURER
00031  M00S00031.comtusp +++|          USE
00032  M00S00032.comtusp +++|
00033  M00S00033.comtusp +++|*         RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
00034  M00S00034.comtusp +++|*         ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE FOLLOWING
00035  M00S00035.comtusp +++|*         ORDER.  *OP* IS CONSIDERED AS WORD *0* FOR *SYMPL*
00036  M00S00036.comtusp +++|*         DECLARATIONS.
00037  M00S00037.comtusp +++|                                                                      #
00038  M00S00038.comtusp +++|                                          # WORD POSITIONS FOR #
00039  M00S00039.comtusp +++|#OP       #DEF#  OP+0        # OP$US #0#;  # *OP* #
00040  M00S00040.comtusp +++|#FM       #DEF#  OP+1        # FM$US #1#;  # *FM* #
00041  M00S00041.comtusp +++|#SB       #DEF#  OP+2        # SB$US #2#;  # *SB* #
00042  M00S00042.comtusp +++|#SM       #DEF#  OP+3        # SM$US #3#;  # *SM* #
00043  M00S00043.comtusp +++|#L        #DEF#  OP+4        # L$US  #4#;  # *L* #
00044  M00S00044.comtusp +++|#CN       #DEF#  OP+5        # CN$US #5#;  # *CN* #
00045  M00S00045.comtusp +++|#CM       #DEF#  OP+6        # CM$US #6#;  # *CM* #
00046  M00S00046.comtusp +++|
00047  M00S00047.comtusp +++|                                                                      #
00048  M00S00048.comtusp +++|          COL    12
00049  M00S00049.comtusp +++|                                                                      #
00050  M00S00050.comtusp +++|
00051  M00S00051.comtusp +++|           COMMON TUSPCOM;
00052  M00S00052.comtusp +++|
00053  M00S00053.comtusp +++|             BEGIN  # TUSPCOM #
00054  M00S00054.comtusp +++|
00055  M00S00055.comtusp +++|                                                                      #
00056  M00S00056.comtusp +++|*         ARRAY TO ACCESS THE PROCESSED *SSUSE* PARAMETERS.
00057  M00S00057.comtusp +++|                                                                      #
00058  M00S00058.comtusp +++|
00059  M00S00059.comtusp +++|             ARRAY USARG [0:0] P(7);
00060  M00S00060.comtusp +++|               BEGIN
00061  M00S00061.comtusp +++|               ITEM USARG$OP   C(OP$US,00,10);  # REPORT OPTION #
00062  M00S00062.comtusp +++|               ITEM USARG$FM   C(FM$US,00,07);  # FAMILY NAME #
00063  M00S00063.comtusp +++|               ITEM USARG$SB   U(SB$US,00,60);  # SUBFAMILY #
00064  M00S00064.comtusp +++|               ITEM USARG$SM   C(SM$US,00,08);  # SM-ID #
00065  M00S00065.comtusp +++|               ITEM USARG$LZ   U(L$US,00,60);   # REFERENCE TO L$US #
00066  M00S00066.comtusp +++|               ITEM USARG$L    C(L$US,00,07);   # OUTPUT FILE NAME #
00067  M00S00067.comtusp +++|               ITEM USARG$CN   C(CN$US,00,08);  # SPECIFIC CSN #
00068  M00S00068.comtusp +++|               ITEM USARG$CM   C(CM$US,00,02);  # CART. MANUFACTURER #
00069  M00S00069.comtusp +++|               END
00070  M00S00070.comtusp +++|
00071  M00S00071.comtusp +++|             END  # TUSPCOM #
00072  M00S00072.comtusp +++|
00073  M00S00073.comtusp +++|           END  # COMTUSP #
00074  M00S00074.comtusp +++|
00075  M00S00075.comtusp +++|                                                                      #
00076  M00S00076.comtusp +++|          COL    30
00077  M00S00077.comtusp +++|          ENDX                                                        #
00078  M00S00078.comtusp +++|                                               CONTROL LIST;