Common COMCVDT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcvdt +++|          CTEXT  COMCVDT - VALIDATE AND CONVERT DATE AND TIME.
00002  M00S00002.comcvdt +++|          SPACE  4,10
00003  M00S00003.comcvdt +++|          IF     -DEF,QUAL$
00004  M00S00004.comcvdt +++|          QUAL   COMCVDT
00005  M00S00005.comcvdt +++|          ENDIF
00006  M00S00006.comcvdt +++|          BASE   D

Line S00007 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1982.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.comcvdt +++| VDT      SPACE  4,10
00010  M00S00009.comcvdt +++|***       COMCVDT - VALIDATE AND CONVERT DATE AND TIME.
00011  M00S00010.comcvdt +++|*
00012  M00S00011.comcvdt +++|*         M. S. PESCHMAN.    82/09/20.
00013  M00S00012.comcvdt +++|          SPACE  4,10

Line S00013 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns2628  ---|***       VDT WILL CONVERT A SUPPLIED DISPLAY CODED DATE OR TIME TO A
00015  M01S00014.ns2628  ---|*         BINARY VALUE AND CHECK THE VALIDITY OF THE ENTRY.
00016  M01S00015.ns2628  ---| VDT      SPACE  4,25

Line S00001 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00001.ns2628  +++|***       *VDT* CONVERTS A DISPLAY CODED DATE OR TIME TO PACKED FORMAT.
00018  M01S00002.ns2628  +++|*         A STATUS IS RETURNED INDICATING WHETHER THE SPECIFIED DATE OR
00019  M01S00003.ns2628  +++|*         TIME IS BEFORE OR AFTER A DEFINED BASE DATE AND TIME.
00020  M01S00004.ns2628  +++|*
00021  M01S00005.ns2628  +++|*         THE BASE DATE AND TIME WILL BE SET TO THE CURRENT DATE AND
00022  M01S00006.ns2628  +++|*         TIME ON THE FIRST CALL TO *VDT* IF NOT PRESET BY THE CALLER.
00023  M01S00007.ns2628  +++| VDT      SPACE  4,35
00024  M00S00016.comcvdt +++|**        VDT - CONVERT DATE AND TIME.
00025  M00S00017.comcvdt +++|*
00026  M00S00018.comcvdt +++|*         ENTRY  (X1) = DATE YYMMDD OR TIME HHMMSS, LEFT JUSTIFIED.

Line S00008 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00008.ns2628  +++|*                (X2) = 0 IF TO CONVERT DATE.
00028  M00S00019.comcvdt +++|*                (X2) = 1 IF TO CONVERT TIME.

Line S00020 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00020.ns2628  ---|*                (X2) = 0 IF TO CONVERT DATE.

Line S00009 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00009.ns2628  +++|*                (VDTA) = 0 IF TO USE CURRENT SYSTEM DATE AND TIME AS
00031  M01S00010.ns2628  +++|*                           BASE.
00032  M01S00011.ns2628  +++|*                (VDTA) = PACKED FORMAT BASE DATE AND TIME IF .NE. 0.
00033  M00S00021.comcvdt +++|*

Line S00022 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00022.ns2628  ---|*         EXIT   (X6) = DATE OR TIME IN 18 BIT FORMAT.
00035  M01S00023.ns2628  ---|*                (X6) .LT. 0 IF ERROR IN CONVERSION.
00036  M01S00024.ns2628  ---|*                (X1) .LT. 0 IF DATE OR TIME EARLIER THAN PRESENT.
00037  M01S00025.ns2628  ---|*                (X1) .GE. 0 IF DATE OR TIME LATER THAN PRESENT.

Line S00012 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00012.ns2628  +++|*         EXIT   (X6) = DATE OR TIME IN 18 BIT PACKED FORMAT.
00039  M01S00013.ns2628  +++|*                (X6) .LT. 0 IF ERROR IN DATE OR TIME ENTRY.
00040  M01S00014.ns2628  +++|*                (X1) .LT. 0 IF DATE OR TIME EARLIER THAN BASE DATE AND
00041  M01S00015.ns2628  +++|*                     TIME.
00042  M01S00016.ns2628  +++|*                (X1) .GE. 0 IF DATE OR TIME LATER THAN BASE DATE AND
00043  M01S00017.ns2628  +++|*                     TIME.
00044  M01S00018.ns2628  +++|*                (VDTA) = BASE DATE AND TIME.
00045  M00S00026.comcvdt +++|*
00046  M00S00027.comcvdt +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
00047  M00S00028.comcvdt +++|*                A - 1, 2, 4, 6, 7.
00048  M00S00029.comcvdt +++|*                B - 6, 7.
00049  M00S00030.comcvdt +++|*
00050  M00S00031.comcvdt +++|*         CALLS  DXB.

Line S00019 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00019.ns2628  +++|*
00052  M01S00020.ns2628  +++|*         MACROS PDATE.
00053  M00S00032.comcvdt +++|*
00054  M00S00033.comcvdt +++|*         NOTES  THE FOLLOWING RULES ARE USED TO DETERMINE THE
00055  M00S00034.comcvdt +++|*                VALIDITY OF THE ENTERED DATE OR TIME.
00056  M00S00035.comcvdt +++|*
00057  M00S00036.comcvdt +++|*                1. YEAR MUST BE IN THE RANGE 1970 - 2033.  THE LAST
00058  M00S00037.comcvdt +++|*                   TWO DIGITS ARE USED, I.E. *12* FOR 2012.
00059  M00S00038.comcvdt +++|*                2. SIX DISPLAY CODE DIGITS MUST BE ENTERED.
00060  M00S00039.comcvdt +++|*                3. THE YEAR 2000 IS A LEAP YEAR.
00061  M00S00040.comcvdt +++|*
00062  M00S00041.comcvdt +++|*         XREF   COMCDXB.
00063  M00S00042.comcvdt +++|
00064  M00S00043.comcvdt +++|
00065  M00S00044.comcvdt +++| VDT      SUBR               ENTRY/EXIT
00066  M00S00045.comcvdt +++|

Line S00046 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00046.ns2628  ---|*         SAVE INPUT PARAMETERS.

Line S00021 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00021.ns2628  +++|*         SAVE INPUT PARAMETERS AND GET CURRENT PACKED DATE AND TIME IF
00069  M01S00022.ns2628  +++|*         REQUIRED.
00070  M00S00047.comcvdt +++|

Line S00048 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00048.ns2628  ---|          BX6    X6-X6       CLEAR ASSEMBLY AREA
00072  M01S00049.ns2628  ---|          SA6    VDTA
00073  M01S00050.ns2628  ---|          BX6    X1          SAVE DISPLAY DATE OR TIME TO CONVERT
00074  M01S00051.ns2628  ---|          SA6    VDTB

Line S00023 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00023.ns2628  +++|          BX7    X1          SAVE DATE OR TIME ENTRY
00076  M00S00052.comcvdt +++|          BX6    X2          SAVE DATE/TIME FLAG

Line S00053 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00053.ns2628  ---|          SA6    A6+B1
00078  M01S00054.ns2628  ---|          MX7    -24
00079  M01S00055.ns2628  ---|          BX2    -X7*X1

Line S00024 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00024.ns2628  +++|          SA7    VDTB
00081  M01S00025.ns2628  +++|          SA6    VDTC
00082  M01S00026.ns2628  +++|          SA1    VDTA
00083  M01S00027.ns2628  +++|          NZ     X1,VDT0.1   IF BASE DATE AND TIME PRESENT
00084  M01S00028.ns2628  +++|          PDATE  VDTA        GET CURRENT PACKED DATE AND TIME
00085  M01S00029.ns2628  +++| VDT0.1   BX6    X6-X6       CLEAR ASSEMBLY AREA
00086  M01S00030.ns2628  +++|          SA6    VDTF
00087  M01S00031.ns2628  +++|          MX6    -24
00088  M01S00032.ns2628  +++|          BX2    -X6*X7
00089  M00S00056.comcvdt +++|          NZ     X2,VDT2     IF NOT ZERO FILLED

Line S00057 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00057.ns2628  ---|          MX7    6
00091  M01S00058.ns2628  ---|          LX7    -30
00092  M01S00059.ns2628  ---|          BX7    X7*X1
00093  M01S00060.ns2628  ---|          ZR     X7,VDT2     IF SIXTH CHARACTER NOT PRESENT
00094  M01S00061.ns2628  ---|          SB6    MASKTL-1

Line S00033 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00033.ns2628  +++|          MX6    6
00096  M01S00034.ns2628  +++|          LX6    -30
00097  M01S00035.ns2628  +++|          BX6    X6*X7
00098  M01S00036.ns2628  +++|          ZR     X6,VDT2     IF SIXTH CHARACTER NOT PRESENT
00099  M01S00037.ns2628  +++|          SB6    VDTHL-1
00100  M00S00062.comcvdt +++|
00101  M00S00063.comcvdt +++|*         CONVERT 2 DIGIT PORTION OF DATE OR TIME.
00102  M00S00064.comcvdt +++|

Line S00065 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00065.ns2628  ---| VDT1     SA1    MASKT+B6    GET MASK

Line S00038 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00038.ns2628  +++| VDT1     SA1    VDTH+B6     GET MASK
00105  M00S00066.comcvdt +++|          SA4    VDTB        GET DATE OR TIME
00106  M00S00067.comcvdt +++|          BX5    X1*X4
00107  M00S00068.comcvdt +++|          SX2    12          FIGURE SHIFT COUNT
00108  M00S00069.comcvdt +++|          SX3    B6
00109  M00S00070.comcvdt +++|          IX3    X3*X2
00110  M00S00071.comcvdt +++|          SB7    X3
00111  M00S00072.comcvdt +++|          LX5    B7,X5
00112  M00S00073.comcvdt +++|          ZR     X5,VDT2     IF NO VALUE SPECIFIED
00113  M00S00074.comcvdt +++|          SB7    B1          SET DECIMAL CONVERSION
00114  M00S00075.comcvdt +++|          RJ     DXB         CONVERT NUMBER
00115  M00S00076.comcvdt +++|          ZR     X4,VDT3     IF NO CONVERSION ERROR
00116  M00S00077.comcvdt +++| VDT2     SX6    -B1         SET ERROR CONDITION
00117  M00S00078.comcvdt +++|          EQ     VDTX        RETURN
00118  M00S00079.comcvdt +++|
00119  M00S00080.comcvdt +++| VDT3     SA2    VDTC
00120  M00S00081.comcvdt +++|          NZ     X2,VDT5     IF PROCESSING TIME
00121  M00S00082.comcvdt +++|          NZ     B6,VDT5     IF NOT CONVERTING YEAR
00122  M00S00083.comcvdt +++|
00123  M00S00084.comcvdt +++|*         CALCULATE YEAR BIAS.
00124  M00S00085.comcvdt +++|
00125  M00S00086.comcvdt +++|          SX6    X6-70
00126  M00S00087.comcvdt +++|          PL     X6,VDT4     IF YEAR IN 1970-1999 RANGE
00127  M00S00088.comcvdt +++|          SX6    X6-34+70
00128  M00S00089.comcvdt +++|          PL     X6,VDT2     IF YEAR ABOVE 2033
00129  M00S00090.comcvdt +++|          SX6    X6+30+34
00130  M00S00091.comcvdt +++|
00131  M00S00092.comcvdt +++|*         CHECK FOR LEAP YEAR.
00132  M00S00093.comcvdt +++|
00133  M00S00094.comcvdt +++| VDT4     MX1    -2
00134  M00S00095.comcvdt +++|          SX7    X6+2
00135  M00S00096.comcvdt +++|          BX7    -X1*X7
00136  M00S00097.comcvdt +++|          SA7    VDTD        SAVE LEAP YEAR FLAG
00137  M00S00098.comcvdt +++|          EQ     VDT6        ADD DIGITS TO ASSEMBLY
00138  M00S00099.comcvdt +++|
00139  M00S00100.comcvdt +++|*         VALIDATE VALUE IN LEGAL RANGE.
00140  M00S00101.comcvdt +++|
00141  M00S00102.comcvdt +++| VDT5     MX7    -30
00142  M00S00103.comcvdt +++|          SA1    VDTG+B6     GET MAXIMUM VALUE WORD
00143  M00S00104.comcvdt +++|          SX3    30
00144  M00S00105.comcvdt +++|          IX2    X2*X3
00145  M00S00106.comcvdt +++|          SB7    X2
00146  M00S00107.comcvdt +++|          LX1    B7          POSITION WORD FOR DATE OR TIME
00147  M00S00108.comcvdt +++|          BX1    -X7*X1      MAXIMUM VALUE
00148  M00S00109.comcvdt +++|          IX4    X1-X6
00149  M00S00110.comcvdt +++|          NG     X4,VDT2     IF ILLEGAL VALUE
00150  M00S00111.comcvdt +++|
00151  M00S00112.comcvdt +++|*         ADD CONVERTED DIGITS TO ASSEMBLY.
00152  M00S00113.comcvdt +++|

Line S00114 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00153  M01S00114.ns2628  ---| VDT6     SA1    VDTA        GET ASSEMBLY

Line S00039 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00154  M01S00039.ns2628  +++| VDT6     SA1    VDTF        GET ASSEMBLY
00155  M00S00115.comcvdt +++|          LX1    54
00156  M00S00116.comcvdt +++|          BX6    X1+X6
00157  M00S00117.comcvdt +++|          SA6    A1
00158  M00S00118.comcvdt +++|          SB6    B6-B1
00159  M00S00119.comcvdt +++|          PL     B6,VDT1     IF MORE TO CONVERT
00160  M00S00120.comcvdt +++|          LX6    12          SAVE TOTAL ASSEMBLY

Line S00121 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00161  M01S00121.ns2628  ---|          SA6    VDTA

Line S00040 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00040.ns2628  +++|          SA6    VDTF
00163  M00S00122.comcvdt +++|          SA2    VDTC        GET TIME/DATE INDICATOR
00164  M00S00123.comcvdt +++|          MX7    -6
00165  M00S00124.comcvdt +++|          NZ     X2,VDT7     IF PROCESSING TIME
00166  M00S00125.comcvdt +++|
00167  M00S00126.comcvdt +++|*         VALIDATE DATE.
00168  M00S00127.comcvdt +++|
00169  M00S00128.comcvdt +++|          BX3    -X7*X6      DAY
00170  M00S00129.comcvdt +++|          ZR     X3,VDT2     IF ZERO DAY ENTERED
00171  M00S00130.comcvdt +++|          LX6    -6
00172  M00S00131.comcvdt +++|          BX1    -X7*X6      MONTH
00173  M00S00132.comcvdt +++|          ZR     X1,VDT2     IF ZERO MONTH ENTERED
00174  M00S00133.comcvdt +++|          SA4    VDTE+X1     GET DAYS FROM MONTH TABLE
00175  M00S00134.comcvdt +++|          IX2    X4-X3
00176  M00S00135.comcvdt +++|          PL     X2,VDT7     IF LEGAL DAY
00177  M00S00136.comcvdt +++|          SA4    VDTD        GET LEAP YEAR INDICATOR
00178  M00S00137.comcvdt +++|          NZ     X4,VDT2     IF NOT LEAP YEAR
00179  M00S00138.comcvdt +++|          SX6    X1-2
00180  M00S00139.comcvdt +++|          NZ     X6,VDT2     IF MONTH NOT FEBRUARY
00181  M00S00140.comcvdt +++|          SX1    X3-29
00182  M00S00141.comcvdt +++|          NZ     X1,VDT2     IF ILLEGAL NUMBER OF DAYS
00183  M00S00142.comcvdt +++|
00184  M00S00143.comcvdt +++|*         SET REPLY.
00185  M00S00144.comcvdt +++|

Line S00145 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00145.ns2628  ---| VDT7     PDATE  VDTF        GET CURRENT PACKED DATE AND TIME
00187  M01S00146.ns2628  ---|          SA2    VDTF
00188  M01S00147.ns2628  ---|          SA1    VDTA        PACKED INPUT

Line S00041 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00041.ns2628  +++| VDT7     SA2    VDTA
00190  M01S00042.ns2628  +++|          SA1    VDTF        PACKED INPUT
00191  M00S00148.comcvdt +++|          MX7    -18
00192  M00S00149.comcvdt +++|          SA4    VDTC
00193  M00S00150.comcvdt +++|          NZ     X4,VDT8     IF PROCESSING TIME
00194  M00S00151.comcvdt +++|          AX2    18
00195  M00S00152.comcvdt +++| VDT8     BX2    -X7*X2
00196  M00S00153.comcvdt +++|          BX6    X1
00197  M00S00154.comcvdt +++|          IX1    X6-X2       SUBTRACT INPUT VALUE FROM CURRENT VALUE
00198  M00S00155.comcvdt +++|          EQ     VDTX        RETURN
00199  M00S00156.comcvdt +++|

Line S00157 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00157.ns2628  ---| VDTA     CON    0           ASSEMBLY AREA
00201  M01S00158.ns2628  ---| VDTB     CON    0           DISPLAY HOLD
00202  M01S00159.ns2628  ---| VDTC     CON    0           ENTRY CONDITION HOLD

Line S00043 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00043.ns2628  +++|
00204  M01S00044.ns2628  +++| VDTA     CON    0           BASE PACKED DATE AND TIME
00205  M01S00045.ns2628  +++| VDTB     CON    0           DATE OR TIME ENTRY
00206  M01S00046.ns2628  +++| VDTC     CON    0           DATE/TIME FLAG
00207  M00S00160.comcvdt +++| VDTD     CON    0           LEAP YEAR INDICATOR
00208  M00S00161.comcvdt +++|
00209  M00S00162.comcvdt +++| VDTE     BSS    1           TABLE OF DAYS IN A MONTH
00210  M00S00163.comcvdt +++|          CON    31          JANUARY
00211  M00S00164.comcvdt +++|          CON    28          FEBRUARY
00212  M00S00165.comcvdt +++|          CON    31          MARCH
00213  M00S00166.comcvdt +++|          CON    30          APRIL
00214  M00S00167.comcvdt +++|          CON    31          MAY
00215  M00S00168.comcvdt +++|          CON    30          JUNE
00216  M00S00169.comcvdt +++|          CON    31          JULY
00217  M00S00170.comcvdt +++|          CON    31          AUGUST
00218  M00S00171.comcvdt +++|          CON    30          SEPTEMBER
00219  M00S00172.comcvdt +++|          CON    31          OCTOBER
00220  M00S00173.comcvdt +++|          CON    30          NOVEMBER
00221  M00S00174.comcvdt +++|          CON    31          DECEMBER

Line S00175 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00175.ns2628  ---| VDTF     CON    1           CURRENT PACKED DATE AND TIME

Line S00047 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00223  M01S00047.ns2628  +++|
00224  M01S00048.ns2628  +++| VDTF     CON    0           ASSEMBLY AREA
00225  M00S00176.comcvdt +++|
00226  M00S00177.comcvdt +++| VDTG     BSS    0           TABLE OF MAXIMUM VALUES
00227  M00S00178.comcvdt +++|          VFD    30/23,30/99 HOUR/YEAR
00228  M00S00179.comcvdt +++|          VFD    30/59,30/12 MINUTE/MONTH
00229  M00S00180.comcvdt +++|          VFD    30/59,30/31 SECOND/DAY
00230  M00S00181.comcvdt +++|

Line S00182 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00182.ns2628  ---| MASKT    BSS    0           MASK TABLE

Line S00049 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00049.ns2628  +++| VDTH     BSS    0           MASK TABLE
00233  M00S00183.comcvdt +++|          VFD    12/7777B,48/0
00234  M00S00184.comcvdt +++|          VFD    12/0,12/7777B,36/0
00235  M00S00185.comcvdt +++|          VFD    24/0,12/7777B,24/0

Line S00186 Modification History
`M01` (Removed by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00236  M01S00186.ns2628  ---| MASKTL   EQU    *-MASKT

Line S00050 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00050.ns2628  +++| VDTHL    EQU    *-VDTH
00238  M00S00187.comcvdt +++|          SPACE  4,10
00239  M00S00188.comcvdt +++|          BASE   *
00240  M00S00189.comcvdt +++| QUAL$    IF     -DEF,QUAL$
00241  M00S00190.comcvdt +++|          QUAL   *
00242  M00S00191.comcvdt +++| VDT      EQU    /COMCVDT/VDT

Line S00051 Modification History
`M01` (Added by)	`ns2628`

Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00051.ns2628  +++| VDTA     EQU    /COMCVDT/VDTA
00244  M00S00192.comcvdt +++| QUAL$    ENDIF
00245  M00S00193.comcvdt +++| VDT      ENDX