Bruce Vining is someone who can make this work. If it has to be done, he is probably the path to the least cost. Not necessarily ‘cheap’, just ‘least cost’. Other paths will likely have higher costs.

Tom

1) F1 is currently enabled for the display file record formats (or you can enable it)
2) The application program (A) is not using F1

Then Yes — a new program (B) could provide online help support without requiring the actual application program (A) to be changed. This help support could, if desired, be field sensitive or generic and tied to the record format being worked with when F1 is used (again with no change to program A).

This is not a trivial task, but I have written such programs in the past as a contractor.

Bruce
Bruce Vining Services

That’s unimportant and generally irrelevant. It would only start a group job if your attention program told it to do so. While it might be helpful, a group job is a complication right now.

Also, how do I get the the program that is currently running (invocation stack).

Before even thinking to that degree, you probably should just start with seeing what an attention-program does and how it might affect the jobs that it runs in. Technically, we don’t know if they’re even workable in your environment. If one call be used effectively, the call stack will be reasonable.

Here’s a trivial beginning:

pgm


   monmsg    ( cpf0000 mch0000 ) exec( goto Std_Err )


   setatnpgm   Qsys/QCMD

   go          USER

Exit:
   /* Fall through for exit... */
Std_Err:

   setatnpgm   *PRVINVLVL
   monmsg    ( cpf0000 mch0000 )


   return

endpgm

Compile it and call it. You should see that the USER menu appears. You can take any of the menu options or run commands on the command line, e.g., DSPSYSSTS.

If you run a command such as DSPSYSSTS, press the

That behavior will continue until you exit the USER menu. At that time, the

Tom

I like the idea of using the attention key. How do I get the attention key to call a Group Program ? I don’t know what you mean here. Also, how do I get the the program that is currently running (invocation stack). Not familiar with how to do this either.
If I could see an example, I think it would be very helpful. Definitely would like to explore this idea.

Thanks for your thoughts.

Nick

The closest I can think you’ll come is to put all records with the same “screen name” into a document. Perhaps name each document the same as the “screen name”.

You would need to change the DDS for each screen to do something to call a program anyway. You might as well just change the DDS to reference a HLPDOC. This is one of the few things that documents and folders are still good for.

Tom

Another built in help method is using PANEL Groups. These allow you to create a screen that looks and feels like OS/400 Help. The panel group contains a help script.

Let us know how we can help further.
Phil

Thanks,

Nick

Thanks,

Nick