!   NAME: Z6061407  PRODUCT: AF FSP   CATEGORY: RECO    SYSTEM: VMS
!   DATE: 01NOV90   STATUS:  DZ+UT    USAGE-ID: V6-SCL-1407
!
!   DEFINE window of the SCL IMPORT function may Display Incorrectly
!
!   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:{PROCS}SASFIM.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASFIM.EXE
DEFINE FMIMPDF=^X27B0
SET ECO ^X080
ALIGN/BYTE PATAREA
REPLACE/I FMIMPDF+^X0246
'ADDL3 B^^X04(R5),R11,@B^^X28(R6)'
'TSTB R7'
'BEQL FMIMPDF+^X02B3'
'CMPL B^^X08(AP),R8'
'BNEQ FMIMPDF+^X025C'
'CLRB L^^X08(R5)'
EXIT
'ADDL3 B^^X04(R5),R11,@B^^X28(R6)'
'CMPL  B^^X08(AP),R7'
'BNEQ FMIMPDF+^X025C'
'CLRB L^^X08(R5)'
EXIT
UPDATE
EXIT