ein SFLCTL mit mehreren SFL-Records

[Malte]

Hallo alle zusammen,

ich würde gerne wissen ob ich in einem SFLCTL mehrere SFL-Records nutzen kann
ich hab es einfach mal versuch

A          R SFC01                     SFLCTL(SFL01)

aber hier kann ich nicht auf SFL02 verweisen

folgendes bringt auch nicht ist aber Umwandelbar

     FTEST01FM  CF   E             WORKSTN INFDS(#INFWS)
     F                                     SFILE(SFL01:SREC01)
     F                                     SFILE(SFL02:SREC01)

es geht alles gut solange ich nur SFL01 write
aber wenn ich SFL02 write bekomme ich diesen Fehler :

Nachricht . . . :   E/A-Fehler CPF5257 in Datei TEST01FM erkannt (C G D F).
Ursache  . . . . : Die RPG-Prozedur TEST01 in Programm MS/TEST01 hat bei  
  Anweisung 062200 die Nachricht CPF5257 empfangen, während E/A-Operation   
  WRITE für Datei TEST01FM ausgeführt wurde. Die tatsächliche Datei ist    
  MS/TEST01FM.                                                             
Fehlerbeseitigung: Das Jobprotokoll auf weitere Informationen zur           
  Fehlerursache prüfen und den für die Programmpflege verantwortlichen      
  Benutzer benachrichtigen.

danke schon mal,
Gruß Malte

[Fuerchau]

Zu einem SFLCTL gibt es genau eine SFL. Das SFLCTL ist im Prinzip der Kopf (kann aber auch der Fuß sein) der SFL.
Im RPG/LE muss ich für jede SFL ein Satz-Nr-Feld definieren, in COBOL geht das z.B. nicht, da gibt's nur den "Relative Key".

Möchtest du verschiedene Sichten einer SFL realisieren so definiere alle benötigten Felder als "H"-idden und mach genau ein sichtbares Ausgabefeld über die gesamte Breite.
Im RPGLE kannst du dann die Zeile je nach "Sicht" dann unterschiedlich aufbereiten incl. ggf. Farbcodes:
SFZEILE = FeldA + CodeBlau + %editc(Feldb:K) + CodeWeiss + FeldC;

[Malte]

Danke für die schnelle antwort
das mit dem einem Feld mach ich auch immer bei Anzeigen
das Problem hier ist halt das ich Zeilen mit Eingabefelder brauche dich verschiedent von der Länge aufgebaut sind

schade wäre schön gewesen

ich werde es dann wohl mit Feldüberlagerungen und Bezugszahlen lösen
aber da kann ich ja auch nur 2 Felder übereinnanderlegen oder ?

[Fuerchau]

Wenn genug Bezugszahlen verfügbar sind, kannst du beliebig viele Felder überlagern.
Man kann auch beliebige Bezugszahlen kombinieren.
Bei SFL's hat man dann allerdings das Problem, dass automatisches Blättern dann nicht mehr funktioniert.
SFLPAG muss dann identisch zu SFLSIZ sein, das Blättern muss dann selber programmiert werden (ist ja ggf. auch kein Akt wenn man die SFL z.B. als DS mit DIM(9999) definiert.

[Malte]

so ich habe jetzt mehrere Felder übereinandergelegt und hab jetzt das Problem sobal ich Felder übereinander lege kann ich auf numerische Felder keinen editierCode meher anweden

kann man das irgentwie umgehen ?

[Fuerchau]

Das halte ich für ein Gerücht.
Ggf. hast du hier nur die Reihenfolge der Felddefinitionen und Attribute nicht eingehalten und erhältst Folgefehler.

[kitvb1]

Du nutzt die gleiche SFLRRN bzw. SREC01. Die 2. sollte was anders sein z.b. SREC02.

[Malte]

@Fuerchau
das sind meine Felder

     A  70        SF1A           1A  B  7 62DSPATR(HI)         
     A                                      DSPATR(&QSFVAL)    
     A  71        SF3A           3A  B  7 62DSPATR(HI)         
     A                                      DSPATR(&QSFVAL)    
     A  72        SF4S1          4S 1B  7 62DSPATR(HI)         
     A                                      DSPATR(&QSFVAL)    
     A  73        SF4S2          4S 2B  7 62DSPATR(HI)         
     A                                      DSPATR(&QSFVAL)    
     A                                      EDTCDE(3)

Umwandlung

     550       A  70        SF1A           1A  B  7 62DSPATR(HI)     
     560       A                                      DSPATR(&QSFVAL)
     570       A  71        SF3A           3A  B  7 62DSPATR(HI)     
 *                                      CPD7865-******               
     580       A                                      DSPATR(&QSFVAL)
     590       A  72        SF4S1          4S 1B  7 62DSPATR(HI)     
 *                                      CPD7865-******               
     600       A                                      DSPATR(&QSFVAL)
     610       A  73        SF4S2          4S 2B  7 62DSPATR(HI)     
 *                                      CPD7865-******               
     620       A                                      DSPATR(&QSFVAL)
     621       A                                      EDTCDE(3)      
 *                                            CPD7554-*        
CPD7554      20        1      Nachricht . . . :   Schlüsselwort bei aktueller Datenart oder Tastaturumschaltung nicht gültig.
CPD7865      10        6      Nachricht . . . :   Feld überlappt mindestens ein Feld im Satz.

Der 10ner ist mir ja egal das ist ja nur ein Hinweis aber für den EDITC wirft er mir immer den fehler

@kitvb1
ein SFLRRN - Schlüsselwort hab ich nicht mehr ich hab jetzt einen einseitige SFL
und "Blätter" selber

[AG1965_2]

Nimm' mal für jedes Feld auch ein eigenes Attributfeld.

[Fuerchau]

Ändere den Datentyp der numerischen Felder auf "Y"!
http://www-01.ibm.com/support/knowle...valentries.htm

[Malte]

das mit Y hat funktioniert danke schön