• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Remove Misleading Messages from Job Logs

    February 16, 2005 Hey Ted

    Job logs get too large in our shop, and it’s hard to find the information that helps us determine why a program went wrong. How can we reduce the size of our job logs? Specifically, how can we keep from writing messages that are not really errors? An example would be a CL command that we’ve monitored for that may or may not fail.

    –Mitch

    I understand your concern. I can think of a lot of more useful things to do with my time than wading through a job log of hundreds of pages. I am familiar with one application that fills the job with so many messages that the job log wraps twice before the job ends.

    The first thing I’d do is to make sure that CL program commands are not being logged. Logging commands may be helpful during development, but I can’t think of a single time when logging CL commands helped me during a production run.

    You’ve hit on something with your second question. It’s not uncommon in good CL programming to execute a command that may fail and, if it fails, to either ignore the error or pursue some other course of action. In the following code example, a work file may or may not already exist in QTEMP. If it exists, the file should be cleared. If it does not exist, the file should be created.

    CLRPFM     FILE(QTEMP/CUSTWORK)                             
    MONMSG     MSGID(CPF3142) EXEC(DO)                          
       CRTDUPOBJ  OBJ(CUSTOMER) FROMLIB(*LIBL) OBJTYPE(*FILE) + 
                    TOLIB(QTEMP) NEWOBJ(CUSTWORK)               
    ENDDO
    

    If the Clear Physical File Member (CLRPFM) command succeeds, the job log contains completion message CPC3101 (Member CUSTREC file CUSTWORK in QTEMP cleared).

    But if the command fails, the job log contains escape message CPF3142 (File CUSTWORK in library QTEMP not found). As you’re reading the job log, you have to pause and decide whether that message indicates an error. A job log full of such “non-error” messages can slow down your progress in tracking the cause of an abnormal job end.

    You can’t keep from writing such messages, but you can easily remove them from the job log. Use the Receive Message (RCVMSG) command, as the following example illustrates.

    CLRPFM     FILE(QTEMP/CUSTWORK)                             
    MONMSG     MSGID(CPF3142) EXEC(DO)                          
       RCVMSG     MSGTYPE(*EXCP) RMV(*YES)                      
       CRTDUPOBJ  OBJ(CUSTOMER) FROMLIB(*LIBL) OBJTYPE(*FILE) + 
                    TOLIB(QTEMP) NEWOBJ(CUSTWORK)               
    ENDDO
    

    You may want to do the same sort of thing in programs written in other languages. Here is an example from RPG.

    /free                                                          
         monitor;                                                   
            three = one / two;                                      
         on-error;                                                  
            three = *zero;                                           
         endmon;
    

    The programmer has decided not to halt the program if something goes wrong with the division operation, but to set variable THREE to zero and keep going. If TWO has a value of zero, escape message MCH1211 (Attempt made to divide by zero for fixed point operation) gets written to the job log.

    Use the Receive Program Message (QMHRCVPM) API to remove the unneeded escape message from the job log.

    D/copy prototypes,QMHRCVPM                                      
                                                                    
    D MsgInfo         s              8a                             
    D ErrorCode       s              8a   inz(x'0000000000001000')  
                                                                    
     /free                                                          
         monitor;                                                   
            three = one / two;                                      
         on-error;                                                  
            three = *zero;                                          
            QMHRCVPM (MsgInfo: %size(MsgInfo): 'RCVM0100':          
                     '*': *zero: '*EXCP': *blanks: *zero:           
                     '*REMOVE': ErrorCode);                         
         endmon;
    


    Here’s the prototype referred to in the /COPY directive.

    D QMHRCVPM        pr                  extpgm('QMHRCVPM') 
    D  MsgInfo                       8a                      
    D  MsgInfoLen                   10i 0 const              
    D  FormatName                    8a   const              
    D  CallStackEntr                10a   const              
    D  CallStackCtr                 10i 0 const              
    D  MsgType                      10a   const              
    D  MsgKey                        4a   const              
    D  WaitTime                     10i 0 const              
    D  MsgAction                    10a   const              
    D  ErrorStruct                        like(ErrorCode)
    

    –Ted

    Click here to contact Ted Holt by e-mail.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    Computer Keyes

    Fax Directly from your IBM i

    KeyesFax is a full function automated IBM i fax system. Spooled files are burst by fax number and auto transmitted with overlays.  It combines both a send and receive facsimile processing system with a complete image package.

    The fax software will edit, send, receive, display, print, and track fax documents or images using any standard IBM i without additional expensive hardware, software or subscriptions.

    Computer Keyes has been developing Software Solutions since 1978!

    www.computerkeyes.com

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Cybele Software Updates Legacy Modernization Tools Mirifex Delivers a BlackBerry Interface for Legacy Apps

    One thought on “Remove Misleading Messages from Job Logs”

    • John Everett says:
      November 30, 2018 at 12:34 pm

      This has probably come up since this was originally posted, but you can control this also by setting the Message logging Level and Severity:
      CHGJOB LOG(4 01 *SECLVL)

      Some combination of the method described in the article above and the LOG() parameters for the job should keep your job logs succinct and useful.

      Reply

    Leave a Reply Cancel reply

Volume 5, Number 7 -- February 16, 2005
THIS ISSUE
SPONSORED BY:

ProData Computer Svcs
iTera
Patrick Townsend & Associates

Table of Contents

  • OPNQRYF and ILE
  • Remove Misleading Messages from Job Logs
  • Admin Alert: Making a Remote Output Queue Look Like a Printer Device

Content archive

  • The Four Hundred
  • Four Hundred Stuff
  • Four Hundred Guru

Recent Posts

  • With Power11, Power Systems “Go To Eleven”
  • With Subscription Price, IBM i P20 And P30 Tiers Get Bigger Bundles
  • Izzi Buys CNX, Eyes Valence Port To System Z
  • IBM i Shops “Attacking” Security Concerns, Study Shows
  • IBM i PTF Guide, Volume 27, Number 26
  • Liam Allan Shares What’s Coming Next With Code For IBM i
  • From Stable To Scalable: Visual LANSA 16 Powers IBM i Growth – Launching July 8
  • VS Code Will Be The Heart Of The Modern IBM i Platform
  • The AS/400: A 37-Year-Old Dog That Loves To Learn New Tricks
  • IBM i PTF Guide, Volume 27, Number 25

Subscribe

To get news from IT Jungle sent to your inbox every week, subscribe to our newsletter.

Pages

  • About Us
  • Contact
  • Contributors
  • Four Hundred Monitor
  • IBM i PTF Guide
  • Media Kit
  • Subscribe

Search

Copyright © 2025 IT Jungle