C
      STRUCTURE /ISD/
	INTEGER*2 W_SIZE
	INTEGER*2 W_PAGCNT
	INTEGER*4 L_VPNPFC
	INTEGER*4 L_FLAGS
	INTEGER*4 L_VBN
	INTEGER*4 L_IDENT
	BYTE	  B_GBLNAMLEN
	CHARACTER*15 T_GBLNAM
      END STRUCTURE
      INTEGER*4 ISD$S_SIZE,	ISD_TBL_SIZE
      PARAMETER(ISD$S_SIZE=36,
     +		ISD_TBL_SIZE=100)
      RECORD /ISD/ ISD(ISD_TBL_SIZE)
      CHARACTER*15 ISD_NAM(ISD_TBL_SIZE)
      INTEGER*4 ISD_NUM, ISD_BASEVA(ISD_TBL_SIZE), FIXUPSEC_ISD,
     +		ISD_PGEND(ISD_TBL_SIZE), ISD_LAST_P0PAGE
      COMMON/ISD_TBL/
     +		ISD_NUM,
     +		ISD_LAST_P0PAGE,
     +		FIXUPSEC_ISD,
     +		ISD,
     +		ISD_BASEVA,
     +		ISD_PGEND,
     +		ISD_NAM
C
      INTEGER*4 PSECT_TBL_SIZE
      PARAMETER(PSECT_TBL_SIZE=200)
      BYTE	PSECT_ALIGN(PSECT_TBL_SIZE)
      CHARACTER*31 PSECT_NAME(PSECT_TBL_SIZE)
      INTEGER*2 PSECT_FLAGS(PSECT_TBL_SIZE),	PSECT_ISD(PSECT_TBL_SIZE)
      INTEGER*4 PSECT_NUM,	PSECT_ALLOC(PSECT_TBL_SIZE),
     +		PSECT_BASEADR(PSECT_TBL_SIZE)
      COMMON /PSECT_TBL/
     +		PSECT_NUM,
     +		PSECT_ALLOC,
     +		PSECT_BASEADR,
     +		PSECT_FLAGS,
     +		PSECT_ISD,
     +		PSECT_ALIGN,
     +		PSECT_NAME
C