Parameterübergabe CL/RPG

[mott]

Hallo!

Ich habe folgendes Problem: Wenn ich in einem CL-Programm ein RPG-Programm mit einem CALL aufrufe, funktioniert das RPG-Programm. Wenn ich das RPG-Programm aber mit einem SBMJOB aufrufe, dann bricht das RPG-Programm mit einem Dezimaldatenfehler ab. An das RPG-Programm werden mehrere Parameter übergeben. Das RPG Programm hat dann ein Problem mit den Parametervariablen (=Dezimaldatenfehler).

CL-Programm (MGLBIC02)

PGM                                                     
               DCLF       FILE(MGLBIB02)                    
    RTVJOBA    JOB(&B1WSID)                               
  /*=======================*/
 START:      SNDRCVF    RCDFMT(MGLBIB00)                
   IF        COND(&IN03 = '1') THEN(RETURN)             
  /*=======================*/
   SBMJOB     CMD(CALL PGM(MGLBIR02) PARM(&B1JAHR &B1ZTAG +     
                          &B1ZMON &B1ZJAR &B1BTRG)) JOB(BIOARGE) 
                          JOBD(QBATCH)                           
  /*=======================*/
ENDE: ENDPGM 

RPG-Code (MGLBIR02)

D  P_Jahr         S              4  0                  
D  P_ZahlTag      S              2  0                  
D  P_ZahlMonat    S              2  0                  
D  P_ZahlJahr     S              4  0                  
D  P_Betrag       S              6  2               
   :
   :
C     *ENTRY        PLIST                               
C                   PARM                    P_Jahr      
C                   PARM                    P_ZahlTag   
C                   PARM                    P_ZahlMonat 
C                   PARM                    P_ZahlJahr  
C                   PARM                    P_Betrag 

Was mir noch aufgefallen ist: Wenn ich das Jobprotokoll des Batchjobs ansehe, dann steht da folgendes (man beachte die Parameter):

CALL PGM(MGLBIR02) PARM(2065 31 12 2005 1,21) 

Hat jemand eine Erklärung dafür, dass das RPG-Programm mit dem direkt CALL-Befehl funktioniert und mit SBMJOB fehlschlägt?`

Vielen Dank im Voraus für etwaige Antworten!
Michi

[Fuerchau]

Beim Direkt-Call werden die Adressen der Variablen übergeben.
Beim SBMJOB müssen die Variablen als Text übergeben werden. Sind diese dann nicht in Hochkommata interpretiert der Befehl CALL die Parameter:
- Zeichenvariablen in der angegebenen Länge, mindestens jedoch 32 Zeichen
- Numerische Werte immer im Format Packed 15,5
Du musst also die Parameter korrekt aufbereiten (Als Zeichen) in Hochkomma !

[Rincewind]

Oder du übergibst die Werte in Hex (wenn es immer dieselben Sind)

Gruß
Rince

[Fuerchau]

Das scheint wohl eher nicht der Fall zu sein
Siehe SNDRCVF im CLP.

[BenderD]

Hallo,

als Objekt zur Beschreibung von Parametern sind auf der AS400 Commands vorgesehen. Wenn man einen eigenen Command erstellt und als CPP das aufzurufende Programm festlegt, kann man den exakten Typ jedes Parameters überschreiben.
The /38 Way to hell war: den kompletten Aufruf in einen String reinbasteln und beim SBMJOB in RQSDTA übergeben.

mfg

Dieter Bender

Beim Direkt-Call werden die Adressen der Variablen übergeben.
Beim SBMJOB müssen die Variablen als Text übergeben werden. Sind diese dann nicht in Hochkommata interpretiert der Befehl CALL die Parameter:
- Zeichenvariablen in der angegebenen Länge, mindestens jedoch 32 Zeichen
- Numerische Werte immer im Format Packed 15,5
Du musst also die Parameter korrekt aufbereiten (Als Zeichen) in Hochkomma !