!   NAME: Z6061143  PRODUCT: FSP      CATEGORY: HIGH    SYSTEM: VMS
!   DATE: 13DEC90   STATUS:  DZ+UT    USAGE-ID: V6-FSVIEW-1143
!
!   Values for computed data set variables may not be stored in the 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:{PROCS}SASFPP.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASFPP.EXE
DEFINE FVGO=^X78C0
SET ECO ^X07D
ALIGN/BYTE PATAREA
REPLACE/I FVGO+^X0216
'CLRL R7'
'MOVL B^04(AP),R3'
'BBS #1,W^00B4(R3),LBL1'
'BRW FVGO+^X02A8'
'LBL1: TSTL B^0C(AP)'
'BNEQ FVGO+^X02A8'
'MOVL B^24(R3),R6'
EXIT
'CLRL R7'
'MOVL B^04(AP),R3'
'BBS #1,W^00B4(R3),LBL1'
'BRW FVGO+^X02A8'
'LBL1: MOVL B^24(R3),R6'
'BEQL FVGO+^X027E'
'NOP'
EXIT
REPLACE/I FVGO+^X027E
'TSTL R7'
'BEQL FVGO+^X02A8'
EXIT
'TSTL R7'
'BEQL FVGO+^X02A8'
'TSTL B^0C(AP)'
'BNEQ FVGO+^X02A8'
EXIT
UPDATE
EXIT