* %GOTO OPREPLS; /* BILINGUAL HEADER 02000010 MACRO 04000010 TOPRED 06000010 SPACE 08000010 .*CHANGE ACTIVITY AS FOLLOWS: 10000010 .*A000000-999999 @Y17XAXU 12000010 .*A341200,703000 @Y17XAXF 12600010 .*C720000 @Y17XAXF 13200010 SPACE 14000010 IEDOPRED DSECT 16000010 * 18000010 * OPERATOR CONTROL REQUEST ELEMENT 20000010 * 22000010 OPREKEY DS X . KEY FIELD 24000010 OPREQCB DS AL3 . QCB ADDRESS 26000010 OPREPRI DS X . PRIORITY FIELD 28000010 * 28500010 * REFER TO TPRIOR DSECT FOR PRIORITY EQUATES 29000010 * 29500010 OPRELINK DS AL3 . LINK FIELD 30000010 OPRETIC DS 0A . LINK TO NEXT UNIT 32000010 OPRESAVE DS A . IPL/DUMP OPCE SAVE AREA 33000010 OPREFLG1 DS X . FLAG FIELD 34000010 OPRA0 EQU X'01' . USED WITH PRIHIFLG - 34060010 * OP SERVICES TO SSCP 34120010 * USED WITH PRILOFLG-A/D REDRIVE 34126010 * @Y17XAXF 34132010 OPRSENSE EQU X'02' . NSED WITH PRIHIFLG DLC @Y17XAXF 34140010 * TO IPL @Y17XAXF 34160010 OPRFG EQU X'03' . USED WITH PRIMEDFG - 34180010 * LUS TO A/D 34240010 OPRVI EQU X'04' . USED WITH PRIMEDFG - 34300010 * NSL TO VI WITH A 34360010 * REQUEST BUFFER 34420010 OPRVE EQU X'05' . USED WITH PRIMEDFG - 34480010 * NSL TO VE WITH A 34540010 * REQUEST BUFFER 34600010 OPRVA EQU X'06' . USED WITH PRIMEDFG - 34660010 * NSL TO VA WITH A 34720010 * REQUEST BUFFER 34780010 OPRVF EQU X'07' . USED WITH PRIMEDFG - 34840010 * NSL TO VF WITH A 34900010 * REQUEST BUFFER 34960010 OPR02 EQU X'08' . USED WITH PRIMEDFG - 35020010 * A/D TO 02 35080010 OPRFC EQU X'09' . TO FC WITH OPCE TO 35140010 * REQUEST DEACT OF A 35200010 * 3705 35260010 OPRFK EQU X'0A' . REDRIVE ELEMENT ROUTING TO FK 35320010 * 35330010 OPRVAVF EQU X'0B' . USED BY V9 TO INTERFACE WITH AN 35340010 * OPCE TO VA OR VF 35350010 OPRC0 EQU X'0D' . USED WITH PRILOFLG - 35360010 * TO REDRIVE IGCC010D 35366010 OPRVI2 EQU X'10' . USED WITH PRIMEDFG - 35372010 * A/D TO VI WITH AN OPCE 35380010 OPRV8 EQU X'11' . USED WITH PRIMEDFG - 35440010 * A/D TO V8 WITH AN OPCE 35500010 OPRMP EQU X'12' . OPRE FROM DLC TO MP FOR 35560010 * I/O COMPLETE 35620010 OPRDRTN EQU X'13' . USED TO RETURN OPCE 35680010 * TO ACTIVATE 35740010 OPRETOMF EQU X'14' . DLC ROUTE BACK TO MF AFTER I/O 35840010 OPRPRMRP EQU X'15' . NSL RETURNS TO VA AFTER PRIMING 35920010 OPRTOTCL EQU X'16' . FLAG FIELD VALUE FOR TOTE 35940010 * CLEANUP RESP HANDLER @Y17XAXF 35960010 OPREFLG2 DS X . FLAG FIELD 36000010 OPREFLG3 DS X . FLAG FIELD 36400010 * EQU X'80'-X'04' RESERVED 36800010 OPREATCH EQU X'02' . ATTACHED FLAG 37200010 * EQU X'01' RESERVED 37600010 OPRELEN EQU *-IEDOPRED . OPRE LENGTH 38000010 MEND 40000010 * */ 42000010 *%OPREPLS : ; 44000010 *DECLARE 46000010 * 1 IEDOPRED BDY(WORD) BASED, 48000010 */* */ 50000010 */* OPERATOR CONTROL REQUEST ELEMENT */ 52000010 */* */ 54000010 * 2 OPREKEY CHAR(1), /* KEY FIELD */ 56000010 * 2 OPREQCB PTR(24), /* QCB ADDRESS */ 58000010 * 2 OPREPRI CHAR(1), /* PRIORITY FIELD */ 60000010 */* */ 60500010 */* REFER TO TPRIOR DSECT FOR PRIORITY EQUATES */ 61000010 */* */ 61500010 * 2 OPRELINK PTR(24), /* LINK FIELD */ 62000010 * 2 OPRESAVE PTR(31), /* IPL DUMP OPCE SAVE AREA */ 64000010 * 3 OPRETIC PTR(31), /* LINK TO NEXT UNIT */ 65000010 * 2 OPREFLG1 CHAR(1), /* FLAG FIELD */ 66000010 * 2 OPREFLG2 CHAR(1), /* FLAG FIELD */ 68000010 * 2 OPREFLG3 CHAR(1), /* FLAG FIELD */ 68400010 * 3 * BIT(6), /* RESERVED */ 68800010 * 3 OPREATCH BIT(1), /* ATTACHED FLAG */ 69200010 * 3 * BIT(1); /* RESERVED */ 69600010 * %OPRELEN='LENGTH(IEDOPRED)'; /* OPRE LENGTH */ 70000010 */* */ 70060010 */* CONSTANTS FOR OPREFLG1 */ 70120010 */* */ 70180010 *DCL OPRA0 BIT(8) CONSTANT('01'X); /* USED WITH PRIHIFLG - 70240010 * OP SERVICES TO SSCP 70300010 * USED WITH PRILOFLG-A/D 70303010 * REDRIVE @Y17XAXF*/ 70306010 *DCL OPRSENSE BIT(8) CONSTANT('02'X); /* USED WITH @Y17XAXF*/ 70310010 * /* PRIHIFLG DLC TO @Y17XAXF*/ 70320010 * /* IPL @Y17XAXF*/ 70330010 *DCL OPRFG BIT(8) CONSTANT('03'X); /* USED WITH PRIMEDFG - 70360010 * LUS TO A/D */ 70420010 *DCL OPRVI BIT(8) CONSTANT('04'X); /* USED WITH PRIMEDFG - 70480010 * NSL TO VI WITH A 70540010 * REQUEST BUFFER */ 70600010 *DCL OPRVE BIT(8) CONSTANT('05'X); /* USED WITH PRIMEDFG - 70660010 * NSL TO VE WITH A 70720010 * REQUEST BUFFER */ 70780010 *DCL OPRVA BIT(8) CONSTANT('06'X); /* USED WITH PRIMEDFG - 70840010 * NSL TO VA WITH A 70900010 * REQUEST BUFFER */ 70960010 *DCL OPRVF BIT(8) CONSTANT('07'X); /* USED WITH PRIMEDFG - 71020010 * NSL TO VF WITH A 71080010 * REQUEST BUFFER */ 71140010 *DCL OPR02 BIT(8) CONSTANT('08'X); /* USED WITH PRIMEDFG - 71200010 * A/D TO 02 */ 71260010 *DCL OPRFC BIT(8) CONSTANT('09'X); /* TO FC WITH OPCE TO 71320010 * REQUEST DEACT OF A 71380010 * 3705 */ 71440010 *DCL OPRFK BIT(8) CONSTANT('0A'X); /* REDRIVE ELEMENT ROUTING TO 71500010 * FK */ 71510010 *DCL OPRVAVF BIT(8) CONSTANT('0B'X); /* USED BY V9 TO INTERFACE WITH 71520010 * AN OPCE TO VA OR VF */ 71530010 *DCL OPRC0 BIT(8) CONSTANT('0D'X); /* USED WITH PRILOFLG - 71540010 * TO REDRIVE IGCC010D 71545010 * @Y17XAXF*/ 71550010 *DCL OPRVI2 BIT(8) CONSTANT('10'X); /* USED WITH PRIMEDFG - 71555010 * A/D TO VI WITH AN OPCE */ 71560010 *DCL OPRV8 BIT(8) CONSTANT('11'X); /* USED WITH PRIMEDFG - 71620010 * A/D TO V8 WITH AN OPCE */ 71680010 *DCL OPRMP BIT(8) CONSTANT('12'X); /* OPRE FROM DLC TO MP FOR 71740010 * I/O COMPLETE */ 71800010 *DCL OPRDRTN BIT(8) CONSTANT('13'X); /* USED TO RETURN OPCE 71860010 * TO ACTIVATE */ 71920010 *DCL OPRETOMF BIT(8) CONSTANT('14'X); /* DLC ROUTE BACK TO MF AFTER 71940010 * I/O */ 71960010 *DCL OPRPRMRP BIT(8) CONSTANT('15'X); /* NSL RETURNS TO VA AFTER 74960010 * PRIMING */ 77960010 *DCL OPRTOTCL BIT(8) CONSTANT('16'X);/*FLAG FIELD VALUE FOR TOTE */ 80960010 * /*CLEANUP RESP HANDLER @Y17XAXF*/ 83960010