* TESTPARM MAKPO - ðPOBEPKA COOTBETCTBéñ OðEPAHäA CðéCKõ                PARM0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 18.09.90   BPEMñ 21.19   *  æOKõC  PARM0002
* TESTPARM <ðAPAMETP>,<éMñ/HOMEP>,<CðéCOK äìñ ðPOBEPKé>                 PARM0003
*  OTBET - GBLA &NUMEQ; CþéTAETCñ C 0; 999 - HET COOTBETCTBéñ           PARM0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    PARM0005
         MACRO                                                          PARM0006
         TESTPARM                                                       PARM0007
         GBLA  &NUMEQ                                                   PARM0008
         LCLA  &I,&J                                                    PARM0009
.*                                                                      PARM0010
&NUMEQ   SETA  999                                                      PARM0011
         AIF   (N'&SYSLIST LT 3).ERROR1                                 PARM0012
.*                                                                      PARM0013
&I       SETA  3                                                        PARM0014
&J       SETA  1                                                        PARM0015
.*                                                                      PARM0016
.TESTPAR AIF   ('&SYSLIST(1)' EQ '&SYSLIST(&I,&J)').EQU                 PARM0017
         AIF   (&J GE N'&SYSLIST(&I)).NEXTI                             PARM0018
&J       SETA  &J+1                                                     PARM0019
         AGO   .TESTPAR                                                 PARM0020
.*                                                                      PARM0021
.NEXTI   AIF   (&I GE N'&SYSLIST).ERROR2                                PARM0022
&I       SETA  &I+1                                                     PARM0023
&J       SETA  1                                                        PARM0024
         AGO   .TESTPAR                                                 PARM0025
.*                                                                      PARM0026
.EQU     ANOP                                                           PARM0027
&NUMEQ   SETA  &I-3                                                     PARM0028
         MEXIT                                                          PARM0029
.ERROR1  MNOTE 16,'INVALID PARAMETER LIST FOR ''TESTPARM'' MACRO'       PARM0030
         MEXIT                                                          PARM0031
.ERROR2  MNOTE 12,'INVALID OPERAND &SYSLIST(2) = ''&SYSLIST(1)'''       PARM0032
         MEND                                                           PARM0033