* GENDSECT MAKPO - çEHEPAãéñ æéKTéBHùX CEKãéê                           SECT0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.36   *  æOKõC  SECT0002
*    GENDSECT (<éMñ DSECT>,<METKA>,<Téð DS>,[<METKA>,<Téð>,...]),       SECT0003
*             [(--"--)][,USING=(<CðéCOK âAú. PEçéCTPOB>)]               SECT0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    SECT0005
         MACRO                                                          SECT0006
         GENDSECT &USING=                                               SECT0007
         LCLA  &I,&J                                                    SECT0008
.*                                                                      SECT0009
&I       SETA  1                                                        SECT0010
.*                                                                      SECT0011
.DSECTL  ANOP                                                           SECT0012
        SPACE 2                                                         SECT0013
&SYSLIST(&I,1) DSECT                                                    SECT0014
         AIF   ('&USING' EQ '').GENDS                                   SECT0015
         AIF   ('&USING' EQ '*' OR '&USING(&I)' EQ '*').UITSREG         SECT0016
         AIF   ('&USING(&I)' EQ '').GENDS                               SECT0017
         USING &SYSLIST(&I,1),&USING(&I)                                SECT0018
         AGO   .GENDS                                                   SECT0019
.UITSREG USING &SYSLIST(&I,1),R&SYSLIST(&I,1)                           SECT0020
.*                                                                      SECT0021
.GENDS   ANOP                                                           SECT0022
&J       SETA  0                                                        SECT0023
.GENDSL  ANOP                                                           SECT0024
&J       SETA  &J+2                                                     SECT0025
         AIF   (&J GT N'&SYSLIST(&I)).ENDDSL                            SECT0026
&SYSLIST(&I,&J) DS  &SYSLIST(&I,&J+1)                                   SECT0027
         AGO   .GENDSL                                                  SECT0028
.ENDDSL  ANOP                                                           SECT0029
.*                                                                      SECT0030
&I       SETA  &I+1                                                     SECT0031
         AIF   (&I LE N'&SYSLIST).DSECTL                                SECT0032
         MEND                                                           SECT0033