Re: Entry Parameters

[Rob Berendt <rob@xxxxxxxxx>]

Options
1)  Call the program using variables defined the same length instead of hard 
coding.
2)  Hard code the following hex values:
CALL PGM(JIMCONEX/CHGAPOPEN) PARM(X'051F' X'0990110F' X'051F' X'0000120F')
See if that works.





jlangston@conexfreight.com on 01/19/2000 03:28:46 PM
Please respond to RPG400-L@midrange.com@Internet
To:     RPG400-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        Entry Parameters

V3R7M0  RPGLE

I wrote an RPGLE program that is supposed to accept four
numeric values as parameters.

D FromCompNum     S         2S 0
D FromBatch       S         6S 0
D ToCompNum       S         2S 0
D ToBatch         S         6S 0

C    *Entry    PList
C              Parm       FromCompNum
C              Parm       FromBatch
C              Parm       ToCompNum
C              Parm       ToBatch

C              If         APComp = FromCompNum And
C                         APBatc = FromBatch
<SNIP>

I call it thustly:

CALL PGM(JIMCONEX/CHGAPOPEN) PARM(51 990110 51 000120)

The If statement bombs with a Decimal Data Error.  Putting it in Debug
Mode, I see that my four parameters contain garbage.  How am I supposed
to call this thing?  Do I have to pass them as character strings?  If
so, I would
create a Data Structure Like:

D                     DS
D                                  FromCompNum    1    2S 0
D                                  FromCompAsStr   1    2

Then put FromCompAsStr in my Parm statement.  Is this what I have to do?

I know this will work, I have done it in the past, and will do it now
while
waiting for a response, but isn't there another way?

Regards,

Jim Langston

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