AS400: RPGLE - Get the job attribute and Trap Error using Monitor

-
This program will check if a job is active, If active it will give the status of the job.

D eFlag             S              1       
DQusrJobi         PR                  EXTPGM('QUSRJOBI')   
DRcvVar                      32766A   options(*varsize)     
DRcvVarLen                      10I 0 const                 
DFormat                             8A   const                 
DQualJob                          26A   const                 
DInternJob                        16A   const                 
D vQualjob        DS               
D  Vjob                            10 
D  vUser                          10 
D  vjNbr                            6 
Ddsjob              ds               
D jobvar                   1     50 
D jobStat                51     60 
D JobAStat           108    111 
D                     sds               
D MsgId                  40     46 
D ExceptData         91    170 

/Free
   vJob = 'RBCPTY1Q01';                                               
 vUser = 'RBTUSERX';                                               
 vJnbr = '823061';                                                 
 Monitor;                                                           
 callp Qusrjobi(dsjob:%size(dsjob):'JOBI0200':vQualjob:*blanks);   
 On-Error;                                                         
  If MsgId = 'CPF3C53';                                             
   EFlag = 'Y';                                                     
  EndIf;                                                           
 EndMon;                                                           
 return;                                                           
/End-Free             


If the job is not active (CPF3C53) the program will go to On-Error  and set the eFlag. If active the status of the job in JobAStat Like (MSGW, RUN, etc). jobStat will be *ACTIVE, JOBQ etc of active
                                       

Comments

Post a Comment

Popular posts from this blog

AS400 : Add a new line in text in email SNDSMTPEMM

-
Declare  ** NAMED CONSTANTS FOR CARRIAGE RETURN  Which will move the control to next line                      D CR              C                   CONST(X'0D')                  //0->Zero D vSepj           S              1    Inz('/')   D vQot            S              1    INZ('''')  DRunCommand       PR                  extpgm('QCMDEXC')                D pCommand                    2560    const                  ...
Read more

AS400 Display File: Check Box (MLTCHCFLD)

-
Check box can be added to the AS400 Display using the Multi Choice Field. Each Choice in the MLTCHCFLD should have a Choice control defined as below. These Choice Control can be used in the Program logic. A            MOPT           2Y 0B  3 58MLTCHCFLD               A                                      CHOICE(1 'Shipment')     A                                      CHOICE(2 'Transfer')     A                                      CHOICE(3 'Ship to ')     A                                   ...
Read more

AS400 Display: Radio Button (SNGCHCFLD)

-
Radio button can be added to the AS400 Display. In the below code we have added a Radio button with 2 option 'Today' or 'Tomorrow' DSPF: A            OPTION         2Y 0B  3 42SNGCHCFLD           A                                      CHOICE(1 'Today')   A                                      CHOICE(2 'Tomorrow') The OPTION can be used used in RPG program as PGM:   If Option =  1 ;                    Msg = 'Today';               ElseIf Option = 2 ;                Msg = 'Tomorrow';           EndIf;           ...
Read more