* @DELETE  MAKPO - õäAìEHéE HECKOìøKéX ðPOçPAMM                         LETE0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 16.40   *  æOKõC  LETE0002
* @DELETE <CðéCOK éMEH õäAìñEMùX ðPOçPAMM>                              LETE0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    LETE0004
         MACRO                                                          LETE0005
&NAME    @DELETE                                                        LETE0006
         LCLA  &I                                                       LETE0007
&I       SETA  1                                                        LETE0008
&NAME    IHBLABEL                                                       LETE0009
.DEL     LA    0,=CL8'&SYSLIST(&I)' éMñ ðPOçPAMMù                       LETE0010
         SVC   9                 DELETE SVC                             LETE0011
&I       SETA  &I+1                                                     LETE0012
         AIF   (&I LE N'&SYSLIST).DEL                                   LETE0013
         MEND                                                           LETE0014