* CBLOCKS - MAKPO - õðPABìñàýéE âìOKé OCKS0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 29.08.88 BPEMñ 20.48 * æOKõC OCKS0002 * CBLOCKS [,PRINT=][,USING=Y] OCKS0003 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 OCKS0004 MACRO OCKS0005 CBLOCKS &PRINT=OFF,&SYS=MVT,&USING=N OCKS0006 LCLA &I OCKS0007 AIF ('&PRINT' EQ '').START OCKS0008 PUSH PRINT OCKS0009 PRINT &PRINT OCKS0010 .START ANOP OCKS0011 &I SETA 1 OCKS0012 .LOOP ANOP OCKS0013 .*--------------------------------------------------------------------- OCKS0014 .CVT AIF ('&SYSLIST(&I)' NE 'CVT').SCVT OCKS0015 CVT DSECT OCKS0016 CVT SYS=&SYS,LIST=YES OCKS0017 AGO .USING OCKS0018 .* OCKS0019 .SCVT AIF ('&SYSLIST(&I)' NE 'SCVT').TCB OCKS0020 SCVT DSECT OCKS0021 SCVT SYS=&SYS,LIST=YES OCKS0022 AGO .USING OCKS0023 .* OCKS0024 .TCB AIF ('&SYSLIST(&I)' NE 'TCB').RB OCKS0025 TCB SYS=&SYS,LIST=YES OCKS0026 AGO .USING OCKS0027 .* OCKS0028 .RB AIF ('&SYSLIST(&I)' NE 'RB').CSCB OCKS0029 RB EQU RBSECT OCKS0030 IKJRB LIST=YES OCKS0031 AGO .USING OCKS0032 .* OCKS0033 .CSCB AIF ('&SYSLIST(&I)' NE 'CSCB').TIOT OCKS0034 CSCB DSECT OCKS0035 IEECHAIN OCKS0036 AGO .USING OCKS0037 .* OCKS0038 .TIOT AIF ('&SYSLIST(&I)' NE 'TIOT').IOB OCKS0039 TIOT DSECT OCKS0040 IEFTIOT1 OCKS0041 AGO .USING OCKS0042 .* OCKS0043 .IOB AIF ('&SYSLIST(&I)' NE 'IOB').DEB OCKS0044 IEZIOB OCKS0045 AGO .USING OCKS0046 .* OCKS0047 .DEB AIF ('&SYSLIST(&I)' NE 'DEB').UCB OCKS0048 IEZDEB OCKS0049 AGO .USING OCKS0050 .* OCKS0051 .UCB AIF ('&SYSLIST(&I)' NE 'UCB').JFCB OCKS0052 UCB DSECT OCKS0053 IEFUCBOB OCKS0054 AGO .USING OCKS0055 .* OCKS0056 .JFCB AIF ('&SYSLIST(&I)' NE 'JFCB').DSCB1 OCKS0057 JFCB DSECT OCKS0058 IEFJFCBN OCKS0059 AGO .USING OCKS0060 .* OCKS0061 .DSCB1 AIF ('&SYSLIST(&I)' NE 'DSCB1').ERRCB !!! OCKS0062 DSCB1 DSECT OCKS0063 IECSDSL1 1 OCKS0064 AGO .USING OCKS0065 .* OCKS0066 .ERRCB MNOTE 8,'OûéâKA B éMEHé õðP. âìOKA - &SYSLIST(&I)' OCKS0067 AGO .NEXTCB OCKS0068 .*--------------------------------------------------------------------- OCKS0069 .USING AIF ('&USING' NE 'Y' AND '&USING' NE 'YES').NEXTCB OCKS0070 USING &SYSLIST(&I),R&SYSLIST(&I) OCKS0071 .NEXTCB ANOP OCKS0072 &I SETA &I+1 OCKS0073 AIF (&I LE N'&SYSLIST).LOOP OCKS0074 .* OCKS0075 AIF ('&PRINT' EQ '').END OCKS0076 POP PRINT OCKS0077 .END MEND OCKS0078