RE: PRTF line#?

from: <stefan@xxxxxxxxxx>
subject: RE: PRTF line#?

Hi, sorry for a long copy, you'll find current line # in pos 367 of the
infds:
And sorry for the font ....

dcl-ds FileDS qualified; // File
information feedback DS
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;


Best regards

Stefan

--
No trees were killed in the sending of this message, but a large number of
electrons were terribly upset.

Stefan Tageson
+46 732 369934
stefan@xxxxxxxxxx