* 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 ,[,,,...] 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