RE: CPF7E56 Identifier is ambiguous is mysterious

Thanks Glen, I appreciate your research and comments.

I'm not sure reserved word conflict is the case or cause, mainly because after adding &LASTCH
_after_ &ENDJOB, I no longer receive CPF7E15 on &ENDJOB, but do receive CPF7E15 on &LASTCH.

I tested with &AB_CD9 as the name and received CPF7E315.

At any rate, this code is part of a project I'm testing for production, and &LASTCH is only used as a DCL, so I'm moving on, . . . mystified.

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Glenn Gundermann
Sent: Friday, November 07, 2014 7:40 AM
To: Midrange Systems Technical Discussion
Subject: Re: CPF7E56 Identifier is ambiguous is mysterious

Hi Gary,

I searched MIDRANGE.COM and found a previous posting for CPF7E56 from over
4 years ago. Luis Rodriguez wrote on July 6, 2010:

This error is documented on a IBM
<http://archive.midrange.com/rpg400-l/201007/msg00072.html#> tech doc, which can be found here:

http://www-01.ibm.com/support/docview.wss?uid=nas1ee71ca2f7700ad31862570bb00619997

It states:

Error message <http://archive.midrange.com/rpg400-l/201007/msg00072.html#>
CPF7E15
will be received when pressing F11 or using EVAL to display a variable if the variable name is a reserved word that is used in the system debugger..

Change &ENDJOB to something else and see what happens.

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Cell: (416) 317-3144


On 6 November 2014 16:07, Gary Thompson <gthompson@xxxxxxxxxxx> wrote:

Stumped on this the first time:

DCL VAR(&DACHAR) TYPE(*CHAR) LEN(90) /* text from LCP972DA */


DCL VAR(&ENDHH) TYPE(*CHAR) STG(*DEFINED) LEN(02) DEFVAR(&DACHAR 01)
/*End Hour, 24 hour fmt */

DCL VAR(&ENDMM) TYPE(*CHAR) STG(*DEFINED) LEN(02) DEFVAR(&DACHAR 04)
/*End Minute, 00-59 */

DCL VAR(&WAITSEC) TYPE(*CHAR) STG(*DEFINED) LEN(03) DEFVAR(&DACHAR 41)
/*Wait Seconds, 000-999 */

DCL VAR(&ENDJOB) TYPE(*CHAR) STG(*DEFINED) LEN(03) DEFVAR(&DACHAR 85)
/* END = End Job */

RTVDTAARA DTAARA(LCP972DA (1 90)) RTNVAR(&DAchar)

I was able to EVAL each VAR and see its value, except for EVAL
&ENDJOB, which raised CPF7E56 . . . ???

Finally I added an extra variable like so:

DCL VAR(&DACHAR) TYPE(*CHAR) LEN(90) /* text from LCP972DA */

DCL VAR(&ENDHH) TYPE(*CHAR) STG(*DEFINED) LEN(02) DEFVAR(&DACHAR 01)
/*End Hour, 24 hour fmt */

DCL VAR(&ENDMM) TYPE(*CHAR) STG(*DEFINED) LEN(02) DEFVAR(&DACHAR 04)
/*End Minute, 00-59 */

DCL VAR(&WAITSEC) TYPE(*CHAR) STG(*DEFINED) LEN(03) DEFVAR(&DACHAR 41)
/*Wait Seconds, 000-999 */

DCL VAR(&ENDJOB) TYPE(*CHAR) STG(*DEFINED) LEN(03) DEFVAR(&DACHAR 85)
/* END = End Job */

DCL VAR(&LASTCH) TYPE(*CHAR) STG(*DEFINED) LEN(01) DEFVAR(&DACHAR 89)
/* extra, not used */

Problem solved ?
I can now EVAL each VAR and see the value, except for EVAL &LASTCH,
which raises CPF7E56 . . .
but I don't need &LASTCH

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.