I am working on one automated tool.
In my tool I have one panel, rexx code and then skeletons.
High level View: In my rexx code , whatever value we are going to store in the table form thru the panel. And then rexx code doing file tailoring on the skeleton for all the records in the table.
And after that if I press F3 then only my code is going to execute and output is going to generate.
My requirement is like on pressing any function key like F4 it will execute the code and come out of the panel.
Current Scenario:
But rt now after entering the values in the panel and i have to press F3 to create the output and to come out of the panel.
Can anyone please help me in coding that by pressing any function key it execute the code and exit from the panel ?
After the panel has been displayed, you can enter information and press the Enter key. All input fields are automatically stored into dialog variables of the same name, and the )PROC section of the panel definition is then processed. If any condition occurs that causes a message to be displayed (verification failure, MSG=value condition in a TRANS, or explicit setting of .MSG), processing continues to the )HELP or )END section. The )REINIT section is then processed if it is present. The panel is then redisplayed with the first, or only, message that was encountered.
When the user presses the Enter key again, all input fields are stored and the )PROC section is again processed. This sequence continues until the entire )PROC section has been processed without any message conditions being encountered. The panel display service finally returns, with a return code of 0, to the dialog function that invoked it.
Alternatively, when a panel is displayed, the user can enter a CANCEL, END, EXIT, or RETURN command. If the input fields are not in a scrollable area, they are stored and the )PROC section is processed. In scrollable areas, only the input fields that have been displayed will be stored. No messages are displayed, even if a MSG condition is encountered. The panel display service then returns to the dialog function with a return code of 8.
So, the user can press enter, which is usually done to process the panel, receive the zero return-code from the DISPLAY service, and continue through the processing. Otherwise, the use can use the END or CANCEL or EXIT commands to receive the non-zero return-code from the DISPLAY service and return back to the calling program code.
ISPF users are not usually accustomed to using non-standard PF keys to accomplish a specific task. You shouldn't require a user to change their PFK command settings just to match your application.
If neither of the standard options are useful, I usually add a command-line function such as CONFIRM or GO or RUN, and then on the return-code value of zero, check the value of the ZCMD variable and go from there.
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
Well, the procedure will pretty much be this:
1. Retrieve and store the user's current settings for PF3 and PF4.
2. Change the user's setting for PF3 and PF4 to a standard ISPF command (END works nicely).
3. Display the panel, but instead of checking for the return-code value, instead check for the value of your pfkey variable (the variable you assigned in the )Proc section of the panel).
4. Take the appropriate action.
5. Before you end, make sure you restore the user's original PF Key settings.
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
Quote:
2. Change the user's setting for PF3 and PF4 to a standard ISPF command (END works nicely).
...
5. Before you end, make sure you restore the user's original PF Key settings.
I disagree with that approach because typically they are global changes. Your split screen session will be affected. Also, those keys can be customized by the user... you should not replace my customization even if only for the duration of the panel.
I suggest:
1. define a keylist with F4=PROCEED
2. alter your panel to refer to the keylist
3. in your rexx, check ZCMD for 'PROCEED'
