• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Monitoring for System Request Menu Option 2

    October 27, 2004 Hey, Ted

    As part of our Sarbanes-Oxley compliance requirements, I have to write a CL program that temporarily changes the user’s user profile. (Adopted authority is not appropriate in this case.) One concern I have is that the program may end without executing the code that undoes the temporary change. I can use a global Monitor Message (MONMSG) command to trap unexpected errors and prevent an abnormal termination, but I also need to prevent the user from canceling the program by taking option 2 of the System Request menu. Is there a way to disable that option?

    –Paul

    The options that are executed from the System Request menu are stored in message CPX2313 of message file QCPFMSG. There’s no reason why you can’t modify or override the message so that option 2 executes some command other than End Request (ENDRQS), but I don’t recommend it. Let me suggest another approach.

    If your program is a request-processing program, choosing option 2 from the System Request menu will cause your program to receive escape message CPF1907. By monitoring for this message, you will have complete control over the program and can handle the interruption as you please. Your request-processing program will also handle ENDRQS commands from called programs, unless they, too, are request-processing programs.

    To make a program process requests, include the following commands.

    sndpgmmsg msg('Request msg') topgmq(*ext) msgtype(*rqs)
    rcvmsg    pgmq(*ext) msgtype(*rqs) rmv(*no)
    

    There’s nothing magical about the contents of the MSG parameter in the SNDPGMMSG command. I use something that can’t be mistaken for a real command.

    Put the messages at the top of the program, after the global MONMSG. In this way, you will be setting the program to trap the ENDRQS command from the start.


    Here’s a short program by way of example. I hope it helps.

    pgm
    
    monmsg cpf0000 exec(goto CleanUp)
    
    sndpgmmsg msg('Rqs msg') topgmq(*ext) msgtype(*rqs) 
    rcvmsg pgmq(*ext) msgtype(*rqs) rmv(*no)
    
    call SecPgm1 
    call SecPgm2
    
    CleanUp: 
    /* clean up processing goes here */
    endpgm
    

    To learn more about request-processing procedures and programs, see the CL Programming manual at IBM’s iSeries Information Center.

    –Ted

    Click here to contact Ted Holt by e-mail.

    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

    New BOSaNOVA Tool Integrates iSeries Data with Windows, Office iSeries High Availability Should Be Integrated and Invisible

    Leave a Reply Cancel reply

Volume 4, Number 36 -- October 27, 2004
THIS ISSUE
SPONSORED BY:

WorksRight Software
Advanced Systems Concepts
Guild Companies

Table of Contents

  • Sending E-Mail from RPG, Take Two
  • Spool Control Authority Is a Security Risk
  • Monitoring for System Request Menu Option 2

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