/* Current working directory */

DEF VAR RCSVersion AS CHARACTER INIT "$Header: /home/appl/opensrc/misc/RCS/cwd.p,v 1.1 2001/10/31 02:39:22 sauge Exp $" NO-UNDO.

DEF OUTPUT PARAMETER pCWD  AS CHARACTER NO-UNDO.

FILE-INFO:FILE-NAME = ".".
ASSIGN pCWD = FILE-INFO:FULL-PATHNAME.