RE: determining relative record number ? -- COBOL400-L

Snippet:

Special-Names. i-o-feedback Is i-o-feedback.

Working storage

      01 io-feedback-area.
           05 iof-offset               Pic s9(4)       Binary.
           05 iof-output-cnt           Pic s9(7)       Binary.
           05 iof-input-cnt            Pic s9(7)       Binary.
           05 iof-outinp-cnt           Pic s9(7)       Binary.
           05 iof-other-io-cnt         Pic s9(7)       Binary.
           05 Filler                   Pic x.
           05 iof-cur-op               Pic x.
           05 iof-rec-fmt              Pic x(10).
           05 iof-device-class         Pic xx.
           05 iof-pgm-device-name      Pic x(10).
           05 iof-recl                 Pic s9(7)       Binary.
           05 Filler                   Pic x(80).
           05 iof-blk-factor           Pic s9(4)       Binary.
           05 Filler                   Pic x(4).
           05 iof-cur-block-cnt        Pic s9(7)       Binary.
           05 Filler                   Pic x(8).
           05 iof-device-dependent-area.
               10 Filler               Pic x(290).
           05 iof-dsp-area Redefines iof-device-dependent-area.
               10 iof-flag-bits        Pic xx.
               10 iof-aid              Pic x.
               10 iof-cursor-loc.
                   15 iof-cursor-row   Pic x.
                   10 ior-cursor-col   Pic x.
               10 iof-data-length      Pic s9(7)       Binary.
               10 iof-sfl-rrn          Pic s9(4)       Binary.
               10 iof-low-sfl-rrn      Pic s9(4)       Binary.
               10 iof-sfl-rec-cnt      Pic s9(4)       Binary.
               10 Filler               Pic x(19).
               10 iof-major-rtn-code   Pic xx.
               10 iof-minor-rtn-code   Pic xx.
               10 iof-neg-rsp-rtn-code Pic x(8).
               10 iof-safe-ind         Pic x.
               10 Filler               Pic x.
               10 iof-request-write    Pic x.
               10 iof-remote-fmt-name Pic x(10).
               10 iof-mode-name        Pic x(8).
               10 Filler               Pic x(219).
           05 iof-dsk-area Redefines iof-device-dependent-area.
               10 iof-length           Pic s9(7)     Binary.
               10 iof-jfiles           Pic x(4).
               10 Filler               Pic xx.
               10 iof-locked-records   Pic s9(4)     Binary.
               10 Filler               Pic x(6).
               10 Filler               Pic x.
               10 iof-delete-info      Pic x.
               10 iof-key-fields       Pic s9(4)     Binary.
               10 Filler               Pic x(4).
               10 iof-key-length       Pic s9(4)     Binary.
               10 iof-member-number    Pic s9(4)     Binary.
               10 iof-rrn              Pic s9(8)     Binary.
               10 iof-key-value.
                   15 iof-kyx          Pic x         Occurs 256 Times.

After a good read:

Accept io-feedback-area From i-o-feedback

relative record number is not in iof-rrn

-----Original Message-----
From: cobol400-l-admin@midrange.com [mailto:cobol400-l-admin@midrange.com]On Behalf Of Tim Truax
Sent: Wednesday, August 15, 2001 5:13 PM
To: COBOL400-L List
Subject: determining relative record number ?

Hello All,

Could someone please send me a snippet of COBOL code or instructions that I could reference in my COBOL program to extract the relative record number of the current record being processed from the main read file within the program ?

Thanks in advance.

Tim Truax :-)