|
midrange.com
This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
You are trying to pass a binary value into a 1S0 value. Try:
1) Declaring like variables
2) Changing your *ENTRY to a prototyped interface and using CONST on all
variables not being passed back to the CLP.
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:25 PM
Please respond to rpg400-l
To: <rpg400-l@midrange.com>
cc:
Fax to:
Subject: Re: Data Decimal error - already checked midrange.com
archives
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.
>
>
_______________________________________________
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.
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.
