Re: Passing parms between CL and RPG (was RPG Display program and processing)

Hmm.

In this case, i'd recommend writing a command, too.

Your date would then become a 7 bytes char variable; leading byte is the 
century (0=19, 1=20), rest is YYMMDD, users can enter dates according to 
their job's DATFMT, with or without the DATSEPs.

This is easily movable to a date field by means of *CYMD MOVE DateField.

You could add a CHCPGM to the company parameter, so users could select the 
correct company number.
And a validity checking program.

Then the CPP (command processing program) for the CMD could be your RPG 
(with the OVRPRTF in it, USROPN of the printer file).

Get yourself into commands, it's worth it!

0.02 Euro

At 13:37 25.07.00 -0700, you wrote:
>Well, this is fine, if your CL is the one declaring them.
>
>These are declared in my display file, company number and as of date.
>
>Company number is a 2 digit numeric, and as of date is 6 digit numeric.
>
>I could, of course, declare 2 more variables as 15, 5 and pass the values from
>the display file into them, then pass them along to my RPG, but what is 
>the difference
>if I have to declare 2 new variables anyway?
>
>One way they are declared as numeric 15, 5 which is the right data type, 
>but the
>wrong lenght, the other was is to declare them as *char 2 and *char 6 
>which is the
>wrong data type but the right length.
>
>Either way, I'm "lying" to the maintainance programmer who has to follow 
>me.  I
>would prefer to keep my RPG "pure" so it accepts the right data type and 
>the right
>length.  Any skuldrudgery I then can keep in my CL.
>
>Regards,
>
>Jim Langston
>
>Buck Calabro wrote:
>
> > Jim Langston wrote:
> >
> > >The one pain is the first CL converts the
> > >two numeric fields to alpha and
> > >then passes them to the second CL.
> > >The second CL passes the numbers
> > >as characters, as there's the imfamous
> > >15,2 problem with passing numbers
> > >between CL and RPG.
> >
> > As an aside, there's no problem at all passing numeric parameters 
> between CL
> > and RPG - even via SBMJOB.  Declare them to be 15,5 and Bob's your uncle.
> > This is because the command line (or CMD parm on SBMJOB, etc.) has no
> > explicit declaration of numeric values, so it allocates storage for them in
> > the form of Packed 15 with 5 decimals.
> >
> > PGM
> >
> > DCL &NUMBER *DEC (15 5) VALUE(75)
> > SBMJOB CMD(CALL SBMJOB2 &NUMBER) +
> >        JOB(SBMJOB)
> >
> > ENDPGM
> >
> > d NumberParm      s             15p 5
> >
> > c     *Entry        plist
> > c                   parm                    NumberParm
> >
> > c                   if         NumberParm > 10
> > c     '>10'         dsply     'BUCK'
> > c                   endif
> >
> > c                   dump
> > c                   eval       *InLR = *On
> >
> > Buck Calabro
> > Aptis; Albany, NY
> > "We are what we repeatedly do.
> >  Excellence, then, is not an act, but a habit." --Aristotle
> >
> > Billing Concepts Corp., a NASDAQ Listed Company, Symbol: BILL
>
>+---
>| 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
>+---

Mit freundlichen Grüssen / Best regards

Anton Gombkötö
mailto:Gombkoetoe@ASsoft.com

AS Software GmbH
http://www.assoft.com

Jedleseer Strasse 3
A-1210  Wien

Tel: +43 1 278 15 01-0
Fax:+43 1 278 15 01-22

+---
| 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
+---