* @WTOMSG  MAKPO - BùBOä HA KOHCOìø COOâýEHéñ                           OMSG0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.10.88   BPEMñ 19.31   *  æOKõC  OMSG0002
*   @WTOMSG  (<COOâýEHéE B æOPMATE äìñ MESSAGE$>) éìé <AäPEC COOâýEHéñ> OMSG0003
*         [,LL=<äìéHA âõæEPA>][TC=<Cð.BùúOBA>] - B ðEPBOê MAKPOKOMAHäE  OMSG0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    OMSG0005
         MACRO                                                          OMSG0006
&NAME    @WTOMSG &MSG,&LL=129,&TC=CALL                                  OMSG0007
         AIF   ('&MSG'(1,1) NE '(').ADRESS                              OMSG0008
&NAME    LA    0,IHB&SYSNDX                                             OMSG0009
         BAL   14,@WTOMSG                                               OMSG0010
CONSTF  LOCTR                                                           OMSG0011
IHB&SYSNDX MESSAGE$ &MSG                                                OMSG0012
         AGO   .PGM                                                     OMSG0013
.ADRESS  ANOP                                                           OMSG0014
&NAME    IHBLADR 0,&MSG,'AäPEC COOâýEHéñ'                               OMSG0015
         BAL   14,@WTOMSG                                               OMSG0016
.PGM     AIF   (D'@WTOMSG).RESTLOC                                      OMSG0017
 SPACE 2                                                                OMSG0018
*********************************************************************** OMSG0019
*  ðð æOPMéPOBAHéñ COOâýEHéñ é WTO                                    * OMSG0020
*********************************************************************** OMSG0021
SUBPGMS LOCTR                                                           OMSG0022
@WTOMSG  DS    0H                                                       OMSG0023
         ST    14,WSAVE14                                               OMSG0024
         BUILDMSG ADR=(0),BUF=@MSGBUF,TC=&TC                            OMSG0025
         MVI   @MSGBUF+6,X'40'    MCSFLAG=REG0                          OMSG0026
         L     15,16                                                    OMSG0027
         L     15,0(15)                                                 OMSG0028
         L     15,4(15)                                                 OMSG0029
         L     15,180(15)                                               OMSG0030
         L     15,256(15)                                               OMSG0031
         ZIC   0,29(15)                                                 OMSG0032
         LA    1,@MSGBUF+4                                              OMSG0033
         SVC   35                                                       OMSG0034
         L     14,WSAVE14                                               OMSG0035
         BR    14                                                       OMSG0036
         DS$C  @MSGBUF,D,@MSGTEXT,CL&LL,WSAVE14,F                       OMSG0037
.RESTLOC ANOP                                                           OMSG0038
&SYSLOC LOCTR                                                           OMSG0039
         MEND                                                           OMSG0040