×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Here is one from IBM's documentation. Notice the OPEN_IND. This does work
in RPG III.
Figure 30. Example of Coding an INFDS with File Feedback Information
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++++
+Comments++++++++++
FMYFILE IF E DISK INFDS(FILEFBK)
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++++
+Comments++++++++++
DFILEFBK DS
D FILE *FILE
* File name
D OPEN_IND 9 9N
* File open?
D EOF_IND 10 10N
* File at eof?
D STATUS *STATUS
* Status code
D OPCODE *OPCODE
* Last opcode
D ROUTINE *ROUTINE
* RPG Routine
D LIST_NUM 30 37
* Listing line
D SPCL_STAT 38 42S 0
* SPECIAL status
D RECORD *RECORD
* Record name
D MSGID 46 52
* Error MSGID
D SCREEN *SIZE
* Screen size
D NLS_IN *INP
* NLS Input?
D NLS_OUT *OUT
* NLS Output?
D NLS_MODE *MODE
* NLS Mode?
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
