The following code registers a file server named File server, and accepts the default maximum number of vnode tokens by allowing NREGMAXVNTOKENS to remain zero. For the callable service, see v_reg (BPX1VRG, BPX4VRG) — Register a process as a server. For the data structure, see BPXYNREG — Map interface block to vnode registration.

        MVC   NREGSTOR,NREG         Initialize BPXYNREG area
         LA    R5,NREGSTOR           Address and
         USING NREG,R5               map BPXYNREG area
         MVC   NREGSTYPE,=A(NREGSTYPE#FILE)     Set server type
         MVC   NREGSNAME(11),=CL11'File server' Set server name
         MVC   NREGSNAMELEN,=F'11'
         DROP  R5
         SPACE ,
         CALL  BPX1VRG,              Register server                   +
               (=A(NREG#LENGTH),     Input: BPXYNREG length            +
               NREGSTOR,             Input/output: BPXYNREG            +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------