Comments on: DDS / RPG – cursor management

By: splat

splat — Thu, 19 Nov 2009 15:34:05 +0000

For your problem, this'll work if the records displayed don't change (1st stays 1st, 2nd stays 2nd) from when the Enter key is pressed to when the records are redisplayed. On the SFLCTL record format, include this:

                          CSRLOC(ROW        COLUMN)
                          RTNCSRLOC(&FORMAT &FIELD)
ROW            3S 0H                               
COLUMN         3S 0H

In the RPG include this:

FDisplay   Cf   e             Workstn                     
F                                     sfile(subfile: rrna)
F                                     infds(workstn)

D Workstn         Ds                 
D  dspfilnm         *file            
D  dsprcdnm         *record          
D  function             369    369   
D  cursor               370    371b 0

Csr   cursor        Div       256           row   
Csr                 Mvr                     column

(I'm pulling this from an older program - don't bust my chops for not using /Free). If you want the cursor to assume the default position (first input-capable field on the format), simply clear row and column. This isn't limited to subfiles & has the advantage of not requiring any indicators.

By: pdraebel

pdraebel — Thu, 19 Nov 2009 08:31:57 +0000

Updating the subfile record with display attribute Position cursor in effect. If you have updated multiple records with this indicator active the cursor will be positioned on the first subfile record that has the display attribute in effect.

By: tomliotta

tomliotta — Wed, 18 Nov 2009 08:06:50 +0000

You didn’t tell us what you tried; only that what you tried didn’t work. That means we have to guess if you already tried what we might suggest.

How do you remove the option that the user entered from the option field? Bo you rewrite the subfile? Or do you issue an UPDATE to the subfile RRN to blank out just that one subfile option field?

Tom