/************************************************************/ 00700000 /* */ 01400000 /* 'DUMPMSS ' FUNCTION DATA TABLE DECLARATIONS */ 02100000 /* */ 02800000 /************************************************************/ 03500000 %IF BASEFDT = 'YES' 04200000 %THEN 04900000 %GO TO BASEFDT1; 05600000 06300000 DCL 1 FDTTBL BDY(WORD), 07000000 %GO TO BASEFDT2; 07700000 %BASEFDT1:; 08400000 09100000 DCL 1 FDTTBL BASED BDY(WORD), 09800000 %BASEFDT2:; 10500000 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 11200000 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 11900000 12600000 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 13300000 14000000 /* 'MASSSTORAGECONTROL' OPTION */ 14700000 DCL MSC BASED(FDTPTR( 1)); 15400000 16100000 /* MSC 'FORMAT' OPTION */ 16800000 DCL MFMT BASED(FDTPTR( 2)); 17500000 18200000 /* MSC 'MAINSECTOR' OPTION */ 18900000 DCL MSCTM BASED(FDTPTR( 3)); 19600000 DCL MSCTMCNT FIXED(31) BASED(ADDR(FDTPTR( 3))); 20300000 21000000 /* MSC 'MAINSECTOR' LOW SECTOR# */ 21700000 DCL MMLOPTR( 16) PTR(31) BASED(FDTPTR( 16)); 22400000 DCL 1 MMLO BASED BDY(WORD), 23100000 2 MMLOVAL FIXED(31); /* NUMERIC VALUE */ 23800000 24500000 /* MSC 'MAINSECTOR' HIGH SECTOR# */ 25200000 DCL MMHIPTR( 16) PTR(31) BASED(FDTPTR( 17)); 25900000 DCL 1 MMHI BASED BDY(WORD), 26600000 2 MMHIVAL FIXED(31); /* NUMERIC VALUE */ 27300000 28000000 /* MSC 'EXTENDEDSECTOR' OPTION */ 28700000 DCL MSCTE BASED(FDTPTR( 4)); 29400000 DCL MSCTECNT FIXED(31) BASED(ADDR(FDTPTR( 4))); 30100000 30800000 /* MSC 'EXTENDEDSECTOR' LOW SECTOR# */ 31500000 DCL MELOPTR( 16) PTR(31) BASED(FDTPTR( 18)); 32200000 DCL 1 MELO BASED BDY(WORD), 32900000 2 MELOVAL FIXED(31); /* NUMERIC VALUE */ 33600000 34300000 /* MSC 'EXTENDEDSECTOR' HIGH SECTOR# */ 35000000 DCL MEHIPTR( 16) PTR(31) BASED(FDTPTR( 19)); 35700000 DCL 1 MEHI BASED BDY(WORD), 36400000 2 MEHIVAL FIXED(31); /* NUMERIC VALUE */ 37100000 37800000 /* 'STAGINGADAPTER' OPTION */ 38500000 DCL STGAD BASED(FDTPTR( 5)); 39200000 DCL STGADCNT FIXED(31) BASED(ADDR(FDTPTR( 5))); 39900000 40600000 /* SSID OF STAGING ADAPTER */ 41300000 DCL SSIDPTR( 14) PTR(31) BASED(FDTPTR( 6)); 42000000 DCL 1 SSID BASED BDY(WORD), 42700000 2 SSIDVAL FIXED(31); /* NUMERIC VALUE */ 43400000 44100000 /* SA 'FORMAT' OPTION */ 44800000 DCL SFMTPTR( 14) PTR(31) BASED(FDTPTR( 7)); 45500000 DCL SFMT BASED; 46200000 46900000 /* SA 'MAINSECTOR' OPTION */ 47600000 DCL SSCTMPTR( 14) PTR(31) BASED(FDTPTR( 8)); 48300000 DCL SSCTM BASED; 49000000 DCL SSCTMCNT( 14) FIXED(31) BASED(FDTPTR( 8)); 49700000 50400000 /* SA 'MAINSECTOR' LOW SECTOR# */ 51100000 DCL SMLOPTR( 14, 16) PTR(31) BASED(FDTPTR( 20)); 51800000 DCL 1 SMLO BASED BDY(WORD), 52500000 2 SMLOVAL FIXED(31); /* NUMERIC VALUE */ 53200000 53900000 /* SA 'MAINSECTOR' HIGH SECTOR# */ 54600000 DCL SMHIPTR( 14, 16) PTR(31) BASED(FDTPTR( 21)); 55300000 DCL 1 SMHI BASED BDY(WORD), 56000000 2 SMHIVAL FIXED(31); /* NUMERIC VALUE */ 56700000 57400000 /* SA 'EXTENDEDSECTOR' OPTION */ 58100000 DCL SSCTEPTR( 14) PTR(31) BASED(FDTPTR( 9)); 58800000 DCL SSCTE BASED; 59500000 DCL SSCTECNT( 14) FIXED(31) BASED(FDTPTR( 9)); 60200000 60900000 /* SA 'EXTENDEDSECTOR' LOW SECTOR# */ 61600000 DCL SELOPTR( 14, 16) PTR(31) BASED(FDTPTR( 22)); 62300000 DCL 1 SELO BASED BDY(WORD), 63000000 2 SELOVAL FIXED(31); /* NUMERIC VALUE */ 63700000 64400000 /* SA 'EXTENDEDSECTOR' HI SECTOR# */ 65100000 DCL SEHIPTR( 14, 16) PTR(31) BASED(FDTPTR( 23)); 65800000 DCL 1 SEHI BASED BDY(WORD), 66500000 2 SEHIVAL FIXED(31); /* NUMERIC VALUE */ 67200000 67900000 /* 'TABLES' OPTION */ 68600000 DCL TBL BASED(FDTPTR( 10)); 69300000 DCL TBLCNT FIXED(31) BASED(ADDR(FDTPTR( 10))); 70000000 70700000 /* LOW CHR OF RANGE TO DUMP */ 71400000 DCL LOCHRPTR(100) PTR(31) BASED(FDTPTR( 11)); 72100000 DCL 1 LOCHR BASED BDY(WORD), 72800000 2 LOCHRVAL FIXED(31); /* NUMERIC VALUE */ 73500000 74200000 /* HIGH CHR OF RANGE TO DUMP */ 74900000 DCL HICHRPTR(100) PTR(31) BASED(FDTPTR( 12)); 75600000 DCL 1 HICHR BASED BDY(WORD), 76300000 2 HICHRVAL FIXED(31); /* NUMERIC VALUE */ 77000000 77700000 /* 'OUTFILE' OPTION */ 78400000 DCL 1 OFILE BASED(FDTPTR( 13)) BDY(HWORD), 79100000 2 OFILELEN FIXED(8), /* DATA ITEM LENGTH */ 79800000 2 OFILEVAL CHAR( 8); /* DATA ITEM VALUE */ 80500000 81200000 /* 'OUTDATASET' OPTION */ 81900000 DCL 1 ODS BASED(FDTPTR( 14)) BDY(HWORD), 82600000 2 ODSPLN FIXED(8), /* PASSWORD LENGTH */ 83300000 2 ODSPAS CHAR(8), /* PASSWORD VALUE */ 84000000 2 ODSPOS FIXED(8), /* ASTERISK POSITION */ 84700000 2 ODSFLG BIT(8), /* DATA SET FLAGS */ 85400000 3 ODSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 86100000 2 ODSMLN FIXED(8), /* MEMBER NAME LENGTH */ 86800000 2 ODSMEM CHAR(8), /* MEMBER NAME */ 87500000 2 ODSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 88200000 2 ODSVAL CHAR(44); /* CATALOGUED NAME */ 88900000 89600000 /* 'ALTERNATEMASSSTORAGECONTROL' OPTION @ZA27590*/ 90300000 DCL AMSC BASED(FDTPTR( 24)); /*@ZA27590*/ 91000000