home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / HTMCK111 / MAC / HCULINE.MAC < prev    next >
Text File  |  1995-11-13  |  1KB  |  31 lines
  1. /*---------------------------------------------------------------------------*/
  2. /*                                                                           */
  3. /*  hcnLine - This REXX Macro is called when the report sends out a LINE     */
  4. /*           Item,  This is called for ALL types of ITEMS                    */
  5. /*                                                                           */
  6. /*  Valid Variables are:                                                     */
  7. /*      hcDeep          hclDoc          hclPhysical     hclFileSize          */
  8. /*      hclHTMLTag      hclFileType     hclMatched      hclLocalFound        */
  9. /*      hclServerRoot   hclOffSite      hclParent       hclAccessCount       */
  10. /*      hcpDoc          hcpPhysical     hcpFileSize     hcpHTMLTag           */
  11. /*      hcpFileType     hcpMatched      hcpLocalFound   hcpServerRoot        */
  12. /*      hcpOffSite      hcpAccessCount                                       */
  13. /*                                                                           */
  14. /*---------------------------------------------------------------------------*/
  15.  
  16.  
  17.   IF (hclMatched == 'No' & hclFileType <> 'HTMLTAG' & hclFileType <> 'DIRECTORY') THEN
  18.     DO
  19.  
  20.     spaces = ''
  21.     len = LENGTH(hclPhysical)
  22.     IF (len < 60) THEN
  23.        spaces = COPIES(' ', 60 - len)
  24.     line = hclPhysical || spaces || '(' || hclDoc || ') '
  25.  
  26.     Call RxhcLineOut line
  27.     END
  28.  
  29. RETURN
  30.  
  31.