• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Monitor for Specific Messages in RPG

    May 2, 2007 Hey, Ted

    I have a CL program that calls another CL program and monitors for specific escape messages. No big deal. I put multiple Monitor Message (MONMSG) commands after the CALL. Suppose I want to call the second CL program from an RPG program. How do I monitor for the different errors?

    –Ray

    OK, Ray, let’s set this up for the readers. Let’s suppose your program, which we’ll call SOMEPGM, can return escape messages MYM2101 and MYM2105. A CL caller monitors for those messages like this:

    CALL       PGM(SOMEPGM) PARM(&whatever) 
    MONMSG     MSGID(MYM2101)  EXEC(DO)
    /* do something */
    ENDDO
    MONMSG     MSGID(MYM2105)  EXEC(DO)
    /* do something else */
    ENDDO
    

    In RPG programs, use the E extender when calling the program in order to trap the error. Then check positions 40 through 46 of the program status data structure to see which error you got. Here’s the code in fixed-format syntax.

    D psds           sds              
    D  MsgID                 40     46
    D  ExceptData            91    170
    
    C                   call(e)   'SOMEPGM'        
    C                   parm                    whatever
    C                   if        %error            
    C                   select                      
    C                   when      MsgID = 'MYM2101' 
    C************* do something 
    C                   when      MsgID = 'MYM2105' 
    C************* do something else
    C                   endsl                       
    

    Here is the same example in free-format RPG.

    D psds           sds              
    D  MsgID                 40     46
    D  ExceptData            91    170
    
    D SomePgm        pr                  extpgm('SOMEPGM')
    D   Whatever                     1a                     
    
    /free                             
         callp(e) SOMEPGM (whatever);   
         if %error;                    
            select;                    
               when MsgID = 'MYM2101'; 
                  // do something
               when MsgID = 'MYM2105'; 
                  // do something else
            endsl;                  
         endif;                     
    

    In case you’re interested, the text of the error message is also in the program status data structure. You’ll find it in positions 91 through 170. You can often help the user by writing this message text to an error subfile record or to a printed report.

    –Ted



                         Post this story to del.icio.us
                   Post this story to Digg
        Post this story to Slashdot

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    VISUAL LANSA 16 WEBINAR

    Trying to balance stability and agility in your IBM i environment?

    Join this webinar and explore Visual LANSA 16 – our enhanced professional low-code platform designed to help organizations running on IBM i evolve seamlessly for what’s next.

    🎙️VISUAL LANSA 16 WEBINAR

    Break Monolithic IBM i Applications and Unlock New Value

    Explore modernization without rewriting. Decouple monolithic applications and extend their value through integration with modern services, web frameworks, and cloud technologies.

    🗓️ July 10, 2025

    ⏰ 9 AM – 10 AM CDT (4 PM to 5 PM CEST)

    See the webinar schedule in your time zone

    Register to join the webinar now

    What to Expect

    • Get to know Visual LANSA 16, its core features, latest enhancements, and use cases
    • Understand how you can transition to a MACH-aligned architecture to enable faster innovation
    • Discover native REST APIs, WebView2 support, cloud-ready Azure licensing, and more to help transform and scale your IBM i applications

    Read more about V16 here.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    COMMON:  Join us at the Annual 2008 conference, March 30 - April 3, in Nashville, Tennessee
    Seagull Software:  Web-enable your System i apps with LegaSuite GUI
    VAULT400:  Securely archive data with Instant Back-Up & 24x7 Recovery

    IT Jungle Store Top Book Picks

    The System i Pocket RPG & RPG IV Guide: List Price, $69.95
    The iSeries Pocket Database Guide: List Price, $59.00
    The iSeries Pocket Developers' Guide: List Price, $59.00
    The iSeries Pocket SQL Guide: List Price, $59.00
    The iSeries Pocket Query Guide: List Price, $49.00
    The iSeries Pocket WebFacing Primer: List Price, $39.00
    Migrating to WebSphere Express for iSeries: List Price, $49.00
    iSeries Express Web Implementer's Guide: List Price, $59.00
    Getting Started with WebSphere Development Studio for iSeries: List Price, $79.95
    Getting Started With WebSphere Development Studio Client for iSeries: List Price, $89.00
    Getting Started with WebSphere Express for iSeries: List Price, $49.00
    WebFacing Application Design and Development Guide: List Price, $55.00
    Can the AS/400 Survive IBM?: List Price, $49.00
    The All-Everything Machine: List Price, $29.95
    Chip Wars: List Price, $29.95

    Proginet Partners with Canadian System i Reseller BCD Bringing PHP Generation to WebSmart IDE

    Leave a Reply Cancel reply

Volume 7, Number 17 -- May 2, 2007
THIS ISSUE SPONSORED BY:

Help/Systems
Vision Solutions
WorksRight Software

Table of Contents

  • Monitor for Specific Messages in RPG
  • Overcome the Page Control Limitations of iSeries Access Printer Emulation Sessions
  • Admin Alert: Dealing with i5 Critical Storage Errors,

Content archive

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

Recent Posts

  • 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
  • Meet The Next Gen Of IBMers Helping To Build IBM i
  • Looks Like IBM Is Building A Linux-Like PASE For IBM i After All
  • Will Independent IBM i Clouds Survive PowerVS?
  • Now, IBM Is Jacking Up Hardware Maintenance Prices
  • IBM i PTF Guide, Volume 27, Number 24

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