RE: Suggestion for a new System Request option

Thanks Evan. Based on this information this is what I did.

I created a command called CNLRQS (cancel request) which checks for the
CNLRQS data area in QTEMP. If it is there it displays a menu and allows the
operator to select option 1 (End previous request) or option 2 (description
retrieved from the data area).  If option 1 is selected then I issue the
ENDRQS command. If option 2 then I set a flag in the data area and return.

In my setup program:
1.      Create a 36 byte data area in QTEMP called CNLRQS and set the first
35 bytes to the description ('End Search').
2.      Create a message file in QTEMP named CNLRQS
3.      Use MRGMSGF to copy CPX2313 to CNLRQS
4.      Change the description of CPX2313 to use CNLRQS instead of CNLRQS
5.      Use OVRMSGF to point to QTEMP/CNLRQS

The only problem I have is that when the user selects option 2 and presses
enter it returns to the System Request menu.

Albert York


        -----Original Message-----
        From:   Evan Harris [SMTP:spanner@ihug.co.nz]
        Sent:   Wednesday, December 11, 2002 10:41 AM
        To:     midrange-l@midrange.com
        Subject:        Re: Suggestion for a new System Request option

        Albert

        It is possible to alter the system request options so if you can
find one
        you don't need, you could alter it to do what you are suggesting.

        See here:


http://www-912.ibm.com/s_dir/slkbase.nsf/1ac66549a21402188625680b0002037e/01
84695b591ccb9f862565c2007d3358?OpenDocument&Highlight=0,system,request

        Regards
        Evan Harris

        >The System/36 used to have an option on the system request menu
which was
        >called something like 'Set latch flag'. All it did was turn on an
indicator
        >that you could test in your program. Then your program could take
the
        >appropriate action. I used it for ending long searches for example.
I would
        >really like to see something like that on the AS/400. Right now the
only
        >choice we have is to end the whole program, which is pretty heavy
handed.
        >
        >Here is what I suggest.
        >
        >1.      In your program, create a data area in QTEMP with a name
like
        >QSYSRQSOPT. It would be 51 bytes long. The first 50 bytes would
contain a
        >description (i.e. 'End Search').
        >2.      When the user presses System Request the description is
displayed as
        >an option.
        >3.      If the option is taken then the last byte of the data area
is set to
        >'1'.
        >4.      Your program could check the data area periodically. If the
flag is
        >set then it is time to cancel what it is doing.
        >
        >It seems like this wouldn't be too difficult to implement.
        >
        >Albert York

        _______________________________________________
        This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list
        To post a message email: MIDRANGE-L@midrange.com
        To subscribe, unsubscribe, or change list options,
        visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
        or email: MIDRANGE-L-request@midrange.com
        Before posting, please take a moment to review the archives
        at http://archive.midrange.com/midrange-l.