× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi Phil -

I think your problem is that you need a "?" in front of your command:

I       '?CHGJOB(' (etc.)

otherwise, you will only see the fields you have specified in your command.

Also, note that "??" in front of a parameter means that the user can
modify it.
"?*" means that the user will see it, but it will be read-only; "?-" means
that it will be invisible to the user.

(Thanks to Brian Meyers and Dan Riehl and their book "Control Language
Programming for the AS/400"
-- p. 302 -- for a clear explanation of how this works. . . .)


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com


MIDRANGE-L@midrange.com writes:
>Peter, F9 didn't bring up the F10 parameters. The existing program is an
>RPG program that takes the following:
>
>     I              'DSPJOB JOB('         C        DSP                
>     I              'CHGJOB JOB('         C        CHG1               
>     I              '??JOBPTY() ??OUTPTY(-C        CHG2               
>     I              ') ??PRTDEV() ??OUTQ-                             
>     I             ')'                                                
>     I              'ENDJOB JOB('         C                         
>             
>
>and then runs a home grown command that displays USer jobs. When the '2'
>is hit CHGJOB gets invoked:
>
>    C                     MOVE *BLANKS   CHGCMD 80            
>    C           CHG1      CAT  JNBR:0    CHGCMD               
>    C           CHGCMD    CAT  '/':0     CHGCMD               
>    C           CHGCMD    CAT  JUSR:0    CHGCMD               
>    C           CHGCMD    CAT  '/':0     CHGCMD               
>    C           CHGCMD    CAT  JNME:0    CHGCMD               
>    C           CHGCMD    CAT  ')':0     CHGCMD               
>    C           CHGCMD    CAT  CHG2:1    CHGCMD               
>    C                     CALL 'QCMDEXC'              80      
>    C                     PARM           CHGCMD               
>    C                     PARM 80        LEN    155           
>    C                     ELSE     
>
>But what happens is that on this CHGJOB, there is no F10.
>
>Thanks (also to AL),
>
>Phil                           
>MIDRANGE-L@midrange.com wrote:
>> 



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.