definition for READLINK()

 *-------------------------------------------------------------------
  Dreadlink         PR            10I 0 EXTPROC('readlink')
  D                                 *   VALUE
  D                                 *   VALUE
  D                               10I 0 VALUE

  D SymName         S             50A
  D SymLink         S            256A
  D Path            S            256
  D ReturnInt       S             10I 0
   *----------------------------------------------------------------*
  C     *Entry        Plist
  C                   Parm                    SymName
  C                   Eval      SymLink = %trimr(SymName) + X'00'
  C                   Eval      ReturnInt = readlink(%addr(SymLink)
  C                             :%addr(Path):%size(Path))
  C                   Eval      *inlr = *on
   *----------------------------------------------------------------*

[report a broken link by clicking here]