Attach AS400 Query (WRKQRY) on JDE Menu

mnarewec

Well Known Member
I just forgot how to setup /attach AS400 Query (WRKQRY) on JDE Menu. I have
created one already but I am trying to work out how did I get it done

Marsh
_________________________________
Marsh Rei Narewec
JDE400 Development, Training & Support
Steamships Computer Services
Papua New Guinea
Ph: (675) 322 0245



------------------------
JDE/400 7.3 00009
Papua New Guinea
Opinions or Post I express are not from my employer
 
The instructions below are from a page in the KG for placing an IBM
command on a menu. Job to Execute: J00CMD; Batch: 0 (zero); Option
Code: 1; Option Key: IBM command to be executed; Version: leave this
field blank to prompt the command (F4), or enter *NOPROMPT to execute
the command without prompting.





David Hambley, J.R. Wood, Inc. A7.3c10
Any opinions expressed are solely those of the sender.
 
Here is how to setup a menu option to execute the WRKQRY command.

00908 Revisions A J K DP
F
Action Code. . . I Menu Id. . . JIMR1 Lock .
Menu Title . . . Jim Rubino Menu # 2 Menu Level . .
Advanced/Tech. . Technical Ope
Menu Class . . . 3 Product Code 56
--------------------------------------
--------------------------------------
Selection. . . . 01 Description. Work Query
Job to Execute . J00CMD Batch. . . . 0 Highlight. 0 A J K DP
F
Menu to Execute. Help Inst Key Sel Lock .
Option Code. . . 3 Option Key . WRKQRY Version. .
Appl Override. . 98 Run Time Msg Cntry/Reg
1. Work Query 13.
2. Run a Query - F98301 14.
3. 15.
4. 16.
5. 17.
6. 18.
7. 19.
8. 20.
9. 21.
10. 22.
11. 23.
12. 24.
F4=Skip To F5=Updt w/Redisplay F6=Browse F18=Security Review
F9=Search


Jim Rubino
Senior Business Systems Analyst
FIKE CORPORATION
704 South 10th Street
Blue Springs, Mo. 64015
(816) 229-6216 Ext. 213
 
Thank you all. I created a CL Program with the following source

PGM
RUNQRY QRY(*LIBL/AUTSTKCNT) RCDSLT(*YES)
ENDPGM

And I was Able to attach the Program (object created -JAUTSTKCNT) to a Menu
Option. It works Fine.

Cheers

Marsh
_________________________________
Marsh Rei Narewec
JDE400 Development, Training & Support
Steamships Computer Services
Papua New Guinea
Ph: (675) 322 0245



------------------------
JDE/400 7.3 00009
Papua New Guinea
Opinions or Post I express are not from my employer
 
We created a Dream Writer program that could submit any query from any library (processing options). In addition we added a processing option to bring up record selection or not.
 
Back
Top Bottom