*        %GOTO THB1;          /* BILINGUAL MAPPING MACRO                00050002
         MACRO                                                          00100002
         IGFTHB                                                         00150002
*                             */                                        00160002
*%THB1: ;                                                               00200002
*/********************************************************************* 00250002
*                                                                       00300002
*  MCH THRESHOLD BLOCK                                                  00350002
*                                                                       00360002
*  OS/VS2 RELEASE 2, 11/20/72                                           00370002
*                                                                       00380002
*  METHOD OF ACCESS:                                                    00390002
*                    BAL - DSECT ONLY.  USING ON 'THB' ESTABLISHES      00392002
*                          ADDRESSABILITY.                              00396002
*                                                                       00396402
*                    PL/S - DCL THBPTR PTR                              00398002
*                                                                       00398402
**********************************************************************/ 00398802
*%GOTO THB2; /*                                                         00399202
         SPACE 1                                                        00399602
THB      DSECT                                                          00450002
THBBASE  DS    0CL8 .              BADSE THRESHOLD BLOCK       @G55CP2P 00500055
THBMODE  DS    XL1 .               MODE SWITCHES                        01000002
*                                                                       01010002
THBQUI   EQU   X'80' .             QUIET MODE FLAG                      01050002
THBREC   EQU   X'40' .             RECORD=ALL MODE FLAG                 01100002
THBRCT   EQU   X'20' .             RECORD=N MODE FLAG                   01150002
THBEXT   EQU   X'10' .             EXTENDED THB FLAG           @G55CP2P 01180055
*                                  BITS 4-7 RESERVED FOR FUTURE USE     01210055
*                                                                       01260002
THBCNT   DS    XL3 .               EVENT COUNT FIELD                    01300002
THBENABL DS    XL1 .               BUFFER ENABLE THRESHOLD CT  @G556P2P 01320055
THBTHR   DS    XL3 .               THRESHOLD COUNT FIELD                01340055
*                                                                     * 01500002
THBEXTND DS    0CL8 .              THB ENTENSION (FOR HARD     @G55C52P 01507055
*                                  MACHINE CHECK THRESHOLDS)   @G55C52P 01512055
THBOTIME DS    XL4 .               BEGINNING OF TIMING INTERVL @G55C52P 01517055
         DS    XL1 .               RESERVED FOR FUTURE USE     @G55C52P 01522055
THBNTRVL DS    XL3 .               TIMING INTERVAL LENGTH      @G55C52P 01527055
*                                                                       01542055
*    END OF MCH THRESHOLD BLOCK                                       * 01550002
*                                                                     * 01600002
         MEND                                                           01650002
*        */                                                             01700002
*%THB2: ;                                                               01750002
*                                                                       01800002
* DECLARE                                                               01850002
*  1 THB BASED(THBPTR) BDY(DWORD),                                      01950002
*  2 THBBASE CHAR(8) BDY(DWORD),   /* BASE THRESHOLD BLOCK   @G55CP2P*/ 01960055
*   3 THBMODE BIT(8),              /* MODE SWITCHES                  */ 01970055
*    4 THBQUI BIT(1),              /* QUIET MODE FLAG                */ 02000055
*    4 THBREC BIT(1),              /* RECORD=ALL MODE FLAG           */ 02050055
*    4 THBRCT BIT(1),              /* RECORD=N MODE FLAG             */ 02100055
*    4 THBEXT BIT(1),              /* THB EXTENDED FLAG      @G55CP2P*/ 02180055
*    4 *      BIT(4),              /* RESERVED FOR FUTURE USE        */ 02200055
*   3 THBCNT FIXED(24),            /* EVENT COUNT FIELD              */ 02220055
*   3 THBENABL FIXED(8),           /* BUFFER ENABLE THRESHOLD COUNT     02320055
*                                                            @G556P2P*/ 02350055
*   3 THBTHR FIXED(24),            /* THRESHOLD COUNT FIELD  @G55CP2P*/ 02360055
*   2 THBEXTND CHAR(8) BDY(DWORD), /* THB EXTENSION          @G55CP2P*/ 02370055
*     3 THBOTIME CHAR(4),          /* BEGINNING OF TIMING               02408055
*                                     INTERVAL               @G55CP2P*/ 02416055
*     3 * CHAR(1),                 /* RESERVED FOR FUTURE USE@G55CP2P*/ 02424055
*     3 THBNTRVL FIXED(24);        /* TIMING INTERVAL LENGTH @G55CP2P*/ 02432055
*/*                                                                     02450002
*  END OF MCH THRESHOLD BLOCK                                           02500002
**/                                                                     02550002