|
midrange.com
What I usually do is to do a CHGVAR in the CL and just put the numeric value
into a numeric variable, then pass the variable as the parm. The example below
has a decimal variable called "&NUMBER" which I declared with an initial value
of 2 in the CL. The RPGLE program just added 47 to the parm and set on LR. I
ran it in debug and the value at LR time was 49 so I'm guessing it did all the
things you wished to do. I prefer this solution because all of the numbers are
in the clear and easy to follow through. By the way, I also changed the CL to
declare the initial value of &NUMBER to be -2 and got an answer of 45.
Rajeev, I did this (use fixed font to view this):
The CL code:
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+
*************** Beginning of data *******************************
0001.00 PGM
0002.00
0003.00 DCL VAR(&NUMBER) TYPE(*DEC) LEN(2) VALUE(2)
0004.00
0005.00 CALL PGM(SCRAP1) PARM(&NUMBER)
0006.00
0007.00 ENDPGM
****************** End of data **********************************
The RPGLE code:
*************** Beginning of data **********************************
0001.00 * .. ..
0002.00 C *ENTRY PLIST
0003.00 C PARM NUMBER 2 0
0004.00 C ADD 47 NUMBER
0005.00 C MOVE *ON *INLR
0006.00 * .. ..
****************** End of data *************************************
and the value in the debug view at LR time was:
Display Program Variables
Program . . . . . . . . . . . . . . . . : SCRAPCL1
Recursion level . . . . . . . . . . . . : 1
Start position . . . . . . . . . . . . : 1
Format . . . . . . . . . . . . . . . . : *CHAR
Length . . . . . . . . . . . . . . . . : *DCL
Variable . . . . . . . . . . . . . . . : &NUMBER
Type . . . . . . . . . . . . . . . . : PACKED
Length . . . . . . . . . . . . . . . : 2 0
' 49'
In <19981230213354.18001.qmail@hotmail.com>, on 12/30/98
at 01:33 PM, "RAJEEV ASTHANA" <rajeevasthana@hotmail.com> said:
>Hi Everybody,
>I'm stuck.
>I have a RPG program with *ENTRY parameters:
>@PCOMP 3 (CHAR)
>@PGRP 50 (NUMERIC)
>@PCENT 20 (NUMERIC)
>@PDATE 60 (NUMERIC)
>I have to call this program with following values:
>@PCOMP '020'
>@PGRP 65
>@PCENT 19
>@PDATE 981024
>I'm passing parameters as follows:
>CALL PGM(DELGRP) PARM('020' X'00065F' X'19' X'981024')
>I tries several other options too.
>Each time I got decimal data error.
>Where I am wrong?
>Please reply quickly.
>Thanks in advance.
>Rajeev.
>______________________________________________________
>Get Your Private, Free Email at http://www.hotmail.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
>+---
--
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------
+---
| 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 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.
