Re: Data Decimal error - already checked midrange.com archives -- RPG400-L

Here you go Rob.

C     *ENTRY        PLIST
C                   PARM                    P01APPIDIN
C                   PARM                    P01OPIDIN
C                   PARM                    P01USRPRF
C                   PARM                    P01IPADDRIN
C                   PARM                    P01IPLENIN
C                   PARM                    P01OPINFOIN
C                   PARM                    P01OPLENIN
C                   PARM                    P01ALLOWOP


----- Original Message -----
From: <rob@dekko.com>
To: <rpg400-l@midrange.com>
Sent: Friday, May 31, 2002 4:18 PM
Subject: Re: Data Decimal error - already checked midrange.com archives


> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> Are you using a Procedure Interface for your program, or a *ENTRY PLIST?
> Please enclose that portion of the code.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>
> "Frank W. Kany IV" <frank.kany@burr-reid.org>
> Sent by: rpg400-l-admin@midrange.com
> 05/31/2002 03:07 PM
> Please respond to rpg400-l
>
>
>         To:     "RPG Mailing List" <rpg400-l@midrange.com>
>         cc:
>         Fax to:
>         Subject:        Data Decimal error - already checked midrange.com
archives
>
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> I have a CL program that passes parms to an RPGIV program that writes the
> data being passed to a printer.  The RPGIV program works fine.
>
> I have taken that same report program and had the program write to a file
> instead of a printer.  Somehow, I am getting a data decimal error in the
> program that writes to a file.  I have not changed anything but the
> output.  When I do a simple conditional operation such as: "IF PARM_01 =
> *ZERO", a data decimal error occurs.
>
> CL program passing the parms
> ==================================
> DCL        VAR(&PAPPIDIN)    TYPE(*DEC)    LEN(1 0)
> DCL        VAR(&POPIDIN)      TYPE(*DEC)    LEN(1 0)
> DCL        VAR(&PUSRPRF)       TYPE(*CHAR) LEN(10)
> DCL        VAR(&PIPADDRIN) TYPE(*CHAR) LEN(15)
> DCL        VAR(&PIPLENIN)    TYPE(*DEC)    LEN(5 0)
> DCL        VAR(&POPLENIN)   TYPE(*DEC)    LEN(5 0)
> DCL        VAR(&POPINFOIN)  TYPE(*CHAR) LEN(9999)
> DCL        VAR(&PALLOWOP)  TYPE(*CHAR) LEN(4)
>
> CHGVAR     VAR(&PAPPIDIN)  VALUE(%BINARY(&APPIDIN))
> CHGVAR     VAR(&POPIDIN)   VALUE(%BINARY(&OPIDIN))
> CHGVAR     VAR(&PUSRPRF)   VALUE(&USRPRF)
> CHGVAR     VAR(&PIPADDRIN) VALUE(&IPADDRIN)
> CHGVAR     VAR(&PIPLENIN)  VALUE(%BINARY(&IPLENIN))
> CHGVAR     VAR(&POPLENIN)  VALUE(%BINARY(&OPLENIN))
> CHGVAR     VAR(&POPINFOIN) VALUE(&OPINFOIN)
> CHGVAR     VAR(&PALLOWOP)  VALUE(&ALLOWOP)
>
> CALL       PGM(FTPLOG/FTPRQSRPT) PARM(&PAPPIDIN +
>              &POPIDIN &PUSRPRF &PIPADDRIN &PIPLENIN +
>              &POPINFOIN &POPLENIN &PALLOWOP)
> ===================================
>
> RPG program receiving the parms
> ===================
> D P01APPIDIN      S                1  0
> D P01OPIDIN        S                1  0
> D P01USRPRF         S              10
> D P01IPADDRIN   S              15
> D P01IPLENIN      S                 5  0
> D P01OPINFOIN   S           9999
> D P01OPLENIN     S                5  0
> D P01ALLOWOP    S               4
>
> C                      IF       P01APPIDIN = *ZERO   <<<<< Data Decimal
> Error occurs here
> ===================
>
> Anyone see why this is happening only when I use the RPG pgm to write to a
> file and not to the RPG pgm that writes to a printer?
>
> TIA,
>
> Frank
> --
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>