* @PRINT MAKPO - BùBOä úAðéCé B SYSPRINT RINT0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 16.02.89 BPEMñ 23.58 * æOKõC RINT0002 * @PRINT /'' RINT0003 * @PRINT 0 - CLOSE RINT0004 * BùúùBAETCñ ðPOçPAMMA PRINTPGM; ðPé BùXOäE B R15 - KOä BOúBPATA: RINT0005 * 0 - OðEPAãéñ BùðOìHEHA õCðEûHO RINT0006 * ^0 - OûéâKA B/B; DCB úAKPùT RINT0007 * DCB: DDNAME=SYSPRINT; RECFM=; LRECL=; BLKSIZE= RINT0008 * äOúAðOìHEHéE ðPé OPEN: RECFM=VBA; LRECL=133; BLKSIZE=650 RINT0009 * BHEûHEE éMñ - PRINTDCB RINT0010 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 RINT0011 MACRO RINT0012 &NAME @PRINT &LINE RINT0013 AIF ('&LINE'(1,1) NE '''').ADR RINT0014 &NAME LA 0,IHB&SYSNDX RINT0015 CONSTF LOCTR RINT0016 IHB&SYSNDX WTO &LINE,MF=L RINT0017 &SYSLOC LOCTR RINT0018 AGO .CALL RINT0019 .ADR ANOP RINT0020 &NAME IHBLADR 0,&LINE RINT0021 .CALL AIF (NOT D'PGMADR#PRINTPGM).VC RINT0022 L 15,PGMADR#PRINTPGM RINT0023 AGO .BALR RINT0024 .VC L 15,=V(PRINTPGM) RINT0025 .BALR BALR 14,15 RINT0026 MEND RINT0027