Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comcvqf +++| CTEXT COMCVQF - VALIDATE QUEUED FILES.
00002 M00S00002.comcvqf +++| SPACE 4,10
00003 M00S00003.comcvqf +++| IF -DEF,QUAL$
00004 M00S00004.comcvqf +++| QUAL COMCVQF
00005 M00S00005.comcvqf +++| ENDIF
00006 M00S00006.comcvqf +++| BASE D
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.comcvqf +++| VQF SPACE 4,10
00010 M00S00009.comcvqf +++|*** VQF - VALIDATE QUEUED FILES.
00011 M00S00010.comcvqf +++|*
00012 M00S00011.comcvqf +++|* G. A. KERSTEN 81/10/08.
00013 M00S00012.comcvqf +++| SPACE 4,10
00014 M00S00013.comcvqf +++|*** *COMCVQF* CONTAINS ROUTINES THAT COMPARE AN IQFT ENTRY
00015 M00S00014.comcvqf +++|* OR A QFT ENTRY AGAINST THE PARAMETER BLOCK DEFINED IN
00016 M00S00015.comcvqf +++|* *COMSQFS* FOR THE QUEUE PROCESSING UTILITIES.
00017 M00S00016.comcvqf +++| SPACE 4,10
00018 M00S00017.comcvqf +++|*** DAYFILE MESSAGES.
00019 M00S00018.comcvqf +++|*
00020 M00S00019.comcvqf +++|* * FOT FULL - FILES IGNORED.* - SOME OF THE QUEUED FILES
00021 M00S00020.comcvqf +++|* WERE NOT PROCESSED BECAUSE THERE WAS NO FOT ENTRY FOR THE
00022 M00S00021.comcvqf +++|* CREATION AND/OR THE DESTINATION FAMILY AND THE FOT WAS
00023 M00S00022.comcvqf +++|* FULL.
00024 M00S00023.comcvqf +++|*
00025 M00S00024.comcvqf +++|* * LID NOT ADDED - FILES IGNORED.* - SOME QUEUED FILES WERE
00026 M00S00025.comcvqf +++|* NOT PROCESSED BECAUSE THERE WAS NO ENTRY IN THE LID TABLE
00027 M00S00026.comcvqf +++|* FOR THE SPECIFIED LID AND ALL LID SLOTS FOR THE HOST PID
00028 M00S00027.comcvqf +++|* WERE OCCUPIED BY OTHER LIDS.
00029 M00S00028.comcvqf +++| CAF SPACE 4,15
00030 M00S00029.comcvqf +++|** CAF - CHECK ACCESS LEVEL OF QUEUED FILE.
00031 M00S00030.comcvqf +++|*
00032 M00S00031.comcvqf +++|* ENTRY (X1) = UPPER ACCESS LEVEL LIMIT.
00033 M00S00032.comcvqf +++|* (X2) = LOWER ACCESS LEVEL LIMIT.
00034 M00S00033.comcvqf +++|* (X2) .LT. 0, IF NO ACCESS LEVELS WERE SELECTED.
00035 M00S00034.comcvqf +++|* (A3) = ADDRESS OF *INSQ* WORD OF QFT ENTRY FOR FILE.
00036 M00S00035.comcvqf +++|* (X3) = *INSQ* WORD.
00037 M00S00036.comcvqf +++|* (B2) = 0, IF ORIGIN TYPE ACCESS LEVEL OF FILE IS
00038 M00S00037.comcvqf +++|* NOT TO BE VALIDATED.
00039 M00S00038.comcvqf +++|*
00040 M00S00039.comcvqf +++|* EXIT (X1) = 0, IF FILE SELECTED.
00041 M00S00040.comcvqf +++|*
00042 M00S00041.comcvqf +++|* USES X - 0, 1, 3, 4, 6, 7.
00043 M00S00042.comcvqf +++|* A - 1, 3.
00044 M00S00043.comcvqf +++|* B - 2.
00045 M00S00044.comcvqf +++|
00046 M00S00045.comcvqf +++|
00047 M00S00046.comcvqf +++| CAF3 SX1 B1+ SET FILE NOT SELECTED
00048 M00S00047.comcvqf +++|
00049 M00S00048.comcvqf +++| CAF SUBR ENTRY/EXIT
00050 M00S00049.comcvqf +++| AX3 15 GET FILE ACCESS LEVEL
00051 M00S00050.comcvqf +++| MX0 -3
00052 M00S00051.comcvqf +++| BX4 -X0*X3
00053 M00S00052.comcvqf +++|
00054 M00S00053.comcvqf +++|* CHECK ORIGIN TYPE ACCESS LIMITS.
00055 M00S00054.comcvqf +++|
00056 M00S00055.comcvqf +++| ERRNZ SCLQ-INSQ-1 VALUES MUST BE CONTIGUOUS
00057 M00S00056.comcvqf +++| SA3 A3+B1 GET ORIGIN TYPE
00058 M00S00057.comcvqf +++| MX0 -6
00059 M00S00058.comcvqf +++| LX3 12
00060 M00S00059.comcvqf +++| BX7 -X0*X3
00061 M00S00060.comcvqf +++| MX0 -3
00062 M00S00061.comcvqf +++| SA3 SECA GET ACCESS LIMITS
00063 M00S00062.comcvqf +++| LX3 12
00064 M00S00063.comcvqf +++| BX6 -X0*X3
00065 M00S00064.comcvqf +++| ZR X6,CAF1 IF UNSECURE SYSTEM
00066 M00S00065.comcvqf +++| ZR B2,CAF1 IF ORIGIN TYPE LIMITS NOT TO BE CHECKED
00067 M00S00066.comcvqf +++| SX6 12
00068 M00S00067.comcvqf +++| IX6 X7*X6
00069 M00S00068.comcvqf +++| SB2 X6+12
00070 M00S00069.comcvqf +++| LX3 B2 GET LIMITS FOR ORIGIN TYPE OF FILE
00071 M00S00070.comcvqf +++| BX6 -X0*X3 GET UPPER ACCESS LIMIT
00072 M00S00071.comcvqf +++| LX3 -6
00073 M00S00072.comcvqf +++| BX7 -X0*X3 GET LOWER ACCESS LIMIT
00074 M00S00073.comcvqf +++| IX3 X4-X7
00075 M00S00074.comcvqf +++| IX7 X6-X4
00076 M00S00075.comcvqf +++| NG X7,CAF3 IF ACCESS LEVEL TOO HIGH
00077 M00S00076.comcvqf +++| NG X3,CAF3 IF ACCESS LEVEL TOO LOW
00078 M00S00077.comcvqf +++| CAF1 NG X2,CAF2 IF NO FURTHER CHECK TO BE MADE
00079 M00S00078.comcvqf +++|
00080 M00S00079.comcvqf +++|* CHECK DEVICE LIMITS OR LIMITS FROM ARGUMENT TABLE.
00081 M00S00080.comcvqf +++|
00082 M00S00081.comcvqf +++| IX7 X4-X2
00083 M00S00082.comcvqf +++| IX6 X1-X4
00084 M00S00083.comcvqf +++| NG X7,CAF3 IF ACCESS LEVEL TOO LOW
00085 M00S00084.comcvqf +++| NG X6,CAF3 IF ACCESS LEVEL TOO HIGH
00086 M00S00085.comcvqf +++| CAF2 BX1 X1-X1 SET FILE SELECTED
00087 M00S00086.comcvqf +++| EQ CAFX RETURN
00088 M00S00087.comcvqf +++| CFE SPACE 4,20
00089 M00S00088.comcvqf +++|** CFE - CHECK FOR FOT ENTRY.
00090 M00S00089.comcvqf +++|*
00091 M00S00090.comcvqf +++|* ENTRY (X1) = FAMILY NAME.
00092 M00S00091.comcvqf +++|*
00093 M00S00092.comcvqf +++|* EXIT (X3) .EQ. FOT ORDINAL, IF FOT ENTRY CREATED/EXISTS.
00094 M00S00093.comcvqf +++|* .EQ. 0, IF ERROR.
00095 M00S00094.comcvqf +++|*
00096 M00S00095.comcvqf +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
00097 M00S00096.comcvqf +++|* A - 1, 2, 4, 6, 7.
00098 M00S00097.comcvqf +++|*
00099 M00S00098.comcvqf +++|* MACROS MESSAGE, QCALL.
00100 M00S00099.comcvqf +++|*
00101 M00S00100.comcvqf +++|* XREF COMCQFM, COMSIOQ, COMSQFS.
00102 M00S00101.comcvqf +++|
00103 M00S00102.comcvqf +++|
00104 M00S00103.comcvqf +++| CFE2 MX6 1 SET FOT FULL FLAG
00105 M00S00104.comcvqf +++| SA6 FOTF
00106 M00S00105.comcvqf +++| MESSAGE CFEA
00107 M00S00106.comcvqf +++| CFE3 BX3 X3-X3 SET ERROR EXIT
00108 M00S00107.comcvqf +++|
00109 M00S00108.comcvqf +++| CFE SUBR ENTRY/EXIT
00110 M00S00109.comcvqf +++| SX3 B1 INITIALIZE FOT ORDINAL
00111 M00S00110.comcvqf +++| MX0 42
00112 M00S00111.comcvqf +++| SA2 FOTA SEARCH THE *FOTT* FOR FAMILY
00113 M00S00112.comcvqf +++| CFE1 BX4 X2-X1
00114 M00S00113.comcvqf +++| BX4 X0*X4
00115 M00S00114.comcvqf +++| ZR X4,CFEX IF FOT ENTRY EXISTS
00116 M00S00115.comcvqf +++| SA2 A2+B1
00117 M00S00116.comcvqf +++| SX3 X3+B1
00118 M00S00117.comcvqf +++| NZ X2,CFE1 IF NOT END OF TABLE
00119 M00S00118.comcvqf +++| SA2 TARA+ARFC CHECK FAMILY OPTION
00120 M00S00119.comcvqf +++| BX6 X2
00121 M00S00120.comcvqf +++| LX2 59-56
00122 M00S00121.comcvqf +++| LX6 59-52 CHECK UNCONDITIONAL PROCESSING
00123 M00S00122.comcvqf +++| BX2 X6+X2
00124 M00S00123.comcvqf +++| PL X2,CFE3 IF OPTION NOT SELECTED
00125 M00S00124.comcvqf +++| SA2 FOTF
00126 M00S00125.comcvqf +++| NZ X2,CFE3 IF FOT FULL
00127 M00S00126.comcvqf +++| BX6 X0*X1 ADD FAMILY NAME
00128 M00S00127.comcvqf +++| SA6 CFEB+6
00129 M00S00128.comcvqf +++| SX0 36000B CLEAR ERROR FLAGS
00130 M00S00129.comcvqf +++| SA4 CFEB
00131 M00S00130.comcvqf +++| BX7 -X0*X4
00132 M00S00131.comcvqf +++| SA7 A4
00133 M00S00132.comcvqf +++| QCALL CFEF,CFEB
00134 M00S00133.comcvqf +++| SA4 CFEB GET ERROR STATUS
00135 M00S00134.comcvqf +++| BX4 X0*X4
00136 M00S00135.comcvqf +++| NZ X4,CFE2 IF ERROR
00137 M00S00136.comcvqf +++| SA2 CFEB+6 GET THE FOT ORDINAL
00138 M00S00137.comcvqf +++| MX0 -18
00139 M00S00138.comcvqf +++| BX3 -X0*X2
00140 M00S00139.comcvqf +++| SX1 FOTL
00141 M00S00140.comcvqf +++| IX1 X1-X3
00142 M00S00141.comcvqf +++| NG X1,CFEX IF *FOTT* FULL
00143 M00S00142.comcvqf +++| BX6 X0*X2 ADD ENTRY TO *FOTT*
00144 M00S00143.comcvqf +++| SA6 X3+FOTA-1
00145 M00S00144.comcvqf +++| EQ CFEX RETURN
00146 M00S00145.comcvqf +++|
00147 M00S00146.comcvqf +++|
00148 M00S00147.comcvqf +++| CFEA DATA C* FOT FULL - FILES IGNORED.*
00149 M00S00148.comcvqf +++| CFEB FILEB CFEC,1,EPR,(FET=7)
00150 M00S00149.comcvqf +++| CFEC BSS 1
00151 M00S00150.comcvqf +++|
00152 M00S00151.comcvqf +++| FOTF CON 0 FOT FULL FLAG
00153 M00S00152.comcvqf +++| CLD SPACE 4,15
00154 M00S00153.comcvqf +++|** CLD - CHECK LOGICAL IDENTIFIER.
00155 M00S00154.comcvqf +++|*
00156 M00S00155.comcvqf +++|* ENTRY (X3) = (I)QFT ENTRY, WORD TWO.
00157 M00S00156.comcvqf +++|* (X4) = 0, IF NO NEED TO CHECK FOR LID IN TABLE.
00158 M00S00157.comcvqf +++|*
00159 M00S00158.comcvqf +++|* EXIT (X3) = O, IF FILE SELECTED.
00160 M00S00159.comcvqf +++|* NONZERO, IF FILE NOT SELECTED.
00161 M00S00160.comcvqf +++|*
00162 M00S00161.comcvqf +++|* USES X - 2, 3, 6.
00163 M00S00162.comcvqf +++|* A - 2, 6.
00164 M00S00163.comcvqf +++|*
00165 M00S00164.comcvqf +++|* MACROS GETLIDA, MACHID, SETPIDA.
00166 M00S00165.comcvqf +++|*
00167 M00S00166.comcvqf +++|* XREF COMCCMD, COMCSFM, COMSSFM.
00168 M00S00167.comcvqf +++|
00169 M00S00168.comcvqf +++|
00170 M00S00169.comcvqf +++| CLD3 SX3 B0+ INDICATE FILE SELECTED
00171 M00S00170.comcvqf +++|
00172 M00S00171.comcvqf +++| CLD SUBR ENTRY/EXIT
00173 M00S00172.comcvqf +++| SA2 TARA+ARFC
00174 M00S00173.comcvqf +++| LX2 59-52
00175 M00S00174.comcvqf +++| NG X2,CLD3 IF UNCONDITIONAL FILE PROCESSING
00176 M00S00175.comcvqf +++| LX3 12 MASK LID OUT OF (I)QFT ENTRY
00177 M00S00176.comcvqf +++| MX6 18
00178 M00S00177.comcvqf +++| BX6 X6*X3
00179 M00S00178.comcvqf +++| BX3 X3-X3 SET FILE SELECTED
00180 M00S00179.comcvqf +++| SA2 TARA+AROL CHECK IF LID WAS SPECIFIED
00181 M00S00180.comcvqf +++| NZ X2,CLD1 IF LID WAS SPECIFIED
00182 M00S00181.comcvqf +++| ZR X6,CLDX IF ZERO LID
00183 M00S00182.comcvqf +++| EQ CLD2 CHECK FOR LID IN TABLE
00184 M00S00183.comcvqf +++|
00185 M00S00184.comcvqf +++| CLD1 SX3 1R0 CHECK FOR *LD* = *0*
00186 M00S00185.comcvqf +++| LX3 -6
00187 M00S00186.comcvqf +++| BX3 X2-X3
00188 M00S00187.comcvqf +++| BX3 X6+X3
00189 M00S00188.comcvqf +++| ZR X3,CLDX IF *LD* = *0* .AND. ZERO LID
00190 M00S00189.comcvqf +++| BX3 X6-X2 CHECK FOR MATCH
00191 M00S00190.comcvqf +++| NZ X3,CLDX IF NO MATCH
00192 M00S00191.comcvqf +++| CLD2 ZR X4,CLDX IF NO NEED TO CHECK FOR LID IN TABLE
00193 M00S00192.comcvqf +++| SX3 B1 SET COMPLETE BIT
00194 M00S00193.comcvqf +++| BX6 X6+X3
00195 M00S00194.comcvqf +++| SA6 CLDA CHECK FOR LID IN TABLE
00196 M00S00195.comcvqf +++| GETLIDA CLDA
00197 M00S00196.comcvqf +++| SA2 CLDA
00198 M00S00197.comcvqf +++| LX2 18
00199 M00S00198.comcvqf +++| SX3 B0 SET FILE SELECTED
00200 M00S00199.comcvqf +++| MX6 12
00201 M00S00200.comcvqf +++| BX6 X6*X2
00202 M00S00201.comcvqf +++| NZ X6,CLDX IF LID IS IN TABLE
00203 M00S00202.comcvqf +++| SA2 TARA+ARFC CHECK LID TABLE OPTION
00204 M00S00203.comcvqf +++| SX3 B1 SET FILE NOT SELECTED
00205 M00S00204.comcvqf +++| LX2 59-54
00206 M00S00205.comcvqf +++| PL X2,CLDX IF LID TABLE OPTION NOT SELECTED
00207 M00S00206.comcvqf +++| SA2 LTFL CHECK IF LID TABLE IS FULL
00208 M00S00207.comcvqf +++| NZ X2,CLDX IF TABLE IS ALREADY FULL
00209 M00S00208.comcvqf +++| MACHID CLDC GET HOST MACHINE ID
00210 M00S00209.comcvqf +++|
00211 M00S00210.comcvqf +++|* ATTEMPT TO ADD THE LID WITH A *NOLIST* ATTRIBUTE TO THE
00212 M00S00211.comcvqf +++|* HOST PID.
00213 M00S00212.comcvqf +++|
00214 M00S00213.comcvqf +++| SA2 CLDA GET LID
00215 M00S00214.comcvqf +++| MX6 18
00216 M00S00215.comcvqf +++| BX6 X6*X2
00217 M00S00216.comcvqf +++| SA2 CLDC CREATE HOST PID
00218 M00S00217.comcvqf +++| SX3 1RM
00219 M00S00218.comcvqf +++| LX3 12
00220 M00S00219.comcvqf +++| BX3 X2+X3
00221 M00S00220.comcvqf +++| BX6 X6+X3 MERGE LID WITH HOST PID
00222 M00S00221.comcvqf +++| LX6 30
00223 M00S00222.comcvqf +++| SX3 200B *NOLIST* ATTRIBUTE
00224 M00S00223.comcvqf +++| BX6 X3+X6 MERGE ATTRIBUTE WITH PID AND LID
00225 M00S00224.comcvqf +++| LX6 12
00226 M00S00225.comcvqf +++| SA6 CLDE SAVE ENTRY IN PARAMETER BLOCK
00227 M00S00226.comcvqf +++| SETPIDA CLDD ADD LID TO LID TABLE
00228 M00S00227.comcvqf +++| SA2 CLDD CHECK IF LID WAS ADDED TO TABLE
00229 M00S00228.comcvqf +++| LX2 42
00230 M00S00229.comcvqf +++| MX6 8
00231 M00S00230.comcvqf +++| BX3 X6*X2
00232 M00S00231.comcvqf +++| ZR X3,CLDX IF LID WAS ADDED SUCESSFULLY
00233 M00S00232.comcvqf +++| SA6 LTFL SET * LID TABLE FULL *
00234 M00S00233.comcvqf +++| MESSAGE CLDB * LID NOT ADDED - FILES IGNORED.*
00235 M00S00234.comcvqf +++| EQ CLDX RETURN
00236 M00S00235.comcvqf +++|
00237 M00S00236.comcvqf +++| CLDA CON 0
00238 M00S00237.comcvqf +++| CLDB DATA C* LID NOT ADDED - FILES IGNORED.*
00239 M00S00238.comcvqf +++| CLDC CON 0 HOST MACHINE ID
00240 M00S00239.comcvqf +++| CLDD VFD 12/ALDF,12/1,36/1 *SETPIDA* PARAMETER BLOCK
00241 M00S00240.comcvqf +++| CLDE CON 0
00242 M00S00241.comcvqf +++| LTFL CON 0 LID TABLE FULL FLAG
00243 M00S00242.comcvqf +++| VIE SPACE 4,20
00244 M00S00243.comcvqf +++|** VIE - VALIDATE IQFT ENTRY.
00245 M00S00244.comcvqf +++|*
00246 M00S00245.comcvqf +++|* ENTRY (IQFE - IQFE+15) = IQFT ENTRY.
00247 M00S00246.comcvqf +++|* (TACF) = TABLE OF ACTIVE FAMILIES, IF ACTIVATE
00248 M00S00247.comcvqf +++|* REQUEST.
00249 M00S00248.comcvqf +++|* (X6) .NE. 0, IF ACTIVATE REQUEST.
00250 M00S00249.comcvqf +++|* (B1) = 1.
00251 M00S00250.comcvqf +++|*
00252 M00S00251.comcvqf +++|* EXIT (X1) .EQ. 0, IF ENTRY MATCHES PARAMETERS.
00253 M00S00252.comcvqf +++|* .EQ. 1, IF NOT MATCH.
00254 M00S00253.comcvqf +++|* .LT. 0, IF FOT ENTRY NOT FOUND AND
00255 M00S00254.comcvqf +++|* FAMILY OPTION NOT SELECTED.
00256 M00S00255.comcvqf +++|* THE CREATION AND DESTINATION FAMILY ORDINALS ARE
00257 M00S00256.comcvqf +++|* UPDATED IN THE IQFT ENTRY.
00258 M00S00257.comcvqf +++|*
00259 M00S00258.comcvqf +++|* USES X - 0, 1, 2, 3, 4, 6.
00260 M00S00259.comcvqf +++|* A - 1, 2, 3, 4, 6.
00261 M00S00260.comcvqf +++|*
00262 M00S00261.comcvqf +++|* CALLS CFE, VQI.
00263 M00S00262.comcvqf +++|*
00264 M00S00263.comcvqf +++|* XREF COMSJIO, COMSQFS.
00265 M00S00264.comcvqf +++|
00266 M00S00265.comcvqf +++|
00267 M00S00266.comcvqf +++| VIE12 SX1 B1+ SET ERROR EXIT
00268 M00S00267.comcvqf +++|
00269 M00S00268.comcvqf +++| VIE SUBR ENTRY/EXIT
00270 M00S00269.comcvqf +++| SA6 VIEA SAVE FLAG
00271 M00S00270.comcvqf +++| SX1 IQFE
00272 M00S00271.comcvqf +++| RJ VQI VALIDATE QFT INFORMATION
00273 M00S00272.comcvqf +++| NZ X1,VIEX IF NO MATCH
00274 M00S00273.comcvqf +++|
00275 M00S00274.comcvqf +++|* CHECK RECOVERY DATES.
00276 M00S00275.comcvqf +++|
00277 M00S00276.comcvqf +++| SA2 TARA+ARFC CHECK UNCONDITIONAL PROCESSING
00278 M00S00277.comcvqf +++| LX2 59-52
00279 M00S00278.comcvqf +++| NG X2,VIE8 IF UNCONDITIONAL PROCESSING
00280 M00S00279.comcvqf +++| SA3 IQFE+8 PACKED DATE/TIME
00281 M00S00280.comcvqf +++| MX0 -18
00282 M00S00281.comcvqf +++| SA4 TARA+ARDA
00283 M00S00282.comcvqf +++| AX3 18 CLEAR TIME
00284 M00S00283.comcvqf +++| ZR X4,VIE1 IF NO DATE SPECIFIED
00285 M00S00284.comcvqf +++| BX2 -X0*X3
00286 M00S00285.comcvqf +++| IX1 X2-X4
00287 M00S00286.comcvqf +++| NG X1,VIE12 IF DATE .LT. LOWER BOUND
00288 M00S00287.comcvqf +++| SA4 A4+B1
00289 M00S00288.comcvqf +++| IX1 X4-X2
00290 M00S00289.comcvqf +++| NG X1,VIE12 IF DATE .GT. UPPER BOUND
00291 M00S00290.comcvqf +++|
00292 M00S00291.comcvqf +++|* CHECK FILE SIZE.
00293 M00S00292.comcvqf +++|
00294 M00S00293.comcvqf +++| VIE1 AX3 18 GET FILE SIZE
00295 M00S00294.comcvqf +++| SA4 TARA+ARFS
00296 M00S00295.comcvqf +++| IX1 X3-X4
00297 M00S00296.comcvqf +++| NG X1,VIE12 IF SIZE .LT. LOWER BOUND
00298 M00S00297.comcvqf +++| MX0 42 CHECK IF INFINITY
00299 M00S00298.comcvqf +++| SA4 A4+B1
00300 M00S00299.comcvqf +++| BX2 X4+X0
00301 M00S00300.comcvqf +++| ZR X2,VIE2 IF NO UPPER BOUND
00302 M00S00301.comcvqf +++| IX1 X4-X3
00303 M00S00302.comcvqf +++| NG X1,VIE12 IF SIZE .GT. UPPER BOUND
00304 M00S00303.comcvqf +++|
00305 M00S00304.comcvqf +++|* CHECK MACHINE ID.
00306 M00S00305.comcvqf +++|
00307 M00S00306.comcvqf +++| VIE2 SA3 A3+1
00308 M00S00307.comcvqf +++| SA1 TARA+ARMI MACHINE ID
00309 M00S00308.comcvqf +++| ZR X1,VIE3 IF NO MACHINE ID
00310 M00S00309.comcvqf +++| LX1 12
00311 M00S00310.comcvqf +++| MX0 -12
00312 M00S00311.comcvqf +++| BX4 X1-X3
00313 M00S00312.comcvqf +++| BX1 -X0*X4
00314 M00S00313.comcvqf +++| NZ X1,VIE12 IF NO MATCH
00315 M00S00314.comcvqf +++|
00316 M00S00315.comcvqf +++|* CHECK CREATION FAMILY NAME.
00317 M00S00316.comcvqf +++|
00318 M00S00317.comcvqf +++| VIE3 SA2 TARA+ARFU CHECK CREATION FAMILY
00319 M00S00318.comcvqf +++| ZR X2,VIE4 IF ALL FAMILIES
00320 M00S00319.comcvqf +++| BX6 X2-X3
00321 M00S00320.comcvqf +++| MX0 42
00322 M00S00321.comcvqf +++| BX6 X0*X6
00323 M00S00322.comcvqf +++| NZ X6,VIE12 IF NO MATCH ON CREATION FAMILY
00324 M00S00323.comcvqf +++| VIE4 SA1 A3+1 CHECK DESTINATION FAMILY
00325 M00S00324.comcvqf +++| MX0 42
00326 M00S00325.comcvqf +++| BX1 X0*X1
| Line S00326 Modification History |
M01 (Removed by) | cvqf7a |
Seq # *Modification Id* Act
----------------------------+
00327 M01S00326.cvqf7a ---| MX0 6
| Line S00001 Modification History |
M01 (Added by) | cvqf7a |
Seq # *Modification Id* Act
----------------------------+
00328 M01S00001.cvqf7a +++| MX0 -6
00329 M00S00327.comcvqf +++| SA4 IQFE+3 CHECK FAMILY ORDINAL IN QFT ENTRY
| Line S00328 Modification History |
M01 (Removed by) | cvqf7a |
Seq # *Modification Id* Act
----------------------------+
00330 M01S00328.cvqf7a ---| LX4 12
00331 M01S00329.cvqf7a ---| BX4 X0*X4
| Line S00002 Modification History |
M01 (Added by) | cvqf7a |
Seq # *Modification Id* Act
----------------------------+
00332 M01S00002.cvqf7a +++| LX4 18
00333 M01S00003.cvqf7a +++| BX4 -X0*X4
00334 M00S00330.comcvqf +++| BX1 X1+X4
00335 M00S00331.comcvqf +++| SA2 TARA+ARTF
00336 M00S00332.comcvqf +++| BX1 X1+X2
00337 M00S00333.comcvqf +++| SA3 TARA+ARID
00338 M00S00334.comcvqf +++| ZR X1,VIE5 IF CHECKING BATCH ID
00339 M00S00335.comcvqf +++| ZR X2,VIE6 IF ALL FAMILIES
00340 M00S00336.comcvqf +++| SA3 TARA+ARTI
00341 M00S00337.comcvqf +++| VIE5 SA4 IQFE+3 CHECK DESTINATION UI OR BATCH ID
00342 M00S00338.comcvqf +++| LX4 -24
00343 M00S00339.comcvqf +++| MX0 -18
00344 M00S00340.comcvqf +++| BX4 -X0*X4
00345 M00S00341.comcvqf +++| IX3 X4-X3
00346 M00S00342.comcvqf +++| NG X3,VIE12 IF BELOW LOWER LIMIT
00347 M00S00343.comcvqf +++| SA3 A3+B1
00348 M00S00344.comcvqf +++| IX3 X3-X4
00349 M00S00345.comcvqf +++| NG X3,VIE12 IF ABOVE UPPER LIMIT
00350 M00S00346.comcvqf +++| ZR X1,VIE6 IF CHECKING BATCH ID
00351 M00S00347.comcvqf +++| BX6 X2-X1
00352 M00S00348.comcvqf +++| MX0 42
00353 M00S00349.comcvqf +++| BX6 X0*X6
00354 M00S00350.comcvqf +++| NZ X6,VIE12 IF NO MATCH ON DESTINATION FAMILY
00355 M00S00351.comcvqf +++|
00356 M00S00352.comcvqf +++|* CHECK OWNER USER INDEX.
00357 M00S00353.comcvqf +++|
00358 M00S00354.comcvqf +++| VIE6 SA1 IQFE+11 GET OWNER USER INDEX
00359 M00S00355.comcvqf +++| MX0 -18
00360 M00S00356.comcvqf +++| SA2 TARA+ARUI
00361 M00S00357.comcvqf +++| BX6 -X0*X1
00362 M00S00358.comcvqf +++| IX2 X6-X2
00363 M00S00359.comcvqf +++| NG X2,VIE12 IF LOWER LIMIT GREATER THAN INDEX
00364 M00S00360.comcvqf +++| SA2 A2+B1
00365 M00S00361.comcvqf +++| IX2 X2-X6
00366 M00S00362.comcvqf +++| NG X2,VIE12 IF UPPER LIMIT LESS THAN INDEX
00367 M00S00363.comcvqf +++|
00368 M00S00364.comcvqf +++|* CHECK FOR ACTIVE OWNER FAMILY ON A RECOVER FUNCTION.
00369 M00S00365.comcvqf +++|
00370 M00S00366.comcvqf +++| SA1 VIEA
00371 M00S00367.comcvqf +++| ZR X1,VIEX IF NOT ACTIVATE REQUEST
00372 M00S00368.comcvqf +++| SA4 IQFE
00373 M00S00369.comcvqf +++| MX0 -3
00374 M00S00370.comcvqf +++| LX4 0-9
00375 M00S00371.comcvqf +++| BX4 -X0*X4
00376 M00S00372.comcvqf +++| MX0 42
00377 M00S00373.comcvqf +++| SX4 X4-INQT
00378 M00S00374.comcvqf +++| NZ X4,VIE8 IF NOT AN INPUT FILE
00379 M00S00375.comcvqf +++| SA3 TARA+ARFC CHECK INPUT FILE PROCESSING FLAG
00380 M00S00376.comcvqf +++| LX3 59-53
00381 M00S00377.comcvqf +++| NG X3,VIE8 IF ACTIVATING ALL INPUT FILES
00382 M00S00378.comcvqf +++| SA3 IQFE+12 GET OWNER FAMILY NAME
00383 M00S00379.comcvqf +++| SA4 TACF SEARCH FOR ACTIVE FAMILY
00384 M00S00380.comcvqf +++| VIE7 BX2 X3-X4 COMPARE FAMILY NAME
00385 M00S00381.comcvqf +++| SA4 A4+1
00386 M00S00382.comcvqf +++| BX1 X0*X2
00387 M00S00383.comcvqf +++| ZR X1,VIE8 IF NAMES MATCH
00388 M00S00384.comcvqf +++| NZ X4,VIE7 IF NOT END OF FAMILIES
00389 M00S00385.comcvqf +++| EQ VIE12 SET NO MATCH
00390 M00S00386.comcvqf +++|
00391 M00S00387.comcvqf +++| VIE8 SA1 IQFE+12 GET OWNER FAMILY
00392 M00S00388.comcvqf +++| BX1 X0*X1
00393 M00S00389.comcvqf +++| ZR X1,VIE9 IF NO OWNER FAMILY
00394 M00S00390.comcvqf +++| RJ CFE
00395 M00S00391.comcvqf +++| ZR X3,VIE11 IF ERROR
00396 M00S00392.comcvqf +++| VIE9 SA1 IQFE+10 GET DESTINATION FAMILY
00397 M00S00393.comcvqf +++| MX0 42
00398 M00S00394.comcvqf +++| BX1 X0*X1
00399 M00S00395.comcvqf +++| ZR X1,VIE10 IF NO DESTINATION FAMILY
00400 M00S00396.comcvqf +++| RJ CFE
00401 M00S00397.comcvqf +++| ZR X3,VIE11 IF ERROR
00402 M00S00398.comcvqf +++| VIE10 BX1 X1-X1
00403 M00S00399.comcvqf +++| EQ VIEX RETURN
00404 M00S00400.comcvqf +++|
00405 M00S00401.comcvqf +++| VIE11 MX1 1 SET ERROR EXIT
00406 M00S00402.comcvqf +++| EQ VIEX RETURN
00407 M00S00403.comcvqf +++|
00408 M00S00404.comcvqf +++|
00409 M00S00405.comcvqf +++| VIEA CON 0 ACTIVATE REQUEST FLAG
00410 M00S00406.comcvqf +++| VQE SPACE 4,20
00411 M00S00407.comcvqf +++|** VQE - VALIDATE QFT ENTRY.
00412 M00S00408.comcvqf +++|*
00413 M00S00409.comcvqf +++|* ENTRY (X1) = QFT ADDRESS.
00414 M00S00410.comcvqf +++|* (B1) = 1.
00415 M00S00411.comcvqf +++|*
00416 M00S00412.comcvqf +++|* EXIT (X1) = 0, IF FILE MATCHES PARAMETER BLOCK.
00417 M00S00413.comcvqf +++|* = 1, IF NO MATCH.
00418 M00S00414.comcvqf +++|* (X2) = EST ORDINAL FROM QFT.
00419 M00S00415.comcvqf +++|*
00420 M00S00416.comcvqf +++|* USES X - 0, 1, 2, 3, 4, 6.
00421 M00S00417.comcvqf +++|* A - 1, 2, 3, 6.
00422 M00S00418.comcvqf +++|*
00423 M00S00419.comcvqf +++|* CALLS VQI.
00424 M00S00420.comcvqf +++|*
00425 M00S00421.comcvqf +++|* XREF COMSQFS.
00426 M00S00422.comcvqf +++|
00427 M00S00423.comcvqf +++|
00428 M00S00424.comcvqf +++| VQE4 SX1 B1 SET ERROR EXIT
00429 M00S00425.comcvqf +++|
00430 M00S00426.comcvqf +++| VQE SUBR ENTRY/EXIT
00431 M00S00427.comcvqf +++| BX6 X1 SAVE QFT ADDRESS
00432 M00S00428.comcvqf +++| SA6 VQEA
00433 M00S00429.comcvqf +++| RJ VQI VALIDATE QFT INFORMATION
00434 M00S00430.comcvqf +++| NZ X1,VQEX IF NO MATCH
00435 M00S00431.comcvqf +++|
00436 M00S00432.comcvqf +++|* CHECK ROUTING INFORMATION.
00437 M00S00433.comcvqf +++|
00438 M00S00434.comcvqf +++| SA2 TARA+ARFC
00439 M00S00435.comcvqf +++| LX2 59-52
00440 M00S00436.comcvqf +++| NG X2,VQE3 IF UNCONDITIONAL FILE PROCESSING
00441 M00S00437.comcvqf +++| SA1 VQEA
00442 M00S00438.comcvqf +++| SA1 X1+3 GET DESTINATION FAMILY ORDINAL
00443 M00S00439.comcvqf +++| LX1 18
00444 M00S00440.comcvqf +++| MX0 -6
00445 M00S00441.comcvqf +++| BX2 -X0*X1
00446 M00S00442.comcvqf +++| LX1 18 GET DESTINATION UI OR BATCH ID
00447 M00S00443.comcvqf +++| MX0 -18
00448 M00S00444.comcvqf +++| BX4 -X0*X1
00449 M00S00445.comcvqf +++| SA1 TARA+ARTF
00450 M00S00446.comcvqf +++| BX2 X1+X2
00451 M00S00447.comcvqf +++| ZR X2,VQE1 IF CHECKING BATCH ID
00452 M00S00448.comcvqf +++| SA3 TARA+ARTI
00453 M00S00449.comcvqf +++| ZR X1,VQE3 IF DESTINATION FAMILY NOT SPECIFIED
00454 M00S00450.comcvqf +++| MX0 42
00455 M00S00451.comcvqf +++| SA2 FOTA-1+X2 GET FAMILY NAME
00456 M00S00452.comcvqf +++| BX1 X1-X2
00457 M00S00453.comcvqf +++| BX1 X0*X1
00458 M00S00454.comcvqf +++| NZ X1,VQE4 IF NO MATCH ON DESTINATION FAMILY
00459 M00S00455.comcvqf +++| EQ VQE2 CHECK DESTINATION UI
00460 M00S00456.comcvqf +++|
00461 M00S00457.comcvqf +++| VQE1 SA3 TARA+ARID
00462 M00S00458.comcvqf +++| VQE2 IX3 X4-X3 CHECK DESTINATION UI OR BATCH ID
00463 M00S00459.comcvqf +++| NG X3,VQE4 IF BELOW LOWER LIMIT
00464 M00S00460.comcvqf +++| SA3 A3+B1
00465 M00S00461.comcvqf +++| IX3 X3-X4
00466 M00S00462.comcvqf +++| NG X3,VQE4 IF ABOVE UPPER LIMIT
00467 M00S00463.comcvqf +++|
00468 M00S00464.comcvqf +++|* SET EXIT CONDITIONS.
00469 M00S00465.comcvqf +++|
00470 M00S00466.comcvqf +++| VQE3 BX1 X1-X1 CLEAR ERROR RETURN
00471 M00S00467.comcvqf +++| SX2 B2 SET EST ORDINAL
00472 M00S00468.comcvqf +++| EQ VQEX RETURN
00473 M00S00469.comcvqf +++|
00474 M00S00470.comcvqf +++|
00475 M00S00471.comcvqf +++| VQEA CON 0 QFT ENTRY ADDRESS
00476 M00S00472.comcvqf +++| VQI SPACE 4,15
00477 M00S00473.comcvqf +++|** VQI - VALIDATE QFT INFORMATION.
00478 M00S00474.comcvqf +++|*
00479 M00S00475.comcvqf +++|* ENTRY (X1) = QFT ADDRESS.
00480 M00S00476.comcvqf +++|* (X6) .NE. 0, IF ACTIVATE REQUEST.
00481 M00S00477.comcvqf +++|* (B1) = 1.
00482 M00S00478.comcvqf +++|*
00483 M00S00479.comcvqf +++|* EXIT (X1) = 0, IF FILE MATCHES PARAMETER BLOCK.
00484 M00S00480.comcvqf +++|* = 1, IF NO MATCH.
00485 M00S00481.comcvqf +++|* (B2) = EST ORDINAL FROM QFT.
00486 M00S00482.comcvqf +++|*
00487 M00S00483.comcvqf +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
00488 M00S00484.comcvqf +++|* A - 1, 2, 3, 4.
00489 M00S00485.comcvqf +++|* B - 2, 3, 4.
00490 M00S00486.comcvqf +++|*
00491 M00S00487.comcvqf +++|* XREF COMSJIO, COMSQFS.
00492 M00S00488.comcvqf +++|
00493 M00S00489.comcvqf +++|
00494 M00S00490.comcvqf +++| VQI11 SX1 B1 SET ERROR EXIT
00495 M00S00491.comcvqf +++|
00496 M00S00492.comcvqf +++| VQI SUBR ENTRY/EXIT
00497 M00S00493.comcvqf +++|
00498 M00S00494.comcvqf +++|* DETERMINE DISPOSITION CODE.
00499 M00S00495.comcvqf +++|
00500 M00S00496.comcvqf +++| SA1 X1+ GET QFT WORD 0
00501 M00S00497.comcvqf +++| SA2 TARA+ARFC
00502 M00S00498.comcvqf +++| LX2 59-52
00503 M00S00499.comcvqf +++| NG X2,VQI1.1 IF UNCONDITIONAL FILE PROCESSING
00504 M00S00500.comcvqf +++| MX0 -6
00505 M00S00501.comcvqf +++| BX2 X1
00506 M00S00502.comcvqf +++| AX2 6
00507 M00S00503.comcvqf +++| BX7 -X0*X2 SAVE DISPOSITION CODE
00508 M00S00504.comcvqf +++| SA3 TDCS-1 GET SHIFT COUNT
00509 M00S00505.comcvqf +++| VQI1 SA3 A3+B1
00510 M00S00506.comcvqf +++| ZR X3,VQI11 IF DISPOSITION CODE NOT IN TABLE
00511 M00S00507.comcvqf +++| SX2 X3
00512 M00S00508.comcvqf +++| IX2 X7-X2
00513 M00S00509.comcvqf +++| NZ X2,VQI1 IF NOT MATCH
00514 M00S00510.comcvqf +++| LX3 -18
00515 M00S00511.comcvqf +++| SB2 X3 (B2) = SHIFT COUNT
00516 M00S00512.comcvqf +++|
00517 M00S00513.comcvqf +++|* DETERMINE ORIGIN TYPE.
00518 M00S00514.comcvqf +++|
00519 M00S00515.comcvqf +++| VQI1.1 SA2 A1+3 GET ORIGIN TYPE
00520 M00S00516.comcvqf +++| LX2 6 CHECK FOR SUBSYSTEM INPUT FILE
00521 M00S00517.comcvqf +++| BX4 -X0*X2 GET SERVICE CLASS
00522 M00S00518.comcvqf +++| MX0 -3
00523 M00S00519.comcvqf +++| AX1 9 GET QUEUE TYPE
00524 M00S00520.comcvqf +++| BX1 -X0*X1
00525 M00S00521.comcvqf +++| ZR X6,VQI1.2 IF FILE NOT TO BE REACTIVATED
00526 M00S00522.comcvqf +++| ERRNZ INQT INPUT QUEUE TYPE VALUE CHANGED
00527 M00S00523.comcvqf +++| NZ X1,VQI1.2 IF NOT INPUT FILE
00528 M00S00524.comcvqf +++| SX3 SSSC
00529 M00S00525.comcvqf +++| BX4 X3-X4
00530 M00S00526.comcvqf +++| ZR X4,VQI11 IF SUBSYSTEM INPUT FILE
00531 M00S00527.comcvqf +++| MX0 6 CHECK FOR INTERACTIVE INPUT FILE
00532 M00S00528.comcvqf +++| BX0 X0*X2
00533 M00S00529.comcvqf +++| LX0 6
00534 M00S00530.comcvqf +++| SX0 X0-IAOT
00535 M00S00531.comcvqf +++| ZR X0,VQI11 IF INTERACTIVE INPUT FILE
00536 M00S00532.comcvqf +++| VQI1.2 LX2 6
00537 M00S00533.comcvqf +++| MX0 -6
00538 M00S00534.comcvqf +++| BX1 X2
00539 M00S00535.comcvqf +++| BX2 -X0*X2
00540 M00S00536.comcvqf +++| SX3 IAOT
00541 M00S00537.comcvqf +++| IX3 X3-X2
00542 M00S00538.comcvqf +++| NG X3,VQI11 IF INVALID ORIGIN TYPE
00543 M00S00539.comcvqf +++| SB3 X2 SAVE ORIGIN TYPE
00544 M00S00540.comcvqf +++| LX1 6
00545 M00S00541.comcvqf +++| BX1 -X0*X1
00546 M00S00542.comcvqf +++| SA2 TARA+ARFC
00547 M00S00543.comcvqf +++| LX2 59-52
00548 M00S00544.comcvqf +++| NG X2,VQI4 IF UNCONDITIONAL FILE PROCESSING
00549 M00S00545.comcvqf +++| SX2 ARBC
00550 M00S00546.comcvqf +++| ZR X1,VQI1.3 IF LOCAL BATCH FILE
00551 M00S00547.comcvqf +++| SX2 ARRB
00552 M00S00548.comcvqf +++| VQI1.3 SA4 TARA+X2 GET DISPOSITION CODE SELECTIONS
00553 M00S00549.comcvqf +++| LX4 B2,X4
00554 M00S00550.comcvqf +++| PL X4,VQI11 IF DISPOSITION CODE NOT SELECTED
00555 M00S00551.comcvqf +++|
00556 M00S00552.comcvqf +++|* CHECK JSN-S.
00557 M00S00553.comcvqf +++|
00558 M00S00554.comcvqf +++| SA1 A1 REREAD JSN
00559 M00S00555.comcvqf +++| SB4 ARJNL SET JSN LIST LENGTH
00560 M00S00556.comcvqf +++| MX0 24
00561 M00S00557.comcvqf +++| BX2 X0*X1
00562 M00S00558.comcvqf +++| SA3 TARA+ARJN-1
00563 M00S00559.comcvqf +++| SB2 B0+
00564 M00S00560.comcvqf +++| VQI2 SB4 B4-B1
00565 M00S00561.comcvqf +++| SA3 A3+B1
00566 M00S00562.comcvqf +++| ZR X3,VQI3 IF NO ENTRY
00567 M00S00563.comcvqf +++| SB2 B2+B1 FLAG JSN PRESENT
00568 M00S00564.comcvqf +++| IX6 X3-X2
00569 M00S00565.comcvqf +++| ZR X6,VQI4 IF MATCH
00570 M00S00566.comcvqf +++| VQI3 NE B4,VQI2 IF NOT END OF JSN-S
00571 M00S00567.comcvqf +++| NE B2,VQI11 IF JSN-S SPECIFIED
00572 M00S00568.comcvqf +++|
00573 M00S00569.comcvqf +++|* GET EST ORDINAL AND CHECK FIRST TRACK.
00574 M00S00570.comcvqf +++|
00575 M00S00571.comcvqf +++| VQI4 SA1 A1+B1 GET QFT WORD 1
00576 M00S00572.comcvqf +++| MX0 12 CHECK IF FIRST TRACK USED
00577 M00S00573.comcvqf +++| LX1 12
00578 M00S00574.comcvqf +++| BX3 X0*X1
00579 M00S00575.comcvqf +++| ZR X3,VQI11 IF FIRST TRACK ZERO
00580 M00S00576.comcvqf +++| MX0 -12 GET EST ORDINAL
00581 M00S00577.comcvqf +++| BX3 -X0*X1
00582 M00S00578.comcvqf +++| SB2 X3+ SAVE EST ORDINAL
00583 M00S00579.comcvqf +++|
00584 M00S00580.comcvqf +++|* CHECK FORMS CODE.
00585 M00S00581.comcvqf +++|
00586 M00S00582.comcvqf +++| SX1 B0+ SET FILE SELECTED
00587 M00S00583.comcvqf +++| SA2 TARA+ARFC
00588 M00S00584.comcvqf +++| LX2 59-52
00589 M00S00585.comcvqf +++| NG X2,VQIX IF UNCONDITIONAL FILE PROCESSING
00590 M00S00586.comcvqf +++| SA3 TARA+ARFR
00591 M00S00587.comcvqf +++| SX4 X3-100B
00592 M00S00588.comcvqf +++| ZR X4,VQI10 IF ALL FORMS CODES SELECTED
00593 M00S00589.comcvqf +++| MX0 -3 CHECK QUEUE TYPE
00594 M00S00590.comcvqf +++| LX7 -3
00595 M00S00591.comcvqf +++| BX7 -X0*X7
00596 M00S00592.comcvqf +++| SB4 X7-INQT
00597 M00S00593.comcvqf +++| EQ B4,VQI10 IF INPUT QUEUE
00598 M00S00594.comcvqf +++| SA1 A1+2 GET QFT WORD 3
00599 M00S00595.comcvqf +++| MX0 12
00600 M00S00596.comcvqf +++| LX1 48
00601 M00S00597.comcvqf +++| SB4 59
00602 M00S00598.comcvqf +++| LX2 X3,B4
00603 M00S00599.comcvqf +++| BX1 X0*X1
00604 M00S00600.comcvqf +++| NG X2,VQI7 IF RANGE SPECIFIED
00605 M00S00601.comcvqf +++| SB4 3 CHECK FORMS CODE LIST
00606 M00S00602.comcvqf +++| VQI5 BX2 X0*X3
00607 M00S00603.comcvqf +++| ZR X2,VQI11 IF END OF FORMS CODE LIST
00608 M00S00604.comcvqf +++| BX4 X2-X0
00609 M00S00605.comcvqf +++| NZ X4,VQI6 IF NOT NULL FORMS CODE
00610 M00S00606.comcvqf +++| BX2 X2-X2 SET NULL FORMS CODE
00611 M00S00607.comcvqf +++| VQI6 BX4 X2-X1
00612 M00S00608.comcvqf +++| ZR X4,VQI10 IF MATCH
00613 M00S00609.comcvqf +++| LX3 12
00614 M00S00610.comcvqf +++| SB4 B4-1
00615 M00S00611.comcvqf +++| NE B4,VQI5 IF MORE FORMS CODES
00616 M00S00612.comcvqf +++| EQ VQI11 SET NO MATCH
00617 M00S00613.comcvqf +++|
00618 M00S00614.comcvqf +++| VQI7 BX2 X0*X3 CHECK FORMS CODE RANGE
00619 M00S00615.comcvqf +++| BX4 X2-X0
00620 M00S00616.comcvqf +++| ZR X4,VQI8 IF NULL FORMS CODE
00621 M00S00617.comcvqf +++| IX4 X1-X2
00622 M00S00618.comcvqf +++| NG X4,VQI11 IF BELOW LOWER LIMIT
00623 M00S00619.comcvqf +++| VQI8 LX3 12
| Line S00620 Modification History |
M01 (Removed by) | cvqf8 |
Seq # *Modification Id* Act
----------------------------+
00624 M01S00620.cvqf8 ---| BX2 X0*X1
| Line S00001 Modification History |
M01 (Added by) | cvqf8 |
Seq # *Modification Id* Act
----------------------------+
00625 M01S00001.cvqf8 +++| BX2 X0*X3
00626 M00S00621.comcvqf +++| BX4 X2-X0
00627 M00S00622.comcvqf +++| NZ X4,VQI9 IF NOT NULL FORMS CODE
00628 M00S00623.comcvqf +++| BX2 X2-X2
00629 M00S00624.comcvqf +++| VQI9 IX4 X2-X1
00630 M00S00625.comcvqf +++| NG X4,VQI11 IF ABOVE UPPER LIMIT
00631 M00S00626.comcvqf +++|
00632 M00S00627.comcvqf +++|* SET EXIT CONDITIONS.
00633 M00S00628.comcvqf +++|
00634 M00S00629.comcvqf +++| VQI10 BX1 X1-X1 CLEAR ERROR RETURN
00635 M00S00630.comcvqf +++| EQ VQIX RETURN
00636 M00S00631.comcvqf +++|
00637 M00S00632.comcvqf +++|* DISPOSITION CODE SHIFT TABLE.
00638 M00S00633.comcvqf +++|
00639 M00S00634.comcvqf +++| TDCS BSS 0
00640 M00S00635.comcvqf +++| VFD 36/0,6/1,18/INQF
00641 M00S00636.comcvqf +++| VFD 36/0,6/1,18/NOQF
00642 M00S00637.comcvqf +++| VFD 36/0,6/1,18/TOQF
00643 M00S00638.comcvqf +++| VFD 36/0,6/2,18/PUQF
00644 M00S00639.comcvqf +++| VFD 36/0,6/3,18/PLQF
00645 M00S00640.comcvqf +++| VFD 36/0,6/4,18/LPQF
00646 M00S00641.comcvqf +++| VFD 36/0,6/5,18/P2QF
00647 M00S00642.comcvqf +++| VFD 36/0,6/6,18/LRQF
00648 M00S00643.comcvqf +++| VFD 36/0,6/7,18/LSQF
00649 M00S00644.comcvqf +++| VFD 36/0,6/8,18/LTQF
00650 M00S00645.comcvqf +++| VFD 36/0,6/9,18/LXQF
00651 M00S00646.comcvqf +++| VFD 36/0,6/10,18/LYQF
00652 M00S00647.comcvqf +++| VFD 36/0,6/11,18/ERQF
00653 M00S00648.comcvqf +++| VFD 36/0,6/11,18/TQQF
00654 M00S00649.comcvqf +++| VFD 36/0,6/0,18/S1QF
00655 M00S00650.comcvqf +++| VFD 36/0,6/0,18/S2QF
00656 M00S00651.comcvqf +++| VFD 36/0,6/0,18/S3QF
00657 M00S00652.comcvqf +++| VFD 60/0
00658 M00S00653.comcvqf +++|
00659 M00S00654.comcvqf +++|
00660 M00S00655.comcvqf +++|
00661 M00S00656.comcvqf +++| BASE *
00662 M00S00657.comcvqf +++| QUAL$ IF -DEF,QUAL$
00663 M00S00658.comcvqf +++| QUAL *
00664 M00S00659.comcvqf +++| CAF EQU /COMCVQF/CAF
00665 M00S00660.comcvqf +++| CLD EQU /COMCVQF/CLD
00666 M00S00661.comcvqf +++| FOTF EQU /COMCVQF/FOTF
00667 M00S00662.comcvqf +++| LTFL EQU /COMCVQF/LTFL
00668 M00S00663.comcvqf +++| VIE EQU /COMCVQF/VIE
00669 M00S00664.comcvqf +++| VQE EQU /COMCVQF/VQE
00670 M00S00665.comcvqf +++| QUAL$ ENDIF
00671 M00S00666.comcvqf +++| VQF ENDX