/************************************************************/ 00800003 /* */ 01600003 /* 'MODIFYV ' 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 /* 'VOLUME' PARAMETER */ 16800003 DCL 1 VOL BASED(FDTPTR( 1)) BDY(HWORD), 17600003 2 VOLLEN FIXED(8), /* DATA ITEM LENGTH */ 18400003 2 VOLVAL CHAR( 6); /* DATA ITEM VALUE */ 19200003 20000003 /* 'NEWSERIAL' PARMAMETER */ 20800003 DCL 1 NEWSR BASED(FDTPTR( 2)) BDY(HWORD), 21600003 2 NEWSRLEN FIXED(8), /* DATA ITEM LENGTH */ 22400003 2 NEWSRVAL CHAR( 6); /* DATA ITEM VALUE */ 23200003 24000003 /* 'OWNER' PARAMETER */ 24800003 DCL 1 OWNER BASED(FDTPTR( 3)) BDY(HWORD), 25600003 2 OWNERLEN FIXED(8), /* DATA ITEM LENGTH */ 26400003 2 OWNERVAL CHAR( 10); /* DATA ITEM VALUE */ 27200003 28000003 /* 'GROUP' PARAMETER */ 28800003 DCL 1 GRP BASED(FDTPTR( 4)) BDY(HWORD), 29600003 2 GRPLEN FIXED(8), /* DATA ITEM LENGTH */ 30400003 2 GRPVAL CHAR( 8); /* DATA ITEM VALUE */ 31200003 32000003 /* 'GENERAL' PARAMETER */ 32800003 DCL GNRL BASED(FDTPTR( 5)); 33600003 34400003 /* 'RESTRICTED' PARAMETER */ 35200003 DCL RSTR BASED(FDTPTR( 6)); 36000003 36800003 /* 'BIND' PARAMETER */ 37600003 DCL BIND BASED(FDTPTR( 7)); 38400003 39200003 /* 'NOBIND' PARAMETER */ 40000003 DCL NBIND BASED(FDTPTR( 8)); 40800003 41600003 /* 'EXCLUSIVE' PARAMETER */ 42400003 DCL EXECL BASED(FDTPTR( 9)); 43200003 44000003 /* 'SHARED' PARAMETER */ 44800003 DCL SHRD BASED(FDTPTR( 10)); 45600003 46400003 /* 'READONLY' PARAMETER */ 47200003 DCL RONLY BASED(FDTPTR( 11)); 48000003 48800003 /* 'READWRITE' PARAMETER */ 49600003 DCL RW BASED(FDTPTR( 12)); 50400003 51200003 /* 'DASDERASE' PARAMETER */ 52000003 DCL DERAS BASED(FDTPTR( 13)); 52800003 53600003 /* 'NODASDERASE' PARAMETER */ 54400003 DCL NDERS BASED(FDTPTR( 14)); 55200003 56000003 /* 'DESCRIPTION' PARAMETER */ 56800003 DCL 1 DESCR BASED(FDTPTR( 15)) BDY(HWORD), 57600003 2 DESCRLEN FIXED(8), /* DATA ITEM LENGTH */ 58400003 2 DESCRVAL CHAR( 30); /* DATA ITEM VALUE */ 59200003 60000003 /* 'TO' PARMAMETER */ 60800003 DCL 1 TO BASED(FDTPTR( 16)) BDY(WORD), 61600003 2 TOVAL FIXED(31); /* NUMERIC VALUE */ 62400003 63200003 /* 'BACKUPNUMBER' PARMAMETER */ 64000003 DCL 1 BKUP BASED(FDTPTR( 17)) BDY(WORD), 64800003 2 BKUPVAL FIXED(31); /* NUMERIC VALUE */ 65600003 66400003 /* 'NULLIFY' PARAMETER */ 67200003 DCL NULFY BASED(FDTPTR( 18)); 68000003 68800003 /* 'OWNER' SUBPARAMETER */ 69600003 DCL NOWN BASED(FDTPTR( 19)); 70400003 71200003 /* 'GROUP' SUBPARAMETER */ 72000003 DCL NGRP BASED(FDTPTR( 20)); 72800003 73600003 /* 'DESCRIPTION' SUBPARAMETER */ 74400003 DCL NDESC BASED(FDTPTR( 21)); 75200003 76000003 /* 'RETENTION' SUBPARAMETER */ 76800003 DCL NRET BASED(FDTPTR( 22)); 77600003 78400003 /* 'FILE' PARAMETER */ 79200003 DCL 1 FYLE BASED(FDTPTR( 23)) BDY(HWORD), 80000003 2 FYLELEN FIXED(8), /* DATA ITEM LENGTH */ 80800003 2 FYLEVAL CHAR( 8); /* DATA ITEM VALUE */ 81600003 82400003 /* 'PASSWORDFILES' PARAMETER */ 83200003 DCL 1 PSWD BASED(FDTPTR( 24)) BDY(HWORD), 84000003 2 PSWDCNT FIXED(15), /* COUNT OF ITEMS IN LIST */ 84800003 2 *(255) BDY(HWORD), 85600003 3 PSWDLEN FIXED(8), /* DATA ITEM LENGTH */ 86400003 3 PSWDVAL CHAR( 8); /* DATA ITEM VALUE */ 87200003 88000003 /* 'FOR' PARMAMETER */ 88800003 DCL 1 FORE BASED(FDTPTR( 25)) BDY(WORD), 89600003 2 FOREVAL FIXED(31); /* NUMERIC VALUE */ 90400003 91200003 /* 'REBIULDLABEL' PARAMETER */ 92000003 DCL RLBL BASED(FDTPTR( 26)); 92800003 93600003 /* 'VTOCHEADERADDRESS' PARAMETER */ 94400003 DCL 1 VADDR BASED(FDTPTR( 27)) BDY(WORD), 95200003 2 VADDRVAL FIXED(31); /* NUMERIC VALUE */ 96000003