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