← Go Back

Position cursor to specific field in a display file (DSPF)

How to Use the JSFLDLOC Application

1. Source Code Placement

Ensure the following setup:

• The source code QPROTOSRC/JSFLDLOC must be placed in the QPROTOSRC source member.
• The source code QRPGLESRC/JSFLDLOC must be placed in the QRPGLESRC source member.
• Both source members should reside within the same library.

2. Purpose

The QPROTOSRC/JSFLDLOC member is used within QRPGLESRC to copy the necessary declarations and parameters for the application to function as a service program. This is achieved by binding the /copy directive during the compilation process.

Additionally, the QPROTOSRC/JSFLDLOC source code is utilized by RPG applications that require this service program.

3. Compilation Instructions

Step 1: Create the Module

CRTRPGMOD MODULE(*CURLIB/JSFLDLOC) SRCFILE(*CURLIB/QRPGLESRC) SRCMBR(JSFLDLOC) DBGVIEW(*SOURCE) REPLACE(*YES)

Step 2: Create the Service Program

CRTSRVPGM SRVPGM(*CURLIB/JSFLDLOC) EXPORT(*ALL) ACTGRP(*CALLER)

Note: The *CURLIB is used as the default library in this example. You may specify any library where you want the objects to be stored.

4. Binding Directory

Once the service program is created, it should be added to a binding directory. For example, I use JASTOOL as my binding directory. You can use any binding directory that suits your needs.

ADDBNDDIRE BNDDIR(*CURLIB/JASTOOL) OBJ((JSFLDLOC))

Display file declarations

In your display file (DSPF), the CSRLOC keyword must be declared with both the row and column positions. In the sample code, I use the variables $CROW for the row and $CCOL for the column. The field in my display file is named $CMP. The following use case demonstrates how to position the cursor on the $CMP field.

            A          R S1CONTROL                                            
            A                                      CF03                       
            A                                      CF06                       
            A                                      CF12                       
            A                                      RTNCSRLOC(*RECNAME &$CREC &
            A                                      FRCDTA                     
            A                                      CSRLOC($CROW      $CCOL)   
            A                                      OVERLAY                    
            A            $CROW          3S 0H                                 
            A            $CCOL          3S 0H                                 
            A            L00003        12A  O  5  8MSGID(L00 0003 CPIMCBOMFM) 
            A            $CMP           3Y 0B  5 21EDTCDE(Z)                  
            A                                      COLOR(TRQ)                 
            A                                      DSPATR(&CCMP)              
        

Use Case

To call the function FLD_LOC, provide the following parameters:

• Row: The row position defined in the display file.
• Column: The column position defined in the display file.
• Field Name: The name of the field where you want to position the cursor.
• Format Name: The name of the record format where the field is defined.
• File Name: The name of the display file.
• Library (optional): The library where the display file is located.
• Force Size (optional): Specify either 3 or 4. A value of 3 indicates a 24x80 screen size, while 4 indicates a 27x132 screen size. This parameter is optional, as the application automatically detects the display file's mode.

QPROTOSRC/JSFLDLOC code

QRPGLESRC/JSFLDLOC code

NOTE: A copy of QSYSINC/QRPGLESRC(QDFRTVFD) must be made into QPROTOSRC(QDFRTVFD_). Additionally, the field QDFFSCRS within the QDFFBASE data structure must be uncommented.