*        %GOTO PLSID;                   /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TIDD                                                           09000010
*                                                                       12000010
.*A000000-999999                                               @Y17XAXF 15000010
*        BALR VERSION NOT SUPPORTED                                     18000010
*                                                                       21000010
         MEND  */                                                       24000010
*%PLSID:;                                                               27000010
* DCL IDCHCKPT CHAR(2) CONSTANT('06');  /* CHECKPOINT                */ 30000010
* DCL IDMSGOOD CHAR(2) CONSTANT('M3');  /* GOOD MESSAGE MODULE       */ 33000010
* DCL IDMSGCHN CHAR(2) CONSTANT('09');  /* MESSAGE MODULE CHAIN      */ 36000010
* DCL IDBHSTLS CHAR(2) CONSTANT('MS');  /* BHSET, TRANLMT, SESSION   */ 39000010
* DCL IDRUHAND CHAR(2) CONSTANT('02');  /* REQUEST-RESPONSE UNIT        42000010
*                                          HANDLER                   */ 45000010