/************************************************************/ 00800000 /* */ 01600000 /* 'MODIFYC ' 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' OPTION FOR LOCATING A CART */ 16800000 DCL 1 VOL BASED(FDTPTR( 1)) BDY(HWORD), 17600000 2 VOLLEN FIXED(8), /* DATA ITEM LENGTH */ 18400000 2 VOLVAL CHAR( 6); /* DATA ITEM VALUE */ 19200000 20000000 /* 'CARTRIDGE' OPTION FOR LOCATING A CART */ 20800000 DCL 1 CART BASED(FDTPTR( 2)) BDY(HWORD), 21600000 2 CARTLEN FIXED(8), /* DATA ITEM LENGTH */ 22400000 2 CARTVAL CHAR( 12); /* DATA ITEM VALUE */ 23200000 24000000 /* 'CELL' OPTION WITH SPECIFIC XYZ LOCATION */ 24800000 DCL CELL BASED(FDTPTR( 3)); 25600000 26400000 /* 'X' PORTION OF CELL ADDRESS */ 27200000 DCL 1 CELLX BASED(FDTPTR( 4)) BDY(WORD), 28000000 2 CELLXVAL FIXED(31); /* NUMERIC VALUE */ 28800000 29600000 /* 'Y' PORTION OF CELL ADDRESS */ 30400000 DCL 1 CELLY BASED(FDTPTR( 5)) BDY(WORD), 31200000 2 CELLYVAL FIXED(31); /* NUMERIC VALUE */ 32000000 32800000 /* 'Z' PORTION OF CELL ADDRESS */ 33600000 DCL 1 CELLZ BASED(FDTPTR( 6)) BDY(WORD), 34400000 2 CELLZVAL FIXED(31); /* NUMERIC VALUE */ 35200000 36000000 /* 'SEQUENCE' NUMBER OF CARTRIDGE */ 36800000 DCL 1 SEQ BASED(FDTPTR( 7)) BDY(WORD), 37600000 2 SEQVAL FIXED(31); /* NUMERIC VALUE */ 38400000 39200000 /* 'MSF' ID NUMBER CONTAINING CARTRIDGE */ 40000000 DCL 1 MSF BASED(FDTPTR( 8)) BDY(WORD), 40800000 2 MSFVAL FIXED(31); /* NUMERIC VALUE */ 41600000 42400000 /* MODIFY BY A DIRECT EJECT OF CART FUNCTION */ 43200000 DCL DEJ BASED(FDTPTR( 9)); 44000000 44800000 /* MODIFY BY A CHANGE LABEL OF CART FUNCTION */ 45600000 DCL CHNGL BASED(FDTPTR( 10)); 46400000 47200000 /* 'CELL' ADDRESS AFTER MODIFICATION */ 48000000 DCL NCEL BASED(FDTPTR( 11)); 48800000 49600000 /* 'X' PORTION OF CELL ADDRESS */ 50400000 DCL 1 NCELX BASED(FDTPTR( 12)) BDY(WORD), 51200000 2 NCELXVAL FIXED(31); /* NUMERIC VALUE */ 52000000 52800000 /* 'Y' PORTION OF CELL ADDRESS */ 53600000 DCL 1 NCELY BASED(FDTPTR( 13)) BDY(WORD), 54400000 2 NCELYVAL FIXED(31); /* NUMERIC VALUE */ 55200000 56000000 /* 'Z' PORTION OF CELL ADDRESS */ 56800000 DCL 1 NCELZ BASED(FDTPTR( 14)) BDY(WORD), 57600000 2 NCELZVAL FIXED(31); /* NUMERIC VALUE */ 58400000 59200000 /* 'EJECT' MANUAL EXIT STATION AFTER MODIFICATION */ 60000000 DCL EJECT BASED(FDTPTR( 15)); 60800000 61600000 /* 'SCRATCH' OPTION AS CART MODIFICATION */ 62400000 DCL SCR BASED(FDTPTR( 16)); 63200000 64000000 /* 'VOLUME' OPTION AS CART MODIFICATION */ 64800000 DCL 1 NVOL BASED(FDTPTR( 17)) BDY(HWORD), 65600000 2 NVOLLEN FIXED(8), /* DATA ITEM LENGTH */ 66400000 2 NVOLVAL CHAR( 6); /* DATA ITEM VALUE */ 67200000 68000000 /* 'SEQUENCE' OPTION AS CART MODIFICATION */ 68800000 DCL 1 NSEQ BASED(FDTPTR( 18)) BDY(WORD), 69600000 2 NSEQVAL FIXED(31); /* NUMERIC VALUE */ 70400000 71200000 /* 'OTHERCARTRIDGE' CSN OF A PAIR TO BE MODIFIED */ 72000000 DCL 1 OCSN BASED(FDTPTR( 19)) BDY(HWORD), 72800000 2 OCSNLEN FIXED(8), /* DATA ITEM LENGTH */ 73600000 2 OCSNVAL CHAR( 12); /* DATA ITEM VALUE */ 74400000 75200000 /* 'BIND' ATTRIBUTE OPTION AS CART MODIFICATION */ 76000000 DCL BIND BASED(FDTPTR( 20)); 76800000 77600000 /* 'NOBIND' ATTRIBUTE OPTION AS CART MODIFICATION */ 78400000 DCL NBIND BASED(FDTPTR( 21)); 79200000 80000000 /* 'EXCLUSIVE' ATTRIBUTE OPTION AS CART MODIFICATION */ 80800000 DCL XCL BASED(FDTPTR( 22)); 81600000 82400000 /* 'SHARED' ATTRIBUTE OPTION AS CART MODIFICATION */ 83200000 DCL SHRD BASED(FDTPTR( 23)); 84000000 84800000 /* 'READONLY' ATTRIBUTE OPTION AS CART MODIFICATION */ 85600000 DCL RONLY BASED(FDTPTR( 24)); 86400000 87200000 /* 'READWRITE' ATTRIBUTE OPTION AS CART MODIFICATION */ 88000000 DCL RW BASED(FDTPTR( 25)); 88800000 89600000 /* 'DASDERASE' ATTRIBUTE OPTION AS CART MODIFICATION */ 90400000 DCL DERAS BASED(FDTPTR( 26)); 91200000 92000000 /* 'NODASDERASE' ATTRIBUTE OPTION AS CART MODIFICATION */ 92800000 DCL NERAS BASED(FDTPTR( 27)); 93600000