home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / xref_v1.1.lha / XRef / ARexx / findxref.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-01-09  |  1.0 KB  |  43 lines
  1. /*
  2. ** $PROJECT: ARexx script to find some xref entries
  3. **
  4. ** $VER: findxref.rexx 1.4 (08.01.95)
  5. **
  6. ** by
  7. **
  8. ** Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  9. **
  10. ** (C) Copyright 1994,1995
  11. ** All Rights Reserved !
  12. **
  13. ** $HISTORY:
  14. **
  15. ** 08.01.95 : 001.004 : changed to rexxxref.library
  16. ** 30.11.94 : 001.003 : LoadXRef() added
  17. ** 26.11.94 : 001.002 : now it works with xref.library v1.19
  18. ** 20.11.94 : 001.001 : initial
  19. */
  20.  
  21. OPTIONS RESULTS               /* use results */
  22.  
  23. IF ~SHOW('L','rexxxref.library') THEN
  24.     CALL ADDLIB('rexxxref.library',0,-30)
  25.  
  26. IF LoadXRef('sys_autodoc.xref') THEN
  27.    Say "sys_autodoc.xref loaded !"
  28.  
  29. IF FindXRef("#?Window#?",,10) THEN
  30.     DO i = 1 TO xref.count
  31.         Say "XRef     : " xref.i.Name
  32.         Say "Type     : " xref.i.Type
  33.         Say "NodeName : " xref.i.NodeName
  34.         Say "File     : " xref.i.File
  35.         Say "Path     : " xref.i.Path
  36.         Say "Line     : " xref.i.Line
  37.         Say "--------------------------------------------------------"
  38.     END
  39. else
  40.     Say "FindXRef() nothing found !"
  41. EXIT
  42.  
  43.