* %GOTO RHPLS; /* BILINGUAL HEADER 01000010 MACRO 02000010 TRHD 03000010 .*A000000-999999 @Y17XAXF 04000010 IEDRH DSECT 05000010 .RH002 ANOP 06000010 * 07000010 * DSECT FOR SNA RH 08000010 * 09000010 TRHBYTE0 DS CL1 . BYTE 0 OF RH 10000010 TRHTYPE EQU X'80' . ON-RSP, OFF-REQ 11000010 * TRHRUCAT 2 BITS RU CATEGORY 12000010 TRHFMD EQU X'00' . FM DATA 13000010 TRHNC EQU X'20' . NETWORK CONTROL 14000010 TRHDFC EQU X'40' . DATA FLOW CONTROL 15000010 TRHSC EQU X'60' . SESSION CONTROL 16000010 * EQU X'10' . RESERVED 17000010 TRHFI EQU X'08' . FORMAT INDICATOR 18000010 TRHSDI EQU X'04' . SENSE DATA INCLUDED 19000010 TRHBC EQU X'02' . BEGIN CHAIN 20000010 TRHEC EQU X'01' . END CHAIN 21000010 TRHBYTE1 DS CL1 . BYTE 1 OF RH 22000010 TRHDR1 EQU X'80' . DEFINITE RESPONSE 1 23000010 * EQU X'40' . RESERVED 24000010 TRHDR2 EQU X'20' . DEFINITE RESPONSE 2 25000010 TRHER EQU X'10' . EXCEPTION RESPONSE 26000010 * EQU X'08' . RESERVED 27000010 * EQU X'04' . RESERVED 28000010 * EQU X'02' . RESERVED 29000010 TRHPI EQU X'01' . PACING INDICATOR 30000010 TRHBYTE2 DS CL1 . BYTE 2 OF RH 31000010 TRHBB EQU X'80' . BEGIN BRACKET 32000010 TRHEB EQU X'40' . END BRACKET 33000010 TRHCDI EQU X'20' . CHANGE DIRECTION INDICATOR 34000010 * EQU X'10' . RESERVED 35000010 TRHCSI EQU X'08' . CODE SELECTION INDICATOR 36000010 * EQU X'04' . RESERVED 37000010 * EQU X'02' . RESERVED 38000010 * EQU X'01' . RESERVED 39000010 TRH1LEN EQU *-IEDRH . LENGTH OF FID1 RH 40000010 MEND 41000010 * */ 42000010 *%RHPLS:; 43000010 *DECLARE 44000010 * 1 IEDRH BASED BDY(BYTE), 45000010 */* */ 46000010 */* DSECT FOR SNA RH */ 47000010 */* */ 48000010 * 2 TRHBYTE0 CHAR(1), /* BYTE 0 OF RH */ 49000010 * 3 TRHTYPE BIT(1), /* ON-RSP, OFF-REQ */ 50000010 * 3 TRHRUCAT BIT(2), /* RU CATEGORY */ 51000010 * 3 * BIT(1), /* RESERVED */ 52000010 * 3 TRHFI BIT(1), /* FORMAT INDICATOR */ 53000010 * 3 TRHSDI BIT(1), /* SENSE DATA INCLUDED */ 54000010 * 3 TRHBC BIT(1), /* BEGIN CHAIN */ 55000010 * 3 TRHEC BIT(1), /* END CHAIN */ 56000010 * 2 TRHBYTE1 CHAR(1), /* BYTE 1 OF RH */ 57000010 * 3 TRHDR1 BIT(1), /* DEFINITE RESPONSE 1 */ 58000010 * 3 * BIT(1), /* RESERVED */ 59000010 * 3 TRHDR2 BIT(1), /* DEFINITE RESPONSE 2 */ 60000010 * 3 TRHER BIT(1), /* EXCEPTION RESPONSE */ 61000010 * 3 * BIT(1), /* RESERVED */ 62000010 * 3 * BIT(1), /* RESERVED */ 63000010 * 3 * BIT(1), /* RESERVED */ 64000010 * 3 TRHPI BIT(1), /* PACING INDICATOR */ 65000010 * 2 TRHBYTE2 CHAR(1), /* BYTE 2 OF RH */ 66000010 * 3 TRHBB BIT(1), /* BEGIN BRACKET */ 67000010 * 3 TRHEB BIT(1), /* END BRACKET */ 68000010 * 3 TRHCDI BIT(1), /* CHANGE DIRECTION IND */ 69000010 * 3 * BIT(1), /* RESERVED */ 70000010 * 3 TRHCSI BIT(1), /* CODE SELECTION IND */ 71000010 * 3 * BIT(1), /* RESERVED */ 72000010 * 3 * BIT(1), /* RESERVED */ 73000010 * 3 * BIT(1); /* RESERVED */ 74000010 * %TRH1LEN='LENGTH(IEDRH)'; /* LEN OF FID1 RH */ 75000010 */* TRHRUCAT VALUES */ 76000010 * DCL TRHFMD BIT(2) CONSTANT('00'B); /* FM DATA */ 77000010 * DCL TRHNC BIT(2) CONSTANT('01'B); /* NETWORK CONTROL */ 78000010 * DCL TRHDFC BIT(2) CONSTANT('10'B); /* DATA FLOW CONTROL */ 79000010 * DCL TRHSC BIT(2) CONSTANT('11'B); /* SESSION CONTROL */ 80000010 */* RH CONSTANTS */ 81000010 * DCL TRHFID0 BIT(24) CONSTANT('0B8000'X); 82000010