BPX4EXT (extlink_np) example

The following code creates an external link to data set MY.DATASET for pathname /mvs/mydataset. For the callable service, see extlink_np (BPX1EXT, BPX4EXT) — Create an external symbolic link. AMODE 31 callers use BPX1EXT (extlink_np) example.

                                              
         MVC   BUFFERA(10),=CL10'MY.DATASET'                            
         MVC   BUFLENA,=F'10'                                           
         MVC   BUFFERB(14),=CL14'/mvs/mydataset'                        
         MVC   BUFLENB,=F'14'                                           
         SPACE ,                                                        
         CALL  BPX4EXT,              Create external link to name      +
               (BUFLENA,             Input: External name length       +
               BUFFERA,              Input: External name              +
               BUFLENB,              Input: Link name length           +
               BUFFERB,              Input: Link name                  +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------