I'm trying to write a RPG program to process an XML document that we download daily from a website. Here is the structure of the document. Some of the values have been omitted because it contains sensitive information.
<Report>
<table1>
<Detail_Collection>
<Detail UniqueID="" KEPROCaseID="" SubmitDate="2018-03-19T00:00:00" FirstName="" LastName="" ContractMemberID="" SSN="" RequestType1="Continued Stay Review" ServiceTypeName="Section 97 Private Non-Med Institution (PNMI)" Code1="H0019HU" PxCodeDescription1="Treatment Foster Care Level D" ServiceStartDate="2018-03-14T00:00:00" ServiceEndDate="2018-06-24T00:00:00" NoOfDays1="103" ApprovedUnits="180" NewStatus="Approved - Authorized" AuthorizationNum="" SubmittingProviderName="COMMUNITY HEALTH AND COUNSELING SERVICES" SubmittingProviderNPI="" ServicingProviderName="COMMUNITY HEALTH AND COUNSELING SERVICES" ServicingProviderNPI1="" Staff="" />
</Detail_Collection>
</table1>
</Report>
The path option in my RPG program is "Report/table1/Detail_Collection". Is that correct? I created a data structure array to contain all the contents of each row for the handler procedure I wrote. I'm wondering if this is wrong, as the format of the XML file is not what I'm used to working with. This is my data structure definition.
dcl-ds aps qualified;
Detail_UniqueID char(9);
KEPROCaseID char(9);
SubmitDate char(19);
FirstName char(20);
LastName char(20);
ContractMemberID char(22);
SSN char(9);
RequestType1 char(34);
ServiceTypeName char(60);
Code1 char(12);
PxCodeDescription1 char(75);
ServiceStartDate char(19);
ServiceEndDate char(19);
NoOfDays1 char(3);
ApprovedUnits char(4);
NewStatus char(40);
AuthorizationNum char(25);
SubmittingProviderName char(50);
SubmittingProviderNPI char(10);
ServicingProviderName char(50);
ServicingProviderNPI1 char(10);
Staff char(30);
Note char(5000);
end-ds;
When I run my program in debug mode I does not return any values and only reads one row. Any help would be greatly appreciated.
Michael Soucy
Sr. Programmer / Analyst
Community Health and Counseling Services
(207) 922-4837
****** CONFIDENTIALITY NOTICE ******
The documents accompanying this email contain confidential information that may be legally privileged and protected by federal and state law. This information is intended for use only by the entity or individual to whom it is addressed. The authorized recipient is obligated to maintain the information in a safe, secure, and confidential manner. The authorized recipient is prohibited from using this information for purposes other than intended, prohibited from disclosing this information to any other party unless required to do so by law or regulation, and is required to destroy the information after its stated need has been fulfilled.
If you are in possession of this protected health information, and are not the intended recipient, you are hereby notified that any improper disclosure, copying, or distribution of the contents of this information is strictly prohibited. Please notify the owner of this information immediately and arrange for its return or destruction. Thank You.
midrange.com
