RPG/400: Subfiles - Sprung an bestimme Stelle

[beebof]

Moin AS/400-Freaks

Problem: Ein RPG/400 Programm mit einem DSPF mit SFL und entspr. Control-Satz. Wenn ich dieses Subfile aufbaue (das klappt alles), möchte ich nun nicht, wenn ich mit EXFMTCTL den Control-Satz aufrufe an die erste Stelle des Subfiles, sondern an Stelle X (vorgegeben per Variable).

Wie mach ich denn das?!?

Edit: Beispiel

DSPF:

0000.10      A*%%TS  SD  20030722  160509  MEINNAME    REL-V5R1M0  5722-WDS

0000.20      A*%%EC         

0000.30      A                                      DSPSIZ(24 80 *DS3)      

0000.40      A          R EINSFL                    SFL                     

0000.50      A*%%TS  SD  20030722  160509  MEINNAME    REL-V5R1M0  5722-WDS

0000.60      A            RECN           4  0H                     

0000.70      A            IEIN           1   I  4  3COLOR(TRQ) 

0000.80      A                                      DSPATR(RI) 

0000.90      A            OTEXT         40   O  4  5     

0001.00      A          R EINCTL                    SFLCTL(EINSFL)  

0001.10      A*%%TS  SD  20030722  160509  MEINNAME    REL-V5R1M0  5722-WDS

0001.20      A N60                                  SFLDSP 

0001.30      A N60                                  SFLDSPCTL    

0001.40      A  60                                  SFLDLT    

0001.50      A N60                                  SFLEND(*MORE)   

0001.60      A                                      SFLSIZ(0015)      

0001.70      A                                      SFLPAG(0014)        

0001.80      A                                  1  3'Testbildschirm'                  

0001.90      A                                  3  3'X Subfiletext                     -  

0002.00      A                                              '                                                     

0002.10      A                                      DSPATR(RI)      

RPG:

0001.00      FSFLTST  CF  E                    WORKSTN                                 

0002.00      F                                        RECN  KSFILE EINSFL                                 

0003.00      F*                     

0004.00      C                     SETON                     60 

0005.00      C                     WRITEEINCTL                    

0006.00      C                     SETOF                     60        

0007.00      C                     Z-ADD0         RECN               

0008.00      C*                                                               

0009.00      C           1         DO   50        X       20     

0010.00      C                     ADD  1         RECN           

0011.00      C                     MOVELX         OTEXT       

0012.00      C                     MOVE *BLANKS   IEIN    

0013.00      C                     WRITEEINSFL                

0014.00      C                     ENDDO                           

0015.00      C*                                                          

0016.00      C                     Z-ADD10        RECN         

0017.00      C                     EXFMTEINCTL                  

0018.00      C*                                                           

0019.00      C                     SETON                     LR          

Hier soll der 10. Subfilesatz angezeigt werden. (Meine Idee: RECN auf 10 setzen - klappt aber nicht )

[ExAzubi]

Hi,

versteh nicht ganz was du meinst. Möchtest du, das der Cursor auf dem 10 SFL-Satz liegt?

Wenn ja, dann könnstest du es mal versuchen, in deinem DSPF Variabelen für die Cursor-Position definieren, diese werden dann per INFDS zur verfügung gestellt.

Diese setzt du dann auf die Coordinaten für den 10 Satz. Diese Variabelen werden auf DSPF Ebene definiert, nicht auf Recordebene. Wenn du mit SDA arbeistest, schau dir mal die Schlüsselwörter aud Fileebene an.

Selbst nie gemacht, aber wenn's klappt, dann berichte bitte.

[beebof]

Vielleicht hab ich mich etwas unklar ausgedrückt.

Ich möchte, dass, wenn ich EXFMT aufrufe, der Bildschirm ab dem 10. Subfilesatz angezeigt wird. Ich kann dann noch mit Bild-hoch mir die ersten 10 Sätze anzeigen lassen und mit Bild-runter die nächsten...

Verständlich?

Wenn ich dich richtig verstanden habe, willst du mir den Cursor einfach umsetzen, oder? (hab ich auch noch nie gemacht - brauch ich zur Zeit aber auch nicht)

[beebof]

Wer suchet, der findet...

Ich habs raus *freu*

Falls es jemanden interessiert:

http://archive.midrange.com/rpg400-l/200101/msg00494.html