Thanks Brian
Did not know this
Alan Shore
Solutions Architect
IT Supply Chain Execution
[cid:image001.png@01D92C00.77CE9630]
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-F MYFILE USAGE(*INPUT) infds(FileDS);
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
ROUTINE *ROUTINE; //RPG Routine
LIST_NUM CHAR(8) POS(30); //Listing line
SPCL_STAT ZONED(5) POS(38); //SPECIAL status
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?
NLS_MODE *MODE; //NLS Mode?
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
APPC_MODE CHAR(8) POS(334); //APPC Mode
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_LUNAMELN CHAR(1) POS(632); //LU-NAME len
P_LUNAME CHAR(17) POS(633); //LU-NAME
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_LUNAMELN CHAR(1) POS(659); //LU-NAME len
U_LUNAME CHAR(17) POS(660); //LU-NAME
U_LUWIDIN CHAR(6) POS(677); //LUWID instance
U_LUWIDSEQ INT(5) POS(683); //LUWID seq num
END-DS FileDS ;
HTH,
Brian May
VP of Product Management
Profound API Product Owner
Profound Logic Software
http://www.profoundlogic.com<
http://www.profoundlogic.com>
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
[cid:image001.png@01D92BFD.8D63F9C0]
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.
midrange.com
