• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Parses the xml data in the string for later analyze and extraction.

Parameters:
TargetString	A string that holds the xml data.

global
procedure PayDetailsWClassCardData(Integer wn,string sdata)
begin
  record RcVc RepSpec;
  string 255 t1,t2,t3;
  string 255 priacc,name,expdate,scode,exdata;
  xml xdata;
  val outstanding;
  
  GetWindowRecord(wn,RepSpec);
  
  xdata = ParseXmlString(sdata);
  
  t1 = XmlGet(xdata,"HAL1/T1");
  t2 = XmlGet(xdata,"HAL1/T2");
  t3 = XmlGet(xdata,"HAL1/T3");
  
  ParseT1Data(t1,priacc,name,expdate,scode,exdata);
  if (priacc=="") then begin
    ParseT2Data(t1,priacc,expdate,scode,exdata);
  end;
  RepSpec.f2 = priacc;
  PutWindowRecord(wn,RepSpec);
end;

Related topics: