BPX1RPH (realpath) example

The following code gets the absolute pathname without dot (.), dot-dot (..), or symbolic links for the input pathname. For the callable service, see realpath (BPX1RPH, BPX4RPH) — Resolve a pathname. AMODE 64 callers use BPX4RPH (realpath) example.
                                              
         MVC   BUFFERA(8),=CL2'..'                                      
         MVC   BUFLENA,=F'2'                                            
         MVC   BUFLENB,=F'1024'      Resolved pathname return area      
         SPACE ,                                                        
         CALL  BPX1RPH,              Resolve pathname                  +
               (BUFLENA,             Input: Pathname length            +
               BUFFERA,              Input: Pathname                   +
               BUFLENB,              Input: Length resolved name area  +
               BUFFERB,              Output: Resolved name buffer      +
               RETVAL,               Return value: -1 or length        +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------