* IHBLADR  MAKPO - úAçPõúKA PEçéCTPA AäPECOM ( LA/LR )                  LADR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 05.10.90   BPEMñ 16.51   *  æOKõC  LADR0002
*    IHBLADR <PEçéCTP>,<ðAPAMETP>[,'<éMñ äìñ MNOTE>'],                  LADR0003
*            [ ZEROH=Y, ]    - BCEçäA OâHõìñTø CTAPûéê âAêT             LADR0004
*            [ EMPTY=ZERO, ] - ðPé ðõCTOM ðAP-PE PEçéCTP OâHõìéTø       LADR0005
*            [ EMPTY=SKIP ]  - ðPé ðõCTOM ðAP-PE HE äEìATø HéþEçO       LADR0006
*  ìEHéHçPAä éBã çõT  OTä. 07                           T: 310-98-12    LADR0007
         MACRO                                                          LADR0008
&N       IHBLADR &R,&PARM,&NAME,&ZEROH=N,&EMPTY=                        LADR0009
         LCLC  &RI                                                      LADR0010
         AIF   ('&PARM' NE '').LA        ðAP-P úAäAH ?                  LADR0011
         AIF   ('&EMPTY' EQ 'ZERO').ZR   - OâHõìéTø                     LADR0012
         AIF   ('&EMPTY' EQ 'SKIP').EXIT - ðPOðõCTéTø                   LADR0013
         MNOTE 12,'PARAMETER NOT SPECIFIED '&NAME''                     LADR0014
.LA      AIF   ('&PARM'(1,1) EQ '(').LR                                 LADR0015
&N       LA    &R,&PARM                                                 LADR0016
         MEXIT                                                          LADR0017
.LR      ANOP                                                           LADR0018
&RI      SETC  '&PARM'(2,K'&PARM-2)      BùHõTø éú CKOâOK               LADR0019
         AIF   ('&ZEROH' EQ 'Y').LRLA                                   LADR0020
         AIF   ('&RI' EQ '&R').EXIT                                     LADR0021
&N       LR    &R,&RI                                                   LADR0022
         MEXIT                                                          LADR0023
.EXIT    AIF   ('&N' EQ '').END                                         LADR0024
&N       DS    0H                                                       LADR0025
         MEXIT                                                          LADR0026
.*                                                                      LADR0027
.LRLA    ANOP                                                           LADR0028
&N       LA    &R,0&PARM                                                LADR0029
         MEXIT                                                          LADR0030
.ZR      ANOP                                                           LADR0031
&N       XR    &R,&R                                                    LADR0032
.END     MEND                                                           LADR0033