Ü   EVAL (Evaluate expression)

·         It is used to evaluate any kind of expression.

Example

C                   EVAL      *IN45=%EOF(MASTER)
C                   EVAL      YY=%CHAR(OPNYY)
C                   EVAL      UPCOUNTER=PAGESIZE+LSTRRN+1
C                   EVAL      ARR(I)=C_CSNBR
C                   EVAL      SQLSTMT='SELECT A.' + W_COMP +
C                                      ', A.COUNT, B.COUNT'+
C                                     ',A.COUNT-B.COUNT FROM' +
C                                     '(select count(*) AS COUNT, '+
C                                      W_COMP + 'from ' + %TRIM(MYFILE1)+
C                                     ' group by ' + W_COMP +
C                                     ' order by ' + W_COMP + ')A,'+
C                                     '(select count(*) AS COUNT, '+
C                                      W_COMP + 'from ' + %TRIM(MYFILE2)+
C                                     ' group by ' + W_COMP +
C                                     ' order by ' + W_COMP + ')B'+
C                                     ' WHERE A.' + W_COMP + '=B.' +W_COMP
C                   EVAL      MYFILE1= %TRIM(OLDLIB)+'/'+%TRIM(OLDFILE)
C                   EVAL      CURRYEAR=%dec(%SUBST(TIMe_ISo:1:4):4:0)