/************************************************************/ 00800003 /* */ 01600003 /* 'LISTMSVI' FUNCTION DATA TABLE DECLARATIONS */ 02400003 /* */ 03200003 /************************************************************/ 04000003 %IF BASEFDT = 'YES' 04800003 %THEN 05600003 %GO TO BASEFDT1; 06400003 07200003 DCL 1 FDTTBL BDY(WORD), 08000003 %GO TO BASEFDT2; 08800003 %BASEFDT1:; 09600003 10400003 DCL 1 FDTTBL BASED BDY(WORD), 11200003 %BASEFDT2:; 12000003 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 12800003 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 13600003 14400003 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 15200003 16000003 /* 'VOLUMES' PARAMETER */ 16800003 DCL 1 VOLS BASED(FDTPTR( 1)) BDY(HWORD), 17600003 2 VOLSCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 18400003 2 *(255) BDY(HWORD), 19200003 3 VOLSLEN FIXED(8), /* DATA ITEM LENGTH */ 20000003 3 VOLSVAL CHAR( 6); /* DATA ITEM VALUE */ 20800003 21600003 /* 'ALLVOLUMES' PARAMETER */ 22400003 DCL ALLV BASED(FDTPTR( 2)); 23200003 24000003 /* 'GROUPS' PARAMETER */ 24800003 DCL 1 GRP BASED(FDTPTR( 3)) BDY(HWORD), 25600003 2 GRPCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 26400003 2 *(255) BDY(HWORD), 27200003 3 GRPLEN FIXED(8), /* DATA ITEM LENGTH */ 28000003 3 GRPVAL CHAR( 8); /* DATA ITEM VALUE */ 28800003 29600003 /* 'ALLGROUPS' PARAMETER */ 30400003 DCL AGRP BASED(FDTPTR( 4)); 31200003 32000003 /* 'NONGROUPED' PARAMETER */ 32800003 DCL NGRPD BASED(FDTPTR( 5)); 33600003 34400003 /* 'PASTTHRESHOLD' PARAMETER */ 35200003 DCL PT BASED(FDTPTR( 6)); 36000003 36800003 /* 'VOLUMELIST' PARAMETER */ 37600003 DCL VOLST BASED(FDTPTR( 7)); 38400003 39200003 /* 'EXPIRATION' PARAMETER */ 40000003 DCL 1 EXPIR BASED(FDTPTR( 8)) BDY(WORD), 40800003 2 EXPIRVAL FIXED(31); /* NUMERIC VALUE */ 41600003 42400003 /* 'ALL' PARAMETER */ 43200003 DCL AL BASED(FDTPTR( 10)); 44000003 44800003 /* 'OUTFILE' PARAMETER */ 45600003 DCL 1 OFILE BASED(FDTPTR( 11)) BDY(HWORD), 46400003 2 OFILELEN FIXED(8), /* DATA ITEM LENGTH */ 47200003 2 OFILEVAL CHAR( 8); /* DATA ITEM VALUE */ 48000003 48800003 /* 'OUTDATASET' PARAMETER */ 49600003 DCL 1 ODS BASED(FDTPTR( 12)) BDY(HWORD), 50400003 2 ODSPLN FIXED(8), /* PASSWORD LENGTH */ 51200003 2 ODSPAS CHAR(8), /* PASSWORD VALUE */ 52000003 2 ODSPOS FIXED(8), /* ASTERISK POSITION */ 52800003 2 ODSFLG BIT(8), /* DATA SET FLAGS */ 53600003 3 ODSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 54400003 2 ODSMLN FIXED(8), /* MEMBER NAME LENGTH */ 55200003 2 ODSMEM CHAR(8), /* MEMBER NAME */ 56000003 2 ODSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 56800003 2 ODSVAL CHAR(44); /* CATALOGUED NAME */ 57600003 58400003 /* 'REPORT' PARAMETER */ 59200003 DCL RPT BASED(FDTPTR( 13)); 60000003 60800003 /* 'STATUS' PARAMETER */ 61600003 DCL STAT BASED(FDTPTR( 14)); 62400003 63200003 /* 'USAGE' PARAMETER */ 64000003 DCL USAGE BASED(FDTPTR( 15)); 64800003 65600003 /* 'LEGEND' PARAMETER */ 66400003 DCL LED BASED(FDTPTR( 16)); 67200003 68000003 /* 'NOLEGEND' PARAMETER */ 68800003 DCL NLED BASED(FDTPTR( 17)); 69600003 70400003 /* 'ACTIVE' SUBPARAMETER */ 71200003 DCL ACT BASED(FDTPTR( 18)); 72000003 72800003 /* 'INACTIVE' SUBPARAMETER */ 73600003 DCL INACT BASED(FDTPTR( 19)); 74400003 75200003 /* 'GENERAL' SUBPARAMETER */ 76000003 DCL GNRL BASED(FDTPTR( 20)); 76800003 77600003 /* 'RESTRICTED' SUBPARAMETER */ 78400003 DCL RSTR BASED(FDTPTR( 21)); 79200003 80000003 /* 'CARTRIDGES' PARAMETER */ 80800003 DCL 1 CTGS BASED(FDTPTR( 22)) BDY(HWORD), 81600003 2 CTGSCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 82400003 2 *(255) BDY(HWORD), 83200003 3 CTGSLEN FIXED(8), /* DATA ITEM LENGTH */ 84000003 3 CTGSVAL CHAR( 12); /* DATA ITEM VALUE */ 84800003 85600003 /* 'ALLCARTRIDGES' PARAMETER */ 86400003 DCL ALLC BASED(FDTPTR( 23)); 87200003 88000003 /* 'DUPLICATES' PARM */ 88800003 DCL DUP BASED(FDTPTR( 9)); 89600003 90400003 /* 'PLACEHOLDERS' PARM */ 91200003 DCL PLHD BASED(FDTPTR( 24)); 92000003