%IKJWHENM:  ;                         /* WHEN WORK AREA MACRO       */ 00080002
 /********************************************************************/ 00160002
 /* THE WHEN WORK AREA IS USED ONLY BY THE WHEN COMMAND. IT CONTAINS */ 00240002
 /* A REGISTER SAVE AREA AND OTHER MISCELLANEOUS INFORMATION USED BY */ 00320002
 /* A WHEN PROCESSORS AND MESSAGE MODULE                             */ 00400002
 /********************************************************************/ 00480002
 %IF WHENBASE='' %THEN                                                  00560002
    %WHENBASE='BASED(WAPTR)';                                           00640002
         DCL  1 IKJWHEN  WHENBASE,                                      00720002
                2 WHPL       CHAR(28), /* GENERAL PARM LIST          */ 00800002
                2 WHPBLOCK   CHAR(20), /* GENERAL PARM BLOCK         */ 00880002
                2 WHPARANS   PTR(31),  /* PTR TO PARSE DESCRIP LIST  */ 00960002
                2 WHATTECB   CHAR(4),  /* SERV RTN ATTN RTN ECB      */ 01040002
                2 WHMSG      PTR(16),  /* MESSAGE OFFSETS            */ 01120002
                  3 WHMSG1    PTR(8),  /* OFFSET FOR MESSAGE MODULE  */ 01200002
                  3 WHMSG2    PTR(8),  /* SECONDARY MESSAGE INDEX    */ 01280002
                2 WHSWI       BIT(8),  /* STATUS BYTE                */ 01360002
                  3 WHEND     BIT(1),  /* END COMMAND IN CONTROL     */ 01440002
                  3 WHRET     BIT(1),  /* SET TMP RET CODE TO ERROR  */ 01520002
                  3 WHBYPASS BIT(1),   /* ON IF NO ERROR MSG SHOULD BE  01600002
                                          ISSUED AT WHEN EXIT TO TMP    01680002
                                                               YM4908*/ 01720002
                2 WHCHAR     CHAR(1),  /* FIRST CHARACTER OF NEXT    */ 01760002
                                       /* COMMAND IN CASE DELIMETER  */ 01840002
                                       /* WAS OMMITTED               */ 01920002
                2 WHENWAS    PTR(31),  /* NOT USED                   */ 02000002
                2 WHRCODE    PTR(31),  /* SERV RTN RETURN CODE       */ 02080002
                2 WHCOMM     PTR(31),  /* POINTER TO COMMAND TO BE   */ 02160002
                                       /* ADDED TO INPUT STACK       */ 02240002
                2 WHCMD      CHAR(8),  /*NAME OF COMMAND FOR         */ 02320002
                                       /* MESSAGE MODULE             */ 02400002
                2 WHGETM     PTR(31),  /* GETMAIN SIZE AND SUBPOOL   */ 02480002
                  3 WHSUBP    PTR(8),  /* SUBPOOL                    */ 02560002
                  3 WHFILL    PTR(8),  /* FILLER                     */ 02640002
                  3 WHLEN     PTR(15), /* LENGTH                     */ 02720002
                2 WHWASIZ    PTR(31);  /* WORK AREA SP AND SIZE      */ 02800002