ILE RPG Language Reference


INFDS Device Specific Feedback Examples

To specify an INFDS which contains fields in the device-specific feedback section, you can make the following entries:

Figure 33. Example of Coding an INFDS with Printer Specific Feedback Information
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
Figure 34. Example of Coding an INFDS with Database Specific Feedback Information
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)
Figure 35. Example of Coding an INFDS with ICF Specific Feedback Information
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
Figure 36. Example of Coding an INFDS with Display Specific Feedback Information
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

[ Top of Page | Previous Page | Next Page | Contents | Index ]