Posts

Showing posts from September, 2018

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   ...