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  :-)

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].