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

[rob@xxxxxxxxx]

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.