Veröffentlicht 22. Juli 200322 j 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 )
22. Juli 200322 j 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.
23. Juli 200322 j Autor 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)
23. Juli 200322 j Autor Wer suchet, der findet... Ich habs raus *freu* Falls es jemanden interessiert: http://archive.midrange.com/rpg400-l/200101/msg00494.html
Archiv
Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.