TFRJOB aus Startprogramm

[rmittag]

Es ist gut, dass die source des Startprogramms nicht bekannt ist. So können wir wieder fröhlich das "wir stochern mit der langen Stange im Nebel" spielen, was hier in den Foren besonders beliebt ist.

So geht es, wenn QPGMR das gewünschte sbs ist:

dcl  &intjobid    *char    16    ' '                                  
dcl  &qjob        *char    26    '*'                                  
dcl  &rcvvar      *char   256                                         
dcl  &sbs         *char    10                                         
                                                                      
call qUsrJobI (                                                      +
                &rcvVar      /* Receiving variable            */     +
                X'00000100'  /* Recv variable length (256)    */     +
                'JOBI0200'   /* API data format               */     +
                &qJob        /* Job name                      */     +
                &intJobId    /* Internal job identifier       */     +
              )                                                       
                                                                      
chgVar  &sbs  %SST( &rcvvar 63 10 )                                   

if (&sbs *ne 'QPGMR') then(do)
   strSbs sbsD(qpgmr)         
   monMsg cpf0000             
   tfrJob jobQ(qpgmri)        
   monMsg cpf0000             
endDo 

Rolf