C
      STRUCTURE /IAF/
	INTEGER*4 L_IAFLINK
	INTEGER*4 L_FIXUPLNK
	INTEGER*2 W_SIZE
	INTEGER*2 W_FLAGS
	INTEGER*4 L_G_FIXOFF
	INTEGER*4 L_DOTADROFF
	INTEGER*4 L_CHGPRTOFF
	INTEGER*4 L_SHLSTOFF
	INTEGER*4 L_SHRIMGCNT
	INTEGER*4 L_SHREXTRA
	INTEGER*4 L_PERMCTX
	BYTE	  %FILL (24)
      END STRUCTURE
      INTEGER*4 IAF$M_SHR
      PARAMETER(IAF$M_SHR='1'X)
      INTEGER*4 IAF$S_SIZE
      PARAMETER(IAF$S_SIZE=64)
      RECORD /IAF/ IAF
      STRUCTURE /SHL/
	INTEGER*4 L_BASEVA
	INTEGER*4 L_SHLPTR
	INTEGER*4 L_IDENT
	INTEGER*4 L_PERMCTX
	BYTE	  B_SHL_SIZE
	BYTE	  %FILL (7)
	BYTE	  B_IMGNAMLEN
	CHARACTER*39 T_IMGNAM
      END STRUCTURE
      INTEGER*4 SHL$S_SIZE,	SHL$S_SIZE_V3
      PARAMETER(SHL$S_SIZE=64,
     +		SHL$S_SIZE_V3=56)
      RECORD /SHL/ FIX_SHL(0:15)
      COMMON /SHRIMGLST/
     +		IAF,
     +		FIX_SHL
C