/* Richard A. DeVenezia, 2/28/02;
 * http://www.devenezia.com;
 *
 * Be sure to submit jsTitleAndFootnote.sas first
 * so the macros are available;
 *
 * This example works when the created html and javascript file
 * reside in the same path.  Some tweaking is needed when javascript
 * is to reside in a folder other than the html.
 * Good relative addressing site layout reduces the tweak pain.
 */

x cd "G:\webs\devenezia-com\webapps\ROOT\downloads\sas\macros";

%include "jsTitleAndFootnote.sas";

data abc;
  input a b c;
cards;
1 2 3
4 5 6
run;

options nomprint source;

%let htmlFolder = %sysfunc(pathname(WORK));
%let htmlFolder = G:\Webs\devenezia-com\webapps\ROOT\downloads\sas\macros;
%let javascriptFilename = jsTitleAndFootnote-sample.js;
%let htmlFilename = jsTitleAndFootnote-sample.html;

filename myScript "&htmlFolder\&javascriptFilename";

ODS LISTING CLOSE;
ODS ESCAPECHAR='\';
ODS HTML
  BODY="&htmlFolder\&htmlFilename"
  HEADTEXT="%jsODSHeadText(&javascriptFilename)"
;

%jsTitleFootnoteReset (myScript)

TITLE
  "According to SN-005118, long titles or footnotes are broken with a <BR> at or near position 108. This is an example of that problem. "
;

FOOTNOTE;


PROC PRINT DATA=ABC;
RUN;

options mprint;

%jsTitle(1,%nrstr(<H1><A HREF='http://www.devenezia.com/downloads/sas/macros/jsTitleAndFootnote.sas'>jsTitleAndFootnote.sas</A></H1>
<P ALIGN=LEFT STYLE='margin-top:12pt;font:normal bold 12pt monospace'>
Richard A. DeVenezia<BR>
<A HREF='http://www.devenezia.com'>http://www.devenezia.com</A><BR>
If you find these macros useful, please <A HREF='/contact.php'>let me know</A>
</P>
<DIV STYLE='padding:4pt;background-color:white;color:black;font:normal 10pt monospace'>
<P>
I have developed a  suite of macros to enable long titles or footnotes
when working with ODS HTML.
The macros store Title and Footnote information in a separate
file in specially constructed javascript functions.  The macros
also generate SAS Title and Footnote statements that are
formulated to invoke the javascript functions.  Thus, when
the ODS HTML created page is accessed by a web browser the
title and footnote information is delivered to the reader.
</P>
Macros and Usage:
<HR NOSHADE><b>
%jsTitleFootnoteReset</b> ( <i>fileref</i> )
<P>
<i>fileref</i> - a FILEREF defined using a FILENAME statement.
</P>
<P>
The <i>fileref</i> is where javascript functions will be written.  The file should
not be the same file that ODS HTML is writing to.  The ODS HTML HEADTEXT=
option should be used to ensure the generated javascript file
is available to the generated HTML.
</P>
<HR NOSHADE><b>
%jsTitle</b> ( <i>N</i>, <i>text</i> )<br><b>
%jsFootnote</b> ( <i>N</i>, <i>text</i> )
<P>
<i>N</i> - The title or footnote number, 1 through 10.<BR>
<i>text</i> - Text to be displayed as the title.
</P>
<P>By default the title or footnote is left-justified.
To override this default, wrap <i>text</i> in a &lt;P&gt; block
with ALIGN=CENTER|RIGHT|JUSTIFY.
</P>
<P>
The <i>text</i> may contain direct HTML for embedding.  Best results
are experienced if the HTML is valid.  If you want to display characters
normally interpreted by the SAS macro system, pass the text wrapped in
<b>%nrstr()</b>.  If you experience SAS errors while using the
macros while trying to work with special characters, consider using
<A HREF='http://www.dionysia.org/html/entities/'>HTML entities</A>
discussed in the HTML <A HREF='http://www.w3.org/TR/REC-html40/sgml/entities.html'>4.0 Specification</A>.
</P>
<HR NOSHADE><b>
%jsODSHeadText</b> ( <i>URL</i> )<br>
<P>
<i>URL</i> - The URL where the javascript file should be loaded from<BR>
</P>
<P>For simple uses of <b>%jsTitle</b> and <b>%jsFootnote</b> the
<i>fileref</i> indicated in <b>%jsTitleFootnoteReset</b> will point to a
file in the same folder as the HTML file being created by ODS HTML.  This
means the filename itself is sufficient to pass as the <i>URL</i>.
</P>
<P>In more sophisticated uses, the <i>fileref</i> indicated in
<b>%jsTitleFootnoteReset</b> will point to a file in a folder
different than that of the HTML file being created by ODS HTML.
This means the location of the javascript file when
accessed through your web browser must be known.
For pages that are read directly off a disk or shared drive this means
some relative or absolute path according to the local system.
For pages that are read from web server this means
some relative or absolute path according to the web server.
</P>
<P>
jsODSHeadText is a convenience macro for use when specifing the value to
use in your ODS HTML HEADTEXT=. The macro generates this literal text:
</P>
<PRE>  &lt;SCRIPT LANGUAGE=&quot;&quot;JAVASCRIPT&quot;&quot;
SRC=&quot;&quot;&URL&quot;&quot;&gt;&lt;/SCRIPT&gt;
</PRE>
<P>
which when used as a HEADTEXT= value will cause this:
</P>
<PRE>  &lt;SCRIPT LANGUAGE=&quot;JAVASCRIPT&quot;
SRC=&quot;&URL&quot;&gt;&lt;/SCRIPT&gt;
</PRE>
<P>
to appear in the ODS HTML &lt;HEAD&gt;.
</P>
<P>Note: Your application may require HEADTEXT other than that needed by these macros.
</P>
<HR NOSHADE><b>
Sample SAS code</b><br>
<PRE>
%let <font style='background-color:lightblue'>htmlFolder</font> = <i>some-local-system-path</i>;<br>
%let <font style='background-color:lime'>jScriptFilename</font> = <i>some-filename</i>;<br>
filename <font style='background-color:yellow'>jScript</font> &quot;&<font style='background-color:lightblue'>htmlFolder</font>.\\&<font style='background-color:lime'>jScriptFilename</font>.&quot;;<br>
<b>%jsTitleFootnoteReset</b> ( <font style='background-color:yellow'>jScript</font> );<br>
ODS HTML body = &quot;&<font style='background-color:lightblue'>htmlFolder</font>.\\<i>html-filename</i>&quot;<br>
         headtext=&quot;<i>your head text</i><br>
                  <b>%jsODSHeadText</b> ( &<font style='background-color:lime'>jScriptFilename</font> )<br>
                  &quot;<br>
;<br>
%jsTitle (1, Title (may include &lt;b&gt;HTML&lt;/b&gt; itself))<br>
...<br>
ODS HTML CLOSE;<br>
</PRE>
<HR NOSHADE><b>
Caveats</b>
<p>If you try to set a title or footnote that has a &lt;PRE&gt;
block that covers mutiple lines, everything will run together.  This is
because the SAS macro system translates newlines to spaces.  Use
&lt;BR&gt; tags to ensure newlines occur where you want them.
</p>
<P>
These macros bypass the ODS renderer, thus, inline styling directives
indicated by \\S will <U>not</U> be ODS rendered.
</P>
<PRE>
</DIV>
<DIV STYLE='margin-left:0.5in;border:thin black solid;padding:8pt'>
<P>
So, make your titles as long as you want.
The more the information the better. The same goes for the footnotes.
There is pratically no limit to how long the titles and
footnotes can be.
Actually, they should not be more than 65536 characters long.
</P>
<P>You may reuse a title number within a given block of code that writes
to an HTML file.  What this means is that jsTitle() and jsFootnote()
keep track of how many times they have been called since
jsTitleFootnoteReset() and keep same numbered titles and footnotes
in separate javascript functions.
</P>
<P>Very long titles and footnotes in HTML enables you to:</P>
<UL STYLE='margin-left:20pt'>
<LI>Use CSS/DHTML for impressive or exotic content visualization and navigation.
</LI>
<LI>Embed Javascript for client side menuing.  Rather than use static menus,
your SAS program(s) can produce HTML with context sensitive menuing information.
Examples of this are not provided.</LI>
<LI>Embed Java Applets, ActiveX components or Shockwave objects
that require many parameters to be passed to them.
The more adventurous might try to embed SAS/Internet controls, etc...</LI>
<LI>Embed XML for content presentation</LI>
<LI>Embed any other various ML such as MathML or MusicML.</LI>
</UL>
</DIV>
<P style='background-color:white'>Thus ends TITLE 1.</P>
))

%jsFootnote(2,%str(This is footnote 2 output by macro jsFootnote(), jsTitleAndFootnote defaults to left-alignment))
%jsFootnote(3,<P ALIGN=CENTER>Centered</P>)
%jsFootnote(4,%str(
<P ALIGN=RIGHT STYLE='font:normal bold 16pt monospace;color:white;background-color:blue'>
This is all in a P tag<BR>
Right alignment from the ALIGNMENT attribute<BR>
color and font from the STYLE attribute</P>))
%jsFootnote(5,<P ALIGN=LEFT>Left</P>)
footnote6 "This is footnote 6 by standard footnote statement";

PROC PRINT DATA=ABC;
RUN;

%jsTitle (1, Javascript Title 1)
footnote "Standard Footnote";

PROC PRINT DATA=ABC noobs;
RUN;

%jsTitle (1, Another Javascript Title 1)
footnote "Standard Footnote";

PROC PRINT DATA=ABC noobs;
RUN;

%jsTitle (1, A test of all titles)
%jsTitle (2, Two)
%jsTitle (3, Three)
%jsTitle (4, Four)
%jsTitle (5, Five)
%jsTitle (6, 6)
%jsTitle (7, 7)
%jsTitle (8, 8)
%jsTitle (9, 9)
%jsTitle (10, 10)

%jsFootnote (1, A test of all footnotes)
%jsFootnote (2, 2)
%jsFootnote (3, 3)
%jsFootnote (4, 4)
%jsFootnote (5, 5)
%jsFootnote (6, 6)
%jsFootnote (7, 7)
%jsFootnote (8, 8)
%jsFootnote (9, 9)
%jsFootnote (10, 10)

PROC PRINT DATA=ABC;
RUN;


%jsTitle(1,%str(
<P ALIGN=LEFT STYLE='margin-top:12pt;font:normal bold 12pt monospace'>
This page was generated by SAS program <A HREF='?m=jsTitleAndFootnote'>jsTitleAndFootnote-sample.sas</A><BR>
Richard A. DeVenezia<BR>
http://www.devenezia.com</P>
))

%jsFootnote(1,%str(
<P ALIGN=LEFT STYLE='margin-top:12pt;font:normal bold 12pt monospace'>
This page was generated by SAS program <A HREF='?m=jsTitleAndFootnote'>jsTitleAndFootnote-sample.sas</A><BR>
Richard A. DeVenezia<BR>
http://www.devenezia.com</P>
))

DATA _NULL_;
  file PRINT ODS=(variables=(text));
  text = "The end.";
  put _ODS_;
  stop;
RUN;

ODS HTML CLOSE;
ODS LISTING;

TITLE;
FOOTNOTE;