BPX1GCW (getcwd) example

The following code gets the working directory for the caller. For the callable service, see getcwd (BPX1GCW, BPX4GCW) — Get the path name 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)       ----------------------------------