Consultor Eletrônico

Status: Unverified

SYMPTOM(s):

Unable to run a procedure using compile-time arguments due syntax error

Get error: ** Unable to understand after -- "<string>". (247)

Here is the run statement and the definition of the procedure:

RUN example.p "Item" "Item-Name".

/* example.p */

&GLOBAL-DEFINE tabla {1}
&GLOBAL-DEFINE mezok {2}


FOR EACH "{&tabla}":
DISPLAY "{&mezok}" WITH THREE-D SIZE 50 BY 20 TITLE "LISTA".
END.

CAUSE:

After replacing the compile-time arguments, the procedure will look like this:
FOR EACH "Item" :
DISPLAY "Item-num" WITH THREE-D SIZE 50 BY 20 TITLE "LISTA".
END.
Which is definitely wrong.

FIX:

&GLOBAL-DEFINE tabla {1}
&GLOBAL-DEFINE mezok {1}

MESSAGE "{&tabla}" "{&mezok}" VIEW-AS ALERT-BOX.

FOR EACH {&tabla}:
DISPLAY {&mezok} WITH THREE-D SIZE 50 BY 20 TITLE "LISTA".
END.