RPG compiler converts type S to type P?

Posted by derek on Stack Overflow See other posts from Stack Overflow or by derek
Published on 2010-06-11T17:00:56Z Indexed on 2010/06/11 17:02 UTC
Read the original article Hit count: 461

Filed under:

iseries

|

rpgle

Here is my situation: I have program A which looks like this:

Fmfile     IF   E           K DISK    USROPN
d grue            s                   like(dhseqn)
d
C     *ENTRY        PLIST
C                   PARM                    grue
c                   open      mfile
c*** do something with grue
c                   close     mfile
c                   eval      *inlr = *on

dhseqn is a 2,0 S field.

The compile listing shows me this:

 *RNF7031 DHSEQN            P(2,0)                 000200     1000002D
          GRUE              P(2,0)                 000200D     000500M     000700      000800M
                            BASED(_QRNL_PRM+)

And when I call program A with a parameter that has been declared as 2,0 S, I get a decimal data error.

Is this expected, or is this a compiler bug?

© Stack Overflow or respective owner

Related posts about iseries

QNTC and Windows Server 2008 R2

as seen on Server Fault - Search for 'Server Fault'
I am having a really hard time getting an iSeries (AS/400) machine talking to my new Windows Server 2008 R2 box using the QNTC file system on the iSeries. I had similar problems getting it to initially talk to a Windows Server 2003 machine, but enabling the local Guest account on the 2003 box solved… >>> More
Very strange iSeries Provider behavior

as seen on Stack Overflow - Search for 'Stack Overflow'
We've been given a "stored procedure" from our RPG folks that returns six data tables. Attempting to call it from .NET (C#, 3.5) using the iSeries Provider for .NET (tried using both V5R4 and V6R1), we are seeing different results based on how we call the stored proc. Here's way that we'd prefer… >>> More
Changing iSeries Device and PC console password.

as seen on Stack Overflow - Search for 'Stack Overflow'
I am setting up first console session on iSeries. How do reset console password on PC and iSeries without access to a console? Thank you Ashok >>> More
AS 400 Performance from .Net iSeries Provider

as seen on Stack Overflow - Search for 'Stack Overflow'
Hey all, First off, I am not an AS 400 guy - at all. So please forgive me for asking any noobish questions here. Basically, I am working on a .Net application that needs to access the AS400 for some real-time data. Although I have the system working, I am getting very different performance results… >>> More
Error when connecting to AS400 (ISeries)

as seen on Stack Overflow - Search for 'Stack Overflow'
I'm trying to connect to a AS400 server using the .net classes. I have added a reference to IBM.Data.DB.iSeries and I use the following code: var conn = new iDB2Connection("DataSource=111.111.111.111;UserID=xxx;Password=xxx; DataCompression=True;"); conn.Open(); But I get the following… >>> More

Related posts about rpgle

Fetching RPGLE files from the IBMi using java.

as seen on Stack Overflow - Search for 'Stack Overflow'
Hi, I need to fetch the RPGLE files from the user libraries in the IBMi machine using JAVA. Im using JTOpen400. Can anyone plz help??? >>> More
Handling pointer while updating a key value in rpgle

as seen on Stack Overflow - Search for 'Stack Overflow'
my code goes like this femp uf e k disk dvar1 s 5p 0 c *loval setll emp c read emp c dow not %eof(emp) C eval ecode = ecode + 10 c eval var1=ecode c… >>> More
Pros and Cons of ASNA Visual RPG (AVR)

as seen on Stack Overflow - Search for 'Stack Overflow'
Have you had any experience with ASNA Visual RPG for Visual Studio 2005/2008? I'm looking for some feedback on this product. I'm especially curious as to how it compares to other methods of accessing files and programs on the IBM’s System i (formerly known as iSeries, AS/400) server. Thanks! >>> More
recursive run of rpg program

as seen on Stack Overflow - Search for 'Stack Overflow'
i am running a rpg program recursively it is giving an error like this Application Error. RNX8888 unmonitored by PGM1 at statement *N, instruction X'0000'. Trigger program or external routine detected an error.....what can be the resolution ...its urgent..thanks >>> More
RPG compiler converts type S to type P?

as seen on Stack Overflow - Search for 'Stack Overflow'
Here is my situation: I have program A which looks like this: Fmfile IF E K DISK USROPN d grue s like(dhseqn) d C *ENTRY PLIST C PARM grue c open mfile c*** do something with grue c… >>> More