* @IODUMP  MACRO - ðEþATø IOB, DCB, DEB, UCB, CCW                       DUMP0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.02.89   BPEMñ 13.42   *  æOKõC  DUMP0002
* @IODUMP [IOB,DCB,DEB,UCB,CCW,CCWD],IOB=<AäPEC>                        DUMP0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    DUMP0004
         MACRO                                                          DUMP0005
&N       @IODUMP &IOB=                                                  DUMP0006
         LCLA  &I,&C                                                    DUMP0007
&N       IHBLADR 1,&IOB,'AäPEC IOB'                                     DUMP0008
.*                                                                      DUMP0009
.NEXTI   ANOP                                                           DUMP0010
&I       SETA  &I+1                                                     DUMP0011
         AIF   (&I GT N'&SYSLIST).CALL                                  DUMP0012
.IOB     AIF   ('&SYSLIST(&I)' NE 'IOB').DCB                            DUMP0013
&C       SETA  &C+128                                                   DUMP0014
         AGO   .NEXTI                                                   DUMP0015
.DCB     AIF   ('&SYSLIST(&I)' NE 'DCB').DEB                            DUMP0016
&C       SETA  &C+64                                                    DUMP0017
         AGO   .NEXTI                                                   DUMP0018
.DEB     AIF   ('&SYSLIST(&I)' NE 'DEB').UCB                            DUMP0019
&C       SETA  &C+32                                                    DUMP0020
         AGO   .NEXTI                                                   DUMP0021
.UCB     AIF   ('&SYSLIST(&I)' NE 'UCB').CCW                            DUMP0022
&C       SETA  &C+16                                                    DUMP0023
         AGO   .NEXTI                                                   DUMP0024
.CCW     AIF   ('&SYSLIST(&I)' NE 'CCW').CCWD                           DUMP0025
&C       SETA  &C+4                                                     DUMP0026
         AGO   .NEXTI                                                   DUMP0027
.CCWD    AIF   ('&SYSLIST(&I)' NE 'CCWD').ERR                           DUMP0028
&C       SETA  &C+8                                                     DUMP0029
         AGO   .NEXTI                                                   DUMP0030
.ERR     MNOTE 8,'IODUMP: HEéúBECTHùê âìOK - ''&SYSLIST(&I)'''          DUMP0031
         AGO   .NEXTI                                                   DUMP0032
.CALL    LA    0,&C                                                     DUMP0033
         L     15,=V(IODUMP)                                            DUMP0034
         BALR  14,15                                                    DUMP0035
         MEND                                                           DUMP0036