* FILL     MAKPO - úAðOìHEHéE ðOìñ CéMBOìOM                             FILL0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 02.11.90   BPEMñ 23.50   *  æOKõC  FILL0002
*    FILL  <AäPEC ðOìñ>,<âAêT>[,<äìéHA>]                                FILL0003
*  ìEHéHçPAä éBã çõT  OTä. 07  ìATùûKO                  T: 310-98-12    FILL0004
         MACRO                                                          FILL0005
&NAME    FILL  &ADR,&CHAR,&LEN                                          FILL0006
         LCLA  &P,&P2L                                                  FILL0007
         LCLC  &C1,&C2                                                  FILL0008
&NAME    MVI   &ADR,&CHAR                                               FILL0009
         AIF   ('&LEN' NE '').T2                                        FILL0010
         AIF   (L'&ADR LE 1).END                                        FILL0011
.T1      MVC   1+&ADR.(L'&ADR-1),&ADR                                   FILL0012
         MEXIT                                                          FILL0013
.T2      AIF   ('&LEN' EQ '1').END                                      FILL0014
         AIF   ('&ADR'(K'&ADR,1) EQ ')').T3                             FILL0015
         MVC   1+&ADR.(&LEN-1),&ADR                                     FILL0016
         MEXIT                                                          FILL0017
.T3      ANOP                                                           FILL0018
&P       SETA  &P+1                                                     FILL0019
         AIF   (&P GT K'&ADR).END                                       FILL0020
         AIF   ('&ADR'(&P,1) NE '(').T3                                 FILL0021
&P2L     SETA  K'&ADR-&P                                                FILL0022
&C1      SETC  '&ADR'(1,&P)                                             FILL0023
&C2      SETC  '&ADR'(&P+1,&P2L)                                        FILL0024
         MVC   1+&C1&LEN-1,&C2,&ADR                                     FILL0025
.END     MEND                                                           FILL0026