The following code creates a new name, dataproc.next, for a previously looked-up file whose vnode token is in VNODETOK in a previously looked-up directory whose vnode token is in DIRVNODETOK. For the callable service, see v_link (BPX1VLN, BPX4VLN) — Create a link to a file. For the data structure, see BPXYOSS — Map operating system specific information.

         MVC   OSSSTOR,OSS           Initialize BPXYOSS area
         MVC   BUFLENA,=F'13'
         MVC   BUFFERA(13),=CL13'dataproc.next'
         SPACE ,
         CALL  BPX1VLN,              Create a link to a file           +
               (VNODETOK,            Input: File vnode token           +
               OSSSTOR,              Input/output: BPXYOSS             +
               BUFLENA,              Input: Name length: new name      +
               BUFFERA,              Input: New file name              +
               DIRVNODETOK,          Input: Vnode for directory        +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------