{ n &argument-name }
|
RUN r-arg2.p "customer" "name"
|
FOR EACH {1}:
DISPLAY {2}. END. |
DEFINE VARIABLE cTxt AS CHARACTER NO-UNDO.
DEFINE VARIABLE iNum AS INTEGER NO-UNDO. ASSIGN cTxt = "Progress VERSION" iNum = 7. {r-inc.i &int=iNum &str=cTxt} |
MESSAGE {&str} /* the &str named argument */
{&int}. /* the &int named argument */ MESSAGE "An asterisk displays all the arguments:" {*} /* all the arguments passed by the calling procedure */ |