* %GOTO PLSHED; /* BILINGUAL HEADER 01000010 MACRO 02000010 THEDD 03000010 IEDHED DSECT TABLE CONTROL AREA 04000010 HEDTRCAD DS A . ADDR OF TABLE-BUILD RTN 05000010 HEDSIZE DS F . OVER-ALL TABLE SIZE 06000010 HEDRLN DS C . RELATIVE LINE NUMBER 07000010 HEDFSTHF DS AL3 . ADDR OF 1ST HALF OF TABLE 08000010 HEDSWCHS DS XL1 . SWITCHES 09000010 HEDTBL1 EQU X'80' . TABLE-IN-USE FLAG 10000010 * 1 - 1ST HALF-TABLE 11000010 * 0 - 2ND HALF-TABLE 12000010 HEDFULL1 EQU X'40' . 1ST HALF-TABLE-FULL FLAG 13000010 HEDFULL2 EQU X'20' . 2ND HALF-TABLE-FULL FLAG 14000010 HEDECBAV EQU X'10' . ECB-AVAILABLE FLAG 15000010 * EQU X'08'-X'01' . RESERVED 17000010 HEDSECHF DS AL3 . ADDR OF 2ND HALF OF TABLE 18000010 HEDTBPOS DS F . CURRENT TABLE POSITION 19000010 HEDSEQCT DS H . SEQUENCE COUNTER 20000010 HEDREMLN DS H . REMAINING TABLE LENGTH 21000010 HEDHLFSZ DS H . TOTAL SIZE OF HALF-TABLE 22000010 HEDDATLN DS H . DATA LENGTH PER HALF-TABLE 23000010 HEDLIST DS 0CL16 COMWRITE PARAMETER LIST 24000010 HEDAREA DS A . DATA ADDRESS 25000010 HEDTS DS C . TEST & SET SWITCHES 26000010 HEDFLAG DS CL1 . FLAG BYTE 27000010 * EQU X'80' . RESERVED 28000010 HEDCWOK EQU X'40' . COMWRITE COMPLETION FLAG 29000010 * EQU X'20'-X'01' . RESERVED 30000010 HEDLNTH DS H . LENGTH OF DATA 31000010 HEDCT DS F . RECORD COUNT 32000010 HEDID DS CL4 . ID FOR LINE TRACE @YM07377 33000010 DS CL4 . RESERVED 34000010 MEND */ 35000010 *%PLSHED:; 36000010 */* */ 37000010 */* TRACE TABLE HEADER DSECT */ 38000010 */* */ 39000010 *DCL 1 IEDHED BASED(RHEADER), /* TABLE CONTROL AREA */ 40000010 * 2 HEDTRCAD PTR(31), /* ADDR OF TABLE-BUILD RTN */ 41000010 * 2 HEDSIZE FIXED(31), /* OVER-ALL TABLE SIZE */ 42000010 * 2 HEDRLN CHAR(1), /* RELATIVE LINE NUMBER */ 43000010 * 2 HEDFSTHF PTR(24), /* ADDR OF 1ST HALF OF TABLE */ 44000010 * 2 HEDSWCHS BIT(8), /* SWITCHES */ 45000010 * 3 HEDTBL1 BIT(1), /* TABLE-IN-USE FLAG 46000010 * 1 - 1ST HALF-TABLE 47000010 * 0 - 2ND HALF-TABLE */ 48000010 * 3 HEDFULL1 BIT(1), /* 1ST HALF-TABLE-FULL FLAG */ 49000010 * 3 HEDFULL2 BIT(1), /* 2ND HALF-TABLE-FULL FLAG */ 50000010 * 3 HEDECBAV BIT(1), /* ECB-AVAILABLE FLAG */ 51000010 * 3 * BIT(4), /* FIRST-TIME SWITCH */ 52000010 * 2 HEDSECHF PTR(24), /* ADDR OF 2ND HALF OF TABLE */ 53000010 * 2 HEDTBPOS FIXED(31), /* CURRENT TABLE POSITION */ 54000010 * 2 HEDSEQCT FIXED(15), /* SEQUENCE COUNTER */ 55000010 * 2 HEDREMLN FIXED(15), /* REMAINING TABLE LENGTH */ 56000010 * 2 HEDHLFSZ FIXED(15), /* TOTAL SIZE OF HALF-TABLE */ 57000010 * 2 HEDDATLN FIXED(15), /* DATA LENGTH PER HALF-TABLE*/ 58000010 * 2 HEDLIST, /* COMWRITE PARAMETER LIST */ 59000010 * 3 HEDAREA PTR(31), /* DATA ADDRESS */ 60000010 * 3 HEDTS CHAR(1), /* TEST & SET SWITCHES */ 61000010 * 3 HEDFLAG CHAR(1), /* FLAG BYTE */ 62000010 * 4 * BIT(1), 63000010 * 4 HEDCWOK BIT(1), /* COMWRITE COMPLETION FLAG */ 64000010 * 4 * BIT(6), 65000010 * 3 HEDLNTH FIXED(15), /* LENGTH OF DATA */ 66000010 * 3 HEDCT FIXED(31), /* RECORD COUNT */ 67000010 * 3 HEDID CHAR(4), /* ID FOR LINE TRACE */ 68000010 * 2 * CHAR(4); 69000010