Parameterübergabe in Prozedur -> Compiler schmiert ab

[JonnyRico]

Also ich werd gleich verrückt. Was mach ich denn nur falsch. Ich will doch nur einen Parameter an eine Prozedur übergeben. So siehts aus

DWriteXXX PR
D Dat1 6S 0

.
.
.
.
Feld aus Datenbank (10000%tig 6S 0) in Datum1 lesen

/Free
WriteXXX(Datum1);
/End-Free


.
.
.
PWriteXXX B
DWriteXXX PI
D Dat1 6S 0
/Free
//Mach was mit dem Datum
/End-Free
PWriteXXX E

Ich bekomme immer die Meldung:
*RNF7535 30 246 001103 Art und Attribute von Parameter 1 stimmen nicht mit dem Prototyp überein.

Was um alles in der Welt ist das Problem??? Ich hoffe mir kann jemand einen Tip geben und ich bin nicht einfach nur ein bissel blind vom ganzen Kaffee

Gruß

Sascha

[malzusrex]

hallo sascha!

bist du dir wirklich sicher, das in der DB das feld mit 6S 0 angegeben ist ?!?!
ich habe an hand deines bsp. folgendes kleine proggie gemacht

h dftactgrp(*no)                         
                                         
d True            c                   *On
d Datum1          s              6s 0    
d WriteXXX        pr                     
d  dat1                          6s 0    
                                         
 /Free                                   
   WriteXXX( Datum1 );                   
   *InLr  =  True;                       
 /End-Free                               
                                         
p WriteXXX        b                      
d WriteXXX        pi                     
d  Dat1                          6s 0    
 /Free                                   
   Dat1 = Dat1;                          
 /End-Free                               
p WriteXXX        e 

diese kann ich wandeln, wenn Datum1 mit 6S 0 angegeben ist.
wenn es mit 6 0 oder 6p 0 def. ist, dann kann ich es nicht umwandeln. schau doch noch mal uff den db-feld

tschau ronald

[Fuerchau]

Wenn der Feldname in einer anderen Datei auch definiert ist, nimmt RPG ggf. die optimierte Definition, also gepackt, an.
Prüfe auch, ob das Feld ggf. mehrfach definiert ist (Compiler-Liste).

Für den Parameter kannst du ach Option "value" nehmen, dann ist das fast egal.

[JonnyRico]

mmm...das ist alles komisch.

Wenn ich noch einmal ein Feld in der D-Karte angebe das auch 6S 0 ist und dann

Feld = Datum1;
WriteXXX(Feld);

mache dann funktioniert es.
Kann ich denn keinen Feldnamen direkt der Prozedur übergeben?

[JonnyRico]

Juhu,

damit hast du mir jetzt den Feierabend gerettet. Das hätte mich heute Nacht noch beschäftigt. Der "Value" war's. Danke Baldur.

Gruß

Sascha

[B.Hauser]

mmm...das ist alles komisch.

Wenn ich noch einmal ein Feld in der D-Karte angebe das auch 6S 0 ist und dann

Feld = Datum1;
WriteXXX(Feld);

mache dann funktioniert es.
Kann ich denn keinen Feldnamen direkt der Prozedur übergeben?

Wenn es sich um input only Felder handelt kannst Du das Schlüssel-Wort VALUE oder CONST verwenden. In diesem Fall wird ein temporäres Feld mit der erwarteten Feld-Definition generiert. Dann ist es egal, ob das Feld gepackt, gezont oder integer ist.

In RPG werden gezonte Felder soweit möglich in gepackte Felder umgesetzt. Eine Möglichkeit gezonte Datei-Felder zu erhalten ist, die Datei als externe Datenstruktur anzugeben.
Felder in Datenstrukturen werden nicht konvertiert, sondern das Format beibehalten.
Damit wird dann auch das gezonte Feld an die Prozedur übergeben.

Felder, die in den D-Bestimmungen definiert sind, werden ebenfalls nicht konvertiert.

Werden gepackte Datei-Felder in Datenstrukturen ohne Angabe einer Definition hinterlegt, also nur aufgelistet, werden sie in gezonte Felder umgesetzt.

Birgitta