* @BLDMSG  MAKPO - ðOCTPOéTø COOâýEHéE B âõæEPE @MSGBUF                 DMSG0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 20.01.89   BPEMñ 19.28   *  æOKõC  DMSG0002
*   @BLDMSG  (<COOâýEHéE B æOPMATE äìñ MESSAGE$>) éìé <AäPEC COOâýEHéñ> DMSG0003
*         [,LL=<äìéHA âõæEPA>][TC=<Cð.BùúOBA>] - B ðEPBOê MAKPOKOMAHäE  DMSG0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    DMSG0005
         MACRO                                                          DMSG0006
&NAME    @BLDMSG &MSG,&LL=129,&TC=CALL                                  DMSG0007
         AIF   ('&MSG'(1,1) NE '(').ADRESS                              DMSG0008
&NAME    LA    0,IHB&SYSNDX                                             DMSG0009
         BAL   14,@BLDMSG                                               DMSG0010
CONSTF  LOCTR                                                           DMSG0011
IHB&SYSNDX MESSAGE$ &MSG                                                DMSG0012
         AGO   .PGM                                                     DMSG0013
.ADRESS  ANOP                                                           DMSG0014
&NAME    IHBLADR 0,&MSG,'AäPEC COOâýEHéñ'                               DMSG0015
         BAL   14,@BLDMSG                                               DMSG0016
.PGM     AIF   (D'@BLDMSG).RESTLOC                                      DMSG0017
 SPACE 2                                                                DMSG0018
*********************************************************************** DMSG0019
*  ðð æOPMéPOBAHéñ COOâýEHéñ                                          * DMSG0020
*********************************************************************** DMSG0021
SUBPGMS LOCTR                                                           DMSG0022
@BLDMSG  DS    0H                                                       DMSG0023
         ST    14,WSAVE14                                               DMSG0024
         BUILDMSG ADR=(0),BUF=@MSGBUF,TC=&TC                            DMSG0025
         L     14,WSAVE14                                               DMSG0026
         BR    14                                                       DMSG0027
         DS$C  @MSGBUF,D,@MSGTEXT,CL&LL,WSAVE14,F                       DMSG0028
.RESTLOC ANOP                                                           DMSG0029
&SYSLOC LOCTR                                                           DMSG0030
         MEND                                                           DMSG0031