* BUILDMSG MAKPO - ðOCTPOéTø COOâýEHéE (OâPAýEHéE K SLBLDMSG)           DMSG0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 18.11.88   BPEMñ 12.30   *  æOKõC  DMSG0002
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    DMSG0003
         MACRO                                                          DMSG0004
&NAME    BUILDMSG &NUM=,&ADR=,&TAB=,&BUF=,&TC=CALL                      DMSG0005
         GBLC  &BLDMSGA                                                 DMSG0006
&NAME    IHBLABEL                                                       DMSG0007
         AIF   ('&NUM' EQ '').ADR                                       DMSG0008
         AIF   ('&ADR' NE '').MNOTE1                                    DMSG0009
         IHBLADR 0,&NUM                                                 DMSG0010
         IHBLADR 15,&TAB,'"TAB" - AäPEC TAâìéãù COOâýEHéê'              DMSG0011
         AGO   .BUF                                                     DMSG0012
.ADR     AIF   ('&ADR' NE '').LADR                                      DMSG0013
         MNOTE 4,' HE úAäAH Hé "NUM", Hé "ADR"'                         DMSG0014
         AGO   .BUF                                                     DMSG0015
.LADR    ANOP                                                           DMSG0016
         IHBLADR 0,&ADR                                                 DMSG0017
         LNR   0,0               ðPéúHAK - úAäAH AäPEC COOâýEHéñ        DMSG0018
.BUF     IHBLADR 1,&BUF,'"BUF" - AäPEC âõæEPA'                          DMSG0019
         AIF   ('&TC(1)' EQ 'CALL').CALL                                DMSG0020
         AIF   ('&TC' EQ 'LINK').LINK                                   DMSG0021
         AIF   ('&TC' EQ 'SVC').SVC                                     DMSG0022
         MNOTE 8,' HEBEPHOE úHAþEHéE TC=&TC ; ðPéHéMAETCñ CALL'         DMSG0023
.CALL    AIF   ('&TC(2)' EQ '').CALL2                                   DMSG0024
&BLDMSGA SETC '&TC(2)'                                                  DMSG0025
.CALL2   AIF   ('&BLDMSGA' NE '').CALL3                                 DMSG0026
         AIF   (NOT D'PGMADR#SLBLDMSG).VCONST                    *ASM2* DMSG0027
&BLDMSGA SETC  'PGMADR#SLBLDMSG'                                 *ASM2* DMSG0028
         AGO   .CALL3                                            *ASM2* DMSG0029
.VCONST  ANOP                                                    *ASM2* DMSG0030
&BLDMSGA SETC '=V(SLBLDMSG)'                                            DMSG0031
.*                                                                      DMSG0032
.CALL3   L     14,&BLDMSGA       AäPEC ðPOçPAMMù ðOCTPOEHéñ COOâýEHéê   DMSG0033
         BALR  14,14             BùúOB ðPOçPAMMù ðOCTPOEHéñ COOâýEHéê   DMSG0034
         MEXIT                                                          DMSG0035
.LINK    AIF   ('&NUM' EQ '').LINK2                                     DMSG0036
         MNOTE 8,' ðPé õKAúAHéé HOMEPA HEìøúñ äABATø TC=LINK'           DMSG0037
         AGO   .CALL                                                    DMSG0038
.LINK2   LINK  EP=SLBLDMSG                                              DMSG0039
         MEXIT                                                          DMSG0040
.SVC     SLSVC BM                                                       DMSG0041
.*                                                                      DMSG0042
         MEXIT                                                          DMSG0043
.MNOTE1 MNOTE 12,' ''NUM'' é ''ADR'' HE MOçõT úAäABATøCñ OäHOBPEMMEHHO' DMSG0044
.END     MEND                                                           DMSG0045