× 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.

Thanks Brian
Did not know this

Alan Shore
Solutions Architect
IT Supply Chain Execution


60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail : ASHORE@xxxxxxxxxxxxxxxxxxxx

'If you're going through hell, keep going.'
Winston Churchill

From: Brian May <bmay@xxxxxxxxxxxxxxxxx>
Sent: Thursday, January 19, 2023 12:20 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: [EXTERNAL] RE: infds in free form

There is a wizard in RDi that will do it for you. Look in Source>New>D-Specification...

Taking that option, choosing "File information data structure" as the type, and selecting all the options outputted this for me.

DCL-DS FileDS qualified;
// File information feedback DS for file feedback
FILE *FILE; //file name
OPEN_IND IND POS(9); //file open?
EOF_IND IND POS(10); //file at eof?
STATUS *STATUS; //Status code
OPCODE *OPCODE; //Last opcode
LIST_NUM CHAR(8) POS(30); //Listing line
RECORD *RECORD; //Record name
MSGID CHAR(7) POS(46); //Error MSGID
SCREEN *SIZE; //Screen size
NLS_IN *INP; //NLS Input?
NLS_OUT *OUT; //NLS Output?
LIST_NUM_SRC BINDEC(2) POS(77); //Lstng line src ID
// File information feedback DS for open feedback
ODP_TYPE CHAR(2) POS(81); //ODP Type
FILE_NAME CHAR(10) POS(83); //File name
LIBRARY CHAR(10) POS(93); //Library name
SPOOL_FILE CHAR(10) POS(103); //Spool file name
SPOOL_LIB CHAR(10) POS(113); //Spool file lib
SPOOL_NUM INT(5) POS(123); //Spool file num
RCD_LEN INT(5) POS(125); //Max record len
KEY_LEN INT(5) POS(127); //Max key len
MEMBER CHAR(10) POS(129); //Member name
TYPE INT(5) POS(147); //File type
ROWS INT(5) POS(152); //Num PRT/ DSP rows
COLUMNS INT(5) POS(154); //Num PRT/ DSP cols
NUM_RCDS INT(10) POS(156); //Num of records
ACC_TYPE CHAR(2) POS(160); //Access type
DUP_KEY CHAR(1) POS(162); //Duplicate key?
SRC_FILE CHAR(1) POS(163); //Source file?
VOL_OFF INT(5) POS(184); //Vol label offset
BLK_RCDS INT(5) POS(186); //Max rcds in blk
OVERFLOW INT(5) POS(188); //Overflow line
BLK_INCR INT(5) POS(190); //Blk increment
FLAGS1 CHAR(1) POS(196); //Misc flags
REQUESTER CHAR(10) POS(197); //Requester name
OPEN_COUNT INT(5) POS(207); //Open count
BASED_MBRS INT(5) POS(211); //Num based mbrs
FLAGS2 CHAR(1) POS(213); //Misc flags
OPEN_ID CHAR(2) POS(214); //Open identifier
RCDFMT_LEN INT(5) POS(216); //Max rcd fmt len
CCSID INT(5) POS(218); //Database CCSID
FLAGS3 CHAR(1) POS(220); //Misc flags
NUM_DEVS INT(5) POS(227); //Num devs defined
// File information feedback DS for input/output feedback
WRITE_CNT INT(10) POS(243); //Write count
READ_CNT INT(10) POS(247); //Read count
WRTRD_CNT INT(10) POS(251); //Write/read count
OTHER_CNT INT(10) POS(255); //Other I/O count
OPERATION CHAR(1) POS(260); //Current operation
IO_RCD_FMT CHAR(10) POS(261); //Rcd format name
DEV_CLASS CHAR(2) POS(271); //Device class
IO_PGM_DEV CHAR(10) POS(273); //Pgm device name
IO_RCD_LEN INT(10) POS(283); //Rcd len of I/O
// File information feedback DS for PRTF device feedback
CUR_LINE INT(5) POS(367); //Current line num
CUR_PAGE INT(10) POS(369); //Current page cnt
PRT_MAJOR CHAR(2) POS(401); //Major ret code
PRT_MINOR CHAR(2) POS(403); //Minor ret code
// File information feedback DS for DSPF device feedback
DSP_FLAG1 CHAR(2) POS(367); //Display flags
DSP_AID CHAR(1) POS(369); //AID byte
CURSOR CHAR(2) POS(370); //Cursor location
DATA_LEN INT(10) POS(372); //Actual data len
SF_RRN INT(5) POS(376); //Subfile rrn
MIN_RRN INT(5) POS(378); //Subfile min rrn
DSP_NUM_RCDS INT(5) POS(380); //Subfile num rcds
ACT_CURS CHAR(2) POS(382); //Cursor location
DSP_MAJOR CHAR(2) POS(401); //Major ret code
DSP_MINOR CHAR(2) POS(403); //Minor ret code
// File information feedback DS for DB device feedback
FDBK_SIZE INT(10) POS(367); //Size of DB fdbk
JOIN_BITS INT(10) POS(371); //JFILE bits
LOCK_RCDS INT(5) POS(377); //Nbr locked rcds
POS_BITS CHAR(1) POS(384); //Rcd deleted bits
DLT_BITS CHAR(1) POS(385); //File pos bits
NUM_KEYS INT(5) POS(387); //Num keys (bin)
DB_KEY_LEN INT(5) POS(393); //Key length
MBR_NUM INT(5) POS(395); //Member number
DB_RRN INT(10) POS(397); //Relative-rcd-num
KEY CHAR(2000) POS(401); //Key value
// File information feedback DS for ICF device feedback
ICF_AID CHAR(1) POS(369); //AID byte
ICF_LEN INT(10) POS(372); //Actual data len
ICF_MAJOR CHAR(2) POS(401); //Major ret code
ICF_MINOR CHAR(2) POS(403); //Minor ret code
SNA_SENSE CHAR(8) POS(405); //SNA sense rc
SAFE_IND CHAR(1) POS(413); //Safe indicator
RQSWRT CHAR(1) POS(415); //Request write
RMT_FMT CHAR(10) POS(416); //Remote rcd fmt
ICF_MODE CHAR(8) POS(430); //Mode name
// File information feedback DS for DSPF attributes feedback
PGM_DEV CHAR(10) POS(241); //Program device
DEV_DSC CHAR(10) POS(251); //Dev description
USER_ID CHAR(10) POS(261); //User ID
DSP_DEV_CLASS CHAR(1) POS(271); //Device class
DEV_TYPE CHAR(6) POS(272); //Device type
REQ_DEV CHAR(1) POS(278); //Requester?
ACQ_STAT CHAR(1) POS(279); //Acquire status
INV_STAT CHAR(1) POS(280); //Invite status
DATA_AVAIL CHAR(1) POS(281); //Data available
NUM_ROWS INT(5) POS(282); //Number of rows
NUM_COLS INT(5) POS(284); //Number of cols
BLINK CHAR(1) POS(286); //Allow blink?
LINE_STAT CHAR(1) POS(287); //Online/offline?
DSP_LOC CHAR(1) POS(288); //Display location
DSP_TYPE CHAR(1) POS(289); //Display type
KBD_TYPE CHAR(1) POS(290); //Keyboard type
CTL_INFO CHAR(1) POS(342); //Controller info
COLOR_DSP CHAR(1) POS(343); //Color capable?
GRID_DSP CHAR(1) POS(344); //Grid line dsp?
// The following fields apply to ISDN.
ISDN_LEN INT(5) POS(385); //Rmt number len
ISDN_TYPE CHAR(2) POS(387); //Rmt number type
ISDN_PLAN CHAR(2) POS(389); //Rmt number plan
ISDN_NUM CHAR(40) POS(391); //Rmt number
ISDN_SLEN INT(5) POS(435); //Rmt sub-addr len
ISDN_STYPE CHAR(2) POS(437); //Rmt sub-addr type
ISDN_SNUM CHAR(40) POS(439); //Rmt sub-address
ISDN_CON CHAR(1) POS(480); //Connection
ISDN_RLEN INT(5) POS(481); //Rmt address len
ISDN_RNUM CHAR(32) POS(483); //Rmt address
ISDN_ELEN CHAR(2) POS(519); //Extension len
ISDN_ETYPE CHAR(1) POS(521); //Extension type
ISDN_ENUM CHAR(40) POS(522); //Extension num
ISDN_XTYPE CHAR(1) POS(566); //X.25 call type
// File information feedback DS for ICF attributes feedback
// See DSPF attributes feedback above for device attribute fields
SES_STAT CHAR(1) POS(291); //Session status
SYNC_LVL CHAR(1) POS(292); //Synch level
CONV_TYPE CHAR(1) POS(293); //Conversation typ
RMT_LOC CHAR(8) POS(294); //Remote location
LCL_LU CHAR(8) POS(302); //Local LU name
LCL_NETID CHAR(8) POS(310); //Local net ID
RMT_LU CHAR(8) POS(318); //Remote LU
RMT_NETID CHAR(8) POS(326); //Remote net ID
LU6_STATE CHAR(1) POS(345); //LU6 conv state
LU6_COR CHAR(8) POS(346); //LU6 conv cor'r
// See DSPF attribute feedback above for ISDN fields.
// The following information is available only when program was started
// as result of a received program start request. (P_ stands for protected)
TRAN_PGM CHAR(64) POS(567); //Trans pgm name
P_LUWIDLN CHAR(1) POS(631); //LUWID fld len
P_LUWIDIN CHAR(6) POS(650); //LUWID instance
P_LUWIDSEQ INT(5) POS(656); //LUWID seq num
// The following information is available only when a protected conversation
// is started on a remote system. (U_ stands for unprotected)
U_LUWIDLN CHAR(1) POS(658); //LUWID fld len
U_LUWIDIN CHAR(6) POS(677); //LUWID instance
U_LUWIDSEQ INT(5) POS(683); //LUWID seq num


Brian May
VP of Product Management
Profound API Product Owner
Profound Logic Software

937-439-7925 Phone
877-224-7768 Toll Free

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>> On Behalf Of Alan Shore via RPG400-L
Sent: Thursday, January 19, 2023 11:00 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx<mailto:ashore@xxxxxxxx>>
Subject: infds in free form

Hi everyone
We are on v7r3
Does anyone know of a web site that has the complete infds defined in free form?
As always - all responses gratefully accepted

Alan Shore
Solutions Architect
IT Supply Chain Execution


60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail : ASHORE@xxxxxxxxxxxxxxxxxxxx<mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx>

'If you're going through hell, keep going.'
Winston Churchill

This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx> To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2023 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.