!   NAME: Z6060350  PRODUCT: BASE     CATEGORY: HIGH    SYSTEM: VMS
!   DATE: 08MAY90   STATUS:  DZ+UT    USAGE-ID: V6-ENGINE-0350
!
!   Record too long for buffer when using the TAPE engine to copy 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
!-----------------------------------------------------------------------
!   END
SAS606.EXE
DEFINE PATAREA=0
DEFINE VCCLOSE=^X011E80
SET ECO ^X080
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VCCLOSE+^X28
'INCW   B^^D44(R7)'
'PUSHAB W^^D520(R6)'
EXIT
'INCW   B^^D44(R7)'
'BISL   #^D32768,W^^D524(R6)'
'PUSHAB W^^D520(R6)'
EXIT
UPDATE
EXIT