Common COMCFQO

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcfqo +++|          CTEXT  COMCFQO - FORMAT QUEUED FILE OUTPUT.
00002  M00S00002.comcfqo +++|          SPACE  4
00003  M00S00003.comcfqo +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcfqo +++|          QUAL   COMCFQO
00005  M00S00005.comcfqo +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcfqo +++|          SPACE  4,10
00009  M00S00008.comcfqo +++|***       FQO - FORMAT QUEUED FILE OUTPUT.
00010  M00S00009.comcfqo +++|*         D. A. COAPSTICK    74/11/11.
00011  M00S00010.comcfqo +++|*         B. M. SLIWINSKI.   83/06/30.
00012  M00S00011.comcfqo +++| FQO      SPACE  4,25
00013  M00S00012.comcfqo +++|**        FQO - FORMAT OUTPUT LINE.
00014  M00S00013.comcfqo +++|*
00015  M00S00014.comcfqo +++|*         *FQO* FORMATS AN OUTPUT LINE FOR THE QUEUED FILE
00016  M00S00015.comcfqo +++|*         UTILITIES.  IF WORD 9 OF THE IQFT ENTRY IS ZERO,
00017  M00S00016.comcfqo +++|*         THE MACHINE ID, DATE, AND LENGTH FIELDS ARE BLANK FILLED.
00018  M00S00017.comcfqo +++|*
00019  M00S00018.comcfqo +++|*         ENTRY  (X1) = LINE NUMBER (BINARY).
00020  M00S00019.comcfqo +++|*                (X5) = ADDRESS OF IQFT ENTRY.
00021  M00S00020.comcfqo +++|*                (X3) = DISPOSITION FIELD ENTRY.
00022  M00S00021.comcfqo +++|*                (B7) = ADDRESS OF FAMILY/DEVICE WORD.
00023  M00S00022.comcfqo +++|*                       THIS WORD HAS THE FORMAT-
00024  M00S00023.comcfqo +++|*                       42/FAMILY,6/DEVICE,12/.
00025  M00S00024.comcfqo +++|*
00026  M00S00025.comcfqo +++|*         EXIT   (B3) = ADDRESS OF LINE.
00027  M00S00026.comcfqo +++|*                (B2) = NUMBER OF WORDS IN LINE.
00028  M00S00027.comcfqo +++|*
00029  M00S00028.comcfqo +++|*         USES   X - 0, 1, 2, 3, 5, 6.
00030  M00S00029.comcfqo +++|*                A - 1, 2, 3, 6, 7.
00031  M00S00030.comcfqo +++|*                B - 2, 3, 6, 7.
00032  M00S00031.comcfqo +++|*
00033  M00S00032.comcfqo +++|*         CALLS  CDD, COD, SCB, ZTB.
00034  M00S00033.comcfqo +++|*
00035  M00S00034.comcfqo +++|*         MACROS CFORM, EDATE.
00036  M00S00035.comcfqo +++|*
00037  M00S00036.comcfqo +++|*         XREF   COMCCDD, COMCCOD, COMCEDT, COMCSCB, COMCVLC, COMCZTB,
00038  M00S00037.comcfqo +++|*                COMSJIO, COMSMLS, COMSSCD.

Line S00001 Modification History
`M01` (Added by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00001.cfqo2   +++|          SPACE  4,10
00040  M01S00002.cfqo2   +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00041  M01S00003.cfqo2   +++|*
00042  M01S00004.cfqo2   +++|*         SCLASS NM,MN,DF,ST,TX
00043  M01S00005.cfqo2   +++|*
00044  M01S00006.cfqo2   +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00045  M01S00007.cfqo2   +++|*                *MN* = TWO CHARACTER MNEMONIC.
00046  M01S00008.cfqo2   +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00047  M01S00009.cfqo2   +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00048  M01S00010.cfqo2   +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00049  M01S00011.cfqo2   +++|*
00050  M01S00012.cfqo2   +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00051  M01S00013.cfqo2   +++|*                THIS MACRO.
00052  M01S00014.cfqo2   +++|
00053  M01S00015.cfqo2   +++|
00054  M01S00016.cfqo2   +++|          PURGMAC SCLASS
00055  M01S00017.cfqo2   +++|
00056  M01S00018.cfqo2   +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00057  M01S00019.cfqo2   +++| .SCLFQO  RMT
00058  M01S00020.cfqo2   +++| NM     VFD    6/1R_DF,54/0  TX
00059  M01S00021.cfqo2   +++| .SCLFQO  RMT
00060  M01S00022.cfqo2   +++| SCLASS   ENDM
00061  M01S00023.cfqo2   +++|
00062  M01S00024.cfqo2   +++|
00063  M01S00025.cfqo2   +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00064  M01S00026.cfqo2   +++|
00065  M01S00027.cfqo2   +++|*CALL     COMSSCD
00066  M01S00028.cfqo2   +++| FQO      TITLE  COMCFQO - FORMAT QUEUED FILE OUTPUT.
00067  M00S00038.comcfqo +++|
00068  M00S00039.comcfqo +++|
00069  M00S00040.comcfqo +++| FQO      SUBR               ENTRY/EXIT
00070  M00S00041.comcfqo +++|          SX7    B7          SAVE ADDRESS OF FAMILY/DEVICE NUMBER
00071  M00S00042.comcfqo +++|          BX0    X1          SAVE LINE NUMBER
00072  M00S00043.comcfqo +++|          SA1    FQOA        BLANK FILL BUFFER
00073  M00S00044.comcfqo +++|          SB6    FQOAL-3     SET NUMBER OF WORDS
00074  M00S00045.comcfqo +++|          BX6    X1
00075  M00S00046.comcfqo +++|          SA6    A1+B1
00076  M00S00047.comcfqo +++| FQO1     SA6    A6+B1
00077  M00S00048.comcfqo +++|          SB6    B6-B1
00078  M00S00049.comcfqo +++|          NZ     B6,FQO1     IF NOT END OF BUFFER
00079  M00S00050.comcfqo +++|          BX6    X6-X6       ENSURE END OF LINE
00080  M00S00051.comcfqo +++|          SA6    A6+B1
00081  M00S00052.comcfqo +++|          SA7    FQOB
00082  M00S00053.comcfqo +++|          SB7    FQOA+1      SET ADDRESS OF BUFFER
00083  M00S00054.comcfqo +++|
00084  M00S00055.comcfqo +++|*         SET STATUS OF FILE.
00085  M00S00056.comcfqo +++|
00086  M00S00057.comcfqo +++|          BX6    X3
00087  M00S00058.comcfqo +++|          SB3    TCNF+11
00088  M00S00059.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00089  M00S00060.comcfqo +++|
00090  M00S00061.comcfqo +++|*         SET LINE NUMBER.
00091  M00S00062.comcfqo +++|
00092  M00S00063.comcfqo +++|          BX1    X0          RETRIEVE LINE NUMBER
00093  M00S00064.comcfqo +++|          RJ     CDD
00094  M00S00065.comcfqo +++|          LX6    30
00095  M00S00066.comcfqo +++|          SB3    TCNF
00096  M00S00067.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00097  M00S00068.comcfqo +++|
00098  M00S00069.comcfqo +++|*         SET JSN.
00099  M00S00070.comcfqo +++|
00100  M00S00071.comcfqo +++|          SA1    X5+JSNQ     GET JSN
00101  M00S00072.comcfqo +++|          MX0    24
00102  M00S00073.comcfqo +++|          BX6    X0*X1
00103  M00S00074.comcfqo +++|          SB3    TCNF+1
00104  M00S00075.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00105  M00S00076.comcfqo +++|
00106  M00S00077.comcfqo +++|*         SET SERVICE CLASS.
00107  M00S00078.comcfqo +++|
00108  M00S00079.comcfqo +++|          SA1    X5+SCLQ     GET SERVICE CLASS
00109  M00S00080.comcfqo +++|          LX1    6
00110  M00S00081.comcfqo +++|          MX0    -6
00111  M00S00082.comcfqo +++|          BX2    -X0*X1
00112  M00S00083.comcfqo +++|          SA3    TSCC+X2     ADD SERVICE CLASS TO DISPLAY LINE
00113  M00S00084.comcfqo +++|          BX6    X3
00114  M00S00085.comcfqo +++|          SB3    TCNF+2
00115  M00S00086.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00116  M00S00087.comcfqo +++|
00117  M00S00088.comcfqo +++|*         SET MACHINE ID.
00118  M00S00089.comcfqo +++|
00119  M00S00090.comcfqo +++|          SA1    X5+9
00120  M00S00091.comcfqo +++|          MX0    12
00121  M00S00092.comcfqo +++|          ZR     X1,FQO2     IF BLANK FILL WANTED
00122  M00S00093.comcfqo +++|          LX1    -12
00123  M00S00094.comcfqo +++|          BX6    X0*X1
00124  M00S00095.comcfqo +++|          SB3    TCNF+3
00125  M00S00096.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00126  M00S00097.comcfqo +++|
00127  M00S00098.comcfqo +++|*         SET FAMILY NAME.
00128  M00S00099.comcfqo +++|
00129  M00S00100.comcfqo +++| FQO2     SA1    FQOB        GET FAMILY NAME
00130  M00S00101.comcfqo +++|          SA1    X1
00131  M00S00102.comcfqo +++|          MX0    42
00132  M00S00103.comcfqo +++|          BX1    X0*X1
00133  M00S00104.comcfqo +++|          RJ     ZTB         BLANK FILL FAMILY NAME
00134  M00S00105.comcfqo +++|          SB3    TCNF+4
00135  M00S00106.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00136  M00S00107.comcfqo +++|
00137  M00S00108.comcfqo +++|*         SET DEVICE NUMBER.
00138  M00S00109.comcfqo +++|
00139  M00S00110.comcfqo +++|          SA1    FQOB        GET DEVICE NUMBER
00140  M00S00111.comcfqo +++|          SA2    X1
00141  M00S00112.comcfqo +++|          MX0    -6
00142  M00S00113.comcfqo +++|          LX2    -12
00143  M00S00114.comcfqo +++|          BX1    -X0*X2      DEVICE NUMBER
00144  M00S00115.comcfqo +++|          RJ     COD         CONVERT DEVICE NUMBER
00145  M00S00116.comcfqo +++|          BX6    X4
00146  M00S00117.comcfqo +++|          SB2    B2-6
00147  M00S00118.comcfqo +++|          NZ     B2,FQO3     IF NOT ONE CHARACTER
00148  M00S00119.comcfqo +++|          LX6    -6          ADD LEADING BLANK
00149  M00S00120.comcfqo +++| FQO3     SB3    TCNF+5
00150  M00S00121.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00151  M00S00122.comcfqo +++|
00152  M00S00123.comcfqo +++|*         SET DISPOSITION TYPE.
00153  M00S00124.comcfqo +++|
00154  M00S00125.comcfqo +++|          SA1    X5+JSNQ
00155  M00S00126.comcfqo +++|          LX1    -6
00156  M00S00127.comcfqo +++|          BX1    -X0*X1      DISPOSITION TYPE
00157  M00S00128.comcfqo +++|          SA3    TDCC-1      GET MNEMONIC CHARACTERS
00158  M00S00129.comcfqo +++| FQO4     SA3    A3+B1
00159  M00S00130.comcfqo +++|          ZR     X3,FQO5     IF DISPOSITION TYPE NOT IN TABLE
00160  M00S00131.comcfqo +++|          SX2    X3
00161  M00S00132.comcfqo +++|          IX2    X1-X2
00162  M00S00133.comcfqo +++|          NZ     X2,FQO4     IF NOT MATCH
00163  M00S00134.comcfqo +++|          MX0    12
00164  M00S00135.comcfqo +++|          BX6    X0*X3
00165  M00S00136.comcfqo +++|          SB3    TCNF+6
00166  M00S00137.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00167  M00S00138.comcfqo +++|
00168  M00S00139.comcfqo +++|*         SET FILE DESTINATION.
00169  M00S00140.comcfqo +++|
00170  M00S00141.comcfqo +++| FQO5     SA1    X5+SCLQ
00171  M00S00142.comcfqo +++|          LX1    18
00172  M00S00143.comcfqo +++|          MX0    -6
00173  M00S00144.comcfqo +++|          BX2    -X0*X1
00174  M00S00145.comcfqo +++|          SX6    2RBC
00175  M00S00146.comcfqo +++|          ZR     X2,FQO6     IF FILE ROUTED TO LOCAL BATCH
00176  M00S00147.comcfqo +++|          SX6    2RRB        DISPLAY FILE ROUTED TO REMOTE BATCH
00177  M00S00148.comcfqo +++| FQO6     LX6    -12
00178  M00S00149.comcfqo +++|          SB3    TCNF+7
00179  M00S00150.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00180  M00S00151.comcfqo +++|
00181  M00S00152.comcfqo +++|*         SET CREATION DATE.
00182  M00S00153.comcfqo +++|
00183  M00S00154.comcfqo +++|          SA1    X5+9
00184  M00S00155.comcfqo +++|          ZR     X1,FQO7     IF BLANK FILL WANTED
00185  M00S00156.comcfqo +++|          SA2    X5+8        GET DATE
00186  M00S00157.comcfqo +++|          MX0    -18
00187  M00S00158.comcfqo +++|          AX2    18          CLEAR TIME
00188  M00S00159.comcfqo +++|          BX1    -X0*X2      DATE
00189  M00S00160.comcfqo +++|          EDATE  X1
00190  M00S00161.comcfqo +++|          LX6    6
00191  M00S00162.comcfqo +++|          MX0    48          INSERT TWO SPACES INTO LINE
00192  M00S00163.comcfqo +++|          SX1    2R
00193  M00S00164.comcfqo +++|          BX6    X0*X6
00194  M00S00165.comcfqo +++|          BX6    X6+X1
00195  M00S00166.comcfqo +++|          SB3    TCNF+8
00196  M00S00167.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00197  M00S00168.comcfqo +++|
00198  M00S00169.comcfqo +++|*         SET FILE LENGTH.
00199  M00S00170.comcfqo +++|
00200  M00S00171.comcfqo +++|          SA1    X5+8        GET LENGTH
00201  M00S00172.comcfqo +++|          AX1    36
00202  M00S00173.comcfqo +++|          RJ     COD
00203  M00S00174.comcfqo +++|          LX6    12
00204  M00S00175.comcfqo +++|          SB3    TCNF+9
00205  M00S00176.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00206  M00S00177.comcfqo +++|
00207  M00S00178.comcfqo +++|*         SET ACCESS LEVEL.
00208  M00S00179.comcfqo +++|
00209  M00S00180.comcfqo +++| FQO7     SA2    SECA
00210  M00S00181.comcfqo +++|          MX0    -3
00211  M00S00182.comcfqo +++|          LX2    12
00212  M00S00183.comcfqo +++|          BX2    -X0*X2
00213  M00S00184.comcfqo +++|          ZR     X2,FQO8     IF UNSECURE SYSTEM
00214  M00S00185.comcfqo +++|          SA1    X5+INSQ     GET ACCESS LEVEL
00215  M00S00186.comcfqo +++|          LX1    -15
00216  M00S00187.comcfqo +++|          BX2    -X0*X1
00217  M00S00188.comcfqo +++|          SA1    TALV+X2     GET ACCESS LEVEL NAME
00218  M00S00189.comcfqo +++|          MX0    42
00219  M00S00190.comcfqo +++|          BX1    X0*X1
00220  M00S00191.comcfqo +++|          RJ     ZTB         BLANK FILL ACCESS LEVEL NAME
00221  M00S00192.comcfqo +++|          SB3    TCNF+10
00222  M00S00193.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00223  M00S00194.comcfqo +++| FQO8     SB2    FQOAL       SET NUMBER OF WORDS IN LINE
00224  M00S00195.comcfqo +++|          SB3    FQOA        SET ADDRESS OF LINE
00225  M00S00196.comcfqo +++|          EQ     FQOX        RETURN
00226  M00S00197.comcfqo +++|
00227  M00S00198.comcfqo +++|
00228  M00S00199.comcfqo +++| FQOA     DATA   H* *
00229  M00S00200.comcfqo +++|          DATA   C*  XXX.  JSNS  MI FAMILY  DN DT DS YY/MM/DD. XXXXXXXX
00230  M00S00201.comcfqo +++|,LEVEL    DISP FIELD  *
00231  M00S00202.comcfqo +++| FQOAL    EQU    *-FQOA
00232  M00S00203.comcfqo +++|
00233  M00S00204.comcfqo +++| FQOB     BSS    1           ADDRESS OF FAMILY/DEVICE NUMBER
00234  M00S00205.comcfqo +++| TCNF     SPACE  4,10
00235  M00S00206.comcfqo +++|*         TCNF - TABLE OF COLUMN NUMBERS FOR FORMATTING.
00236  M00S00207.comcfqo +++|
00237  M00S00208.comcfqo +++|
00238  M00S00209.comcfqo +++| TCNF     BSS    0
00239  M00S00210.comcfqo +++|          CFORM  1,5         NUMBER
00240  M00S00211.comcfqo +++|          CFORM  7,4         JSN
00241  M00S00212.comcfqo +++|          CFORM  11,1        SERVICE CLASS
00242  M00S00213.comcfqo +++|          CFORM  14,2        MACHINE ID
00243  M00S00214.comcfqo +++|          CFORM  17,7        FAMILY
00244  M00S00215.comcfqo +++|          CFORM  25,2        DEVICE NUMBER
00245  M00S00216.comcfqo +++|          CFORM  28,2        DISPOSITION TYPE
00246  M00S00217.comcfqo +++|          CFORM  31,2        FILE DESTINATION
00247  M00S00218.comcfqo +++|          CFORM  34,9        CREATION DATE
00248  M00S00219.comcfqo +++|          CFORM  44,8        FILE LENGTH
00249  M00S00220.comcfqo +++|          CFORM  53,7        ACCESS LEVEL
00250  M00S00221.comcfqo +++|          CFORM  62,8        STATUS OF FILE
00251  M00S00222.comcfqo +++| TSCC     SPACE  4,10
00252  M00S00223.comcfqo +++|*         TSCC - TABLE OF SERVICE CLASS MNEMONIC CHARACTERS.
00253  M00S00224.comcfqo +++|
00254  M00S00225.comcfqo +++|
00255  M00S00226.comcfqo +++| TSCC     BSS    0
00256  M00S00227.comcfqo +++|          LOC    0
00257  M00S00228.comcfqo +++|          VFD    60/0        NOT USED

Line S00229 Modification History
`M01` (Removed by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00229.cfqo2   ---| SYSC     VFD    6/1RS,54/0
00259  M01S00230.cfqo2   ---| BCSC     VFD    6/1RB,54/0
00260  M01S00231.cfqo2   ---| RBSC     VFD    6/1RR,54/0
00261  M01S00232.cfqo2   ---| TSSC     VFD    6/1RT,54/0
00262  M01S00233.cfqo2   ---| DISC     VFD    6/1RD,54/0
00263  M01S00234.cfqo2   ---| NSSC     VFD    6/1RN,54/0
00264  M01S00235.cfqo2   ---| SSSC     VFD    6/1RX,54/0
00265  M01S00236.cfqo2   ---| MASC     VFD    6/1RM,54/0
00266  M01S00237.cfqo2   ---| CTSC     VFD    6/1RC,54/0
00267  M01S00238.cfqo2   ---| I0SC     VFD    6/1R0,54/0
00268  M01S00239.cfqo2   ---| I1SC     VFD    6/1R1,54/0
00269  M01S00240.cfqo2   ---| I2SC     VFD    6/1R2,54/0
00270  M01S00241.cfqo2   ---| I3SC     VFD    6/1R3,54/0

Line S00029 Modification History
`M01` (Added by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00029.cfqo2   +++|          LIST   D
00272  M01S00030.cfqo2   +++| .SCLFQO  HERE
00273  M01S00031.cfqo2   +++|          LIST   *
00274  M00S00242.comcfqo +++|          LOC    *O
00275  M00S00243.comcfqo +++| TDCC     SPACE  4,10
00276  M00S00244.comcfqo +++|*         TDCC - TABLE OF DISPOSITION CODE MNEMONIC CHARACTERS.
00277  M00S00245.comcfqo +++|
00278  M00S00246.comcfqo +++| TDCC     BSS    0
00279  M00S00247.comcfqo +++|          VFD    12/2LIN,36/0,12/INQF
00280  M00S00248.comcfqo +++|          VFD    12/2LIN,36/0,12/NOQF
00281  M00S00249.comcfqo +++|          VFD    12/2LIN,36/0,12/TOQF
00282  M00S00250.comcfqo +++|          VFD    12/2LPH,36/0,12/PUQF
00283  M00S00251.comcfqo +++|          VFD    12/2LPL,36/0,12/PLQF
00284  M00S00252.comcfqo +++|          VFD    12/2LPR,36/0,12/LPQF
00285  M00S00253.comcfqo +++|          VFD    12/2LP2,36/0,12/P2QF
00286  M00S00254.comcfqo +++|          VFD    12/2LLR,36/0,12/LRQF
00287  M00S00255.comcfqo +++|          VFD    12/2LLS,36/0,12/LSQF
00288  M00S00256.comcfqo +++|          VFD    12/2LLT,36/0,12/LTQF
00289  M00S00257.comcfqo +++|          VFD    12/2LLX,36/0,12/LXQF
00290  M00S00258.comcfqo +++|          VFD    12/2LLY,36/0,12/LYQF
00291  M00S00259.comcfqo +++|          VFD    12/2LER,36/0,12/ERQF
00292  M00S00260.comcfqo +++|          VFD    12/2LTQ,36/0,12/TQQF
00293  M00S00261.comcfqo +++|          VFD    12/2LSF,36/0,12/S1QF
00294  M00S00262.comcfqo +++|          VFD    12/2LSF,36/0,12/S2QF
00295  M00S00263.comcfqo +++|          VFD    12/2LSF,36/0,12/S3QF
00296  M00S00264.comcfqo +++|          VFD    60/0
00297  M00S00265.comcfqo +++|          SPACE  4
00298  M00S00266.comcfqo +++|          BASE   *
00299  M00S00267.comcfqo +++| QUAL$    IF     -DEF,QUAL$,1
00300  M00S00268.comcfqo +++|          QUAL   *
00301  M00S00269.comcfqo +++| FQO      EQU    /COMCFQO/FQO
00302  M00S00270.comcfqo +++| FQOA     EQU    /COMCFQO/FQOA
00303  M00S00271.comcfqo +++| FQOAL    EQU    /COMCFQO/FQOAL
00304  M00S00272.comcfqo +++| QUAL$    ENDIF
00305  M00S00273.comcfqo +++|          ENDX