CALLP + SBMJOB

[malzusrex]

so mal uff die schnelle, ohne das ich es getestet habe

h dftactgrp(*no) Option( *NoDebugIO )   bnddir('QC2LE')                
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes) 
                                                                       
d system          pr            10i 0 extproc('system')                
d                                 *   value options(*string)           
d                                                                      
d True            c                   *On                              
d False           c                   *Off                             
d                                                                      
d PGMName         s             10                                     
d JOBName         s             10                                     
                                                                       
c                                                                      
c                   CallP     System('sbmjob cmd(call pgm(' +          
c                                   %Trim(PGMName) + ') job(' +        
c                                   %Trim(JobName) + ')'         )     
c                   Eval      *InLr  = True 

gruß ronald