* %GOTO THPLS; /* BILINGUAL HEADER 01000010 MACRO 02000010 TTHD 03000010 .*A000000-999999 @Y17XAXF 04000010 IEDTH DSECT 05000010 * 06000010 * DSECT FOR SNA TH 07000010 * 08000010 TTHBYTE0 DS XL1 . BYTE 0 OF TH 09000010 * TTHFTYPE 4 BITS FORMAT TYPE 10000010 TTHFID0 EQU X'00' . FID0 1ST FOUR 11000010 TTHFID1 EQU X'10' . FID1 BITS INDICATE 12000010 TTHBBIU EQU X'08' . BEGIN SEGMENT 13000010 TTHEBIU EQU X'04' . END SEGMENT 14000010 * EQU X'02' . RESERVED 15000010 TTHEFI EQU X'01' . EXPEDITED FLOW INDICATOR 16000010 TTHBYTE1 DS CL1 . RESERVED 17000010 TTHDAF DS AL2 . DESTINATION ADDR FIELD 18000010 TTHOAF DS AL2 . ORIGIN ADDRESS FIELD 19000010 TTHSNF DS 0AL2 . SEQUENCE NUMBER 20000010 TTHTAG DS 0AL2 . TAG INFORMATION 21000010 TTHTAG1 DS XL1 . FIRST TAG BYTE 22000010 *TTHTAGS BITS 0-3 TAG ROUTING AND TYPE 23000010 * THE FOLLOWING VALUES CAN BE USED FOR PRF1TAGS 23500010 TTHOPCTL EQU X'10' . OPER CONTROL 24000010 * BITS 4-7 . RESERVED 27500010 TTHTAG2 DS XL1 . SECOND TAG BYTE 28000010 * TP OP CODE VALUES USED FOR TTHTAG2 OR PRF1TAG2 28005010 TTHNULWR EQU X'01' . NULL WRITE TRANS, ISSUED 28010010 * BY DEBLOCK 28015010 TTHRESET EQU X'02' . RESET ISSUED BY DEBLOCK 28020010 TTHLSTWR EQU X'03' . LAST WRITE BDU OF A MESS 28025010 * -ISSUED BY OUTPUT DATA 28030010 * NIR GENERATOR 28035010 TTHABORT EQU X'04' . STOP=YES DISCONNECT OR NULL 28040010 * WRITE TRANS. ABORT ISSUED 28045010 * BY CONTROL NIR GENERATOR 28050010 TTHWRSMI EQU X'05' . WRITE SMI ISSUED BY TSO 28055010 * SCHEDULER AND TSO MSGGEN 28060010 TTHDCF DS AL2 . DATA COUNT FILED 29000010 * (DOES NOT INCLUDE TH) 30000010 TTH0BYT0 EQU X'0C' . USED FOR FID0 TH INITIALIZATION 31000010 TTH0BYT1 EQU X'00' . USED FOR FID0 TH INITIALIZATION 32000010 *TTHTAG0 X'0000' . USED WITH TTHTAG 34000010 TTHLEN EQU *-IEDTH . LENGTH OF TH 35000010 MEND 36000010 * */ 37000010 *%THPLS:; 38000010 *DECLARE 39000010 * 1 IEDTH BASED BDY (BYTE), 40000010 */* */ 41000010 */* DSECT FOR SNA TH */ 42000010 */* */ 43000010 * 2 TTHBYTE0 BIT(8), /* BYTE0 OF TH */ 44000010 * 3 TTHFTYPE BIT(4), /* FORMAT TYPE */ 45000010 * 3 TTHBBIU BIT(1), /* BEGIN SEGMENT */ 46000010 * 3 TTHEBIU BIT(1), /* END SEGMENT */ 47000010 * 3 * BIT(1), /* RESERVED */ 48000010 * 3 TTHEFI BIT(1), /* EXPEDITED FLOW INDICATOR*/ 49000010 * 2 TTHBYTE1 CHAR(1), /* RESERVED */ 50000010 * 2 TTHDAF BIT(16), /* DESTINATION ADDR FIELD */ 51000010 * 2 TTHOAF BIT(16), /* ORIGIN ADDRESS FIELD */ 52000010 * 2 TTHSNF FIXED(16) BDY(BYTE), /* SEQUENCE NUMBER */ 53000010 * 3 TTHTAG FIXED(16) BDY(BYTE), /* TAG INFORMATION */ 54000010 * 4 TTHTAG1 BIT(8), /* FIRST TAG BYTE */ 55000010 * 5 TTHTAGS BIT(4), /* TAG ROUTING AND TYPE */ 56000010 * 5 * BIT(4), /* RESERVED */ 57000010 * 4 TTHTAG2 BIT(8), /* SECOND TAG BYTE */ 58000010 * 2 TTHDCF FIXED(16) BDY(BYTE); /* DATA COUNT FIELD */ 59000010 * /* (DOES NOT INCLUDE TH) */ 60000010 * %TTHLEN='LENGTH(IEDTH)'; /* LENGTH OF TH */ 61000010 */* TTHFTYPE VALUES */ 62000010 * DCL TTHFID0 BIT(4) CONSTANT('0000'B); /* FID0 INDICATOR */ 63000010 * DCL TTHFID1 BIT(4) CONSTANT('0001'B); /* FID1 INDICATOR */ 64000010 */* TTHTAGS OR PRF1TAGS VALUES */ 65000010 * DCL TTHOPCTL BIT(4) CONSTANT('0001'B); /* OPER CONTROL */ 66000010 */* TP OP CODE VALUES USED FOR TTHTAG2 OR PRF1TAG2 */ 66200010 * DCL TTHNULWR BIT(8) CONSTANT('01'X); /* NULL WRITE TRANS. */ 67000010 * /* ISSUED BY DEBLOCK */ 67200010 * DCL TTHRESET BIT(8) CONSTANT('02'X); /* RESET ISSUED BY DEBLOCK */ 68000010 * DCL TTHLSTWR BIT(8) CONSTANT('03'X); /* LAST WRITE BDU OF A MES */ 69000010 * /* ISSUED BY OUTPUT DATA */ 69020010 * /* NIR GENERATOR */ 69040010 * DCL TTHABORT BIT(8) CONSTANT('04'X); /* STOP=YES DISCONNECT OR */ 69060010 * /* NULL WRITE TRANS. ABORT */ 69080010 * /* ISSUED BY CONTROL NIR */ 69100010 * /* GENERATOR */ 69120010 * DCL TTHWRSMI BIT(8) CONSTANT('05'X); /* WRITE SMI ISSUED BY TSO */ 69140010 * /* SCHEDULR AND TSO MSGGEN */ 69160010 */* TH CONSTANTS */ 70000010 * DCL TTH0BYT0 BIT(8) CONSTANT('0C'X); /* USED FOR FID0 TH INITIAL */ 71000010 * DCL TTH0BYT1 BIT(8) CONSTANT('00'X); /* USED FOR FID0 TH INITIAL */ 72000010 * DCL TTHTAG0 BIT(16) CONSTANT('0000'X); /* USED WITH TTHTAG */ 74000010