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) BYTE HDR_BUF(0:24575) 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, + HDR_BUF 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