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