Parameterliste im ILE

[muadeep]

Hallo,

hab da mal wieder ein kleines (für mich großes) Problem

 * *entry = Parameterliste                                  
D ExPerEm         PR                  ExtPgm('EXPEREM')     
D   lfdNr                        5  0                       
D   Parm1                       50a   options(*nopass) const
D   Parm2                       50a   options(*nopass) const
D   Parm3                       50a   options(*nopass) const
D   Parm4                       50a   options(*nopass) const
D   Parm5                       50a   options(*nopass) const
D   Parm6                       50a   options(*nopass) const
D   Parm7                       50a   options(*nopass) const
D   Parm8                       50a   options(*nopass) const
                                                            
D ExPerEm         PI                                        
D   lfdNr                        5  0                       
D   Parm1                       50a   options(*nopass) const
D   Parm2                       50a   options(*nopass) const
D   Parm3                       50a   options(*nopass) const
D   Parm4                       50a   options(*nopass) const
D   Parm5                       50a   options(*nopass) const
D   Parm6                       50a   options(*nopass) const
D   Parm7                       50a   options(*nopass) const
D   Parm8                       50a   options(*nopass) const 

wenn ich jetzt das Programm EXPEREM wie folgt aufrufe:

CALL PGM(EXPEREM) PARM(X'00110F' 'mAAAAAAAA@BBB-CCCCCCCCCC.de' 'xAAAAAAAA@
BBB-CCCCCCCCCC.de')

dann wird der erste Parameter "Parm1" nach exakt 33 Stellen
mit dem Wert des zweiten Paramter gefüllt !!!

was ist daran falsch, etc.

[Fuerchau]

Siehe hierzu folgenden Beitrag:
http://www.rlpforen.de/showthread.ph...CALL+parameter

[muadeep]

oh, dankeschön

gibt's irgendeine Möglichkeit das ich die Parameter trotzdem "variable" (also mal 20ig stellig, mal 30ig. stellig, etc.) übergeben kann?

[Fuerchau]

Nur in dem du ein CMD entwickelst, mit
PARM KWD(FELDX) TYPE(*CHAR) LEN(50) VARY(*YES)
Dann kannst du den Parameter als VARYING (oder varlen) definieren, da dem Feld ein 2-Byte-Längeninformation vorangestellt wird.
Rufst du das Programm aus CLP oder anderen Programmen auf, kannst du dies genauso handhaben, den Prototyp also entsprechend definieren.