Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

This example returns a list of account names, presuming the IGLS accounting package is installed on the host.

 

Code Block
languagecoldfusion
titleCFML
linenumberstrue
<cfset mumps = createObject("component", "lib.cfmumps.mumps")>
<cfset mumps.open()>
<ul>
<cfset lastResult = false>
<cfset nextSubscript = "">
<cfloop condition="lastResult EQ false">
  <cfset order = mumps.order("TT", ["ACCT", nextSubscript])>
  <cfset lastResult = order.lastResult>
  <cfset nextSubscript = order.value>
  <cfoutput>
    <cfif nextSubscript NEQ "">
      <li>#mumps.get("TT", ["ACCT", nextSubscript])#</li>
    </cfif>
  </cfoutput>
</cfloop>
</ul>
<cfset mumps.close()>