Common COMCFQO

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcfqo +++|          CTEXT  COMCFQO - FORMAT QUEUED FILE OUTPUT.
00002  M01S00002.comcfqo +++|          SPACE  4
00003  M01S00003.comcfqo +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcfqo +++|          QUAL   COMCFQO
00005  M01S00005.comcfqo +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcfqo +++|          SPACE  4,10
00009  M01S00008.comcfqo +++|***       FQO - FORMAT QUEUED FILE OUTPUT.
00010  M01S00009.comcfqo +++|*         D. A. COAPSTICK    74/11/11.
00011  M01S00010.comcfqo +++|*         B. M. SLIWINSKI.   83/06/30.
00012  M01S00011.comcfqo +++| FQO      SPACE  4,25
00013  M01S00012.comcfqo +++|**        FQO - FORMAT OUTPUT LINE.
00014  M01S00013.comcfqo +++|*
00015  M01S00014.comcfqo +++|*         *FQO* FORMATS AN OUTPUT LINE FOR THE QUEUED FILE
00016  M01S00015.comcfqo +++|*         UTILITIES.  IF WORD 9 OF THE IQFT ENTRY IS ZERO,
00017  M01S00016.comcfqo +++|*         THE MACHINE ID, DATE, AND LENGTH FIELDS ARE BLANK FILLED.
00018  M01S00017.comcfqo +++|*
00019  M01S00018.comcfqo +++|*         ENTRY  (X1) = LINE NUMBER (BINARY).
00020  M01S00019.comcfqo +++|*                (X5) = ADDRESS OF IQFT ENTRY.
00021  M01S00020.comcfqo +++|*                (X3) = DISPOSITION FIELD ENTRY.
00022  M01S00021.comcfqo +++|*                (B7) = ADDRESS OF FAMILY/DEVICE WORD.
00023  M01S00022.comcfqo +++|*                       THIS WORD HAS THE FORMAT-
00024  M01S00023.comcfqo +++|*                       42/FAMILY,6/DEVICE,12/.
00025  M01S00024.comcfqo +++|*
00026  M01S00025.comcfqo +++|*         EXIT   (B3) = ADDRESS OF LINE.
00027  M01S00026.comcfqo +++|*                (B2) = NUMBER OF WORDS IN LINE.
00028  M01S00027.comcfqo +++|*
00029  M01S00028.comcfqo +++|*         USES   X - 0, 1, 2, 3, 5, 6.
00030  M01S00029.comcfqo +++|*                A - 1, 2, 3, 6, 7.
00031  M01S00030.comcfqo +++|*                B - 2, 3, 6, 7.
00032  M01S00031.comcfqo +++|*
00033  M01S00032.comcfqo +++|*         CALLS  CDD, COD, SCB, ZTB.
00034  M01S00033.comcfqo +++|*
00035  M01S00034.comcfqo +++|*         MACROS CFORM, EDATE.
00036  M01S00035.comcfqo +++|*
00037  M01S00036.comcfqo +++|*         XREF   COMCCDD, COMCCOD, COMCEDT, COMCSCB, COMCVLC, COMCZTB,
00038  M01S00037.comcfqo +++|*                COMSJIO, COMSMLS, COMSSCD.
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  M01S00038.comcfqo +++|
00068  M01S00039.comcfqo +++|
00069  M01S00040.comcfqo +++| FQO      SUBR               ENTRY/EXIT
00070  M01S00041.comcfqo +++|          SX7    B7          SAVE ADDRESS OF FAMILY/DEVICE NUMBER
00071  M01S00042.comcfqo +++|          BX0    X1          SAVE LINE NUMBER
00072  M01S00043.comcfqo +++|          SA1    FQOA        BLANK FILL BUFFER
00073  M01S00044.comcfqo +++|          SB6    FQOAL-3     SET NUMBER OF WORDS
00074  M01S00045.comcfqo +++|          BX6    X1
00075  M01S00046.comcfqo +++|          SA6    A1+B1
00076  M01S00047.comcfqo +++| FQO1     SA6    A6+B1
00077  M01S00048.comcfqo +++|          SB6    B6-B1
00078  M01S00049.comcfqo +++|          NZ     B6,FQO1     IF NOT END OF BUFFER
00079  M01S00050.comcfqo +++|          BX6    X6-X6       ENSURE END OF LINE
00080  M01S00051.comcfqo +++|          SA6    A6+B1
00081  M01S00052.comcfqo +++|          SA7    FQOB
00082  M01S00053.comcfqo +++|          SB7    FQOA+1      SET ADDRESS OF BUFFER
00083  M01S00054.comcfqo +++|
00084  M01S00055.comcfqo +++|*         SET STATUS OF FILE.
00085  M01S00056.comcfqo +++|
00086  M01S00057.comcfqo +++|          BX6    X3
00087  M01S00058.comcfqo +++|          SB3    TCNF+11
00088  M01S00059.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00089  M01S00060.comcfqo +++|
00090  M01S00061.comcfqo +++|*         SET LINE NUMBER.
00091  M01S00062.comcfqo +++|
00092  M01S00063.comcfqo +++|          BX1    X0          RETRIEVE LINE NUMBER
00093  M01S00064.comcfqo +++|          RJ     CDD
00094  M01S00065.comcfqo +++|          LX6    30
00095  M01S00066.comcfqo +++|          SB3    TCNF
00096  M01S00067.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00097  M01S00068.comcfqo +++|
00098  M01S00069.comcfqo +++|*         SET JSN.
00099  M01S00070.comcfqo +++|
00100  M01S00071.comcfqo +++|          SA1    X5+JSNQ     GET JSN
00101  M01S00072.comcfqo +++|          MX0    24
00102  M01S00073.comcfqo +++|          BX6    X0*X1
00103  M01S00074.comcfqo +++|          SB3    TCNF+1
00104  M01S00075.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00105  M01S00076.comcfqo +++|
00106  M01S00077.comcfqo +++|*         SET SERVICE CLASS.
00107  M01S00078.comcfqo +++|
00108  M01S00079.comcfqo +++|          SA1    X5+SCLQ     GET SERVICE CLASS
00109  M01S00080.comcfqo +++|          LX1    6
00110  M01S00081.comcfqo +++|          MX0    -6
00111  M01S00082.comcfqo +++|          BX2    -X0*X1
00112  M01S00083.comcfqo +++|          SA3    TSCC+X2     ADD SERVICE CLASS TO DISPLAY LINE
00113  M01S00084.comcfqo +++|          BX6    X3
00114  M01S00085.comcfqo +++|          SB3    TCNF+2
00115  M01S00086.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00116  M01S00087.comcfqo +++|
00117  M01S00088.comcfqo +++|*         SET MACHINE ID.
00118  M01S00089.comcfqo +++|
00119  M01S00090.comcfqo +++|          SA1    X5+9
00120  M01S00091.comcfqo +++|          MX0    12
00121  M01S00092.comcfqo +++|          ZR     X1,FQO2     IF BLANK FILL WANTED
00122  M01S00093.comcfqo +++|          LX1    -12
00123  M01S00094.comcfqo +++|          BX6    X0*X1
00124  M01S00095.comcfqo +++|          SB3    TCNF+3
00125  M01S00096.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00126  M01S00097.comcfqo +++|
00127  M01S00098.comcfqo +++|*         SET FAMILY NAME.
00128  M01S00099.comcfqo +++|
00129  M01S00100.comcfqo +++| FQO2     SA1    FQOB        GET FAMILY NAME
00130  M01S00101.comcfqo +++|          SA1    X1
00131  M01S00102.comcfqo +++|          MX0    42
00132  M01S00103.comcfqo +++|          BX1    X0*X1
00133  M01S00104.comcfqo +++|          RJ     ZTB         BLANK FILL FAMILY NAME
00134  M01S00105.comcfqo +++|          SB3    TCNF+4
00135  M01S00106.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00136  M01S00107.comcfqo +++|
00137  M01S00108.comcfqo +++|*         SET DEVICE NUMBER.
00138  M01S00109.comcfqo +++|
00139  M01S00110.comcfqo +++|          SA1    FQOB        GET DEVICE NUMBER
00140  M01S00111.comcfqo +++|          SA2    X1
00141  M01S00112.comcfqo +++|          MX0    -6
00142  M01S00113.comcfqo +++|          LX2    -12
00143  M01S00114.comcfqo +++|          BX1    -X0*X2      DEVICE NUMBER
00144  M01S00115.comcfqo +++|          RJ     COD         CONVERT DEVICE NUMBER
00145  M01S00116.comcfqo +++|          BX6    X4
00146  M01S00117.comcfqo +++|          SB2    B2-6
00147  M01S00118.comcfqo +++|          NZ     B2,FQO3     IF NOT ONE CHARACTER
00148  M01S00119.comcfqo +++|          LX6    -6          ADD LEADING BLANK
00149  M01S00120.comcfqo +++| FQO3     SB3    TCNF+5
00150  M01S00121.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00151  M01S00122.comcfqo +++|
00152  M01S00123.comcfqo +++|*         SET DISPOSITION TYPE.
00153  M01S00124.comcfqo +++|
00154  M01S00125.comcfqo +++|          SA1    X5+JSNQ
00155  M01S00126.comcfqo +++|          LX1    -6
00156  M01S00127.comcfqo +++|          BX1    -X0*X1      DISPOSITION TYPE
00157  M01S00128.comcfqo +++|          SA3    TDCC-1      GET MNEMONIC CHARACTERS
00158  M01S00129.comcfqo +++| FQO4     SA3    A3+B1
00159  M01S00130.comcfqo +++|          ZR     X3,FQO5     IF DISPOSITION TYPE NOT IN TABLE
00160  M01S00131.comcfqo +++|          SX2    X3
00161  M01S00132.comcfqo +++|          IX2    X1-X2
00162  M01S00133.comcfqo +++|          NZ     X2,FQO4     IF NOT MATCH
00163  M01S00134.comcfqo +++|          MX0    12
00164  M01S00135.comcfqo +++|          BX6    X0*X3
00165  M01S00136.comcfqo +++|          SB3    TCNF+6
00166  M01S00137.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00167  M01S00138.comcfqo +++|
00168  M01S00139.comcfqo +++|*         SET FILE DESTINATION.
00169  M01S00140.comcfqo +++|
00170  M01S00141.comcfqo +++| FQO5     SA1    X5+SCLQ
00171  M01S00142.comcfqo +++|          LX1    18
00172  M01S00143.comcfqo +++|          MX0    -6
00173  M01S00144.comcfqo +++|          BX2    -X0*X1
00174  M01S00145.comcfqo +++|          SX6    2RBC
00175  M01S00146.comcfqo +++|          ZR     X2,FQO6     IF FILE ROUTED TO LOCAL BATCH
00176  M01S00147.comcfqo +++|          SX6    2RRB        DISPLAY FILE ROUTED TO REMOTE BATCH
00177  M01S00148.comcfqo +++| FQO6     LX6    -12
00178  M01S00149.comcfqo +++|          SB3    TCNF+7
00179  M01S00150.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00180  M01S00151.comcfqo +++|
00181  M01S00152.comcfqo +++|*         SET CREATION DATE.
00182  M01S00153.comcfqo +++|
00183  M01S00154.comcfqo +++|          SA1    X5+9
00184  M01S00155.comcfqo +++|          ZR     X1,FQO7     IF BLANK FILL WANTED
00185  M01S00156.comcfqo +++|          SA2    X5+8        GET DATE
00186  M01S00157.comcfqo +++|          MX0    -18
00187  M01S00158.comcfqo +++|          AX2    18          CLEAR TIME
00188  M01S00159.comcfqo +++|          BX1    -X0*X2      DATE
00189  M01S00160.comcfqo +++|          EDATE  X1
00190  M01S00161.comcfqo +++|          LX6    6
00191  M01S00162.comcfqo +++|          MX0    48          INSERT TWO SPACES INTO LINE
00192  M01S00163.comcfqo +++|          SX1    2R
00193  M01S00164.comcfqo +++|          BX6    X0*X6
00194  M01S00165.comcfqo +++|          BX6    X6+X1
00195  M01S00166.comcfqo +++|          SB3    TCNF+8
00196  M01S00167.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00197  M01S00168.comcfqo +++|
00198  M01S00169.comcfqo +++|*         SET FILE LENGTH.
00199  M01S00170.comcfqo +++|
00200  M01S00171.comcfqo +++|          SA1    X5+8        GET LENGTH
00201  M01S00172.comcfqo +++|          AX1    36
00202  M01S00173.comcfqo +++|          RJ     COD
00203  M01S00174.comcfqo +++|          LX6    12
00204  M01S00175.comcfqo +++|          SB3    TCNF+9
00205  M01S00176.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00206  M01S00177.comcfqo +++|
00207  M01S00178.comcfqo +++|*         SET ACCESS LEVEL.
00208  M01S00179.comcfqo +++|
00209  M01S00180.comcfqo +++| FQO7     SA2    SECA
00210  M01S00181.comcfqo +++|          MX0    -3
00211  M01S00182.comcfqo +++|          LX2    12
00212  M01S00183.comcfqo +++|          BX2    -X0*X2
00213  M01S00184.comcfqo +++|          ZR     X2,FQO8     IF UNSECURE SYSTEM
00214  M01S00185.comcfqo +++|          SA1    X5+INSQ     GET ACCESS LEVEL
00215  M01S00186.comcfqo +++|          LX1    -15
00216  M01S00187.comcfqo +++|          BX2    -X0*X1
00217  M01S00188.comcfqo +++|          SA1    TALV+X2     GET ACCESS LEVEL NAME
00218  M01S00189.comcfqo +++|          MX0    42
00219  M01S00190.comcfqo +++|          BX1    X0*X1
00220  M01S00191.comcfqo +++|          RJ     ZTB         BLANK FILL ACCESS LEVEL NAME
00221  M01S00192.comcfqo +++|          SB3    TCNF+10
00222  M01S00193.comcfqo +++|          RJ     SCB         SET INTO BUFFER
00223  M01S00194.comcfqo +++| FQO8     SB2    FQOAL       SET NUMBER OF WORDS IN LINE
00224  M01S00195.comcfqo +++|          SB3    FQOA        SET ADDRESS OF LINE
00225  M01S00196.comcfqo +++|          EQ     FQOX        RETURN
00226  M01S00197.comcfqo +++|
00227  M01S00198.comcfqo +++|
00228  M01S00199.comcfqo +++| FQOA     DATA   H* *
00229  M01S00200.comcfqo +++|          DATA   C*  XXX.  JSNS  MI FAMILY  DN DT DS YY/MM/DD. XXXXXXXX
00230  M01S00201.comcfqo +++|,LEVEL    DISP FIELD  *
00231  M01S00202.comcfqo +++| FQOAL    EQU    *-FQOA
00232  M01S00203.comcfqo +++|
00233  M01S00204.comcfqo +++| FQOB     BSS    1           ADDRESS OF FAMILY/DEVICE NUMBER
00234  M01S00205.comcfqo +++| TCNF     SPACE  4,10
00235  M01S00206.comcfqo +++|*         TCNF - TABLE OF COLUMN NUMBERS FOR FORMATTING.
00236  M01S00207.comcfqo +++|
00237  M01S00208.comcfqo +++|
00238  M01S00209.comcfqo +++| TCNF     BSS    0
00239  M01S00210.comcfqo +++|          CFORM  1,5         NUMBER
00240  M01S00211.comcfqo +++|          CFORM  7,4         JSN
00241  M01S00212.comcfqo +++|          CFORM  11,1        SERVICE CLASS
00242  M01S00213.comcfqo +++|          CFORM  14,2        MACHINE ID
00243  M01S00214.comcfqo +++|          CFORM  17,7        FAMILY
00244  M01S00215.comcfqo +++|          CFORM  25,2        DEVICE NUMBER
00245  M01S00216.comcfqo +++|          CFORM  28,2        DISPOSITION TYPE
00246  M01S00217.comcfqo +++|          CFORM  31,2        FILE DESTINATION
00247  M01S00218.comcfqo +++|          CFORM  34,9        CREATION DATE
00248  M01S00219.comcfqo +++|          CFORM  44,8        FILE LENGTH
00249  M01S00220.comcfqo +++|          CFORM  53,7        ACCESS LEVEL
00250  M01S00221.comcfqo +++|          CFORM  62,8        STATUS OF FILE
00251  M01S00222.comcfqo +++| TSCC     SPACE  4,10
00252  M01S00223.comcfqo +++|*         TSCC - TABLE OF SERVICE CLASS MNEMONIC CHARACTERS.
00253  M01S00224.comcfqo +++|
00254  M01S00225.comcfqo +++|
00255  M01S00226.comcfqo +++| TSCC     BSS    0
00256  M01S00227.comcfqo +++|          LOC    0
00257  M01S00228.comcfqo +++|          VFD    60/0        NOT USED

Line S00229 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00229.cfqo2   ---| SYSC     VFD    6/1RS,54/0

Line S00230 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00230.cfqo2   ---| BCSC     VFD    6/1RB,54/0

Line S00231 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00231.cfqo2   ---| RBSC     VFD    6/1RR,54/0

Line S00232 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00232.cfqo2   ---| TSSC     VFD    6/1RT,54/0

Line S00233 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00233.cfqo2   ---| DISC     VFD    6/1RD,54/0

Line S00234 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00234.cfqo2   ---| NSSC     VFD    6/1RN,54/0

Line S00235 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00235.cfqo2   ---| SSSC     VFD    6/1RX,54/0

Line S00236 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00236.cfqo2   ---| MASC     VFD    6/1RM,54/0

Line S00237 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00237.cfqo2   ---| CTSC     VFD    6/1RC,54/0

Line S00238 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00238.cfqo2   ---| I0SC     VFD    6/1R0,54/0

Line S00239 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00239.cfqo2   ---| I1SC     VFD    6/1R1,54/0

Line S00240 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00240.cfqo2   ---| I2SC     VFD    6/1R2,54/0

Line S00241 Modification History
`M01` (Added by)	`comcfqo`
`M02` (Updated by)	`cfqo2`

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00241.cfqo2   ---| I3SC     VFD    6/1R3,54/0
00271  M01S00029.cfqo2   +++|          LIST   D
00272  M01S00030.cfqo2   +++| .SCLFQO  HERE
00273  M01S00031.cfqo2   +++|          LIST   *
00274  M01S00242.comcfqo +++|          LOC    *O
00275  M01S00243.comcfqo +++| TDCC     SPACE  4,10
00276  M01S00244.comcfqo +++|*         TDCC - TABLE OF DISPOSITION CODE MNEMONIC CHARACTERS.
00277  M01S00245.comcfqo +++|
00278  M01S00246.comcfqo +++| TDCC     BSS    0
00279  M01S00247.comcfqo +++|          VFD    12/2LIN,36/0,12/INQF
00280  M01S00248.comcfqo +++|          VFD    12/2LIN,36/0,12/NOQF
00281  M01S00249.comcfqo +++|          VFD    12/2LIN,36/0,12/TOQF
00282  M01S00250.comcfqo +++|          VFD    12/2LPH,36/0,12/PUQF
00283  M01S00251.comcfqo +++|          VFD    12/2LPL,36/0,12/PLQF
00284  M01S00252.comcfqo +++|          VFD    12/2LPR,36/0,12/LPQF
00285  M01S00253.comcfqo +++|          VFD    12/2LP2,36/0,12/P2QF
00286  M01S00254.comcfqo +++|          VFD    12/2LLR,36/0,12/LRQF
00287  M01S00255.comcfqo +++|          VFD    12/2LLS,36/0,12/LSQF
00288  M01S00256.comcfqo +++|          VFD    12/2LLT,36/0,12/LTQF
00289  M01S00257.comcfqo +++|          VFD    12/2LLX,36/0,12/LXQF
00290  M01S00258.comcfqo +++|          VFD    12/2LLY,36/0,12/LYQF
00291  M01S00259.comcfqo +++|          VFD    12/2LER,36/0,12/ERQF
00292  M01S00260.comcfqo +++|          VFD    12/2LTQ,36/0,12/TQQF
00293  M01S00261.comcfqo +++|          VFD    12/2LSF,36/0,12/S1QF
00294  M01S00262.comcfqo +++|          VFD    12/2LSF,36/0,12/S2QF
00295  M01S00263.comcfqo +++|          VFD    12/2LSF,36/0,12/S3QF
00296  M01S00264.comcfqo +++|          VFD    60/0
00297  M01S00265.comcfqo +++|          SPACE  4
00298  M01S00266.comcfqo +++|          BASE   *
00299  M01S00267.comcfqo +++| QUAL$    IF     -DEF,QUAL$,1
00300  M01S00268.comcfqo +++|          QUAL   *
00301  M01S00269.comcfqo +++| FQO      EQU    /COMCFQO/FQO
00302  M01S00270.comcfqo +++| FQOA     EQU    /COMCFQO/FQOA
00303  M01S00271.comcfqo +++| FQOAL    EQU    /COMCFQO/FQOAL
00304  M01S00272.comcfqo +++| QUAL$    ENDIF
00305  M01S00273.comcfqo +++|          ENDX