× 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.


  1.  Home
  2. MIDRANGE-L
  3. August 2000

Re: Re: CHGJOB from a CL pgm.

  • Subject: Re: Re: CHGJOB from a CL pgm.
  • From: "Peter Dow" <pcdow@xxxxxxxxx>
  • Date: Mon, 14 Aug 2000 12:27:24 -0700
 
Hi Phil,

Fascinating. I didn't realize that. Just to quickly try that out, I put in a
PDM option and tried it:

 Option  Command
   T1    chgjob job(abc) ??jobpty() ??outpty() ??prtdev() ??outq()

and just as you said, F9 doesn't do anything, nor does F10.

However, if you change it to

 Option  Command
   T1    ?chgjob job(abc) ??jobpty() ??outpty() ??prtdev() ??outq()

F10 shows up in the command text, and F9 also works as I mentioned.

Learn something new every day, especially from this list. Thanks!

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax



----- Original Message -----
From: <pike4@ix.netcom.com>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, August 14, 2000 8:06 AM
Subject: Re: Re: CHGJOB from a CL pgm.


> 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:
> >
>
>
>
>
>
>
> Try F9. Whether displayed as a possible function key or
> not, F9 will bring up *all* additional parameters, whether relevant or
> not.
>
> Peter Dow
> > Dow Software Services, Inc.
> > 909 425-0194
> voice
> > 909 425-0196 fax
>
>
>   ----- Original Message -----
>   From:
>   <A TARGET="Link" href="mailto:pike4@ix.netcom.com"
title=pike4@ix.netcom.com>Phil
>   Kestenbaum</A>
>   To: <A TARGET="Link"
>   href="mailto:MIDRANGE-L@midrange.com"
>   title=MIDRANGE-L@midrange.com>MIDRANGE-L@midrange.com</A>
>   Sent: Sunday, August 13, 2000 8:25
>   PM
>   Subject: Re: CHGJOB from a CL pgm.
>
> >
>   What is happening with CHGJOB when prompted for
>   in this manner, is that it displays only one screen ( the first one),
and does
>   not show F10, which is additonal parameters.
>   Phil
>
>     ----- Original Message -----
>     From:
>     <A TARGET="Link" href="mailto:barsa2@ibm.net" title=barsa2@ibm.net>Al
Barsa, Jr.</A>
>
>     To: <A TARGET="Link"
>     href="mailto:MIDRANGE-L@midrange.com"
>     title=MIDRANGE-L@midrange.com>MIDRANGE-L@midrange.com</A>
>     Sent: Friday, August 11, 2000 12:13
>     PM
>     Subject: Re: CHGJOB from a CL
> pgm.
>
> > At 02:36 PM 8/11/00 -0400, you wrote:
> >
> >
>     HI -
> > There is a way in CL to display to
>       the user, the command CHGJOB, and the program can prefill in certain
>       values, pertaining to the user. However, it seems to only show the
first
>       screen only of the CHGJOB command, and not everything ( does not
allow
>       F10, which would bring up more). Is this a limitation, or am I
missing
>       something?
> > There is a technique in the command prompter
>     called "selective prompting". The CL Programming Book
> says:
> >
> >
> >
>     6.5.2 Selective Prompting for CL
>       Commands
> >
> >
> >
> >
> > You can request to prompt for selected
>       parameters within a command. This is especially helpful when you are
using
>       some of the longer commands and do not want to
> > be prompted for certain
>       parameters.
> >
> > Selective prompting can be used during interactive
>       prompting or entered as source (in SEU) for use within a CL
procedure or
>       program. You can enter the source for
> > selective prompting with SEU but
>       you cannot use selective prompting while entering commands in SEU.
>
> >
> > You can use selective prompting to:
>
> >
> > Select the parameters for which prompting
>       is needed.
> >
> > Determine which parameters are
>       protected.
> >
> > Omit parameters from the
>       prompt.
> >
> >
> >
> >
> > The following restrictions apply to selective
>       prompting:
> >
> > The command name or label must
>       be preceded by a ? (question mark):
>
> >
> > When one or
>       more of the selective prompt options is ?- (question mark, minus).
>
> >
> > To avoid
>       getting a CPF6805 message (a message that indicates a diagnostic
problem
>       on the command although compilation is successful)
>
> >
> >
> >
> >
> > Parameters can be specified
>       by position but they cannot be preceded by selective prompt
characters.
>
> >
> > A parameter must be in keyword form to be
>       selectively prompted for.
> >
> > Blanks cannot
>       be entered between the selective prompt characters and the keyword.
>
> >
> > Selective prompting is only applicable at
>       a parameter level; that is, you cannot specify particular keyword
values
>       within a list of values.
> >
> > ?- is not
>       allowed in prompt override programs.
> >
> > If a
>       parameter is required, the ?? selective prompt must be used.
>
> >
> > You can tell that a parameter is required
>       because the input slot is highlighted when the command is prompted.
>
> >
> >
> >
> >
> > User-specified values are marked with a special symbol
>       (>) in front of the values in both selective and regular prompting.
If
>       a user-specified value on the parameter
> > prompt is not preceded by this
>       symbol, the command default is passed to the command processing
program.
>
> >
> > If PASSATR(*YES) is specified on the PARM, ELEM, or QUAL command
>       definition statement, and the default value is changed using the
>       CHGCMDDFT
> > command, the default value is shown as a user-specified value
>       (using the > symbol) and not a default value. If a default value of
a
>       changed PARM, ELEM, or QUAL
> > command definition statement is changed
>       back to its original default value, the > symbol is removed.
>
> >
> > You can press F5 while you are using selective prompting to again
>       display those values initially shown on the display.
> >
> > If a CL
>       variable is used to specify a value for a parameter which is to be
>       displayed through selective prompting, you can change the value on
the
>       prompt, and the
> > changed value is used when the command is run. The
>       value of the variable in the procedure or program is not changed. If
a CL
>       procedure contains the following:
> >
> > OVRDBF
>       ?*FILE(FILEA) ??TOFILE(&FILENAME) ??MBR(MBR1)
> >
> >
> >
> > the
>       three parameters, FILE, TOFILE, and MBR is shown on the prompt
display.
>       The value specified for the FILE parameter cannot be changed by you,
but
>       the values
> > for the TOFILE and MBR parameters can be changed. Assume
>       that the CL variable &FILENAME has a value of FILE1, and you change
it
>       to FILE2. When the
> > command is run, the value of FILE2 is used, but the
>       value of &FILENAME is not changed in the procedure. The following
>       tables list the various selective prompting
> > characters and the
>       resulting action.
> >
> >
>       _____________ ______________ ______________ ______________
>       _____________
> >
>       |
>       |
>       |
>       | Value Passed
>       |
>       |
> >
>       |
>       |
>       |
>       | to CPP if
>       |
>       |
> >
>       |
>       | Value
>       |
>       | Nothing | Marked with |
> > |
>       You Enter | Displayed |
>       Protected | Specified | >
>       Symbol |
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ??KEYWORD() | Default |
>       No |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ??KEYWORD(VA|UValue |
>       No |
>       Value |
>       Yes |
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?*KEYWORD() | Default |
>       Yes |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?*KEYWORD(VA|UValue |
>       Yes |
>       Value |
>       Yes |
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?<KEYWORD() | Default
>       | No |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?<KEYWORD(VA|UValue |
>       No |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?/KEYWORD() | Default |
>       Yes |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?/KEYWORD(VA|UValue |
>       Yes |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?-KEYWORD() |
>       None |
>       N/A |
>       Default |
>       N/A |
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?-KEYWORD(VA|UNone |
>       N/A |
>       Value |
>       N/A |
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?&KEYWORD() | Default
>       | No |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?&KEYWORD(VA|UValue |
>       No |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > | ?%KEYWORD() | Default |
>       Yes |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> > |
>       ?%KEYWORD(VA|UValue |
>       Yes |
>       Default |
>       No |
>
> >
>
|_____________|______________|______________|______________|_____________|
>
> >
> >
> >
>     +--------------------------------------------------+
>     | Please do not send private mail to this address. |
>     | Private mail should go to
>     barsa@ibm.net. |
>     +--------------------------------------------------+
> >
>     Al Barsa, Jr. - Account for Midrange-L
>     Barsa Consulting, LLC.
>     400 > 390
> >
>     Phone: 914-251-1234
>     Fax: 914-251-9406
>     <A TARGET="Link" href="http://www.barsaconsulting.com/"
>     EUDORA="AUTOURL">http://www.barsaconsulting.com</A><A TARGET="Link"
>     href="http://www.taatool.com/"
EUDORA="AUTOURL">http://www.taatool.com</A>
>
>
> +---
> | 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
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
+---
| 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.