INFDS Input/Output Feedback Example

To specify an INFDS which contains fields in the input⁄output feedback section, you can make the following entries:
Start of change
Figure 1. Example of Coding an INFDS with Input/Output Feedback Information
   DCL-F MYFILE WORKSTN INFDS(MYIOFBK);

   DCL-DS MYIOFBK;
                                           // 241-242 not used
     WRITE_CNT     UNS(10)    POS(243);    // Write count
     READ_CNT      UNS(10)    POS(247);    // Read count
     WRTRD_CNT     UNS(10)    POS(251);    // Write/read count
     OTHER_CNT     INT(10)    POS(255);    // Other I/O count
     OPERATION     CHAR(1)    POS(260);    // Current operation
     IO_RCD_FMT    CHAR(10)   POS(261);    // Rcd format name
     DEV_CLASS     CHAR(2)    POS(271);    // Device class
     IO_PGM_DEV    CHAR(10)   POS(273);    // Pgm device name
     IO_RCD_LEN    INT(10)    POS(283);    // Rcd len of I/O
   END-DS;
End of change