* IOB      MAKPO - INPUT/OUTPUT BLOCK                                   IOB 0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 24.08.89   BPEMñ 13.06   *  æOKõC  IOB 0002
*       IOB   FLAG1=42,DCB=0,ECB=0,START=0,INC=0,SEEK=                  IOB 0003
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 310-98-12    IOB 0004
         MACRO                                                          IOB 0005
&NAME    IOB   &FLAG1=42,&ECB=0,&START=0,&DCB=0,&INC=0,&SEEK=           IOB 0006
&NAME    DS    0F                *** INPUT-OUTPUT BLOCK ***             IOB 0007
         DC    XL1'&FLAG1'       IOBFLAG1                           0   IOB 0008
         DS    XL4                                                      IOB 0009
         DC    AL3(&ECB)         AäPEC ECB                          5   IOB 0010
         DS    XL9                                                      IOB 0011
         DC    AL3(&START)       AäPEC HAþAìA KAHAìøHOê ðPOçPAMMù  17   IOB 0012
         DS    XL1                                                      IOB 0013
         DC    AL3(&DCB)         AäPEC DCB                         21   IOB 0014
         DS    XL4                                                      IOB 0015
         DC    H'&INC'           ðPéPAýEHéE Cþ. âìOKOB äìñ Mì           IOB 0016
         DS    XL2                                                      IOB 0017
         AIF   ('&SEEK' EQ '').END                                      IOB 0018
         DC    XL8'&SEEK'        õCT. AäPEC (äìñ DA)               32   IOB 0019
.*                                                                      IOB 0020
.END     MEND                                                           IOB 0021