/************************************************************/ 00900000 /* */ 01800000 /* 'SCRDSET ' FUNCTION DATA TABLE DECLARATIONS */ 02700000 /* */ 03600000 /************************************************************/ 04500000 %IF BASEFDT = 'YES' 05400000 %THEN 06300000 %GO TO BASEFDT1; 07200000 08100000 DCL 1 FDTTBL BDY(WORD), 09000000 %GO TO BASEFDT2; 09900000 %BASEFDT1:; 10800000 11700000 DCL 1 FDTTBL BASED BDY(WORD), 12600000 %BASEFDT2:; 13500000 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 14400000 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 15300000 16200000 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 17100000 18000000 /* VOLUME(S) TO LIST */ 18900000 DCL 1 VOL BASED(FDTPTR( 1)) BDY(HWORD), 19800000 2 VOLCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 20700000 2 *(255) BDY(HWORD), 21600000 3 VOLLEN FIXED(8), /* DATA ITEM LENGTH */ 22500000 3 VOLVAL CHAR( 6); /* DATA ITEM VALUE */ 23400000 24300000 /* GROUP(S) TO LIST */ 25200000 DCL 1 GRP BASED(FDTPTR( 2)) BDY(HWORD), 26100000 2 GRPCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 27000000 2 *(255) BDY(HWORD), 27900000 3 GRPLEN FIXED(8), /* DATA ITEM LENGTH */ 28800000 3 GRPVAL CHAR( 8); /* DATA ITEM VALUE */ 29700000 30600000 /* OPTION TO LIST ALL VOLUMES */ 31500000 DCL AVOL BASED(FDTPTR( 3)); 32400000 33300000 /* OPTION TO LIST ALL GROUPS */ 34200000 DCL AGRP BASED(FDTPTR( 4)); 35100000 36000000 /* 'NON-GROUPED' LIMITING OPTION */ 36900000 DCL NGRPD BASED(FDTPTR( 5)); 37800000 38700000 /* 'GENERAL' LIMITING OPTION */ 39600000 DCL GENER BASED(FDTPTR( 16)); 40500000 41400000 /* LEVEL NAME OF DATA SETS TO LIST */ 42300000 DCL 1 LEVEL BASED(FDTPTR( 6)) BDY(HWORD), 43200000 2 LEVELPLN FIXED(8), /* PASSWORD LENGTH */ 44100000 2 LEVELPAS CHAR(8), /* PASSWORD VALUE */ 45000000 2 LEVELPOS FIXED(8), /* ASTERISK POSITION */ 45900000 2 LEVELFLG BIT(8), /* DATA SET FLAGS */ 46800000 3 LEVELFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 47700000 2 LEVELMLN FIXED(8), /* MEMBER NAME LENGTH */ 48600000 2 LEVELMEM CHAR(8), /* MEMBER NAME */ 49500000 2 LEVELLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 50400000 2 LEVELVAL CHAR(44); /* CATALOGUED NAME */ 51300000 52200000 /* 'UNCATALOGED' LIMITING OPTION */ 53100000 DCL UNCAT BASED(FDTPTR( 7)); 54000000 54900000 /* 'EXPIRATION DATE' LIMITING OPTION */ 55800000 DCL 1 EXPDT BASED(FDTPTR( 8)) BDY(WORD), 56700000 2 EXPDTVAL FIXED(31); /* NUMERIC VALUE */ 57600000 58500000 /* 'EXPIRATION DAYS' LIMITING OPTION */ 59400000 DCL 1 EXPIR BASED(FDTPTR( 9)) BDY(WORD), 60300000 2 EXPIRVAL FIXED(31); /* NUMERIC VALUE */ 61200000 62100000 /* 'CREATION DATE' LIMITING OPTION */ 63000000 DCL 1 CREDT BASED(FDTPTR( 10)) BDY(WORD), 63900000 2 CREDTVAL FIXED(31); /* NUMERIC VALUE */ 64800000 65700000 /* 'CREATION DAYS' LIMITING OPTION */ 66600000 DCL 1 CREAT BASED(FDTPTR( 11)) BDY(WORD), 67500000 2 CREATVAL FIXED(31); /* NUMERIC VALUE */ 68400000 69300000 /* 'FILE' DDNAME */ 70200000 DCL 1 FILE BASED(FDTPTR( 12)) BDY(HWORD), 71100000 2 FILELEN FIXED(8), /* DATA ITEM LENGTH */ 72000000 2 FILEVAL CHAR( 8); /* DATA ITEM VALUE */ 72900000 73800000 /* 'SYSTEMNAMES' OPTION */ 74700000 DCL SYSN BASED(FDTPTR( 13)); 75600000 76500000 /* OPTION TO PURGE ALL DATA SETS */ 77400000 DCL PURGE BASED(FDTPTR( 17)); 78300000 79200000 /* VOLUMES NOT TO BE SCRATCHED */ 80100000 DCL 1 EXVOL BASED(FDTPTR( 14)) BDY(HWORD), 81000000 2 EXVOLCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 81900000 2 *(255) BDY(HWORD), 82800000 3 EXVOLLEN FIXED(8), /* DATA ITEM LENGTH */ 83700000 3 EXVOLVAL CHAR( 6); /* DATA ITEM VALUE */ 84600000 85500000 /* DATA SETS NOT TO BE SCRATCHED */ 86400000 DCL 1 EXDS BASED(FDTPTR( 15)) BDY(HWORD), 87300000 2 EXDSCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 88200000 2 *(255) BDY(HWORD), 89100000 3 EXDSPLN FIXED(8), /* PASSWORD LENGTH */ 90000000 3 EXDSPAS CHAR(8), /* PASSWORD VALUE */ 90900000 3 EXDSPOS FIXED(8), /* ASTERISK POSITION */ 91800000 3 EXDSFLG BIT(8), /* DATA SET FLAGS */ 92700000 4 EXDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 93600000 3 EXDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 94500000 3 EXDSMEM CHAR(8), /* MEMBER NAME */ 95400000 3 EXDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 96300000 3 EXDSVAL CHAR(44); /* CATALOGUED NAME */ 97200000