Library Member Format: MODIFY

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.

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

Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00326.cvqf7a  ---|          MX0    6

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

Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00328.cvqf7a  ---|          LX4    12
00331  M01S00329.cvqf7a  ---|          BX4    X0*X4

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

Seq #  *Modification Id* Act 
----------------------------+
00624  M01S00620.cvqf8   ---|          BX2    X0*X1

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