*RNF7535 Art und Attribute von Parameter

[tarkusch]

Hallo liebes Forum,

könnt ihr mir erklären warum er mir diesen Compilerfehler übergibt?
Die Felder sind doch gleich(T1AFIR/T1AKDN = ##FIR/##KDN )?
Ich weiss leider bei diesem Problem überhaupt nicht mehr was ich tun soll.

    DDS Definition:                                                           
    A            T1AKDN         5  0O  7  4EDTCDE(4)                          
    A            T1AFIR         2  0B  4 21EDTCDE(4)                          
                                                                              
    D MatchPgm        PR                  EXTPGM('MAT601R')                   
    D MatchParams                   64                                        
    D MatchParams     DS                                                      
    D ##FIR                          2  0                                     
    D ##KDN                          5  0                                     
    D ##ART                         20A                                       
    D ##WRT                         20A                                       
    D ##RTCOD                        2A                                       
                                                                              
 /Free                                                                        
        ##FIR   = T1AFIR;                                                     
        ##KDN   = T1AKDN;                                                     
        ##ART   = *BLANKS;                                                    
        ##WRT   = *BLANKS;                                                    
        ##RTCOD = *BLANKS;                                                    
      MatchPgm(MatchParams);                                                  
 ===> *RNF7535 Art und Attribute von Parameter 1 stimmen nicht mit dem        
               Prototyp überein.                                              
 /end-free

Gruß

Tarki

[Fuerchau]

Matchparms hast du im Prototyp als 64 definiert, deine DS ist aber kürzer, ich komm da nur auf 49!

Mit Call by reference muss das schon genau stimmen.

Im Prototyp kannst du noch CONST angeben, dann erstellt der Compiler ein Hilfsvariable mit 64 stellen und kopiert die DS dann dahin vor der übergabe.

[tarkusch]

Schäme mich für diesen Fehler
Dankeschön.