Re: CPF7E56 Identifier is ambiguous is mysterious

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

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

>