|
midrange.com
A little long but this is what Code/400 creates for all the different
applications of INFDS
D* file feed back
F*MYFILE IF E DISK INFDS(test1)
D* File information feedback DS for file feedback
D test1 DS
D INF_FILE *FILE
* File name
D INF_OPEN_IND 9 9N
* File open?
D INF_EOF_IND 10 10N
* File at eof?
D INF_STATUS *STATUS
* Status code
D INF_OPCODE *OPCODE
* Last opcode
D INF_ROUTINE *ROUTINE
* RPG Routine
D INF_LIST_NUM 30 37
* Listing line
D INF_SPCL_STAT 38 42S 0
* SPECIAL status
D INF_RECORD *RECORD
* Record name
D INF_MSGID 46 52
* Error MSGID
D INF_SCREEN *SIZE
* Screen size
D INF_NLS_IN *INP
* NLS Input?
D INF_NLS_OUT *OUT
* NLS Output?
D INF_NLS_MODE *MODE
* NLS Mode?
D* I/O Feedback
F*MYFILE IF E DISK INFDS(test2)
D* File information feedback DS for input/output feedback
D test2 DS
D
* 241-242 not used
D INF_WRITE_CNT 243 246I 0
* Write count
D INF_READ_CNT 247 250I 0
* Read count
D INF_WRTRD_CNT 251 254I 0
* Write/read count
D INF_OTHER_CNT 255 258I 0
* Other I/O count
D INF_OPERATION 260 260
* Cuurent operation
D INF_IO_RCD_FMT 261 270
* Rcd format name
D INF_DEV_CLASS 271 272
* Device class
D INF_IO_PGM_DEV 273 282
* Pgm device name
D INF_IO_RCD_LEN 283 286I 0
* Rcd len of I/O
D* prtf device feedback
F*MYFILE O F 132 PRINTER INFDS(test3)
D* File information feedback DS for PRTF device feedback
D test3 DS
D INF_CUR_LINE 367 368I 0
* Current line num
D INF_CUR_PAGE 369 372I 0
* Current page cnt
D INF_PRT_MAJOR 401 402
* Major ret code
D INF_PRT_MINOR 403 404
* Minor ret code
D* db device feedback
F*MYFILE IF E DISK INFDS(test4)
D* File information feedback DS for DB device feedback
D test4 DS
D INF_FDBK_SIZE 367 370I 0
* Size of DB fdbk
D INF_JOIN_BITS 371 374I 0
* JFILE bits
D INF_LOCK_RCDS 377 378I 0
* Nbr locked rcds
D INF_POS_BITS 385 385
* File pos bits
D INF_DLT_BITS 384 384
* Rcd deleted bits
D INF_NUM_KEYS 387 388I 0
* Num keys (bin)
D INF_KEY_LEN 393 394I 0
* Key length
D INF_MBR_NUM 395 396I 0
* Member number
D INF_DB_RRN 397 400I 0
* Relative-rcd-num
D INF_KEY 401 2400
* Key value
D* dspf attributes feedback
F*MYFILE CF E WORKSTN INFDS(test5)
D* File information feedback DS for DSPF attributes feedback
D test5 DS
D INF_PGM_DEV 241 250
* Program device
D INF_DEV_DSC 251 260
* Dev description
D INF_USER_ID 261 270
* User ID
D INF_DEV_CLASS 271 271
* Device class
D INF_DEV_TYPE 272 277
* Device type
D INF_REQ_DEV 278 278
* Requester?
D INF_ACQ_STAT 279 279
* Acquire status
D INF_INV_STAT 280 280
* Invite status
D INF_DATA_AVAIL 281 281
* Data available
D INF_NUM_ROWS 282 283I 0
* Number of rows
D INF_NUM_COLS 284 285I 0
* Number of cols
D INF_BLINK 286 286
* Allow blink?
D INF_LINE_STAT 287 287
* Online/offline?
D INF_DSP_LOC 288 288
* Display location
D INF_DSP_TYPE 289 289
* Display type
D INF_KBD_TYPE 290 290
* Keyboard type
D INF_CTL_INFO 342 342
* Controller info
D INF_COLOR_DSP 343 343
* Color capable?
D INF_GRID_DSP 344 344
* Grid line dsp?
* The following fields apply to ISDN.
D INF_ISDN_LEN 385 386I 0
* Rmt number len
D INF_ISDN_TYPE 387 388
* Rmt number type
D INF_ISDN_PLAN 389 390
* Rmt number plan
D INF_ISDN_NUM 391 430
* Rmt number
D INF_ISDN_SLEN 435 436I 0
* Rmt sub-addr len
D INF_ISDN_STYPE 437 438
* Rmt sub-addr type
D INF_ISDN_SNUM 439 478
* Rmt sub-address
D INF_ISDN_CON 480 480
* Connection
D INF_ISDN_RLEN 481 482I 0
* Rmt address len
D INF_ISDN_RNUM 483 514
* Rmt address
D INF_ISDN_ELEN 519 520
* Extension len
D INF_ISDN_ETYPE 521 521
* Extension type
D INF_ISDN_ENUM 522 561
* Extension num
D INF_ISDN_XTYPE 566 566
* X.25 call type
D* open feedback
F*MYFILE O F 132 PRINTER INFDS(test6)
D* File information feedback DS for open feedback
D test6 DS
D INF_ODP_TYPE 81 82
* ODP Type
D INF_FILE_NAME 83 92
* File name
D INF_LIBRARY 93 102
* Library name
D INF_SPOOL_FILE 103 112
* Spool file name
D INF_SPOOL_LIB 113 122
* Spool file lib
D INF_SPOOL_NUM 123 124I 0
* Spool file num
D INF_RCD_LEN 125 126I 0
* Max record len
D INF_KEY_LEN 127 128I 0
* Max key len
D INF_MEMBER 129 138
* Member name
D INF_TYPE 147 148I 0
* File type
D INF_ROWS 152 153I 0
* Num PRT/ DSP rows
D INF_COLUMNS 154 155I 0
* Num PRT/ DSP cols
D INF_NUM_RCDS 156 159I 0
* Num of records
D INF_ACC_TYPE 160 161
* Access type
D INF_DUP_KEY 162 162
* Duplicate key?
D INF_SRC_FILE 163 163
* Source file?
D INF_VOL_OFF 184 185I 0
* Vol label offset
D INF_BLK_RCDS 186 187I 0
* Max rcds in blk
D INF_OVERFLOW 188 189I 0
* Overflow line
D INF_BLK_INCR 190 191I 0
* Blk increment
D INF_FLAGS1 196 196
* Misc flags
D INF_REQUESTER 197 206
* Requester name
D INF_OPEN_COUNT 207 208I 0
* Open count
D INF_BASED_MBRS 211 212I 0
* Num based mbrs
D INF_FLAGS2 213 213
* Misc flags
D INF_OPEN_ID 214 215
* Open identifier
D INF_RCDFMT_LEN 216 217I 0
* Max rcd fmt len
D INF_CCSID 218 219I 0
* Database CCSID
D INF_FLAGS3 220 220
* Misc flags
D INF_NUM_DEVS 227 228I 0
* Num devs defined
F*MYFILE CF E WORKSTN INFDS(test7)
D* File information feedback DS for DSPF device feedback
D test7 DS
D INF_DSP_FLAG1 367 368
* Display flags
D INF_DSP_AID 369 369
* AID byte
D INF_CURSOR 370 371
* Cursor location
D INF_DATA_LEN 372 375I 0
* Actual data len
D INF_SF_RRN 376 377I 0
* Subfile rrn
D INF_MIN_RRN 378 379I 0
* Subfile min rrn
D INF_NUM_RCDS 380 381I 0
* Subfile num rcds
D INF_ACT_CURS 382 383
* Cursor location
D INF_DSP_MAJOR 401 402
* Major ret code
D INF_DSP_MINOR 403 404
* Minor ret code
D* ICF Device Feedback
F*MYFILE CF E WORKSTN INFDS(test8)
D* File information feedback DS for ICF device feedback
D test8 DS
D INF_ICF_AID 369 369
* AID byte
D INF_ICF_LEN 372 375I 0
* Actual data len
D INF_ICF_MAJOR 401 402
* Major ret code
D INF_ICF_MINOR 403 404
* Minor ret code
D INF_SNA_SENSE 405 412
* SNA sense rc
D INF_SAFE_IND 413 413
* Safe indicator
D INF_RQSWRT 415 415
* Request write
D INF_RMT_FMT 416 425
* Remote rcd fmt
D INF_ICF_MODE 430 437
* Mode name
D* ICF Attributes Feedback
F*MYFILE CF E WORKSTN INFDS(test9)
D* File information feedback DS for ICF attributes feedback
D test9 DS
D INF_PGM_DEV 241 250
* Program device
D INF_DEV_DSC 251 260
* Dev description
D INF_USER_ID 261 270
* User ID
D INF_DEV_CLASS 271 271
* Device class
D INF_DEV_TYPE 272 272
* Device type
D INF_REQ_DEV 278 278
* Requester?
D INF_ACQ_STAT 279 279
* Acquire status
D INF_INV_STAT 280 280
* Invite status
D INF_DATA_AVAIL 281 281
* Data available
D INF_SES_STAT 291 291
* Session status
D INF_SYNC_LVL 292 292
* Synch level
D INF_CONV_TYPE 293 293
* Conversation typ
D INF_RMT_LOC 294 301
* Remote location
D INF_LCL_LU 302 309
* Local LU name
D INF_LCL_NETID 310 317
* Local net ID
D INF_RMT_LU 318 325
* Remote LU
D INF_RMT_NETID 326 333
* Remote net ID
D INF_APPC_MODE 334 341
* APPC Mode
D INF_LU6_STATE 345 345
* LU6 conv state
D INF_LU6_COR 346 353
* LU6 conv cor'r
* The following fields apply to ISDN.
D INF_ISDN_LEN 385 386I 0
* Rmt number len
D INF_ISDN_TYPE 387 388
* Rmt number type
D INF_ISDN_PLAN 389 390
* Rmt number plan
D INF_ISDN_NUM 391 430
* Rmt number
D INF_ISDN_SLEN 435 436I 0
* sub-addr len
D INF_ISDN_STYPE 437 438
* sub-addr type
D INF_ISDN_SNUM 439 478
* Rmt sub-address
D INF_ISDN_CON 480 480
* Connection
D INF_ISDN_RLEN 481 482I 0
* Rmt address len
D INF_ISDN_RNUM 483 514
* Rmt address
D INF_ISDN_ELEN 519 520
* Extension len
D INF_ISDN_ETYPE 521 521
* Extension type
D INF_ISDN_ENUM 522 561
* Extension num
D INF_ISDN_XTYPE 566 566
* X.25 call type
* The following information is available only when program was
started
* as result of a received program start request. (P_ stands for
protected)
D INF_TRAN_PGM 567 630
* Trans pgm name
D INF_P_LUWIDLN 631 631
* LUWID fld len
D INF_P_LUNAMELN 632 632
* LU-NAME len
D INF_P_LUNAME 633 649
* LU-NAME
D INF_P_LUWIDIN 650 655
* LUWID instance
D INF_P_LUWIDSEQ 656 657I 0
* LUWID seq num
* The following information is available only when a protected
conversation
* is started on a remote system. (U_ stands for unprotected)
D INF_U_LUWIDLN 658 658
* LUWID fld len
D INF_U_LUNAMELN 659 659
* LU-NAME len
D INF_U_LUNAME 660 676
* LU-NAME
D INF_U_LUWIDIN 677 682
* LUWID instance
D INF_U_LUWIDSEQ 683 684I 0
* LUWID seq num
As an Amazon Associate we earn from qualifying purchases.
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.
