* %GOTO PLSREQ; /* BILINGUAL HEADER 01000010 MACRO 02000010 TREQD 03000010 SPACE 04000010 .* CHANGE ACTIVITY AS FOLLOWS: 05000010 .*A-000000999999 @Y17XAXU 06000010 .*A440000,770000,870000 @Y17XAXF 06500010 SPACE 07000010 IEDREQD DSECT 08000010 * 09000010 * GENERAL REQUEST ELEMENT 10000010 * 11000010 REQTYPE DS XL1 . REQUEST TYPE 12000010 REQLTRM EQU X'01' . TERMINATE SESSION REQUEST 13000010 * (TO LUS FROM OP SERVICES 14000010 * OR TOTE) 15000010 REQLSHTD EQU X'02' . SEND SHUTDOWN & TERMINATE 16000010 * SESSION (TO LUS FROM OP 17000010 * SERVICES) 18000010 REQSGET EQU X'03' . GET SIB REQUEST 19000010 REQSFREE EQU X'04' . FREE SIB REQUEST 20000010 REQQCBA DS AL3 . QCB ADDRESS 21000010 REQPRI DS XL1 . PRIORITY 22000010 REQLINK DS XL3 . LINK ADDRESS 23000010 REQRPRI DS XL1 . PRIOITY FOR RETURN TPOST 24000010 REQRQCBA DS AL3 . QCB ADDRESS FOR RETURN TPOST 25000010 REQROUTE DS 0XL2 . ROUTING FOR RETURN TPOST 26000010 REQFLAG DS XL1 . FLAG BYTE 27000010 REQSWTCH DS XL1 . SWITCH BYTE 28000010 REQRCDS DS 0XL2 . RETURN CODES 29000010 REQRCD1 DS XL1 . RETURN CODE 1 30000010 REQRCD2 DS XL1 . RETURN CODE 2 31000010 REQDATA DS 0CL1 . DATA - FORMAT DEPENDENT 32000010 * DATA DEFINITION FOR LUS REQUESTS (REQLTRM & REQLSHTD) 33000010 REQLDATA EQU REQDATA . 34000010 REQLTNT EQU REQDATA . TNT OFFSET FOR LU 35000010 * DATA DEFINITION FOR SIB REQUESTS (REQSGET & REQSFREE) 36000010 REQSDATA EQU REQDATA . 37000010 REQSTTE EQU REQDATA . ADDRESS OF TTE FOR RESOURCE 38000010 * WHOSE SIB CHAIN WILL BE CHANGED 39000010 REQSTNT EQU REQDATA+4 . TNT OFFSET OR MH INDEX USED 40000010 * IN SIB TO IDENTIFY WHO THE 41000010 * RESOURCE IS IN SESSION WITH 42000010 * (TCAM,AN MH, SSCP, ETC., ETC.) 43000010 * ON REQUEST TYPE 44000010 REQLLEN EQU 22 . LEN OF INTERTASK REQ @Y17XAXF 44200010 * ELEMENT FOR LUS REQ @Y17XAXF 44400010 REQSLEN EQU 26 . LEN OF INTERTASK REQ @Y17XAXF 44600010 * ELEMENT FOR SIB REQ @Y17XAXF 44800010 REQTOTCL EQU X'FE' . RQST FOR TOTE CLEANUP @Y17XAXF 44900010 REQLEN EQU *-IEDREQD . REQ LENGTH 45000010 MEND 46000010 * */ 47000010 *%PLSREQ : ; 48000010 *DCL 1 IEDREQD BASED, /* GENERAL REQUEST ELEMENT */ 49000010 * 2 REQTYPE CHAR(1), /* REQUEST TYPE */ 50000010 * 2 REQQCBA PTR(24), /* QCB ADDRESS */ 51000010 * 2 REQPRI CHAR(1), /* PRIORITY */ 52000010 * 2 REQLINK PTR(24), /* LINK ADDRESS */ 53000010 * 2 REQRPRI CHAR(1), /* PRIORITY FOR RETURN TPOST */ 54000010 * 2 REQRQCBA PTR(24), /* QCB ADDR FOR RETURN TPOST */ 55000010 * 2 REQROUTE CHAR(2), /* ROUTINE FOR RETURN TPOST */ 56000010 * 3 REQFLAG CHAR(1), /* FLAG BYTE */ 57000010 * 3 REQSWTCH CHAR(1), /* SWITCH BYTE */ 58000010 * 2 REQRCDS CHAR(2), /* RETURN CODES */ 59000010 * 3 REQRCD1 CHAR(1), /* RETURN CODE 1 */ 60000010 * 3 REQRCD2 CHAR(1), /* RETURN CODE 2 */ 61000010 * 2 REQDATA CHAR(*); /* DATA (FORMAT DEPENDENT ON 62000010 * REQUEST TYPE) */ 63000010 * %REQLEN='LENGTH(IEDREQD'; /* REQ LENGTH */ 64000010 */* REQUEST-TYPE DEFINITIONS (VALUES FOR REQTYPE FIELD) */ 65000010 *DCL REQLTRM BIT(8) CONSTANT('01'X); /* TERMINATE-SESSION REQUEST 66000010 * (TO LUS FROM OP ERVICES OR 67000010 * TOTE) */ 68000010 *DCL REQLSHTD BIT(8) CONSTANT('02'X); /* SEND SHUTDOWN & TERMINATE 69000010 * SESSION (TO LUS FROM OP 70000010 * SERVICES) */ 71000010 *DCL REQSGET BIT(8) CONSTANT('03'X); /* GET SIB REQUEST (FROM SSCP) */ 72000010 *DCL REQSFREE BIT(8) CONSTANT('04'X); /* FREE SIB REQST (FROM SSCP) */ 73000010 */* */ 74000010 */* DATA DEFINITION FOR LUS REQUESTS (REQLTRM & REQLSHTD) */ 75000010 *DCL 1 REQLDATA DEF(REQDATA), 76000010 * 2 REQLTNT CHAR(2); /* TNT OFFSET FOR LU */ 77000010 *DCL REQLLEN FIXED(8) CONSTANT(22);/* LEN OF INTERTASK REQ @Y17XAXF*/ 77300010 * /* ELEMENT FOR LUS REQ @Y17XAXF*/ 77600010 */* */ 78000010 */* DATA DEFINITION FORSIB REQUESTS (REQSGET & REQSFREE) */ 79000010 *DCL 1 REQSDATA DEF(REQDATA), 80000010 * 2 REQSTTE PTR(31), /* ADDRESS OF TERMINAL TABLE ENTRY 81000010 * FOR RESOURCE WHOSE SIB CHAIN 82000010 * WILL BE CHANGED */ 83000010 * 2 REQSTNT CHAR(2); /* TNT OFFSET OR MH INDEX USED 84000010 * IN SIB TO IDENTIFY WHO THE 85000010 * RESOURCE IS IN SESSION WITH 86000010 * (TCAM, AN MH, THE SSCP, ETC) */ 87000010 *DCL REQSLEN FIXED(8) CONSTANT(26);/* LEN OF INTERTASK REQ @Y17XAXF*/ 90000010 * /* ELEMENT FOR SIB REQ @Y17XAXF*/ 93000010 *DCL REQTOTCL BIT(8) CONSTANT('FE'X);/* RQST FOR TOTE CLEANUP @Y17XAXF*/96000010