* SWOFF    MAKPO - BùKìàþéTø ðEPEKìàþATEìé                              WOFF0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 20.03   *  æOKõC  WOFF0002
*    SWOFF <CðéCOK METOK KOMAHä BC/BCR>                                 WOFF0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    WOFF0004
         MACRO                                                          WOFF0005
&NAME    SWOFF                                                          WOFF0006
         LCLA  &I                                                       WOFF0007
         AIF   ('&NAME' EQ '').NEXT                                     WOFF0008
&NAME    DS    0H                                                       WOFF0009
.NEXT    ANOP                                                           WOFF0010
&I       SETA  &I+1                                                     WOFF0011
         AIF   (&I GT N'&SYSLIST).END                                   WOFF0012
         NI    1+&SYSLIST(&I),X'0F'  BùKìàþéTø ðEPEKìàþATEìø            WOFF0013
         AGO   .NEXT                                                    WOFF0014
.END     MEND                                                           WOFF0015