CALLP + SBMJOB

[muadeep]

und wie kann ich jetzt da parameter für den Programmaufruf mit übergeben?

cALLP  xxxxxxCL
PARM   FELD1
PARM   FELD2
PARM   FELD3
PARM   FELD4 

[malzusrex]

c                   CallP     System('sbmjob cmd(call pgm(' +          
c                                   %Trim(PGMName) + ')  ' +           
c                                   ' Parm(''' + %Trim(Feld1) + '''' + 
c                                   '))  job(' +                       
c                                   %Trim(JobName) + ')'         ) 

etwa so in der art. am besten ist du testet das mal aus. oder nim en befehl vorher auf eine variable

c                   Eval      CMD =  'sbmjob cmd(call pgm(' +          
c                                   %Trim(PGMName) + ')  ' +           
c                                   ' Parm(''' + %Trim(Feld1) + '''' + 
c                                   '))  job(' +                       
c                                   %Trim(JobName) + ')'               
c                                                                      
c                   CallP     System( cmd )                            
c                                                                      
c                   Eval      *InLr  = True 

gruß ronald

[muadeep]

So, hab das ganze mal versucht umzusetzen:

c                   Eval      CMD =  'SBMJOB CMD(CALL PGM(EXPEREMCL)' +
c                                   ' PARM(''' + %Trim(Von    ) + ''' +
c                                          ''' + %Trim(An     ) + ''' +
c                                          ''' + %Trim(AntwAn ) + ''' +
c                                          ''' + %Trim(Betref ) + ''' +
c                                          ''' + %Trim(Attach ) + ''' +
c                                          ''' + %Trim(TranBi ) + ''' + 
c                                          ''' + %Trim(JDebug ) + '''' +
c                                   ')) +                               
c                                   JOB(EXCELMAIL) JOBQ(QBATCH) +       
c                                   JOBD(QDFTJOBD) JOBPTY(5) +          
c                                   HOLD(*YES)'                         
c                   CallP     System(CMD) 

Der Job wird jetzt auch prima per SBMJOB übertragen!
Nach dem ich diesen "freigegeben" habe erhalte ich eine Fehlermeldung!

Wenn ich diesen Job(SBMJOB) debug'e(STRDBG), dann
stelle ich fest, daß in dem aufgerufenen CL-Pgm. die Parameter
nicht richtig übergeben werden!

CL:

PGM        PARM(&VON &AN &ANTWAN &BETREF &ATTACH +    
                         &TRANBI &JDEBUG)
DCL        VAR(&VON   ) TYPE(*CHAR) LEN(50) 
DCL        VAR(&AN    ) TYPE(*CHAR) LEN(50) 
DCL        VAR(&ANTWAN) TYPE(*CHAR) LEN(50)
DCL        VAR(&BETREFF) TYPE(*CHAR) LEN(50)
DCL        VAR(&ATTACH) TYPE(*CHAR) LEN(50)
DCL        VAR(&TRANBIN) TYPE(*CHAR) LEN(4)
DCL        VAR(&JDEBUG) TYPE(*CHAR) LEN(4) 

d.h. in der Variablen "&Von" steht noch ein Teil von der Variablen "&AN", etc.

es sollte eigentlich so sein(ausschauen):

&VON       = 'HUBER                   '
&AN        = 'MAIER                   '
&ANTWAN    = 'XYZ                     ' 

ist aber leider so:

&VON       = 'HUBER      MAIER        '
&AN        = 'MAIER      XYZ          '
&ANTWAN    = 'XYZ      .....          ' 

was mache ich da nu wieder falsch?
.

[Fuerchau]

Wie immer das selbe Problem !
Bei der Parameterübergabe ist die Felddefinition GENAU einzuhalten.
Lass also das %TRIM weg, da du damit die Felder doch verkürzt !!!

Im CL-Handbuch steht doch, wie Parameter an eine Programm durch das CMD "CALL" übergeben werden:
- Zeichenketten in der angegebenen Länge, mindestens jedoch 32 Zeichen
- Zahlen immer gepackt in 15,5

Wenn du also 50 Zeichen erwartest, musst du auch 50 Zeichen übergeben.