*        %GOTO PLSTSOEC;       /*                                       01000010
         MACRO                                                          02000010
         TSOECDD                                                        04000010
*   ENTRY FROM SEND SCHEDULER OR DESTINATION SCHEDULER ON QCB POST      05000010
TSOA01   EQU   1                                                        12000010
*   ENTRY FROM SEND SCHEDULER ON PLCB POST                              13000010
TSOA02   EQU   2                                                        16000010
*   ENTRY FROM RECEIVE SCHEDULER ON PLCB POST                           17000010
TSOA03   EQU   3                                                        20000010
         MEND  */                                                       20200010
*%PLSTSOEC : ;                                                          20400010
*/*  ENTRY FROM SEND SCHEDULER OR DESTINATION SCHEDULER ON QCB POST  */ 20600010
* DCL TSOA01   FIXED(8) CONSTANT(1);                                    20800010
*/*  ENTRY FROM SEND SCHEDULER ON PLCB POST                          */ 21000010
* DCL TSOA02   FIXED(8) CONSTANT(2);                                    21200010
*/*  ENTRY FROM RECEIVE SCHEDULER ON PLCB POST                       */ 21400010
* DCL TSOA03   FIXED(8) CONSTANT(3);                                    21600010