RE: 15,5 Revisited (Was Call Query)

There is an API to change the user id of a job.  Why not do that?

I think that you must be calling the validity checker without calling the
command.  Is there a reason for that?

Why not pass the number like this: CALL CLPPGM '000001' (five zeros and a
digit one with the single quotes) to a CL program then have the CL program
do a CHGVAR into a DCL &NUM *DEC (6 0) then call the RPG program CALL RPGPGM
&NUM?

Create a new command RUNVLDCKR to run just the validity checker.  The new
command accepts a numeric value.  Then run the command "RUNVLDCKR
THENUMBER(1)".

I don't know you well enough to impugn your skills.  Please don't take
offense.  There will always be that one case where you have to call a
program effectively from the command line.  But this isn't that one case.

If you can't finesse a solution, use a bigger hammer.  Programming can be a
creative art form but Leonardo da Vinci still used a mallet when carving his
statues.  Unless there are more conditions, I don't see why you have to use
a 15,5 in this case.

Richard Jackson
mailto:richardjackson@richardjackson.net
http://www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-|-----Original Message-----
-|From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
-|Behalf Of booth@martinvt.com
-|Sent: Thursday, October 26, 2000 11:42 AM
-|To: RPG400-L@midrange.com
-|Subject: RE: 15,5 Revisited (Was Call Query)
-|
-|
-|The most recent particular problem was with a Visual Age RPG program.
-|Using a regular Call with numeric parms is ok, but that means the AS/400
-|sees the called program's user as QUSER which isn't OK in the particular
-|application.  Therefore I had to use QCMDDDM for the call which becomes
-|the same thing as a command line call.  The RPGIV program is a validity
-|checking program and expects a parm of 6/0.  Since I am just a good
-|programmer, not an excellent or great programmer, I ended up with a full
-|day of workarounds just because of the 6/0 parm.
-|
-|
-|_______________________
-|Booth Martin
-|Booth@MartinVT.com
-|http://www.MartinVT.com
-|_______________________
-|
-|
-|
-|
-|"Richard Jackson" <richardjackson@richardjackson.net>
-|Sent by: owner-rpg400-l@midrange.com
-|10/25/2000 10:16 AM
-|Please respond to RPG400-L
-|
-|
-|        To:     <RPG400-L@midrange.com>
-|        cc:
-|        Subject:        RE: 15,5 Revisted (Was Call Query)
-|
-|Please help me understand the problem.  Why is a new GUI application a
-|problem?  Why is calling from some other place a problem?  Why is adopting
-|authority a problem?
-|
-|Richard Jackson
-|mailto:richardjackson@richardjackson.net
-|http://www.richardjacksonltd.com
-|Voice: 1 (303) 808-8058
-|Fax:   1 (303) 663-4325
-|
-|-|-----Original Message-----
-|-|From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
-|-|Behalf Of booth@martinvt.com
-|-|Sent: Tuesday, October 24, 2000 8:14 PM
-|-|To: RPG400-L@midrange.com
-|-|Subject: RE: 15,5 Revisted (Was Call Query)
-|-|
-|-|
-|-|I'll side with the people that curse the 15/5 rule.  Yes Richard, you
-|are
-|-|right.  Go ahead, make your RPG program accept 5/2, then try to call
-|that
-|-|sucker from some new GUI application, or make the call to the
-|-|program from
-|-|some other place, or need to adopt authority, or... It really is a
-|-|nuisance and I can admire any shop that says "No numeric parms".  I get
-|-|burned with this just often enough to swear off using numeric parms.
-|-|
-|-|_______________________
-|-|Booth Martin
-|-|Booth@MartinVT.com
-|-|http://www.MartinVT.com
-|-|_______________________
-|-|
-|-|
-|-|
-|-|
-|-|"Richard Jackson" <richardjackson@richardjackson.net>
-|-|Sent by: owner-rpg400-l@midrange.com
-|-|10/24/2000 09:10 PM
-|-|Please respond to RPG400-L
-|-|
-|-|
-|-|        To:     <RPG400-L@midrange.com>
-|-|        cc:
-|-|        Subject:        RE: 15,5 Revisted (Was Call Query)
-|-|
-|-|Just for fun:
-|-|
-|-|Suppose a display file named DISPLAY containing one format that has one
-|-|field called PACK defined as numeric five and zero.  Suppose a CL
-|program
-|-|named CLPGM containing a SNDRCVF command to display the format.  Imagine
-|-|an
-|-|RPG program named RPGPGM that accepts one parameter defined as packed
-|five
-|-|and zero.  In CLPGM, immediately following the SNDRCVF, call RPGPGM
-|-|passing
-|-|&PACK.  The call will work every time.  Since this will work, then the
-|-|statement:
-|-|
-|-|-|> -|You're actually 100% correct.  I *meant* to say,
-|-|-|> -|"...has something to do with not being able to pass numerics
-|-|-|> -|other than 15,2
-|-|-|> -|to RPG programs from CL programs directly..."
-|-|
-|-|is not right.  (I assume that 15,2 really meant 15,5).
-|-|
-|-|As a further example, change the RPG program to accept a packed 9,2
-|-|parameter.  Change the CL program in the example above so that it
-|-|declares
-|-|a
-|-|numeric variable called &NUM defined as nine and two.  After the
-|SNDRCVF,
-|-|CHGVAR &NUM &PACK then call the RPG program passing &NUM.  This too will
-|-|work.
-|-|
-|-|It will also work if the screen declares the parameter with decimals and
-|-|the
-|-|&NUM has no decimals - although the digits right of the decimal will be
-|-|lost, that is a documented behavior of CHGVAR and it has been that way
-|-|since
-|-|1981.
-|-|
-|-|Since I can call an RPG program directly from a CL program and pass a
-|-|numeric parameter that is not declared as 15 and 5, I think that I can
-|be
-|-|done.
-|-|
-|-|Please post a code fragment that requires 15,5.
-|-|
-|-|If your fragment includes a call to QCMDEXEC or SBMJOB and the command
-|-|line
-|-|contains numeric literals, that is a well known and documented
-|situation.
-|-|It has been documented to work like this since 1981.
-|-|
-|-|I am being argumentative because this keeps coming up and it just isn't
-|-|true.
-|-|
-|-|Richard Jackson
-|-|mailto:richardjackson@richardjackson.net
-|-|http://www.richardjacksonltd.com
-|-|Voice: 1 (303) 808-8058
-|-|Fax:   1 (303) 663-4325
-|-|
-|-|-|-----Original Message-----
-|-|-|From: owner-rpg400-l@midrange.com
-|[mailto:owner-rpg400-l@midrange.com]On
-|-|-|Behalf Of Jim Langston
-|-|-|Sent: Tuesday, October 24, 2000 11:51 AM
-|-|-|To: RPG400-L@midrange.com
-|-|-|Subject: Re: 15,5 Revisted (Was Call Query)
-|-|-|
-|-|-|
-|-|-|I meant to say 15,5
-|-|-|
-|-|-|And what do you mean that is wrong?  This exact same conversation came
-|-|up
-|-|-|back in July of this year and there was a lot of conversation going
-|back
-|-|-|and forth about passing numerics to RPG.
-|-|-|
-|-|-|You show me a way to:
-|-|-|
-|-|-|1. Set up a display screen to accept numeric values.
-|-|-|2. Pass those values to RPG other than character or 15,5 numeric.
-|-|-|
-|-|-|This is an old topic and has been beaten to death.
-|-|-|
-|-|-|Regards,
-|-|-|
-|-|-|Jim Langston
-|-|-|
-|-|-|Richard Jackson wrote:
-|-|-|>
-|-|-|> -|You're actually 100% correct.  I *meant* to say,
-|-|-|> -|"...has something to do with not being able to pass numerics
-|-|-|> -|other than 15,2
-|-|-|> -|to RPG programs from CL programs directly..."
-|-|-|>
-|-|-|> That too would be completely wrong.
-|-|-|>
-|-|-|> Richard Jackson
-|-|-|> mailto:richardjackson@richardjackson.net
-|-|-|> http://www.richardjacksonltd.com
-|-|-|> Voice: 1 (303) 808-8058
-|-|-|> Fax:   1 (303) 663-4325
-|-|-|>
-|-|-|+---
-|-|-|| This is the RPG/400 Mailing List!
-|-|-|| To submit a new message, send your mail to RPG400-L@midrange.com.
-|-|-|| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
-|-|-|| To unsubscribe from this list send email to
-|-|RPG400-L-UNSUB@midrange.com.
-|-|-|| Questions should be directed to the list owner/operator:
-|-|-|david@midrange.com
-|-|-|+---
-|-|
-|-|+---
-|-|| This is the RPG/400 Mailing List!
-|-|| To submit a new message, send your mail to RPG400-L@midrange.com.
-|-|| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
-|-|| To unsubscribe from this list send email to
-|RPG400-L-UNSUB@midrange.com.
-|-|| Questions should be directed to the list owner/operator:
-|-|david@midrange.com
-|-|+---
-|-|
-|-|
-|-|
-|-|
-|-|+---
-|-|| This is the RPG/400 Mailing List!
-|-|| To submit a new message, send your mail to RPG400-L@midrange.com.
-|-|| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
-|-|| To unsubscribe from this list send email to
-|RPG400-L-UNSUB@midrange.com.
-|-|| Questions should be directed to the list owner/operator:
-|-|david@midrange.com
-|-|+---
-|
-|+---
-|| This is the RPG/400 Mailing List!
-|| To submit a new message, send your mail to RPG400-L@midrange.com.
-|| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
-|| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
-|| Questions should be directed to the list owner/operator:
-|david@midrange.com
-|+---
-|
-|
-|
-|
-|+---
-|| This is the RPG/400 Mailing List!
-|| To submit a new message, send your mail to RPG400-L@midrange.com.
-|| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
-|| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
-|| Questions should be directed to the list owner/operator:
-|david@midrange.com
-|+---

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