* @PRPGM MAKPO - BCTABKA ðPOçPAMMù CTPAHéþHOê ðEþATé RPGM0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 29.12.88 BPEMñ 04.45 * æOKõC RPGM0002 * @PRPGM [TITLE=()][,MAXLINE=] RPGM0003 * [,LL=<äìéHA âõæEPA>][TC=] RPGM0004 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 RPGM0005 MACRO RPGM0006 @PRPGM &LL=129,&TC=CALL,&TITLE=(' '),&MAXLINE=66 RPGM0007 AIF (D'@PUTMSG).ERROR RPGM0008 SPACE 2 RPGM0009 CONSTF LOCTR RPGM0010 GENDC TITLEADR,A(IHB&SYSNDX.T),MAXLINE,F'&MAXLINE',RESTLNS,F'0',*RPGM0011 OUTLINES,F'0',PAGENUM,F'0' RPGM0012 EJECTLNE DC H'6,0',C'1 ' RPGM0013 SKIP2LNE DC H'6,0',C'0 ' RPGM0014 SKIPLINE DC H'6,0',C' ' RPGM0015 IHB&SYSNDX.T MESSAGE$ &TITLE RPGM0016 SPACE 2 RPGM0017 DS$C @MSGBUF,D,@MSGTEXT,CL&LL,WSAVE14,F,WSAVE0,F RPGM0018 SPACE 2 RPGM0019 *********************************************************************** RPGM0020 * ðð CTPAHéþHOê ðEþATé * RPGM0021 *********************************************************************** RPGM0022 SUBPGMS LOCTR RPGM0023 @PUTMSG DS 0H RPGM0024 ST 14,WSAVE14 RPGM0025 OC RESTLNS,RESTLNS ECTø EýE CTPOKé HA CTPAHéãE ? RPGM0026 BNZ IHB&SYSNDX.P äA - HA ðEþATø CTPOKé RPGM0027 ST 0,WSAVE0 RPGM0028 @PRINT EJECTLNE ðEPEBOä CTPAHéãù RPGM0029 INCR PAGENUM õBEìéþéTø CþETþéK CTPAHéã RPGM0030 L 0,TITLEADR RPGM0031 BUILDMSG ADR=(0),BUF=@MSGBUF,TC=&TC RPGM0032 @PRINT @MSGBUF+4 ðEþATø úAçOìOBKA RPGM0033 @PRINT SKIP2LNE RPGM0034 MVC RESTLNS,MAXLINE BOCCTAHOBéTø CþETþéK OCT. CTPOK RPGM0035 L 0,WSAVE0 RPGM0036 * RPGM0037 IHB&SYSNDX.P BUILDMSG ADR=(0),BUF=@MSGBUF,TC=&TC RPGM0038 @PRINT @MSGBUF+4 ðEþATø CAMOçO COOâýEHéñ RPGM0039 INCR OUTLINES õBEìéþéTø CþETþéK CTPOK RPGM0040 DECR RESTLNS õMEHøûéTø OCTATOK CTPOK HA CTPAHéãE RPGM0041 BNZ IHB&SYSNDX.R RPGM0042 IHB&SYSNDX.E @PRINT SKIP2LNE 2 ðõCTùX BHéúõ CTPAHéãù RPGM0043 XC RESTLNS,RESTLNS RPGM0044 IHB&SYSNDX.R L 14,WSAVE14 RPGM0045 BR 14 RPGM0046 SPACE 2 RPGM0047 @EJECT ST 14,WSAVE14 * ðEPEXOä HA CìEäõàýõà CTPAHéãõ * RPGM0048 L 0,RESTLNS RPGM0049 IFREG 0,Z,(14) ðEPEXOä õöE CäEìAH ? - BOúBPAT RPGM0050 BM IHB&SYSNDX.E MAXLINE=0 ? - úAKPùTø CTPAHéãõ RPGM0051 IHB&SYSNDX.D @PRINT SKIPLINE ðõCTùE CTPOKé B ãéKìE RPGM0052 DECR RESTLNS RPGM0053 BZ IHB&SYSNDX.E RPGM0054 B IHB&SYSNDX.D RPGM0055 &SYSLOC LOCTR RPGM0056 SPACE 2 RPGM0057 MEXIT RPGM0058 .ERROR MNOTE 8,'äO MK @PRPGM HE äOìöHO âùTø MK @PUTMSG é OHA ä.â EäéH*RPGM0059 CTBEHHOê' RPGM0060 MEND RPGM0061