home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / HTMCK111 / MAC / HCNINIT.MAC < prev    next >
Text File  |  1995-11-14  |  1KB  |  25 lines
  1. /*---------------------------------------------------------------------------*/
  2. /*                                                                           */
  3. /*  hcnInit - This REXX Macro is called when the report is first called      */
  4. /*           This is where you can set up your  Header and such              */
  5. /*                                                                           */
  6. /*  Valid Variables are:                                                     */
  7. /*      hcReportName    hcReportDescription     hcServerURL                  */
  8. /*      hcServerRoot    hcDocumentRoot          hcTopHTML                    */
  9. /*                                                                           */
  10. /*                                                                           */
  11. /*---------------------------------------------------------------------------*/
  12.  
  13.   Call RxhcLineOut COPIES('-', 78)
  14.   title = 'Report -' hcReportDescription
  15.   extra = 58 - LENGTH(title)
  16.   Call RxhcLineOut title || COPIES(' ', extra) || Date() || ' ' || Time()
  17.   Call RxhcLineOut 'For Server [' || hcServerURL || ']'
  18.   Call RxhcLineOut 'This report started from [' || hcDocumentRoot || ']'
  19.   Call RxhcLineOut COPIES('-', 78)
  20.   Call RxhcLineOut 'This report will show files that are missing from the server and are '
  21.   Call RxhcLineOut 'Referenced by an HTML file'
  22.   Call RxhcLineOut COPIES('-', 78)
  23.  
  24. RETURN
  25.