MACRO                                                          ETRC0001
&N       SETRC &RC,&RCNAME                                              ETRC0002
.*        õCTAHOBKA KOäA BOúBPATA                                       ETRC0003
.* ìEHéHçPAä éBã çõT  OTä. 07  ìATùûKO                  T: 310-98-12    ETRC0004
.** * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 19.03.87   BPEMñ 21.54   *  æOKõC  ETRC0005
         LCLC  &HW                                                      ETRC0006
&HW      SETC  '&RCNAME'                                                ETRC0007
         AIF   ('&HW' NE '').C                                          ETRC0008
&HW      SETC  'RETCODE'                                                ETRC0009
.C       ANOP                                                           ETRC0010
&N       CLI   &HW+1,&RC                                                ETRC0011
         BNL   *+8                                                      ETRC0012
         MVI   &HW+1,&RC                                                ETRC0013
         MEND                                                           ETRC0014