​Hallo,

ich möchte ein bestehendes Eingabe-Subfile Programm in einem Window laufen darstellen. Leider bekomme ich jetzt schon beim Initialisieren der Subfile wenn der Subfile Steuersatz geschrieben wird einen Sitzungs- oder Einheitenfehler.

Nachrichten-ID . . . . : RNQ1255 Bewertung . . . . . . : 99
Nachrichtenart . . . . : Anfrage
Sendedatum . . . . . . : 16.04.14 Sendezeit . . . . . . : 12:04:36

Nachricht . . . : Sitzungs- oder Einheitenfehler in Datei HB130FM
aufgetreten (C G D F).

Kann mir jemand einen Tipp geben, was ich falsch mache.

Hier der Code:

Bildschirmformat (Subfile Kontrollsatz)

A*--------------------------------------------------------------*
A* Window-Rahmen *
A*--------------------------------------------------------------*
A R WINDOW1
A*%%TS SD 20140414 224356 TSCHABO REL-V5R3M0 5722-WDS
A OVERLAY
A PUTOVR
A OVRDTA
A WINDOW(*DFT 22 50 *NOMSGLIN)

A*--------------------------------------------------------------*
A* Subfile - Steuersatz *
A*--------------------------------------------------------------*
A R SFL1CTL SFLCTL(SFL1)
A*%%TS SD 20140416 113606 TSCHABO REL-V5R3M0 5722-WDS
A SFLSIZ(0050)
A SFLPAG(0015)
A WINDOW(WINDOW1)
A OVERLAY
A N32 SFLDSP
A N31 SFLDSPCTL
A 31 SFLINZ
A 39 SFLEND(*MORE)
A SFLRNA
A SF_RRN1 4S 0H SFLRCDNBR(CURSOR)
A 2 1'Personen/Objekte verwalten'
A COLOR(WHT)
A SF_PGMNAM 10A O 2 41
A 4 1'Personen/Objekte'
A COLOR(WHT)
A 4 32'L=Löschen'
A COLOR(WHT)

RPG-Programm (Subfile bereinigen)

*---------------------------------------------------------------
* $sflclr Subfile bereinigen
*---------------------------------------------------------------
C $sflclr BEGSR

* Subfile bereinigen
* SF_RRN1 muss > 0 sein für Initialisierung
C EVAL *IN31 = *ON
C EVAL sf_rrn1 = 1
C WRITE sfl1ctl
C EVAL sf_rrn1 = 0
C EVAL *IN31 = *OFF
C EVAL *IN32 = *OFF


Beim Schreiben des Subfile Steuersatzes kommt die Fehlermeldung.

Vielen Dank.