CMD 'Calculate Advanced Function'
             PARM       KWD(FUNCTION) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          VALUES('*ABSVAL' '*ACOS' '*ANTILOG' '*ASIN' +
                          '*ATAN' '*ATANH' '*COS' '*COSH' '*COT' +
                          '*EXP' '*LN' '*LOG' '*SIN' '*SINH' '*SQRT' +
                          '*TAN') MIN(1) EXPR(*YES) PROMPT('Required +
                          function:')
             PARM       KWD(ARGUMENT) TYPE(*DEC) LEN(15 5) MIN(1) +
                          PROMPT('Argument of function:   (15 5)')
             PARM       KWD(RESULT) TYPE(*DEC) LEN(15 5) RTNVAL(*YES) +
                          MIN(1) PROMPT('Var. for result:        (15 +
                          5)')
