!   NAME: Z6061023  PRODUCT: BASE     CATEGORY: HIGH    SYSTEM: VMS
!   DATE: 02AUG90   STATUS:  DZ+UT    USAGE-ID: V6-ENGINE-1023
!
!   CONCUR engine does not allow for write access to data set
!
!   NOTE: THE ^ CHARACTER IS THE ASCII 'HAT' CHARACTER (X'5E')
!   NOTE: THE { CHARACTER IS THE ASCII LEFT SQUARE BRACKET (X'5B')
!   NOTE: THE } CHARACTER IS THE ASCII RIGHT SQUARE BRACKET (X'5D')
!
!   IMAGE: SAS$ROOT:{IMAGE}SAS606.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!   NOTE: Z6061024 must also be applied to correct the problem
!-----------------------------------------------------------------------
!   END
SAS606.EXE
DEFINE PATAREA=0
DEFINE VCVLCKOUT=^X018998
SET ECO ^X06A
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VCVLCKOUT+^X0B0
'MOVL	B^^D36(R5),L^^D36(R3)'
EXIT
'MOVL	B^^D36(R5),L^^D36(R3)'
'MOVL	B^-^D12(FP),R2'
'CLRL	B^^D12(R2)'
EXIT
UPDATE
EXIT