/************************************************************/ 01000000 /* @Y30LB32*/ 02000000 /* 'CREATEV ' FUNCTION DATA TABLE DECLARATIONS @Y30LB32*/ 03000000 /* @Y30LB32*/ 04000000 /************************************************************/ 05000000 %IF BASEFDT = 'YES' /*@Y30LB32*/ 06000000 %THEN /*@Y30LB32*/ 07000000 %GO TO BASEFDT1; /*@Y30LB32*/ 08000000 09000000 DCL 1 FDTTBL BDY(WORD), /*@Y30LB32*/ 10000000 %GO TO BASEFDT2; /*@Y30LB32*/ 11000000 %BASEFDT1:; /*@Y30LB32*/ 12000000 13000000 DCL 1 FDTTBL BASED BDY(WORD), /*@Y30LB32*/ 14000000 %BASEFDT2:; /*@Y30LB32*/ 15000000 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME @Y30LB32*/ 16000000 2 FDTPTR(*) PTR(31); /* SCALAR DATA @Y30LB32*/ 17000000 /* POINTERS @Y30LB32*/ 18000000 18050000 /* DATA DECLARATIONS OF SCALAR DATA ITEMS @Y30LB32*/ 19000000 20000000 /* 'VOLUME' PARAMETER @Y30LB32*/ 21000000 DCL 1 VOL BASED(FDTPTR( 1)) BDY(HWORD), /*@Y30LB32*/ 22000000 2 VOLLEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 23000000 2 VOLVAL CHAR( 6); /* DATA ITEM VALUE @Y30LB32*/ 24000000 25000000 /* 'FILE' PARAMETER @Y30LB32*/ 26000000 DCL 1 FILE BASED(FDTPTR( 2)) BDY(HWORD), /*@Y30LB32*/ 27000000 2 FILELEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 28000000 2 FILEVAL CHAR( 8); /* DATA ITEM VALUE @Y30LB32*/ 29000000 30000000 /* 'COUNT' PARMAMETER @Y30LB32*/ 31000000 DCL 1 COUNT BASED(FDTPTR( 3)) BDY(WORD), /*@Y30LB32*/ 32000000 2 COUNTVAL FIXED(31); /* NUMERIC VALUE @Y30LB32*/ 33000000 34000000 /* 'MASS STORAGE FACILITY' PARAMETER @Y30LB32*/ 35000000 DCL 1 MSF BASED(FDTPTR( 4)) BDY(WORD), /*@Y30LB32*/ 36000000 2 MSFVAL FIXED(31); /* NUMERIC VALUE @Y30LB32*/ 37000000 38000000 /* 'VTOCSIZE' PARAMETER @Y30LB32*/ 39000000 DCL 1 VTSZ BASED(FDTPTR( 5)) BDY(WORD), /*@Y30LB32*/ 40000000 2 VTSZVAL FIXED(31); /* NUMERIC VALUE @Y30LB32*/ 41000000 42000000 /* 'CARTRIDGES' PARAMETER @Y30LB32*/ 43000000 DCL 1 CART BASED(FDTPTR( 6)) BDY(HWORD), /*@Y30LB32*/ 44000000 2 CARTCNT FIXED(15), /* COUNT OF ITEMS @Y30LB32*/ 45000000 /* IN LIST @Y30LB32*/ 45050000 2 *(254) BDY(HWORD), /*@Y30LB32*/ 46000000 3 CARTLEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 47000000 3 CARTVAL CHAR( 12); /* DATA ITEM VALUE @Y30LB32*/ 48000000 49000000 /* 'OWNER' PARAMETER @Y30LB32*/ 50000000 DCL 1 OWNER BASED(FDTPTR( 7)) BDY(HWORD), /*@Y30LB32*/ 51000000 2 OWNERLEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 52000000 2 OWNERVAL CHAR( 10); /* DATA ITEM VALUE @Y30LB32*/ 53000000 54000000 /* 'DESCRIPTION' PARAMETER @Y30LB32*/ 55000000 DCL 1 DESCR BASED(FDTPTR( 8)) BDY(HWORD), /*@Y30LB32*/ 56000000 2 DESCRLEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 57000000 2 DESCRVAL CHAR( 30); /* DATA ITEM VALUE @Y30LB32*/ 58000000 59000000 /* 'BACKUPNUMBER' PARMAMETER @Y30LB32*/ 60000000 DCL 1 BKUP# BASED(FDTPTR( 9)) BDY(WORD), /*@Y30LB32*/ 61000000 2 BKUP#VAL FIXED(31); /* NUMERIC VALUE @Y30LB32*/ 62000000 63000000 /* 'GROUP' PARAMETER @Y30LB32*/ 64000000 DCL 1 GRP BASED(FDTPTR( 10)) BDY(HWORD), /*@Y30LB32*/ 65000000 2 GRPLEN FIXED(8), /* DATA ITEM LENGTH @Y30LB32*/ 66000000 2 GRPVAL CHAR( 8); /* DATA ITEM VALUE @Y30LB32*/ 67000000 68000000 /* 'GENERAL' PARAMETER @Y30LB32*/ 69000000 DCL GENRL BASED(FDTPTR( 11)); /*@Y30LB32*/ 70000000 71000000 /* 'RESTRICTED' PARAMETER @Y30LB32*/ 72000000 DCL RSTR BASED(FDTPTR( 12)); /*@Y30LB32*/ 73000000 74000000 /* 'BIND' PARAMETER @Y30LB32*/ 75000000 DCL BIND BASED(FDTPTR( 13)); /*@Y30LB32*/ 76000000 77000000 /* 'NOBIND' PARAMETER @Y30LB32*/ 78000000 DCL NBIND BASED(FDTPTR( 14)); /*@Y30LB32*/ 79000000 80000000 /* 'EXCLUSIVE' PARAMETER @Y30LB32*/ 81000000 DCL EXCLU BASED(FDTPTR( 15)); /*@Y30LB32*/ 82000000 83000000 /* 'SHARED' PARAMETER @Y30LB32*/ 84000000 DCL SHRD BASED(FDTPTR( 16)); /*@Y30LB32*/ 85000000 86000000 /* 'READONLY' PARAMETER @Y30LB32*/ 87000000 DCL RONLY BASED(FDTPTR( 17)); /*@Y30LB32*/ 88000000 89000000 /* 'READWRITE' PARAMETER @Y30LB32*/ 90000000 DCL RW BASED(FDTPTR( 18)); /*@Y30LB32*/ 91000000 92000000 /* 'DASDERASE' PARAMETER @Y30LB32*/ 93000000 DCL DERAS BASED(FDTPTR( 19)); /*@Y30LB32*/ 94000000 95000000 /* 'NODASDERASE' PARAMETER @Y30LB32*/ 96000000 DCL NDERS BASED(FDTPTR( 20)); /*@Y30LB32*/ 97000000