3 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcvqf +++|          CTEXT  COMCVQF - VALIDATE QUEUED FILES.
00002  M01S00002.comcvqf +++|          SPACE  4,10
00003  M01S00003.comcvqf +++|          IF     -DEF,QUAL$
00004  M01S00004.comcvqf +++|          QUAL   COMCVQF
00005  M01S00005.comcvqf +++|          ENDIF
00006  M01S00006.comcvqf +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.comcvqf +++| VQF      SPACE  4,10
00010  M01S00009.comcvqf +++|***       VQF - VALIDATE QUEUED FILES.
00011  M01S00010.comcvqf +++|*
00012  M01S00011.comcvqf +++|*         G. A. KERSTEN      81/10/08.
00013  M01S00012.comcvqf +++|          SPACE  4,10
00014  M01S00013.comcvqf +++|***       *COMCVQF* CONTAINS ROUTINES THAT COMPARE AN IQFT ENTRY
00015  M01S00014.comcvqf +++|*         OR A QFT ENTRY AGAINST THE PARAMETER BLOCK DEFINED IN
00016  M01S00015.comcvqf +++|*         *COMSQFS* FOR THE QUEUE PROCESSING UTILITIES.
00017  M01S00016.comcvqf +++|          SPACE  4,10
00018  M01S00017.comcvqf +++|***       DAYFILE MESSAGES.
00019  M01S00018.comcvqf +++|*
00020  M01S00019.comcvqf +++|*         * FOT FULL - FILES IGNORED.* - SOME OF THE QUEUED FILES
00021  M01S00020.comcvqf +++|*         WERE NOT PROCESSED BECAUSE THERE WAS NO FOT ENTRY FOR THE
00022  M01S00021.comcvqf +++|*         CREATION AND/OR THE DESTINATION FAMILY AND THE FOT WAS
00023  M01S00022.comcvqf +++|*         FULL.
00024  M01S00023.comcvqf +++|*
00025  M01S00024.comcvqf +++|*         * LID NOT ADDED - FILES IGNORED.* - SOME QUEUED FILES WERE
00026  M01S00025.comcvqf +++|*         NOT PROCESSED BECAUSE THERE WAS NO ENTRY IN THE LID TABLE
00027  M01S00026.comcvqf +++|*         FOR THE SPECIFIED LID AND ALL LID SLOTS FOR THE HOST PID
00028  M01S00027.comcvqf +++|*         WERE OCCUPIED BY OTHER LIDS.
00029  M01S00028.comcvqf +++| CAF      SPACE  4,15
00030  M01S00029.comcvqf +++|**        CAF - CHECK ACCESS LEVEL OF QUEUED FILE.
00031  M01S00030.comcvqf +++|*
00032  M01S00031.comcvqf +++|*         ENTRY  (X1) = UPPER ACCESS LEVEL LIMIT.
00033  M01S00032.comcvqf +++|*                (X2) = LOWER ACCESS LEVEL LIMIT.
00034  M01S00033.comcvqf +++|*                (X2) .LT. 0, IF NO ACCESS LEVELS WERE SELECTED.
00035  M01S00034.comcvqf +++|*                (A3) = ADDRESS OF *INSQ* WORD OF QFT ENTRY FOR FILE.
00036  M01S00035.comcvqf +++|*                (X3) = *INSQ* WORD.
00037  M01S00036.comcvqf +++|*                (B2) = 0, IF ORIGIN TYPE ACCESS LEVEL OF FILE IS
00038  M01S00037.comcvqf +++|*                       NOT TO BE VALIDATED.
00039  M01S00038.comcvqf +++|*
00040  M01S00039.comcvqf +++|*         EXIT   (X1) = 0, IF FILE SELECTED.
00041  M01S00040.comcvqf +++|*
00042  M01S00041.comcvqf +++|*         USES   X - 0, 1, 3, 4, 6, 7.
00043  M01S00042.comcvqf +++|*                A - 1, 3.
00044  M01S00043.comcvqf +++|*                B - 2.
00045  M01S00044.comcvqf +++|
00046  M01S00045.comcvqf +++|
00047  M01S00046.comcvqf +++| CAF3     SX1    B1+         SET FILE NOT SELECTED
00048  M01S00047.comcvqf +++|
00049  M01S00048.comcvqf +++| CAF      SUBR               ENTRY/EXIT
00050  M01S00049.comcvqf +++|          AX3    15          GET FILE ACCESS LEVEL
00051  M01S00050.comcvqf +++|          MX0    -3
00052  M01S00051.comcvqf +++|          BX4    -X0*X3
00053  M01S00052.comcvqf +++|
00054  M01S00053.comcvqf +++|*         CHECK ORIGIN TYPE ACCESS LIMITS.
00055  M01S00054.comcvqf +++|
00056  M01S00055.comcvqf +++|          ERRNZ  SCLQ-INSQ-1 VALUES MUST BE CONTIGUOUS
00057  M01S00056.comcvqf +++|          SA3    A3+B1       GET ORIGIN TYPE
00058  M01S00057.comcvqf +++|          MX0    -6
00059  M01S00058.comcvqf +++|          LX3    12
00060  M01S00059.comcvqf +++|          BX7    -X0*X3
00061  M01S00060.comcvqf +++|          MX0    -3
00062  M01S00061.comcvqf +++|          SA3    SECA        GET ACCESS LIMITS
00063  M01S00062.comcvqf +++|          LX3    12
00064  M01S00063.comcvqf +++|          BX6    -X0*X3
00065  M01S00064.comcvqf +++|          ZR     X6,CAF1     IF UNSECURE SYSTEM
00066  M01S00065.comcvqf +++|          ZR     B2,CAF1     IF ORIGIN TYPE LIMITS NOT TO BE CHECKED
00067  M01S00066.comcvqf +++|          SX6    12
00068  M01S00067.comcvqf +++|          IX6    X7*X6
00069  M01S00068.comcvqf +++|          SB2    X6+12
00070  M01S00069.comcvqf +++|          LX3    B2          GET LIMITS FOR ORIGIN TYPE OF FILE
00071  M01S00070.comcvqf +++|          BX6    -X0*X3      GET UPPER ACCESS LIMIT
00072  M01S00071.comcvqf +++|          LX3    -6
00073  M01S00072.comcvqf +++|          BX7    -X0*X3      GET LOWER ACCESS LIMIT
00074  M01S00073.comcvqf +++|          IX3    X4-X7
00075  M01S00074.comcvqf +++|          IX7    X6-X4
00076  M01S00075.comcvqf +++|          NG     X7,CAF3     IF ACCESS LEVEL TOO HIGH
00077  M01S00076.comcvqf +++|          NG     X3,CAF3     IF ACCESS LEVEL TOO LOW
00078  M01S00077.comcvqf +++| CAF1     NG     X2,CAF2     IF NO FURTHER CHECK TO BE MADE
00079  M01S00078.comcvqf +++|
00080  M01S00079.comcvqf +++|*         CHECK DEVICE LIMITS OR LIMITS FROM ARGUMENT TABLE.
00081  M01S00080.comcvqf +++|
00082  M01S00081.comcvqf +++|          IX7    X4-X2
00083  M01S00082.comcvqf +++|          IX6    X1-X4
00084  M01S00083.comcvqf +++|          NG     X7,CAF3     IF ACCESS LEVEL TOO LOW
00085  M01S00084.comcvqf +++|          NG     X6,CAF3     IF ACCESS LEVEL TOO HIGH
00086  M01S00085.comcvqf +++| CAF2     BX1    X1-X1       SET FILE SELECTED
00087  M01S00086.comcvqf +++|          EQ     CAFX        RETURN
00088  M01S00087.comcvqf +++| CFE      SPACE  4,20
00089  M01S00088.comcvqf +++|**        CFE - CHECK FOR FOT ENTRY.
00090  M01S00089.comcvqf +++|*
00091  M01S00090.comcvqf +++|*         ENTRY  (X1) = FAMILY NAME.
00092  M01S00091.comcvqf +++|*
00093  M01S00092.comcvqf +++|*         EXIT   (X3) .EQ. FOT ORDINAL, IF FOT ENTRY CREATED/EXISTS.
00094  M01S00093.comcvqf +++|*                     .EQ. 0, IF ERROR.
00095  M01S00094.comcvqf +++|*
00096  M01S00095.comcvqf +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
00097  M01S00096.comcvqf +++|*                A - 1, 2, 4, 6, 7.
00098  M01S00097.comcvqf +++|*
00099  M01S00098.comcvqf +++|*         MACROS MESSAGE, QCALL.
00100  M01S00099.comcvqf +++|*
00101  M01S00100.comcvqf +++|*         XREF   COMCQFM, COMSIOQ, COMSQFS.
00102  M01S00101.comcvqf +++|
00103  M01S00102.comcvqf +++|
00104  M01S00103.comcvqf +++| CFE2     MX6    1           SET FOT FULL FLAG
00105  M01S00104.comcvqf +++|          SA6    FOTF
00106  M01S00105.comcvqf +++|          MESSAGE  CFEA
00107  M01S00106.comcvqf +++| CFE3     BX3    X3-X3       SET ERROR EXIT
00108  M01S00107.comcvqf +++|
00109  M01S00108.comcvqf +++| CFE      SUBR               ENTRY/EXIT
00110  M01S00109.comcvqf +++|          SX3    B1          INITIALIZE FOT ORDINAL
00111  M01S00110.comcvqf +++|          MX0    42
00112  M01S00111.comcvqf +++|          SA2    FOTA        SEARCH THE *FOTT* FOR FAMILY
00113  M01S00112.comcvqf +++| CFE1     BX4    X2-X1
00114  M01S00113.comcvqf +++|          BX4    X0*X4
00115  M01S00114.comcvqf +++|          ZR     X4,CFEX     IF FOT ENTRY EXISTS
00116  M01S00115.comcvqf +++|          SA2    A2+B1
00117  M01S00116.comcvqf +++|          SX3    X3+B1
00118  M01S00117.comcvqf +++|          NZ     X2,CFE1     IF NOT END OF TABLE
00119  M01S00118.comcvqf +++|          SA2    TARA+ARFC   CHECK FAMILY OPTION
00120  M01S00119.comcvqf +++|          BX6    X2
00121  M01S00120.comcvqf +++|          LX2    59-56
00122  M01S00121.comcvqf +++|          LX6    59-52       CHECK UNCONDITIONAL PROCESSING
00123  M01S00122.comcvqf +++|          BX2    X6+X2
00124  M01S00123.comcvqf +++|          PL     X2,CFE3     IF OPTION NOT SELECTED
00125  M01S00124.comcvqf +++|          SA2    FOTF
00126  M01S00125.comcvqf +++|          NZ     X2,CFE3     IF FOT FULL
00127  M01S00126.comcvqf +++|          BX6    X0*X1       ADD FAMILY NAME
00128  M01S00127.comcvqf +++|          SA6    CFEB+6
00129  M01S00128.comcvqf +++|          SX0    36000B      CLEAR ERROR FLAGS
00130  M01S00129.comcvqf +++|          SA4    CFEB
00131  M01S00130.comcvqf +++|          BX7    -X0*X4
00132  M01S00131.comcvqf +++|          SA7    A4
00133  M01S00132.comcvqf +++|          QCALL  CFEF,CFEB
00134  M01S00133.comcvqf +++|          SA4    CFEB        GET ERROR STATUS
00135  M01S00134.comcvqf +++|          BX4    X0*X4
00136  M01S00135.comcvqf +++|          NZ     X4,CFE2     IF ERROR
00137  M01S00136.comcvqf +++|          SA2    CFEB+6      GET THE FOT ORDINAL
00138  M01S00137.comcvqf +++|          MX0    -18
00139  M01S00138.comcvqf +++|          BX3    -X0*X2
00140  M01S00139.comcvqf +++|          SX1    FOTL
00141  M01S00140.comcvqf +++|          IX1    X1-X3
00142  M01S00141.comcvqf +++|          NG     X1,CFEX     IF *FOTT* FULL
00143  M01S00142.comcvqf +++|          BX6    X0*X2       ADD ENTRY TO *FOTT*
00144  M01S00143.comcvqf +++|          SA6    X3+FOTA-1
00145  M01S00144.comcvqf +++|          EQ     CFEX        RETURN
00146  M01S00145.comcvqf +++|
00147  M01S00146.comcvqf +++|
00148  M01S00147.comcvqf +++| CFEA     DATA   C* FOT FULL - FILES IGNORED.*
00149  M01S00148.comcvqf +++| CFEB     FILEB  CFEC,1,EPR,(FET=7)
00150  M01S00149.comcvqf +++| CFEC     BSS    1
00151  M01S00150.comcvqf +++|
00152  M01S00151.comcvqf +++| FOTF     CON    0           FOT FULL FLAG
00153  M01S00152.comcvqf +++| CLD      SPACE  4,15
00154  M01S00153.comcvqf +++|**        CLD - CHECK LOGICAL IDENTIFIER.
00155  M01S00154.comcvqf +++|*
00156  M01S00155.comcvqf +++|*         ENTRY  (X3) = (I)QFT ENTRY, WORD TWO.
00157  M01S00156.comcvqf +++|*                (X4) = 0, IF NO NEED TO CHECK FOR LID IN TABLE.
00158  M01S00157.comcvqf +++|*
00159  M01S00158.comcvqf +++|*         EXIT   (X3) = O, IF FILE SELECTED.
00160  M01S00159.comcvqf +++|*                       NONZERO, IF FILE NOT SELECTED.
00161  M01S00160.comcvqf +++|*
00162  M01S00161.comcvqf +++|*         USES   X - 2, 3, 6.
00163  M01S00162.comcvqf +++|*                A - 2, 6.
00164  M01S00163.comcvqf +++|*
00165  M01S00164.comcvqf +++|*         MACROS GETLIDA, MACHID, SETPIDA.
00166  M01S00165.comcvqf +++|*
00167  M01S00166.comcvqf +++|*         XREF   COMCCMD, COMCSFM, COMSSFM.
00168  M01S00167.comcvqf +++|
00169  M01S00168.comcvqf +++|
00170  M01S00169.comcvqf +++| CLD3     SX3    B0+         INDICATE FILE SELECTED
00171  M01S00170.comcvqf +++|
00172  M01S00171.comcvqf +++| CLD      SUBR               ENTRY/EXIT
00173  M01S00172.comcvqf +++|          SA2    TARA+ARFC
00174  M01S00173.comcvqf +++|          LX2    59-52
00175  M01S00174.comcvqf +++|          NG     X2,CLD3     IF UNCONDITIONAL FILE PROCESSING
00176  M01S00175.comcvqf +++|          LX3    12          MASK LID OUT OF (I)QFT ENTRY
00177  M01S00176.comcvqf +++|          MX6    18
00178  M01S00177.comcvqf +++|          BX6    X6*X3
00179  M01S00178.comcvqf +++|          BX3    X3-X3       SET FILE SELECTED
00180  M01S00179.comcvqf +++|          SA2    TARA+AROL   CHECK IF LID WAS SPECIFIED
00181  M01S00180.comcvqf +++|          NZ     X2,CLD1     IF LID WAS SPECIFIED
00182  M01S00181.comcvqf +++|          ZR     X6,CLDX     IF ZERO LID
00183  M01S00182.comcvqf +++|          EQ     CLD2        CHECK FOR LID IN TABLE
00184  M01S00183.comcvqf +++|
00185  M01S00184.comcvqf +++| CLD1     SX3    1R0         CHECK FOR *LD* = *0*
00186  M01S00185.comcvqf +++|          LX3    -6
00187  M01S00186.comcvqf +++|          BX3    X2-X3
00188  M01S00187.comcvqf +++|          BX3    X6+X3
00189  M01S00188.comcvqf +++|          ZR     X3,CLDX     IF *LD* = *0* .AND. ZERO LID
00190  M01S00189.comcvqf +++|          BX3    X6-X2       CHECK FOR MATCH
00191  M01S00190.comcvqf +++|          NZ     X3,CLDX     IF NO MATCH
00192  M01S00191.comcvqf +++| CLD2     ZR     X4,CLDX     IF NO NEED TO CHECK FOR LID IN TABLE
00193  M01S00192.comcvqf +++|          SX3    B1          SET COMPLETE BIT
00194  M01S00193.comcvqf +++|          BX6    X6+X3
00195  M01S00194.comcvqf +++|          SA6    CLDA        CHECK FOR LID IN TABLE
00196  M01S00195.comcvqf +++|          GETLIDA  CLDA
00197  M01S00196.comcvqf +++|          SA2    CLDA
00198  M01S00197.comcvqf +++|          LX2    18
00199  M01S00198.comcvqf +++|          SX3    B0          SET FILE SELECTED
00200  M01S00199.comcvqf +++|          MX6    12
00201  M01S00200.comcvqf +++|          BX6    X6*X2
00202  M01S00201.comcvqf +++|          NZ     X6,CLDX     IF LID IS IN TABLE
00203  M01S00202.comcvqf +++|          SA2    TARA+ARFC   CHECK LID TABLE OPTION
00204  M01S00203.comcvqf +++|          SX3    B1          SET FILE NOT SELECTED
00205  M01S00204.comcvqf +++|          LX2    59-54
00206  M01S00205.comcvqf +++|          PL     X2,CLDX     IF LID TABLE OPTION NOT SELECTED
00207  M01S00206.comcvqf +++|          SA2    LTFL        CHECK IF LID TABLE IS FULL
00208  M01S00207.comcvqf +++|          NZ     X2,CLDX     IF TABLE IS ALREADY FULL
00209  M01S00208.comcvqf +++|          MACHID CLDC        GET HOST MACHINE ID
00210  M01S00209.comcvqf +++|
00211  M01S00210.comcvqf +++|*         ATTEMPT TO ADD THE LID WITH A *NOLIST* ATTRIBUTE TO THE
00212  M01S00211.comcvqf +++|*         HOST PID.
00213  M01S00212.comcvqf +++|
00214  M01S00213.comcvqf +++|          SA2    CLDA        GET LID
00215  M01S00214.comcvqf +++|          MX6    18
00216  M01S00215.comcvqf +++|          BX6    X6*X2
00217  M01S00216.comcvqf +++|          SA2    CLDC        CREATE HOST PID
00218  M01S00217.comcvqf +++|          SX3    1RM
00219  M01S00218.comcvqf +++|          LX3    12
00220  M01S00219.comcvqf +++|          BX3    X2+X3
00221  M01S00220.comcvqf +++|          BX6    X6+X3       MERGE LID WITH HOST PID
00222  M01S00221.comcvqf +++|          LX6    30
00223  M01S00222.comcvqf +++|          SX3    200B        *NOLIST* ATTRIBUTE
00224  M01S00223.comcvqf +++|          BX6    X3+X6       MERGE ATTRIBUTE WITH PID AND LID
00225  M01S00224.comcvqf +++|          LX6    12
00226  M01S00225.comcvqf +++|          SA6    CLDE        SAVE ENTRY IN PARAMETER BLOCK
00227  M01S00226.comcvqf +++|          SETPIDA  CLDD      ADD LID TO LID TABLE
00228  M01S00227.comcvqf +++|          SA2    CLDD        CHECK IF LID WAS ADDED TO TABLE
00229  M01S00228.comcvqf +++|          LX2    42
00230  M01S00229.comcvqf +++|          MX6    8
00231  M01S00230.comcvqf +++|          BX3    X6*X2
00232  M01S00231.comcvqf +++|          ZR     X3,CLDX     IF LID WAS ADDED SUCESSFULLY
00233  M01S00232.comcvqf +++|          SA6    LTFL        SET * LID TABLE FULL *
00234  M01S00233.comcvqf +++|          MESSAGE  CLDB      * LID NOT ADDED - FILES IGNORED.*
00235  M01S00234.comcvqf +++|          EQ     CLDX        RETURN
00236  M01S00235.comcvqf +++|
00237  M01S00236.comcvqf +++| CLDA     CON    0
00238  M01S00237.comcvqf +++| CLDB     DATA   C* LID NOT ADDED - FILES IGNORED.*
00239  M01S00238.comcvqf +++| CLDC     CON    0           HOST MACHINE ID
00240  M01S00239.comcvqf +++| CLDD     VFD    12/ALDF,12/1,36/1  *SETPIDA* PARAMETER BLOCK
00241  M01S00240.comcvqf +++| CLDE     CON    0
00242  M01S00241.comcvqf +++| LTFL     CON    0           LID TABLE FULL FLAG
00243  M01S00242.comcvqf +++| VIE      SPACE  4,20
00244  M01S00243.comcvqf +++|**        VIE - VALIDATE IQFT ENTRY.
00245  M01S00244.comcvqf +++|*
00246  M01S00245.comcvqf +++|*         ENTRY  (IQFE - IQFE+15) = IQFT ENTRY.
00247  M01S00246.comcvqf +++|*                (TACF) = TABLE OF ACTIVE FAMILIES, IF ACTIVATE
00248  M01S00247.comcvqf +++|*                         REQUEST.
00249  M01S00248.comcvqf +++|*                (X6) .NE. 0, IF ACTIVATE REQUEST.
00250  M01S00249.comcvqf +++|*                (B1) = 1.
00251  M01S00250.comcvqf +++|*
00252  M01S00251.comcvqf +++|*         EXIT   (X1) .EQ. 0, IF ENTRY MATCHES PARAMETERS.
00253  M01S00252.comcvqf +++|*                     .EQ. 1, IF NOT MATCH.
00254  M01S00253.comcvqf +++|*                     .LT. 0, IF FOT ENTRY NOT FOUND AND
00255  M01S00254.comcvqf +++|*                             FAMILY OPTION NOT SELECTED.
00256  M01S00255.comcvqf +++|*                THE CREATION AND DESTINATION FAMILY ORDINALS ARE
00257  M01S00256.comcvqf +++|*                UPDATED IN THE IQFT ENTRY.
00258  M01S00257.comcvqf +++|*
00259  M01S00258.comcvqf +++|*         USES   X - 0, 1, 2, 3, 4, 6.
00260  M01S00259.comcvqf +++|*                A - 1, 2, 3, 4, 6.
00261  M01S00260.comcvqf +++|*
00262  M01S00261.comcvqf +++|*         CALLS  CFE, VQI.
00263  M01S00262.comcvqf +++|*
00264  M01S00263.comcvqf +++|*         XREF   COMSJIO, COMSQFS.
00265  M01S00264.comcvqf +++|
00266  M01S00265.comcvqf +++|
00267  M01S00266.comcvqf +++| VIE12    SX1    B1+         SET ERROR EXIT
00268  M01S00267.comcvqf +++|
00269  M01S00268.comcvqf +++| VIE      SUBR               ENTRY/EXIT
00270  M01S00269.comcvqf +++|          SA6    VIEA        SAVE FLAG
00271  M01S00270.comcvqf +++|          SX1    IQFE
00272  M01S00271.comcvqf +++|          RJ     VQI         VALIDATE QFT INFORMATION
00273  M01S00272.comcvqf +++|          NZ     X1,VIEX     IF NO MATCH
00274  M01S00273.comcvqf +++|
00275  M01S00274.comcvqf +++|*         CHECK RECOVERY DATES.
00276  M01S00275.comcvqf +++|
00277  M01S00276.comcvqf +++|          SA2    TARA+ARFC   CHECK UNCONDITIONAL PROCESSING
00278  M01S00277.comcvqf +++|          LX2    59-52
00279  M01S00278.comcvqf +++|          NG     X2,VIE8     IF UNCONDITIONAL PROCESSING
00280  M01S00279.comcvqf +++|          SA3    IQFE+8      PACKED DATE/TIME
00281  M01S00280.comcvqf +++|          MX0    -18
00282  M01S00281.comcvqf +++|          SA4    TARA+ARDA
00283  M01S00282.comcvqf +++|          AX3    18          CLEAR TIME
00284  M01S00283.comcvqf +++|          ZR     X4,VIE1     IF NO DATE SPECIFIED
00285  M01S00284.comcvqf +++|          BX2    -X0*X3
00286  M01S00285.comcvqf +++|          IX1    X2-X4
00287  M01S00286.comcvqf +++|          NG     X1,VIE12    IF DATE .LT. LOWER BOUND
00288  M01S00287.comcvqf +++|          SA4    A4+B1
00289  M01S00288.comcvqf +++|          IX1    X4-X2
00290  M01S00289.comcvqf +++|          NG     X1,VIE12    IF DATE .GT. UPPER BOUND
00291  M01S00290.comcvqf +++|
00292  M01S00291.comcvqf +++|*         CHECK FILE SIZE.
00293  M01S00292.comcvqf +++|
00294  M01S00293.comcvqf +++| VIE1     AX3    18          GET FILE SIZE
00295  M01S00294.comcvqf +++|          SA4    TARA+ARFS
00296  M01S00295.comcvqf +++|          IX1    X3-X4
00297  M01S00296.comcvqf +++|          NG     X1,VIE12    IF SIZE .LT. LOWER BOUND
00298  M01S00297.comcvqf +++|          MX0    42          CHECK IF INFINITY
00299  M01S00298.comcvqf +++|          SA4    A4+B1
00300  M01S00299.comcvqf +++|          BX2    X4+X0
00301  M01S00300.comcvqf +++|          ZR     X2,VIE2     IF NO UPPER BOUND
00302  M01S00301.comcvqf +++|          IX1    X4-X3
00303  M01S00302.comcvqf +++|          NG     X1,VIE12    IF SIZE .GT. UPPER BOUND
00304  M01S00303.comcvqf +++|
00305  M01S00304.comcvqf +++|*         CHECK MACHINE ID.
00306  M01S00305.comcvqf +++|
00307  M01S00306.comcvqf +++| VIE2     SA3    A3+1
00308  M01S00307.comcvqf +++|          SA1    TARA+ARMI   MACHINE ID
00309  M01S00308.comcvqf +++|          ZR     X1,VIE3     IF NO MACHINE ID
00310  M01S00309.comcvqf +++|          LX1    12
00311  M01S00310.comcvqf +++|          MX0    -12
00312  M01S00311.comcvqf +++|          BX4    X1-X3
00313  M01S00312.comcvqf +++|          BX1    -X0*X4
00314  M01S00313.comcvqf +++|          NZ     X1,VIE12    IF NO MATCH
00315  M01S00314.comcvqf +++|
00316  M01S00315.comcvqf +++|*         CHECK CREATION FAMILY NAME.
00317  M01S00316.comcvqf +++|
00318  M01S00317.comcvqf +++| VIE3     SA2    TARA+ARFU   CHECK CREATION FAMILY
00319  M01S00318.comcvqf +++|          ZR     X2,VIE4     IF ALL FAMILIES
00320  M01S00319.comcvqf +++|          BX6    X2-X3
00321  M01S00320.comcvqf +++|          MX0    42
00322  M01S00321.comcvqf +++|          BX6    X0*X6
00323  M01S00322.comcvqf +++|          NZ     X6,VIE12    IF NO MATCH ON CREATION FAMILY
00324  M01S00323.comcvqf +++| VIE4     SA1    A3+1        CHECK DESTINATION FAMILY
00325  M01S00324.comcvqf +++|          MX0    42
00326  M01S00325.comcvqf +++|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00326.cvqf7a  ---|          MX0    6
00328  M01S00001.cvqf7a  +++|          MX0    -6
00329  M01S00327.comcvqf +++|          SA4    IQFE+3      CHECK FAMILY ORDINAL IN QFT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00328.cvqf7a  ---|          LX4    12

Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00329.cvqf7a  ---|          BX4    X0*X4
00332  M01S00002.cvqf7a  +++|          LX4    18
00333  M01S00003.cvqf7a  +++|          BX4    -X0*X4
00334  M01S00330.comcvqf +++|          BX1    X1+X4
00335  M01S00331.comcvqf +++|          SA2    TARA+ARTF
00336  M01S00332.comcvqf +++|          BX1    X1+X2
00337  M01S00333.comcvqf +++|          SA3    TARA+ARID
00338  M01S00334.comcvqf +++|          ZR     X1,VIE5     IF CHECKING BATCH ID
00339  M01S00335.comcvqf +++|          ZR     X2,VIE6     IF ALL FAMILIES
00340  M01S00336.comcvqf +++|          SA3    TARA+ARTI
00341  M01S00337.comcvqf +++| VIE5     SA4    IQFE+3      CHECK DESTINATION UI OR BATCH ID
00342  M01S00338.comcvqf +++|          LX4    -24
00343  M01S00339.comcvqf +++|          MX0    -18
00344  M01S00340.comcvqf +++|          BX4    -X0*X4
00345  M01S00341.comcvqf +++|          IX3    X4-X3
00346  M01S00342.comcvqf +++|          NG     X3,VIE12    IF BELOW LOWER LIMIT
00347  M01S00343.comcvqf +++|          SA3    A3+B1
00348  M01S00344.comcvqf +++|          IX3    X3-X4
00349  M01S00345.comcvqf +++|          NG     X3,VIE12    IF ABOVE UPPER LIMIT
00350  M01S00346.comcvqf +++|          ZR     X1,VIE6     IF CHECKING BATCH ID
00351  M01S00347.comcvqf +++|          BX6    X2-X1
00352  M01S00348.comcvqf +++|          MX0    42
00353  M01S00349.comcvqf +++|          BX6    X0*X6
00354  M01S00350.comcvqf +++|          NZ     X6,VIE12    IF NO MATCH ON DESTINATION FAMILY
00355  M01S00351.comcvqf +++|
00356  M01S00352.comcvqf +++|*         CHECK OWNER USER INDEX.
00357  M01S00353.comcvqf +++|
00358  M01S00354.comcvqf +++| VIE6     SA1    IQFE+11     GET OWNER USER INDEX
00359  M01S00355.comcvqf +++|          MX0    -18
00360  M01S00356.comcvqf +++|          SA2    TARA+ARUI
00361  M01S00357.comcvqf +++|          BX6    -X0*X1
00362  M01S00358.comcvqf +++|          IX2    X6-X2
00363  M01S00359.comcvqf +++|          NG     X2,VIE12    IF LOWER LIMIT GREATER THAN INDEX
00364  M01S00360.comcvqf +++|          SA2    A2+B1
00365  M01S00361.comcvqf +++|          IX2    X2-X6
00366  M01S00362.comcvqf +++|          NG     X2,VIE12    IF UPPER LIMIT LESS THAN INDEX
00367  M01S00363.comcvqf +++|
00368  M01S00364.comcvqf +++|*         CHECK FOR ACTIVE OWNER FAMILY ON A RECOVER FUNCTION.
00369  M01S00365.comcvqf +++|
00370  M01S00366.comcvqf +++|          SA1    VIEA
00371  M01S00367.comcvqf +++|          ZR     X1,VIEX     IF NOT ACTIVATE REQUEST
00372  M01S00368.comcvqf +++|          SA4    IQFE
00373  M01S00369.comcvqf +++|          MX0    -3
00374  M01S00370.comcvqf +++|          LX4    0-9
00375  M01S00371.comcvqf +++|          BX4    -X0*X4
00376  M01S00372.comcvqf +++|          MX0    42
00377  M01S00373.comcvqf +++|          SX4    X4-INQT
00378  M01S00374.comcvqf +++|          NZ     X4,VIE8     IF NOT AN INPUT FILE
00379  M01S00375.comcvqf +++|          SA3    TARA+ARFC   CHECK INPUT FILE PROCESSING FLAG
00380  M01S00376.comcvqf +++|          LX3    59-53
00381  M01S00377.comcvqf +++|          NG     X3,VIE8     IF ACTIVATING ALL INPUT FILES
00382  M01S00378.comcvqf +++|          SA3    IQFE+12     GET OWNER FAMILY NAME
00383  M01S00379.comcvqf +++|          SA4    TACF        SEARCH FOR ACTIVE FAMILY
00384  M01S00380.comcvqf +++| VIE7     BX2    X3-X4       COMPARE FAMILY NAME
00385  M01S00381.comcvqf +++|          SA4    A4+1
00386  M01S00382.comcvqf +++|          BX1    X0*X2
00387  M01S00383.comcvqf +++|          ZR     X1,VIE8     IF NAMES MATCH
00388  M01S00384.comcvqf +++|          NZ     X4,VIE7     IF NOT END OF FAMILIES
00389  M01S00385.comcvqf +++|          EQ     VIE12       SET NO MATCH
00390  M01S00386.comcvqf +++|
00391  M01S00387.comcvqf +++| VIE8     SA1    IQFE+12     GET OWNER FAMILY
00392  M01S00388.comcvqf +++|          BX1    X0*X1
00393  M01S00389.comcvqf +++|          ZR     X1,VIE9     IF NO OWNER FAMILY
00394  M01S00390.comcvqf +++|          RJ     CFE
00395  M01S00391.comcvqf +++|          ZR     X3,VIE11    IF ERROR
00396  M01S00392.comcvqf +++| VIE9     SA1    IQFE+10     GET DESTINATION FAMILY
00397  M01S00393.comcvqf +++|          MX0    42
00398  M01S00394.comcvqf +++|          BX1    X0*X1
00399  M01S00395.comcvqf +++|          ZR     X1,VIE10    IF NO DESTINATION FAMILY
00400  M01S00396.comcvqf +++|          RJ     CFE
00401  M01S00397.comcvqf +++|          ZR     X3,VIE11    IF ERROR
00402  M01S00398.comcvqf +++| VIE10    BX1    X1-X1
00403  M01S00399.comcvqf +++|          EQ     VIEX        RETURN
00404  M01S00400.comcvqf +++|
00405  M01S00401.comcvqf +++| VIE11    MX1    1           SET ERROR EXIT
00406  M01S00402.comcvqf +++|          EQ     VIEX        RETURN
00407  M01S00403.comcvqf +++|
00408  M01S00404.comcvqf +++|
00409  M01S00405.comcvqf +++| VIEA     CON    0           ACTIVATE REQUEST FLAG
00410  M01S00406.comcvqf +++| VQE      SPACE  4,20
00411  M01S00407.comcvqf +++|**        VQE - VALIDATE QFT ENTRY.
00412  M01S00408.comcvqf +++|*
00413  M01S00409.comcvqf +++|*         ENTRY  (X1) = QFT ADDRESS.
00414  M01S00410.comcvqf +++|*                (B1) = 1.
00415  M01S00411.comcvqf +++|*
00416  M01S00412.comcvqf +++|*         EXIT   (X1) = 0, IF FILE MATCHES PARAMETER BLOCK.
00417  M01S00413.comcvqf +++|*                     = 1, IF NO MATCH.
00418  M01S00414.comcvqf +++|*                (X2) = EST ORDINAL FROM QFT.
00419  M01S00415.comcvqf +++|*
00420  M01S00416.comcvqf +++|*         USES   X - 0, 1, 2, 3, 4, 6.
00421  M01S00417.comcvqf +++|*                A - 1, 2, 3, 6.
00422  M01S00418.comcvqf +++|*
00423  M01S00419.comcvqf +++|*         CALLS  VQI.
00424  M01S00420.comcvqf +++|*
00425  M01S00421.comcvqf +++|*         XREF   COMSQFS.
00426  M01S00422.comcvqf +++|
00427  M01S00423.comcvqf +++|
00428  M01S00424.comcvqf +++| VQE4     SX1    B1          SET ERROR EXIT
00429  M01S00425.comcvqf +++|
00430  M01S00426.comcvqf +++| VQE      SUBR               ENTRY/EXIT
00431  M01S00427.comcvqf +++|          BX6    X1          SAVE QFT ADDRESS
00432  M01S00428.comcvqf +++|          SA6    VQEA
00433  M01S00429.comcvqf +++|          RJ     VQI         VALIDATE QFT INFORMATION
00434  M01S00430.comcvqf +++|          NZ     X1,VQEX     IF NO MATCH
00435  M01S00431.comcvqf +++|
00436  M01S00432.comcvqf +++|*         CHECK ROUTING INFORMATION.
00437  M01S00433.comcvqf +++|
00438  M01S00434.comcvqf +++|          SA2    TARA+ARFC
00439  M01S00435.comcvqf +++|          LX2    59-52
00440  M01S00436.comcvqf +++|          NG     X2,VQE3     IF UNCONDITIONAL FILE PROCESSING
00441  M01S00437.comcvqf +++|          SA1    VQEA
00442  M01S00438.comcvqf +++|          SA1    X1+3        GET DESTINATION FAMILY ORDINAL
00443  M01S00439.comcvqf +++|          LX1    18
00444  M01S00440.comcvqf +++|          MX0    -6
00445  M01S00441.comcvqf +++|          BX2    -X0*X1
00446  M01S00442.comcvqf +++|          LX1    18          GET DESTINATION UI OR BATCH ID
00447  M01S00443.comcvqf +++|          MX0    -18
00448  M01S00444.comcvqf +++|          BX4    -X0*X1
00449  M01S00445.comcvqf +++|          SA1    TARA+ARTF
00450  M01S00446.comcvqf +++|          BX2    X1+X2
00451  M01S00447.comcvqf +++|          ZR     X2,VQE1     IF CHECKING BATCH ID
00452  M01S00448.comcvqf +++|          SA3    TARA+ARTI
00453  M01S00449.comcvqf +++|          ZR     X1,VQE3     IF DESTINATION FAMILY NOT SPECIFIED
00454  M01S00450.comcvqf +++|          MX0    42
00455  M01S00451.comcvqf +++|          SA2    FOTA-1+X2   GET FAMILY NAME
00456  M01S00452.comcvqf +++|          BX1    X1-X2
00457  M01S00453.comcvqf +++|          BX1    X0*X1
00458  M01S00454.comcvqf +++|          NZ     X1,VQE4     IF NO MATCH ON DESTINATION FAMILY
00459  M01S00455.comcvqf +++|          EQ     VQE2        CHECK DESTINATION UI
00460  M01S00456.comcvqf +++|
00461  M01S00457.comcvqf +++| VQE1     SA3    TARA+ARID
00462  M01S00458.comcvqf +++| VQE2     IX3    X4-X3       CHECK DESTINATION UI OR BATCH ID
00463  M01S00459.comcvqf +++|          NG     X3,VQE4     IF BELOW LOWER LIMIT
00464  M01S00460.comcvqf +++|          SA3    A3+B1
00465  M01S00461.comcvqf +++|          IX3    X3-X4
00466  M01S00462.comcvqf +++|          NG     X3,VQE4     IF ABOVE UPPER LIMIT
00467  M01S00463.comcvqf +++|
00468  M01S00464.comcvqf +++|*         SET EXIT CONDITIONS.
00469  M01S00465.comcvqf +++|
00470  M01S00466.comcvqf +++| VQE3     BX1    X1-X1       CLEAR ERROR RETURN
00471  M01S00467.comcvqf +++|          SX2    B2          SET EST ORDINAL
00472  M01S00468.comcvqf +++|          EQ     VQEX        RETURN
00473  M01S00469.comcvqf +++|
00474  M01S00470.comcvqf +++|
00475  M01S00471.comcvqf +++| VQEA     CON    0           QFT ENTRY ADDRESS
00476  M01S00472.comcvqf +++| VQI      SPACE  4,15
00477  M01S00473.comcvqf +++|**        VQI - VALIDATE QFT INFORMATION.
00478  M01S00474.comcvqf +++|*
00479  M01S00475.comcvqf +++|*         ENTRY  (X1) = QFT ADDRESS.
00480  M01S00476.comcvqf +++|*                (X6) .NE. 0, IF ACTIVATE REQUEST.
00481  M01S00477.comcvqf +++|*                (B1) = 1.
00482  M01S00478.comcvqf +++|*
00483  M01S00479.comcvqf +++|*         EXIT   (X1) = 0, IF FILE MATCHES PARAMETER BLOCK.
00484  M01S00480.comcvqf +++|*                     = 1, IF NO MATCH.
00485  M01S00481.comcvqf +++|*                (B2) = EST ORDINAL FROM QFT.
00486  M01S00482.comcvqf +++|*
00487  M01S00483.comcvqf +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
00488  M01S00484.comcvqf +++|*                A - 1, 2, 3, 4.
00489  M01S00485.comcvqf +++|*                B - 2, 3, 4.
00490  M01S00486.comcvqf +++|*
00491  M01S00487.comcvqf +++|*         XREF   COMSJIO, COMSQFS.
00492  M01S00488.comcvqf +++|
00493  M01S00489.comcvqf +++|
00494  M01S00490.comcvqf +++| VQI11    SX1    B1          SET ERROR EXIT
00495  M01S00491.comcvqf +++|
00496  M01S00492.comcvqf +++| VQI      SUBR               ENTRY/EXIT
00497  M01S00493.comcvqf +++|
00498  M01S00494.comcvqf +++|*         DETERMINE DISPOSITION CODE.
00499  M01S00495.comcvqf +++|
00500  M01S00496.comcvqf +++|          SA1    X1+         GET QFT WORD 0
00501  M01S00497.comcvqf +++|          SA2    TARA+ARFC
00502  M01S00498.comcvqf +++|          LX2    59-52
00503  M01S00499.comcvqf +++|          NG     X2,VQI1.1   IF UNCONDITIONAL FILE PROCESSING
00504  M01S00500.comcvqf +++|          MX0    -6
00505  M01S00501.comcvqf +++|          BX2    X1
00506  M01S00502.comcvqf +++|          AX2    6
00507  M01S00503.comcvqf +++|          BX7    -X0*X2      SAVE DISPOSITION CODE
00508  M01S00504.comcvqf +++|          SA3    TDCS-1      GET SHIFT COUNT
00509  M01S00505.comcvqf +++| VQI1     SA3    A3+B1
00510  M01S00506.comcvqf +++|          ZR     X3,VQI11    IF DISPOSITION CODE NOT IN TABLE
00511  M01S00507.comcvqf +++|          SX2    X3
00512  M01S00508.comcvqf +++|          IX2    X7-X2
00513  M01S00509.comcvqf +++|          NZ     X2,VQI1     IF NOT MATCH
00514  M01S00510.comcvqf +++|          LX3    -18
00515  M01S00511.comcvqf +++|          SB2    X3          (B2) = SHIFT COUNT
00516  M01S00512.comcvqf +++|
00517  M01S00513.comcvqf +++|*         DETERMINE ORIGIN TYPE.
00518  M01S00514.comcvqf +++|
00519  M01S00515.comcvqf +++| VQI1.1   SA2    A1+3        GET ORIGIN TYPE
00520  M01S00516.comcvqf +++|          LX2    6           CHECK FOR SUBSYSTEM INPUT FILE
00521  M01S00517.comcvqf +++|          BX4    -X0*X2      GET SERVICE CLASS
00522  M01S00518.comcvqf +++|          MX0    -3
00523  M01S00519.comcvqf +++|          AX1    9           GET QUEUE TYPE
00524  M01S00520.comcvqf +++|          BX1    -X0*X1
00525  M01S00521.comcvqf +++|          ZR     X6,VQI1.2   IF FILE NOT TO BE REACTIVATED
00526  M01S00522.comcvqf +++|          ERRNZ  INQT        INPUT QUEUE TYPE VALUE CHANGED
00527  M01S00523.comcvqf +++|          NZ     X1,VQI1.2   IF NOT INPUT FILE
00528  M01S00524.comcvqf +++|          SX3    SSSC
00529  M01S00525.comcvqf +++|          BX4    X3-X4
00530  M01S00526.comcvqf +++|          ZR     X4,VQI11    IF SUBSYSTEM INPUT FILE
00531  M01S00527.comcvqf +++|          MX0    6           CHECK FOR INTERACTIVE INPUT FILE
00532  M01S00528.comcvqf +++|          BX0    X0*X2
00533  M01S00529.comcvqf +++|          LX0    6
00534  M01S00530.comcvqf +++|          SX0    X0-IAOT
00535  M01S00531.comcvqf +++|          ZR     X0,VQI11    IF INTERACTIVE INPUT FILE
00536  M01S00532.comcvqf +++| VQI1.2   LX2    6
00537  M01S00533.comcvqf +++|          MX0    -6
00538  M01S00534.comcvqf +++|          BX1    X2
00539  M01S00535.comcvqf +++|          BX2    -X0*X2
00540  M01S00536.comcvqf +++|          SX3    IAOT
00541  M01S00537.comcvqf +++|          IX3    X3-X2
00542  M01S00538.comcvqf +++|          NG     X3,VQI11    IF INVALID ORIGIN TYPE
00543  M01S00539.comcvqf +++|          SB3    X2          SAVE ORIGIN TYPE
00544  M01S00540.comcvqf +++|          LX1    6
00545  M01S00541.comcvqf +++|          BX1    -X0*X1
00546  M01S00542.comcvqf +++|          SA2    TARA+ARFC
00547  M01S00543.comcvqf +++|          LX2    59-52
00548  M01S00544.comcvqf +++|          NG     X2,VQI4     IF UNCONDITIONAL FILE PROCESSING
00549  M01S00545.comcvqf +++|          SX2    ARBC
00550  M01S00546.comcvqf +++|          ZR     X1,VQI1.3   IF LOCAL BATCH FILE
00551  M01S00547.comcvqf +++|          SX2    ARRB
00552  M01S00548.comcvqf +++| VQI1.3   SA4    TARA+X2     GET DISPOSITION CODE SELECTIONS
00553  M01S00549.comcvqf +++|          LX4    B2,X4
00554  M01S00550.comcvqf +++|          PL     X4,VQI11    IF DISPOSITION CODE NOT SELECTED
00555  M01S00551.comcvqf +++|
00556  M01S00552.comcvqf +++|*         CHECK JSN-S.
00557  M01S00553.comcvqf +++|
00558  M01S00554.comcvqf +++|          SA1    A1          REREAD JSN
00559  M01S00555.comcvqf +++|          SB4    ARJNL       SET JSN LIST LENGTH
00560  M01S00556.comcvqf +++|          MX0    24
00561  M01S00557.comcvqf +++|          BX2    X0*X1
00562  M01S00558.comcvqf +++|          SA3    TARA+ARJN-1
00563  M01S00559.comcvqf +++|          SB2    B0+
00564  M01S00560.comcvqf +++| VQI2     SB4    B4-B1
00565  M01S00561.comcvqf +++|          SA3    A3+B1
00566  M01S00562.comcvqf +++|          ZR     X3,VQI3     IF NO ENTRY
00567  M01S00563.comcvqf +++|          SB2    B2+B1       FLAG JSN PRESENT
00568  M01S00564.comcvqf +++|          IX6    X3-X2
00569  M01S00565.comcvqf +++|          ZR     X6,VQI4     IF MATCH
00570  M01S00566.comcvqf +++| VQI3     NE     B4,VQI2     IF NOT END OF JSN-S
00571  M01S00567.comcvqf +++|          NE     B2,VQI11    IF JSN-S SPECIFIED
00572  M01S00568.comcvqf +++|
00573  M01S00569.comcvqf +++|*         GET EST ORDINAL AND CHECK FIRST TRACK.
00574  M01S00570.comcvqf +++|
00575  M01S00571.comcvqf +++| VQI4     SA1    A1+B1       GET QFT WORD 1
00576  M01S00572.comcvqf +++|          MX0    12          CHECK IF FIRST TRACK USED
00577  M01S00573.comcvqf +++|          LX1    12
00578  M01S00574.comcvqf +++|          BX3    X0*X1
00579  M01S00575.comcvqf +++|          ZR     X3,VQI11    IF FIRST TRACK ZERO
00580  M01S00576.comcvqf +++|          MX0    -12         GET EST ORDINAL
00581  M01S00577.comcvqf +++|          BX3    -X0*X1
00582  M01S00578.comcvqf +++|          SB2    X3+         SAVE EST ORDINAL
00583  M01S00579.comcvqf +++|
00584  M01S00580.comcvqf +++|*         CHECK FORMS CODE.
00585  M01S00581.comcvqf +++|
00586  M01S00582.comcvqf +++|          SX1    B0+         SET FILE SELECTED
00587  M01S00583.comcvqf +++|          SA2    TARA+ARFC
00588  M01S00584.comcvqf +++|          LX2    59-52
00589  M01S00585.comcvqf +++|          NG     X2,VQIX     IF UNCONDITIONAL FILE PROCESSING
00590  M01S00586.comcvqf +++|          SA3    TARA+ARFR
00591  M01S00587.comcvqf +++|          SX4    X3-100B
00592  M01S00588.comcvqf +++|          ZR     X4,VQI10    IF ALL FORMS CODES SELECTED
00593  M01S00589.comcvqf +++|          MX0    -3          CHECK QUEUE TYPE
00594  M01S00590.comcvqf +++|          LX7    -3
00595  M01S00591.comcvqf +++|          BX7    -X0*X7
00596  M01S00592.comcvqf +++|          SB4    X7-INQT
00597  M01S00593.comcvqf +++|          EQ     B4,VQI10    IF INPUT QUEUE
00598  M01S00594.comcvqf +++|          SA1    A1+2        GET QFT WORD 3
00599  M01S00595.comcvqf +++|          MX0    12
00600  M01S00596.comcvqf +++|          LX1    48
00601  M01S00597.comcvqf +++|          SB4    59
00602  M01S00598.comcvqf +++|          LX2    X3,B4
00603  M01S00599.comcvqf +++|          BX1    X0*X1
00604  M01S00600.comcvqf +++|          NG     X2,VQI7     IF RANGE SPECIFIED
00605  M01S00601.comcvqf +++|          SB4    3           CHECK FORMS CODE LIST
00606  M01S00602.comcvqf +++| VQI5     BX2    X0*X3
00607  M01S00603.comcvqf +++|          ZR     X2,VQI11    IF END OF FORMS CODE LIST
00608  M01S00604.comcvqf +++|          BX4    X2-X0
00609  M01S00605.comcvqf +++|          NZ     X4,VQI6     IF NOT NULL FORMS CODE
00610  M01S00606.comcvqf +++|          BX2    X2-X2       SET NULL FORMS CODE
00611  M01S00607.comcvqf +++| VQI6     BX4    X2-X1
00612  M01S00608.comcvqf +++|          ZR     X4,VQI10    IF MATCH
00613  M01S00609.comcvqf +++|          LX3    12
00614  M01S00610.comcvqf +++|          SB4    B4-1
00615  M01S00611.comcvqf +++|          NE     B4,VQI5     IF MORE FORMS CODES
00616  M01S00612.comcvqf +++|          EQ     VQI11       SET NO MATCH
00617  M01S00613.comcvqf +++|
00618  M01S00614.comcvqf +++| VQI7     BX2    X0*X3       CHECK FORMS CODE RANGE
00619  M01S00615.comcvqf +++|          BX4    X2-X0
00620  M01S00616.comcvqf +++|          ZR     X4,VQI8     IF NULL FORMS CODE
00621  M01S00617.comcvqf +++|          IX4    X1-X2
00622  M01S00618.comcvqf +++|          NG     X4,VQI11    IF BELOW LOWER LIMIT
00623  M01S00619.comcvqf +++| VQI8     LX3    12

Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00620.cvqf8   ---|          BX2    X0*X1
00625  M01S00001.cvqf8   +++|          BX2    X0*X3
00626  M01S00621.comcvqf +++|          BX4    X2-X0
00627  M01S00622.comcvqf +++|          NZ     X4,VQI9     IF NOT NULL FORMS CODE
00628  M01S00623.comcvqf +++|          BX2    X2-X2
00629  M01S00624.comcvqf +++| VQI9     IX4    X2-X1
00630  M01S00625.comcvqf +++|          NG     X4,VQI11    IF ABOVE UPPER LIMIT
00631  M01S00626.comcvqf +++|
00632  M01S00627.comcvqf +++|*         SET EXIT CONDITIONS.
00633  M01S00628.comcvqf +++|
00634  M01S00629.comcvqf +++| VQI10    BX1    X1-X1       CLEAR ERROR RETURN
00635  M01S00630.comcvqf +++|          EQ     VQIX        RETURN
00636  M01S00631.comcvqf +++|
00637  M01S00632.comcvqf +++|*         DISPOSITION CODE SHIFT TABLE.
00638  M01S00633.comcvqf +++|
00639  M01S00634.comcvqf +++| TDCS     BSS    0
00640  M01S00635.comcvqf +++|          VFD    36/0,6/1,18/INQF
00641  M01S00636.comcvqf +++|          VFD    36/0,6/1,18/NOQF
00642  M01S00637.comcvqf +++|          VFD    36/0,6/1,18/TOQF
00643  M01S00638.comcvqf +++|          VFD    36/0,6/2,18/PUQF
00644  M01S00639.comcvqf +++|          VFD    36/0,6/3,18/PLQF
00645  M01S00640.comcvqf +++|          VFD    36/0,6/4,18/LPQF
00646  M01S00641.comcvqf +++|          VFD    36/0,6/5,18/P2QF
00647  M01S00642.comcvqf +++|          VFD    36/0,6/6,18/LRQF
00648  M01S00643.comcvqf +++|          VFD    36/0,6/7,18/LSQF
00649  M01S00644.comcvqf +++|          VFD    36/0,6/8,18/LTQF
00650  M01S00645.comcvqf +++|          VFD    36/0,6/9,18/LXQF
00651  M01S00646.comcvqf +++|          VFD    36/0,6/10,18/LYQF
00652  M01S00647.comcvqf +++|          VFD    36/0,6/11,18/ERQF
00653  M01S00648.comcvqf +++|          VFD    36/0,6/11,18/TQQF
00654  M01S00649.comcvqf +++|          VFD    36/0,6/0,18/S1QF
00655  M01S00650.comcvqf +++|          VFD    36/0,6/0,18/S2QF
00656  M01S00651.comcvqf +++|          VFD    36/0,6/0,18/S3QF
00657  M01S00652.comcvqf +++|          VFD    60/0
00658  M01S00653.comcvqf +++|
00659  M01S00654.comcvqf +++|
00660  M01S00655.comcvqf +++|
00661  M01S00656.comcvqf +++|          BASE   *
00662  M01S00657.comcvqf +++| QUAL$    IF     -DEF,QUAL$
00663  M01S00658.comcvqf +++|          QUAL   *
00664  M01S00659.comcvqf +++| CAF      EQU    /COMCVQF/CAF
00665  M01S00660.comcvqf +++| CLD      EQU    /COMCVQF/CLD
00666  M01S00661.comcvqf +++| FOTF     EQU    /COMCVQF/FOTF
00667  M01S00662.comcvqf +++| LTFL     EQU    /COMCVQF/LTFL
00668  M01S00663.comcvqf +++| VIE      EQU    /COMCVQF/VIE
00669  M01S00664.comcvqf +++| VQE      EQU    /COMCVQF/VQE
00670  M01S00665.comcvqf +++| QUAL$    ENDIF
00671  M01S00666.comcvqf +++| VQF      ENDX