Re: [COBOL400-L] IO Feedback Area

[cobol400-l@xxxxxxxxxxxx]

Check your compile listing to see if the system is performing 
blocking/deblocking. If so, change the file access mode to dynamic to 
prevent the system from blocking.

Thanx, PLA


cobol400-l@xxxxxxxxxxxx wrote:

> I'm trying to get the rrn of a keyed file --- and using the IO-Feedback
> area --- problem is that it appears to be giving me the rrn of a block of
> records instead of a different one for each record read.
>
> My feedback area is defined as:
>       01  WS-FEEDBACK-AREA.
>            03  FEED-LENGTH  PIC 9(4) BINARY.
>            03  FILLER       PIC X(172).
>            03  RRN-IND      PIC 9(8) BINARY.
>            03  FILLER       PIC X(20).
>
> Any ideas????
>
> Dale Nieswiadomy
>
> Livingston County Information & Technology Services
> (585) 243-7113
>
> dnieswiadomy@xxxxxxxxxxxxxxxxxxx
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>  

--
// 
// Patrick L Archibald
// http://www.PatrickArchibald.com
// http://www.GooseCreekRotary.org
// http://www.BeeSharp.us
// http://www.SeveredTiesROCKS.com
//