* VC/R AMENDMENT NOTICE
*
* Notice number: 134/0          Date:  16 January, 2001
*          
* VC/R release: 1.2
*
* This amendment corrects a problem with the VC/R date
* routines that can cause a date, which has been
* input with a 2 character year, to be rejected as
* invalid.  This only affects the SKIP function.
*
* The following date formats are no longer classed as valid
* within VC/R
*
*           yy/mm/dd       e.g. 98/01/01
*           yymmdd         e.g. 980101
*           yymmmdd        e.g. 98jan01
*
* Please apply this amendment using the procedure described in
* Appendix A1 of the VC/R User Guide.
*
* Module to be amended is: ICL8_UCV0_MAINT  ( 1200 )
*
POINT(ICL8UCU0UTILITIES.UCUVALDATE_C)
PATCH(X9C,X03600005,CODE
   JL      XA0     * LINE 1334
   LSS.L   XE      * D_LEN
   ICP     8
   JL      XA0     * LINE 1334
   JNE     XA6     * LINE 1335
   LB      2
   LB.MD
   LD.L    X13
   SWNE
   JNE     XA0     * LINE 1334
   J       XA6     * LINE 1335
END,NO,NAME=UCVP134/0_P01)
PATCH(XA6,X1804768E,CODE
   PRCL    4
   LD.L    5
   LDB.L   XE
END,YES,NAME=UCVP134/0_P02)
PATCH(X18E,X628EE608,CODE
   LSS.L   XE      * D_LEN
   ICP     8
   JL      #A
   LSS.L   X11     * SEP_FOUND
   JZ      #B
   LSS.L   XE      * D_LEN
   ICP     10
   JGE     #B
#A LSS     1
   J       #C
#B LSS     0
#C ST.L    X10
   JNZ     X1AE    * LINE 1388
   J       X1DA    * LINE 1393
END,NO,NAME=UCVP134/0_P03)
CHE(3CA09087)