* UTPARM MAKPO - çEHEPAãéñ CðéCKA ðAPAMETPOB äìñ õTéìéT PARM0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 24.07.89 BPEMñ 17.18 * æOKõC PARM0002 * UTPARM [PARM=<ðOìE PARM>][,DD=()][,PAGE=] PARM0003 * [SYSIN=(''[,'',...])] PARM0004 * ìEHéHçPAä éBã çõT OTä. 23 ìATùûKO T: 219-07-07 PARM0005 MACRO PARM0006 &NAME UTPARM &PARM=,&DD=,&PAGE=,&SYSIN= PARM0007 LCLA &VL,&LL,&LEN,&K PARM0008 LCLB &QP PARM0009 &NAME DS 0F PARM0010 .PARM AIF ('&DD' NE '' OR '&PAGE' NE '' OR '&SYSIN' NE '').PARM1 PARM0011 &VL SETA 80 PARM0012 &LL SETA 1 PARM0013 .PARM1 AIF ('&PARM' EQ '').PARM2 PARM0014 AIF ('&PARM'(1,1) EQ '''').PARM2 PARM0015 DC X'&VL',AL3(&PARM) PARM0016 AGO .DD PARM0017 .PARM2 DC X'&VL',AL3(IHB&SYSNDX.1) PARM0018 .* PARM0019 .DD AIF (&VL NE 0).GGGG PARM0020 AIF ('&PAGE' NE '' OR '&SYSIN' NE '').DD1 PARM0021 &VL SETA 80 PARM0022 &LL SETA 2 PARM0023 .DD1 AIF ('&DD' EQ '').DD2 PARM0024 AIF ('&DD'(1,1) EQ '(').DD2 PARM0025 DC X'&VL',AL3(&DD) PARM0026 AGO .PAGE PARM0027 .DD2 DC X'&VL',AL3(IHB&SYSNDX.2) PARM0028 .* PARM0029 .PAGE AIF (&VL NE 0).GGGG PARM0030 AIF ('&SYSIN' NE '').PAGE1 PARM0031 &VL SETA 80 PARM0032 &LL SETA 3 PARM0033 .PAGE1 AIF ('&PAGE' EQ '' OR T'&PAGE EQ 'N').PAGE2 PARM0034 DC X'&VL',AL3(&PAGE) PARM0035 AGO .SYSIN PARM0036 .PAGE2 DC X'&VL',AL3(IHB&SYSNDX.3) PARM0037 .* PARM0038 .SYSIN AIF (&VL NE 0).GGGG PARM0039 &VL SETA 80 PARM0040 &LL SETA 4 PARM0041 .SYSIN1 AIF ('&SYSIN'(1,1) EQ '''' OR '&SYSIN'(1,1) EQ '(').SYSIN2 PARM0042 DC X'&VL',AL3(&SYSIN) PARM0043 AGO .GGGG PARM0044 .SYSIN2 DC X'&VL',AL3(IHB&SYSNDX.4) PARM0045 .******* PARM0046 .GGGG ANOP PARM0047 .PARM3 AIF ('&PARM' EQ '').PARM4 PARM0048 AIF ('&PARM'(1,1) NE '''').DD3 PARM0049 .* PARM0050 &LEN SETA K'&PARM-2 PARM0051 &K SETA 1 PARM0052 &QP SETB 0 PARM0053 .QPLOOP ANOP PARM0054 &K SETA &K+1+&QP PARM0055 AIF (&K GE K'&PARM).PARM3A PARM0056 &QP SETB ('&PARM'(&K,2) EQ '''''' OR '&PARM'(&K,2) EQ '&&') PARM0057 &LEN SETA &LEN-&QP PARM0058 AGO .QPLOOP PARM0059 .PARM3A CNOP 2,4 PARM0060 IHB&SYSNDX.1 DC Y(&LEN),C&PARM PARM0061 AGO .DD3 PARM0062 .PARM4 ANOP PARM0063 IHB&SYSNDX.1 DC H'0' EMPTY PARM PARM0064 .* PARM0065 .DD3 AIF (&LL LT 2).EEEE PARM0066 AIF ('&DD' EQ '').DD4 PARM0067 AIF ('&DD'(1,1) NE '(').PAGE3 PARM0068 CNOP 2,4 PARM0069 &LEN SETA N'&DD*8 PARM0070 IHB&SYSNDX.2 DC Y(&LEN) PARM0071 &I SETA 1 PARM0072 .DD3A AIF ('&DD(&I)' EQ '').DD3B PARM0073 DC CL8'&DD(&I)' PARM0074 AGO .DD3C PARM0075 .DD3B DC XL8'0' PARM0076 .DD3C AIF (&I GE N'&DD).PAGE3 PARM0077 &I SETA &I+1 PARM0078 AGO .DD3A PARM0079 .DD4 ANOP PARM0080 IHB&SYSNDX.2 DC H'0' PARM0081 .* PARM0082 .PAGE3 AIF (&LL LT 3).EEEE PARM0083 AIF ('&PAGE' EQ '').PAGE4 PARM0084 AIF (T'&PAGE NE 'N').SYSIN3 PARM0085 CNOP 2,4 PARM0086 IHB&SYSNDX.3 DC H'4',CL4'&PAGE' PARM0087 AGO .SYSIN3 PARM0088 .PAGE4 ANOP PARM0089 CNOP 2,4 PARM0090 IHB&SYSNDX.3 DC H'4',CL4'0001' PARM0091 .* PARM0092 .SYSIN3 AIF (&LL LT 4).EEEE PARM0093 AIF ('&SYSIN'(1,1) NE '''' AND '&SYSIN'(1,1) NE '(').EEEE PARM0094 CNOP 2,4 PARM0095 &LEN SETA N'&SYSIN*80 PARM0096 IHB&SYSNDX.4 DC Y(&LEN) PARM0097 &I SETA 1 PARM0098 .SYSIN3A DC CL80&SYSIN(&I) PARM0099 AIF (&I GE N'&SYSIN).EEEE PARM0100 &I SETA &I+1 PARM0101 AGO .SYSIN3A PARM0102 .EEEE MEND PARM0103