PDA

View Full Version : CPD7812



Seiten : 1 [2]

Luna
14-11-07, 16:36
Und wen du Sie nur um 1ne zeile nach unten verschiebst dürfte da kein schwarzes Loch;) sein.

Ist es aber:p

Ich habe Subfile zu 12 zeile verschoben und die 11 Zeile ist leer:(

Fuerchau,



Vor und hinter einem Feld stehen Attribute, je 1 Byte, wobei das Endeattribut auch das Anfangsattribut des folgenden Feldes sein kann.



kann man das irgendwo sehen? Inhalt des Objektes oder so was?

Fuerchau
14-11-07, 17:22
Das Attribut (1 Zeichen) ist immer direkt vor und hinter dem Feld.

Mit F20 in SDA werden alle Felder invers dargestellt.

Beispiel:

_OOO_OOOOOOOOOO_9999,99_

"_" steht für Attribut.

Wenn dein Feld also bis einschließlich Spalte 80/132 geht, steht das Attribut in der Folgezeile Spalte 1.

AS400.lehrling
14-11-07, 18:06
Ist es aber:p

Ich habe Subfile zu 12 zeile verschoben und die 11 Zeile ist leer:(

Fuerchau,



kann man das irgendwo sehen? Inhalt des Objektes oder so was?

Hast du auch wirklich in allem was da dran hängt die zeile 11 nach 12 verschoben:confused:

Oder gibt es noch irgendwo einen bezug auf die 11:confused:

AS400.lehrling

Luna
15-11-07, 09:05
Fuerchau,

Danke für Antwort :)

Es klingt logisch. Das bedeutet, wenn ich den Feld statt 127 Zeichen nur 126 Zeichen definiere soll es funktionieren. Funktioniert aber nicht.

AS400.lehrling,

Ja alles. Die ganze 11 Zeile. :)

LG
Luna

Fuerchau
15-11-07, 09:45
Hast du denn nun für die 132-stellige SFL eine eigene DSPF verwendet ?

Nochmal:
Wenn du beide Formate in einer gemeinsamen DSPF verwendest, nimmt das System immer den ungünstigsten Fall an.
Das 127-stellige Feld ist nun mal breiter als 80 und belegt rein rechnerisch eben auch die Folgezeile, da es auch im 80-stelligen Fall angezeigt werden kann.

Trenne die gewünschten Formate generell in 2 DSPF's !

Du kannst schließlich in einem Programm auch mehr als 1 DSPF verarbeiten.

Ausserdem entfällt der ganze Sermon mit *DS3/*DS4 und es wird übersichtlicher.

Luna
15-11-07, 10:56
Danke für Eure Hilfe :)

Ich mache es mit 2 DSPF's - wird einfacher :D

AS400.lehrling
15-11-07, 11:40
Danke für Eure Hilfe :)

Ich mache es mit 2 DSPF's - wird einfacher :D

Habe hier mal 'nen auszug aus einem Übungspgm eventuell hilft es dir weiter:

10800 * -=* SUBFILES *=- 26.09.03
10900 * 26.09.03
11000 A R SFL1 SFL 26.09.03
11100 A #SFL1RN 9S 0H 26.09.03
11200 A #SFL1WAHL 1A B 4 2VALUES('X' '1' ' ') 26.09.03
11300 A #SFL1MATC 10A O 4 4 07.10.03
11400 A #SFL1TEXT 40A O 4 16 07.10.03
11500 26.09.03
11600 A R CTLSFL1 SFLCTL(SFL1) 26.09.03
11700 A CF12(12) 18.01.06
11800 17.01.06
11900 A OVERLAY 09.10.03
11910 A 91 SFLINZ 09.10.03
11920 A 93 SFLCLR 09.10.03
12000 A N93 SFLDSP 26.09.03
12100 A N93 SFLDSPCTL 26.09.03
12400 A SFLSIZ(0999) 26.09.03
12500 A SFLPAG(0007) 07.10.03
12510 A N93 SFLEND(*MORE) 09.10.03
12600 A WINDOW(6 5 12 68) 26.09.03
12700 A S1TITEL 40A O 1 2COLOR(WHT) 26.09.03
12701 A +2'F12=VERLASSEN' 17.01.06
12702 A COLOR(BLU) 17.01.06
12800 A 3 2'X' 26.09.03
12900 A COLOR(WHT) 26.09.03
13000 A 3 4'Matchcode' 07.10.03
13100 A COLOR(WHT) 26.09.03
13200 A 3 16'Beschreibungstext' 07.10.03
13300 A COLOR(WHT) 26.09.03

Stammt aus der dsppf des pgm.