BPX4RDX (read extlink) example

The following code reads the contents of external symbolic link /personnel/tmpxlink into the buffer provided. This will be the pathname that was specified when the external symbolic link was defined. For the callable service, see read_extlink (BPX1RDX, BPX4RDX) — Read an external symbolic link. AMODE 31 callers use BPX1RDX (read extlink) example.

                                              
         MVC   BUFFERB(19),=CL19'/personnel/tmpxlink'                   
         MVC   BUFLENB,=F'19'                                           
         LA    R15,BUFFERA                                              
         STG   R15,BUFA                                                 
         MVC   BUFLENA,=F'1023'                                         
         SPACE ,                                                        
         CALL  BPX4RDX,              Read value of an external link    +
               (BUFLENB,             Input: Linkname length            +
               BUFFERB,              Input: Link name                  +
               BUFLENA,              Input: Buffer size - 1023         +
               BUFA,                 ->Buffer for symbolic link        +
               RETVAL,               Return value: 0, -1 or char count +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------