GETUSER(output)

dove:

emissione

Alfanumerico, almeno A8

Campo risultato, la cui lunghezza dipende dalla piattaforma su cui viene emessa la funzione. Fornisci una lunghezza, purché richiesta dalla piattaforma. In caso contrario, l'emissione sarà interrotta.

recupera l'ID utente di chi sta eseguendo la procedura:

DEFINE FILE EMPLOYEE
USERID/A8 WITH EMP_ID = GETUSER(USERID);
END

TABLE FILE EMPLOYEE
SUM CURR_SAL AS 'TOTAL SALARIES'
BY DEPARTMENT
HEADING
"SALARY REPORT RUN FROM USERID: <USERID"
" "
END

L'emissione è:

SALARY REPORT RUN FROM USERID: doccar

DEPARTMENT
----------
MIS
PRODUCTION

TOTAL SALARIES
--------------
   $108,002.00 
   $114,282.00