* @OPEN    MAKPO - OPEN C ðPOBEPKOê é BùäAþEê COOâýEHéñ                 OPEN0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 18.05.88   BPEMñ 21.52   *  æOKõC  OPEN0002
*   CðéCOK ðAPAMETPOB TAKOê öE, KAK õ OPEN                              OPEN0003
*   BùúùBAETCñ ðPOçPAMMA OPENPGM; R15 - KOä BOúBPATA:                   OPEN0004
*                                   0 - BCE DCB OTKPùTù                 OPEN0005
*                                   4 - HE BCE DCB OTKùTù               OPEN0006
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    OPEN0007
         MACRO                                                          OPEN0008
&NAME    @OPEN &LIST,&MF=I                                              OPEN0009
         GBLB  &IHBRDJ                                                  OPEN0010
&IHBRDJ  SETB  1                 þTOâù MK 'OPEN' HE äABAìA SVC          OPEN0011
&NAME    OPEN  &LIST,MF=&MF                                             OPEN0012
&IHBRDJ  SETB  0                                                        OPEN0013
         AIF   ('&MF' EQ 'L').END                                       OPEN0014
         L     15,=V(OPENPGM)                                           OPEN0015
         BALR  14,15                                                    OPEN0016
.END     MEND                                                           OPEN0017