To specify an INFDS which contains fields in the device-specific feedback section, you can make the following entries:
From = 367 + Offset To = From - 1 + Character_Length Character_Length = Length (in bytes)
For example, for relative record number of a data base file, the Information Center gives:
Offset = 30 Data Type is binary Length = 4 Therefore, From = 367 + 30 = 397, To = 397 - 1 + 4 = 400. See subfield DB_RRN in DBFBK data structure in example below
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments++++++++++ FMYFILE O F 132 PRINTER INFDS(PRTFBK) DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++ DPRTFBK DS D CUR_LINE 367 368I 0 * Current line num D CUR_PAGE 369 372I 0 * Current page cnt * If the first bit of PRT_FLAGS is on, the spooled file has been * deleted. Use TESTB X'80' or TESTB '0' to test this bit. D PRT_FLAGS 373 373 D PRT_MAJOR 401 402 * Major ret code D PRT_MINOR 403 404 * Minor ret code
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments++++++++++ FMYFILE IF E DISK INFDS(DBFBK) DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++ DDBFBK DS D FDBK_SIZE 367 370I 0 * Size of DB fdbk D JOIN_BITS 371 374I 0 * JFILE bits D LOCK_RCDS 377 378I 0 * Nbr locked rcds D POS_BITS 385 385 * File pos bits D DLT_BITS 384 384 * Rcd deleted bits D NUM_KEYS 387 388I 0 * Num keys (bin) D KEY_LEN 393 394I 0 * Key length D MBR_NUM 395 396I 0 * Member number D DB_RRN 397 400I 0 * Relative-rcd-num D KEY 401 2400 * Key value (max D * size 2000)
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments++++++++++ FMYFILE CF E WORKSTN INFDS(ICFFBK) DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++ DICFFBK DS D ICF_AID 369 369 * AID byte D ICF_LEN 372 375I 0 * Actual data len D ICF_MAJOR 401 402 * Major ret code D ICF_MINOR 403 404 * Minor ret code D SNA_SENSE 405 412 * SNA sense rc D SAFE_IND 413 413 * Safe indicator D RQSWRT 415 415 * Request write D RMT_FMT 416 425 * Remote rcd fmt D ICF_MODE 430 437 * Mode name
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments++++++++++ FMYFILE CF E WORKSTN INFDS(DSPFBK) DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++ DDSPFBK DS D DSP_FLAG1 367 368 * Display flags D DSP_AID 369 369 * AID byte D CURSOR 370 371 * Cursor location D DATA_LEN 372 375I 0 * Actual data len D SF_RRN 376 377I 0 * Subfile rrn D MIN_RRN 378 379I 0 * Subfile min rrn D NUM_RCDS 380 381I 0 * Subfile num rcds D ACT_CURS 382 383 * Active window D * cursor location D DSP_MAJOR 401 402 * Major ret code D DSP_MINOR 403 404 * Minor ret code