* DS$C     MAKPO - çEHEPAãéñ OðEPATOPOB DS B äéHAMéþECKOê OâìACTé ðAM.  DS$C0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.08.88   BPEMñ 21.01   *  æOKõC  DS$C0002
*    DS$C  <METKA>,<Téð>[,<METKA>,<Téð>,...]                            DS$C0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    DS$C0004
         MACRO                                                          DS$C0005
         DS$C                                                           DS$C0006
         LCLA  &N                                                       DS$C0007
DSA      LOCTR                                                          DS$C0008
&N       SETA  1                                                        DS$C0009
.GEN     AIF   (D'&SYSLIST(&N)).NEXT                                    DS$C0010
&SYSLIST(&N) DS  &SYSLIST(&N+1)                                         DS$C0011
.NEXT    ANOP                                                           DS$C0012
&N       SETA  &N+2                                                     DS$C0013
         AIF   (&N LE N'&SYSLIST).GEN                                   DS$C0014
&SYSLOC  LOCTR                                                          DS$C0015
         MEND                                                           DS$C0016