Home > IT Answers > AS/400 > COBOL I-O-FEEDBACK area
Unknowingone
195 pts.
 COBOL I-O-FEEDBACK area
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.

Software/Hardware used:
ASKED: December 25, 2007  6:34 PM
UPDATED: December 26, 2007  3:13 PM
RELATED QUESTIONS
Answer Wiki:
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.
Last Wiki Answer Submitted:  December 26, 2007  2:28 pm  by  Rlsantucijr   445 pts.
All Answer Wiki Contributors:  Rlsantucijr   445 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

Thanks very much for the help!

Unknowingone
 195 pts.