BPX4SYM (symlink) example

The following code creates a symbolic link /sysaccts for path name /sys12/acctn. For the callable service, see symlink (BPX1SYM, BPX4SYM) — Create a symbolic link to a path name. AMODE 31 callers use BPX1SYM (symlink) example.
                                              
         MVC   BUFFERA(12),=CL12'/sys12/acctn'                          
         MVC   BUFLENA,=F'12'                                           
         MVC   BUFFERB(09),=CL09'/sysaccts'                             
         MVC   BUFLENB,=F'09'                                           
         SPACE ,                                                        
         CALL  BPX4SYM,              Create symbolic link to pathname  +
               (BUFLENA,             Input: Pathname length            +
               BUFFERA,              Input: Pathname                   +
               BUFLENB,              Input: Link name length           +
               BUFFERB,              Input: Link name                  +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------