Zitat Zitat von andreaspr@aon.at Beitrag anzeigen
Da du keine genauen angaben gemacht hast, welche Art von Erfahrungen du für die Parameter meintest, bin ich davon ausgegangen, dass du eventuell die Definitionen der Parameter im Prototyp gemeint haben könntest, denn die Beschreibungen der Parameter selbst ist ja im Link beschrieben.
Deshalb meine Beschreibung wie sowas aussehen kann.

Um es konkret zu machen:

Habe den Aufruf von QDBRPLAY wie folgt definiert:
Code:
**-- Replay Database Operation: ---------------------------------------
D ReplayDb        PR                  ExtPgm( 'QDBRPLAY')              
D  RplTplVar                 32767a   Const  Options( *VarSize )       
D  RplTplVarLen                 10i 0 Const                            
D  RplTplName                    8a   Const                            
D  RplDta                    32767a   Const  Options( *VarSize )       
D  RplDtaLen                    10i 0 Const                            
D  RplExtPgm                 32767a   Const  Options( *VarSize )       
D  RplError                  32767a          Options( *NoPass: *VarSize )
Der Templateparameter ist eine DS:
Code:
**-- QDBRPLAY - Input Template:
                                                   
D DBRR0100        Ds                                
D                                     Qualified     
D    JrnCde                      1a                 
D    EntTyp                      2a                 
D    ExtPgmNam                  10a   Inz( '*NONE' )
D    ExtPgmLib                  10a   Inz           
D    DisablTrg                   1a   Inz( '0' )    
D    Reserv                     10a
Der Rename exit program scratchpad-Parameter ist auch eine DS:
Code:
**-- Rename Exit Program Parameter:                                                           
D REPP            Ds                                      
D                                     Qualified           
D    PrmLen                     10i 0 Inz( %Size( REPP ) )
D    LenObjNam                  10i 0 Inz( 10 )           
D    LenObjLib                  10i 0 Inz( 10 )           
D    ObjTyp                     10i 0 Inz( 3 )            
D    ObjNam                    258a                       
D    ObjLib                    258a                       
D    Reserv                     10a
Der AUfruf erfolgt mit:
Code:
c                   Callp(e)  ReplayDB( DBRR0100         
c                                     : %Size( DBRR0100 )
c                                     : 'DBRR0100'       
c                                     : JDEntDta         
c                                     : JDEntDtaLen      
c                                     : REPP             
c                                     : ApiError )
Nach dem Aufruf bekomme ich
Code:
CPF3C3B
Value for parameter &2 for API &1 not valid.

Da liegt mein Problem