COBOL I-O-FEEDBACK area

195 pts.
Tags:
AS/400
COBOL
RPG
I'm trying to find the breakdown of the I-O-FEEDBACK structure used in COBOL/400, what information is at what offset. One might think that should be an easy piece of info to obtain, but I've just spent 2 hours at IBM sites and in IBM manuals on the web, and every manual that mentions the structure refers you to a manual that I guess no longer exists or to a catagory at another site that no longer exists. Thanks all,--sorry to vent.
ASKED: December 25, 2007  6:34 PM
UPDATED: December 26, 2007  3:13 PM

Answer Wiki

Thanks. We'll let you know when a new response is added.

Here’s the link for V5R4 -

http://publib.boulder.ibm.com/infocenter/systems/scope/i5os/topic/dm/rbal3fba.htm?

And some code we use -

01 ODP-FEEDBACK.
05 ODP-TYPE PIC X(002) VALUE SPACES.
88 ODP-IS-SPOOLED VALUE “SP”.

05 ODP-FILE PIC X(010).
05 ODP-LIB PIC X(010).
05 ODP-SPOOLED-FILE PIC X(010).
05 ODP-SPOOLED-LIB PIC X(010).
05 ODP-SPOOL-NBR PIC 9(004) BINARY.
05 ODP-MAX-RECLEN PIC 9(004) BINARY.
05 ODP-MAX-KEYLEN PIC 9(004) BINARY.
05 ODP-MEMBER PIC X(010).
05 FILLER PIC X(008).
05 ODP-FILETYPE PIC 9(004) BINARY.
88 ODP-IS-DISPLAY VALUE 1.
88 ODP-IS-PRINTER VALUE 2.
88 ODP-IS-DISKETTE VALUE 4.
88 ODP-IS-TAPE VALUE 5.
88 ODP-IS-SAVE VALUE 6.
88 ODP-IS-DDM VALUE 10.
88 ODP-IS-ICF VALUE 11.
88 ODP-IS-INLINE VALUE 20.
88 ODP-IS-DATABASE VALUE 21.

05 FILLER PIC X(003).
05 ODP-LINES PIC 9(004) BINARY.
05 ODP-WIDTH PIC 9(004) BINARY.
05 ODP-ACCESS PIC X(002).
88 ODP-IS-ARRIVAL VALUE “AR”.
88 ODP-IS-KEY-FCFO VALUE “KC”.
88 ODP-IS-KEY-FIFO VALUE “KF”.
88 ODP-IS-KEY-LIFO VALUE “KL”.
88 ODP-IS-KEY VALUE “KN”.
88 ODP-IS-UNIQUEKEY VALUE “KU”.

05 ODP-DUPS PIC X(001).
05 ODP-SOURCE PIC X(001).
88 ODP-IS-SOURCE VALUE “Y”.

05 FILLER PIC X(022).
05 ODP-BLOCK-RECS PIC 9(004) BINARY.
05 ODP-OVERFLOW-LINE PIC 9(004) BINARY.
05 ODP-BLOCK-RECSIZE PIC 9(004) BINARY.
05 FILLER PIC X(005).
05 ODP-REQUESTOR PIC X(010).
05 ODP-SHARED-OPENS PIC 9(004) BINARY.
05 FILLER PIC X(002).
05 ODP-BASED-MEMBERS PIC 9(004) BINARY.

01 I-O-FEEDBACK.
05 FILLER PIC 9(004) BINARY.
05 FILLER PIC 9(008) BINARY.
05 FILLER PIC 9(008) BINARY.
05 FILLER PIC 9(008) BINARY.
05 FILLER PIC 9(008) BINARY.
05 FILLER PIC X(001).
05 I-O-CURRENT-OPERATION PIC X(001).
05 I-O-RECORD-FORMAT PIC X(010).
05 I-O-DEVICE-CLASS PIC X(002).
05 I-O-DEVICE-NAME PIC X(010).
05 I-O-RECORD-LENGTH PIC 9(008) BINARY.

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • Unknowingone
    Thanks very much for the help!
    195 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following