* MSGTAB MAKPO - çEHEPAãéñ TAâìéãù COOâýEHéê GTAB0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 26.04.88 BPEMñ 19.57 * æOKõC GTAB0002 * MSGTAB [,,...] GTAB0003 * [,PREFIX=][,TAIL=] GTAB0004 * [,FIRST=] GTAB0005 * [,MAXLEN=] GTAB0006 * [,MNOTE=Y/N][,T=HEAD/BLOCK] GTAB0007 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 GTAB0008 MACRO GTAB0009 &NAME MSGTAB &FIRST=0,&PREFIX=,&TAIL=,&MNOTE=Y,&MAXLEN=126,&T= GTAB0010 GBLA &MSGLEN$ GTAB0011 LCLA &I,&LEN,&MAXMSG,&MAXL,&NUM,&MAXLNUM,&PRELEN,&TAILEN GTAB0012 LCLC &NAM GTAB0013 LCLB &MNBIT GTAB0014 .* GTAB0015 &NAM SETC '&NAME'(1,5) GTAB0016 AIF ('&NAME' NE '').L00001 GTAB0017 MNOTE 4,' METKA OâñúATEìøHA; éCðOìøúõETCñ ''MSG''' GTAB0018 &NAM SETC 'MSG' GTAB0019 .L00001 ANOP GTAB0020 &MAXMSG SETA N'&SYSLIST+&FIRST-1 GTAB0021 .* GTAB0022 AIF ('&T' EQ 'BLOCK').MBLOCK GTAB0023 &NAME DS 0F GTAB0024 DC H'&FIRST' HOMEP ðEPBOçO COOâýEHéñ B TAâìéãE GTAB0025 DC H'&MAXMSG' HOMEP ðOCìEäHEçO COOâýEHéñ B TAâìéãE GTAB0026 DC H'&MAXLEN' MAKCéMAìøHAñ äìéHA COOâýEHéñ GTAB0027 DC H'0' PEúEPB GTAB0028 AIF ('&PREFIX' NE '').PREFIX GTAB0029 DC H'0' ðPEæéKCA HET GTAB0030 AGO .TAIL GTAB0031 .PREFIX DC AL2(&NAM.PRE-&NAME) õKAúATEìø OðéCAHéñ ðPEæéKCA GTAB0032 .TAIL AIF ('&TAIL' NE '').TAILPTR GTAB0033 DC H'0' XBOCTA HET GTAB0034 AGO .PTR GTAB0035 .TAILPTR DC AL2(&NAM.TAI-&NAME) õKAúATEìø OðéCAHéñ XBOCTA GTAB0036 .*--------------------------------------------------------------------- GTAB0037 .PTR ANOP GTAB0038 *** õKAúATEìé KOHCTAHT OðéCAHéñ *** GTAB0039 &I SETA 1 GTAB0040 .GENADR AIF ('&SYSLIST(&I)' EQ '').NULLADR GTAB0041 &NUM SETA &I-1+&FIRST GTAB0042 AIF (NOT &MNBIT OR '&MNOTE' NE 'Y').DCAL2 GTAB0043 &MNBIT SETB 0 GTAB0044 MNOTE *,' HAþAìO çPõððù COOâýEHéê - &NUM' GTAB0045 .DCAL2 DC AL2(&NAM&NUM-&NAME) õKAúATEìø OðéCAHéñ COOâýEHéñ GTAB0046 AGO .NEXTPTR GTAB0047 .NULLADR DC AL2(0) ðPOðõýEHHOE COOâýEHéE GTAB0048 &MNBIT SETB 1 GTAB0049 .NEXTPTR ANOP GTAB0050 &I SETA &I+1 GTAB0051 AIF (&I LE N'&SYSLIST).GENADR GTAB0052 .*--------------------------------------------------------------------- GTAB0053 .MBLOCK AIF ('&T' EQ 'HEAD').END GTAB0054 &NAM.PRE MESSAGE$ &PREFIX,PREFIX GTAB0055 &PRELEN SETA &MSGLEN$ GTAB0056 &NAM.TAI MESSAGE$ &TAIL,TAIL GTAB0057 &TAILEN SETA &MSGLEN$ GTAB0058 .*--------------------------------------------------------------------- GTAB0059 .CONST ANOP GTAB0060 *** KOHCTAHTù OðéCAHéñ COOâýEHéê *** GTAB0061 &I SETA 1 GTAB0062 .* GTAB0063 .NEXTMSG AIF ('&SYSLIST(&I)' EQ '').NEXTI1 GTAB0064 .* GTAB0065 &NUM SETA &I-1+&FIRST GTAB0066 &NAM&NUM MESSAGE$ &SYSLIST(&I),&NUM GTAB0067 .* GTAB0068 AIF (&MAXLEN GE &MSGLEN$+&PRELEN+&TAILEN).CMAXL GTAB0069 MNOTE 4,' B COOâýEHéé N &NUM ðPEBùûEHA MAKCéMAìøHAñ äìéHA' GTAB0070 .CMAXL AIF (&MAXL GE &MSGLEN$).NEXTI1 GTAB0071 &MAXL SETA &MSGLEN$ GTAB0072 &MAXLNUM SETA &NUM GTAB0073 .* GTAB0074 .NEXTI1 ANOP GTAB0075 &I SETA &I+1 GTAB0076 AIF (&I LE N'&SYSLIST).NEXTMSG GTAB0077 .*--------------------------------------------------------------------- GTAB0078 AIF ('&MNOTE' NE 'Y').END GTAB0079 &MAXL SETA &MAXL+&PRELEN+&TAILEN GTAB0080 MNOTE *,' ðEPBOE COOâýEHéE - &FIRST ; ðOCìEäHEE COOâýEHéE - &MAXMSG' GTAB0081 MNOTE *,' äìéHA ðPEæéKCA - &PRELEN ; äìéHA XBOCTA - &TAILEN' GTAB0082 MNOTE *,' MAKC. äìéHA (âEú äECKPéðTOPA) - &MAXL B COOâýEHéé N *GTAB0083 &MAXLNUM' GTAB0084 .* GTAB0085 .END MEND GTAB0086