BPX4LNK (link) example

The following code creates a new way for usr/dataproc.next.t to link to an existing file, usr/user05/yearrecs.t . For the callable service, see link (BPX1LNK, BPX4LNK) — Create a link to a file. AMODE 31 callers use BPX1LNK (link) example.

                                              
         MVC   BUFLENA,=F'21'                                           
         MVC   BUFFERA(21),=CL21'usr/user05/yearrecs.t'                 
         MVC   BUFLENB,=F'19'                                           
         MVC   BUFFERB(19),=CL19'usr/dataproc.next.t'                   
         SPACE ,                                                        
         CALL  BPX4LNK,              Create a link to a file           +
               (BUFLENA,             Input: Name length: existing      +
               BUFFERA,              Input: Name of existing file      +
               BUFLENB,              Input: Name length: link          +
               BUFFERB,              Input: Name of link to file       +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------