/************************************************************/ 00800000 /* */ 01600000 /* 'LISTDSET' FUNCTION DATA TABLE DECLARATIONS */ 02400000 /* */ 03200000 /************************************************************/ 04000000 %IF BASEFDT = 'YES' 04800000 %THEN 05600000 %GO TO BASEFDT1; 06400000 07200000 DCL 1 FDTTBL BDY(WORD), 08000000 %GO TO BASEFDT2; 08800000 %BASEFDT1:; 09600000 10400000 DCL 1 FDTTBL BASED BDY(WORD), 11200000 %BASEFDT2:; 12000000 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 12800000 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 13600000 14400000 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 15200000 16000000 /* VOLUME(S) TO LIST */ 16800000 DCL 1 VOL BASED(FDTPTR( 1)) BDY(HWORD), 17600000 2 VOLCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 18400000 2 *(255) BDY(HWORD), 19200000 3 VOLLEN FIXED(8), /* DATA ITEM LENGTH */ 20000000 3 VOLVAL CHAR( 6); /* DATA ITEM VALUE */ 20800000 21600000 /* GROUP(S) TO LIST */ 22400000 DCL 1 GRP BASED(FDTPTR( 2)) BDY(HWORD), 23200000 2 GRPCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 24000000 2 *(255) BDY(HWORD), 24800000 3 GRPLEN FIXED(8), /* DATA ITEM LENGTH */ 25600000 3 GRPVAL CHAR( 8); /* DATA ITEM VALUE */ 26400000 27200000 /* OPTION TO LIST ALL VOLUMES */ 28000000 DCL AVOL BASED(FDTPTR( 3)); 28800000 29600000 /* OPTION TO LIST ALL GROUPS */ 30400000 DCL AGRP BASED(FDTPTR( 4)); 31200000 32000000 /* 'NON-GROUPED' LIMITING OPTION */ 32800000 DCL NGRPD BASED(FDTPTR( 5)); 33600000 34400000 /* 'GENERAL' LIMITING OPTION */ 35200000 DCL GENER BASED(FDTPTR( 20)); 36000000 36800000 /* LEVEL NAME OF DATA SETS TO LIST */ 37600000 DCL 1 LEVEL BASED(FDTPTR( 6)) BDY(HWORD), 38400000 2 LEVELPLN FIXED(8), /* PASSWORD LENGTH */ 39200000 2 LEVELPAS CHAR(8), /* PASSWORD VALUE */ 40000000 2 LEVELPOS FIXED(8), /* ASTERISK POSITION */ 40800000 2 LEVELFLG BIT(8), /* DATA SET FLAGS */ 41600000 3 LEVELFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 42400000 2 LEVELMLN FIXED(8), /* MEMBER NAME LENGTH */ 43200000 2 LEVELMEM CHAR(8), /* MEMBER NAME */ 44000000 2 LEVELLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 44800000 2 LEVELVAL CHAR(44); /* CATALOGUED NAME */ 45600000 46400000 /* 'UNCATALOGED' LIMITING OPTION */ 47200000 DCL UNCAT BASED(FDTPTR( 7)); 48000000 48800000 /* 'EXPIRATION DATE' LIMITING OPTION */ 49600000 DCL 1 EXPDT BASED(FDTPTR( 8)) BDY(WORD), 50400000 2 EXPDTVAL FIXED(31); /* NUMERIC VALUE */ 51200000 52000000 /* 'EXPIRATION DAYS' LIMITING OPTION */ 52800000 DCL 1 EXPIR BASED(FDTPTR( 9)) BDY(WORD), 53600000 2 EXPIRVAL FIXED(31); /* NUMERIC VALUE */ 54400000 55200000 /* 'CREATION DATE' LIMITING OPTION */ 56000000 DCL 1 CREDT BASED(FDTPTR( 10)) BDY(WORD), 56800000 2 CREDTVAL FIXED(31); /* NUMERIC VALUE */ 57600000 58400000 /* 'CREATION DAYS' LIMITING OPTION */ 59200000 DCL 1 CREAT BASED(FDTPTR( 11)) BDY(WORD), 60000000 2 CREATVAL FIXED(31); /* NUMERIC VALUE */ 60800000 61600000 /* 'FILE' DDNAME */ 62400000 DCL 1 FILE BASED(FDTPTR( 12)) BDY(HWORD), 63200000 2 FILELEN FIXED(8), /* DATA ITEM LENGTH */ 64000000 2 FILEVAL CHAR( 8); /* DATA ITEM VALUE */ 64800000 65600000 /* 'REPORT' OPTION */ 66400000 DCL RPT BASED(FDTPTR( 13)); 67200000 68000000 /* 'STATUS' REPORT OPTION */ 68800000 DCL STAT BASED(FDTPTR( 14)); 69600000 70400000 /* 'USAGE' REPORT OPTION */ 71200000 DCL USAGE BASED(FDTPTR( 15)); 72000000 72800000 /* 'LEGEND' OPTION */ 73600000 DCL LGND BASED(FDTPTR( 16)); 74400000 75200000 /* 'NOLEGEND' OPTION */ 76000000 DCL NLGND BASED(FDTPTR( 17)); 76800000 77600000 /* 'OFILE' DDNAME */ 78400000 DCL 1 OFILE BASED(FDTPTR( 18)) BDY(HWORD), 79200000 2 OFILELEN FIXED(8), /* DATA ITEM LENGTH */ 80000000 2 OFILEVAL CHAR( 8); /* DATA ITEM VALUE */ 80800000 81600000 /* 'OUTDATASET' NAME */ 82400000 DCL 1 ODS BASED(FDTPTR( 19)) BDY(HWORD), 83200000 2 ODSPLN FIXED(8), /* PASSWORD LENGTH */ 84000000 2 ODSPAS CHAR(8), /* PASSWORD VALUE */ 84800000 2 ODSPOS FIXED(8), /* ASTERISK POSITION */ 85600000 2 ODSFLG BIT(8), /* DATA SET FLAGS */ 86400000 3 ODSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 87200000 2 ODSMLN FIXED(8), /* MEMBER NAME LENGTH */ 88000000 2 ODSMEM CHAR(8), /* MEMBER NAME */ 88800000 2 ODSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 89600000 2 ODSVAL CHAR(44); /* CATALOGUED NAME */ 90400000