Just in case, this is the whole source:
%define {
Libnam = "PVIDAL"
Filnam = "SD273184F"
Fldnam =
"IJACNS,IJPDSC,IJPTYP,PPLANNER,IJACNT,IJACNU,IJCDSC,IJCTYP,CPLANNER,IJADUQ,IJACN4"
Hdgnam = "Parent Item,Parent Desc,Parent I/T,Parent Planner,UsrSeq,Comp
Item,Comp Desc,Compt I/T,Compt Planner,BOM Level,Qty Per"
ALIST = ""
CLIST = ""
HLIST = ""
whereClause = ""
%}
%function(dtw_sql) getattr() {
select SCALE, SYS_CNAME from QSYS2/SYSCOLUMNS
where SYS_DNAME = '$(Libnam)' and SYS_TNAME ='$(Filnam)'
%report {
%row {
%if (V1 >= "0") @dtw_assign(align,"right")
%else @dtw_assign(align,"left") %endif
%if (ROW_NUM=="1") @dtw_assign(SLIST,align)
@dtw_assign(FLIST,V2)
%else @dtw_concat(SLIST," $(align)",SLIST)
@dtw_concat(FLIST," $(V2)" ,FLIST)
%endif
%}
%if (Fldnam=="") @dtw_assign(Fldnam,"*") %endif
%if (Fldnam=="*") @dtw_assign(CLIST,FLIST)
%else @dtw_replace(Fldnam,","," ",CLIST) %endif
@dtw_assign(i,"0") @dtw_words(CLIST,)
%while (i < max) { @dtw_add(i,"1",i)
@dtw_word(CLIST,i,colnam)
@dtw_wordpos(colnam,FLIST,n)
@dtw_word(SLIST,n,align)
@dtw_concat(ALIST," $(align)",ALIST)
%}
%if (Hdgnam == "") @dtw_assign(HLIST,CLIST)
%else @dtw_replace(Hdgnam," ","~",HLIST)
@dtw_replace(HLIST ,","," ",HLIST) %endif
%}
%}
%macro_function setfilter() {
@dtw_assign(sep,"WHERE ")
@dtw_assign(i,"0") @dtw_words(CLIST,max)
%while (i < max) { @dtw_add(i,"1",i)
%if (@dtw_rword(ALIST,i)=="right") @dtw_assign(quote,"")
%else @dtw_assign(quote,"'") %endif
@dtw_word(CLIST,i,colnam)
@dtw_assign(value,"$($(colnam))")
%if (value != "")
@dtw_assign(whereClause,"$(whereClause)$(sep)$(colnam) =
$(quote)$(value)$(quote)")
@dtw_assign(sep," AND ")
%endif
%}
%}
%function(dtw_sql) list() {
SELECT $(Fldnam) FROM $(Libnam)/$(Filnam)
$(whereClause)
%report {<table border style="border-collapse:collapse">
@dtw_words(CLIST,max)
<tr> @dtw_assign(i,"0")
%while (i < max) { @dtw_add(i,"1",i)
@dtw_replace(@dtw_rword(HLIST,i),"~"," ",name)
<th bgcolor="gray">$(name)</th>
%} </tr>
<tr> @dtw_assign(i,"0")
%while (i < max) { @dtw_add(i,"1",i)
@dtw_word(CLIST,i,name) @dtw_assign(value,"$($
(name))")
<td><input name="$(name)" value="$(value)"></td>
%} </tr>
%row { <tr> @dtw_assign(i,"0")
%while (i < max) { @dtw_add(i,"1",i)
@dtw_assign(value,"$(V$(i))")
<td align="@dtw_rword(ALIST,i)">$(value)</td>
%} </tr>
%}
</table>
%}
%message { 100 : "<p><b>No records selected</b>" : continue %}
%}
%html(macro) {
@getattr()
@setfilter()
<form method="POST">
@list()
<p><input type="submit" value="Submit">
</form>
%}
PETER VIDAL
PALL CORPORATION
SR System Analyst | WH Application Development
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
727-815-3104 | Fax: 727-815-3120 | www.pall.com
" Imagination is more important than knowledge"
Albert Einstein (1879 - 1955)
--------------------------------------------------------------------------------
Attention:
This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.
--------------------------------------------------------------------------------
midrange.com
