* @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