The following code gets the working directory for the
caller. For the callable service, see
getcwd (BPX1GCW, BPX4GCW) — Get the pathname of the working directory.
AMODE 64 callers use
BPX4GCW (getcwd) example.
MVC BUFLENA,=F'1024' Max directory name return area
SPACE ,
CALL BPX1GCW, Get working directory name +
(BUFLENA, Input: Length directory work area +
BUFFERA, Buffer +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------