D
dpackerSIG
Guest
I have a question about parsing a complex JSON object - How can I get the text value of a particular record (index?) in a JSON object? I have code that is reading the file, but how (in the example below) can I get the OwnerName of "Donald Duck" in item 2? My code (also pasted below) does the following correctly: 1. Convert a file into a JSON object: joJsonObj = CAST(omParser
arseFile("/tmp/test2.json"), JsonObject). 2. Gets the JSON Array "Items" 3. Correctly reports the number of items (1) 4. Appears to get item 1 as a JSON Object 5. How do I read a text value OwnerName from the JSON Object in step 4? Any help would be greatly appreciated. Code and JSON attached. Thanks, -Dan USING Progress.Json.ObjectModel.*. &SCOPED-DEFINE usrwKey "concurReportHeader" DEFINE VARIABLE omParser AS ObjectModelParser NO-UNDO. DEFINE VARIABLE jsConstruct AS JsonConstruct NO-UNDO. DEFINE VARIABLE joJsonObj AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonArray AS JsonArray. omParser = NEW ObjectModelParser ( ). joJsonObj = CAST(omParserarseFile("/tmp/test2.json"), JsonObject). oJsonArray = joJsonObj:GetJsonArray("Items"). MESSAGE oJsonArray:LENGTH. /* ** This works fine, I get a length of 3 ** */ DEFINE VARIABLE OrderInfo AS LONGCHAR NO-UNDO. def var joObj2 as JsonObject. DEFINE VARIABLE oTestArray AS JsonArray. joObj2 = oJsonArray:GetJsonObject(1). /* This seems to work - doesn't throw an error */ /* My question - how can I get the Owner Name from joObj2? */ { "Items": [ { "Name": "Arizona Advisory Board", "Total": 4, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T16:36:48.477", "SubmitDate": "2016-12-16T20:54:02.637", "ProcessingPaymentDate": "2016-12-16T20:54:38.093", "PaidDate": "2016-12-23T19:10:34.137", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-05T00:00:00", "LastComment": "Testing", "OwnerLoginID": "MinnieMouse@disney.com", "OwnerName": "Minnie Mouse", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-23T19:10:34.443", "PersonalAmount": 0, "AmountDueEmployee": 2, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 4, "TotalApprovedAmount": 4, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": true, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...4M4Fjbq7OUr........../WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": null, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1.........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "445912519B.........", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/44591251........." }, { "Name": "New York Nov 10 - Nov 11", "Total": 69, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T18:01:48.99", "SubmitDate": "2016-12-16T18:07:29.557", "ProcessingPaymentDate": "2016-12-16T20:48:54.277", "PaidDate": "2016-12-16T21:01:27.137", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-16T00:00:00", "LastComment": "Bunch of meetings", "OwnerLoginID": "donaldduck@disney.com", "OwnerName": "Donald Duck", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-16T21:01:27.137", "PersonalAmount": 0, "AmountDueEmployee": 69, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 69, "TotalApprovedAmount": 69, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": false, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...YYKeB9$s$pv3........./WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": { "Type": "List", "Value": "G&A:305 - CEO", "Code": "27000B-1231459685", "ListItemID": "gWkl$pcW18Tntjp40xneHY0CyY........." }, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1bpC........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "BD0F522C8A..........", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/BD0F522C8A.........." }, { "Name": "Mickey Mouse SF 10/3, 10/12, 1", "Total": 84, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T18:09:16.56", "SubmitDate": "2016-12-16T18:12:35.213", "ProcessingPaymentDate": "2016-12-16T20:41:07.313", "PaidDate": "2016-12-16T20:43:11.057", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-16T00:00:00", "LastComment": "", "OwnerLoginID": "mickeymouse@disney.com", "OwnerName": "Mickey Mouse", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-16T20:43:11.08", "PersonalAmount": 0, "AmountDueEmployee": 84, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 84, "TotalApprovedAmount": 84, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": false, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...LWZgkm$sAJX........../WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": { "Type": "List", "Value": "G&A:305 - CEO", "Code": "27000B-1231459685", "ListItemID": "gWkl$pcW18Tntjp40xneHY0CyY........." }, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1bpC.........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "D8FAAF3BE44F4D6183CF", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/D8FAAF3BE4.........." } ], }
Continue reading...
arseFile("/tmp/test2.json"), JsonObject). 2. Gets the JSON Array "Items" 3. Correctly reports the number of items (1) 4. Appears to get item 1 as a JSON Object 5. How do I read a text value OwnerName from the JSON Object in step 4? Any help would be greatly appreciated. Code and JSON attached. Thanks, -Dan USING Progress.Json.ObjectModel.*. &SCOPED-DEFINE usrwKey "concurReportHeader" DEFINE VARIABLE omParser AS ObjectModelParser NO-UNDO. DEFINE VARIABLE jsConstruct AS JsonConstruct NO-UNDO. DEFINE VARIABLE joJsonObj AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonArray AS JsonArray. omParser = NEW ObjectModelParser ( ). joJsonObj = CAST(omParserarseFile("/tmp/test2.json"), JsonObject). oJsonArray = joJsonObj:GetJsonArray("Items"). MESSAGE oJsonArray:LENGTH. /* ** This works fine, I get a length of 3 ** */ DEFINE VARIABLE OrderInfo AS LONGCHAR NO-UNDO. def var joObj2 as JsonObject. DEFINE VARIABLE oTestArray AS JsonArray. joObj2 = oJsonArray:GetJsonObject(1). /* This seems to work - doesn't throw an error */ /* My question - how can I get the Owner Name from joObj2? */ { "Items": [ { "Name": "Arizona Advisory Board", "Total": 4, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T16:36:48.477", "SubmitDate": "2016-12-16T20:54:02.637", "ProcessingPaymentDate": "2016-12-16T20:54:38.093", "PaidDate": "2016-12-23T19:10:34.137", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-05T00:00:00", "LastComment": "Testing", "OwnerLoginID": "MinnieMouse@disney.com", "OwnerName": "Minnie Mouse", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-23T19:10:34.443", "PersonalAmount": 0, "AmountDueEmployee": 2, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 4, "TotalApprovedAmount": 4, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": true, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...4M4Fjbq7OUr........../WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": null, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1.........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "445912519B.........", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/44591251........." }, { "Name": "New York Nov 10 - Nov 11", "Total": 69, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T18:01:48.99", "SubmitDate": "2016-12-16T18:07:29.557", "ProcessingPaymentDate": "2016-12-16T20:48:54.277", "PaidDate": "2016-12-16T21:01:27.137", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-16T00:00:00", "LastComment": "Bunch of meetings", "OwnerLoginID": "donaldduck@disney.com", "OwnerName": "Donald Duck", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-16T21:01:27.137", "PersonalAmount": 0, "AmountDueEmployee": 69, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 69, "TotalApprovedAmount": 69, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": false, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...YYKeB9$s$pv3........./WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": { "Type": "List", "Value": "G&A:305 - CEO", "Code": "27000B-1231459685", "ListItemID": "gWkl$pcW18Tntjp40xneHY0CyY........." }, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1bpC........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "BD0F522C8A..........", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/BD0F522C8A.........." }, { "Name": "Mickey Mouse SF 10/3, 10/12, 1", "Total": 84, "CurrencyCode": "USD", "Country": "US", "CountrySubdivision": "US-CA", "CreateDate": "2016-12-16T18:09:16.56", "SubmitDate": "2016-12-16T18:12:35.213", "ProcessingPaymentDate": "2016-12-16T20:41:07.313", "PaidDate": "2016-12-16T20:43:11.057", "ReceiptsReceived": true, "UserDefinedDate": "2016-12-16T00:00:00", "LastComment": "", "OwnerLoginID": "mickeymouse@disney.com", "OwnerName": "Mickey Mouse", "ApproverLoginID": null, "ApproverName": null, "ApprovalStatusName": "Approved", "ApprovalStatusCode": "A_APPR", "PaymentStatusName": "Paid", "PaymentStatusCode": "P_PAID", "LastModifiedDate": "2016-12-16T20:43:11.08", "PersonalAmount": 0, "AmountDueEmployee": 84, "AmountDueCompanyCard": 0, "TotalClaimedAmount": 84, "TotalApprovedAmount": 84, "LedgerName": "DEFAULT", "PolicyID": "gWjJ2u5MR53dSMyPMVTh0w89G.........", "EverSentBack": false, "HasException": true, "WorkflowActionUrl": "http://www.concursolutions.com/api/...LWZgkm$sAJX........../WorkFlowAction?user=ALL", "OrgUnit1": null, "OrgUnit2": null, "OrgUnit3": null, "OrgUnit4": null, "OrgUnit5": null, "OrgUnit6": null, "Custom1": { "Type": "List", "Value": "G&A:305 - CEO", "Code": "27000B-1231459685", "ListItemID": "gWkl$pcW18Tntjp40xneHY0CyY........." }, "Custom2": null, "Custom3": { "Type": "Boolean", "Value": "N", "Code": null, "ListItemID": null }, "Custom4": null, "Custom5": null, "Custom6": null, "Custom7": null, "Custom8": null, "Custom9": null, "Custom10": null, "Custom11": null, "Custom12": null, "Custom13": null, "Custom14": null, "Custom15": { "Type": "List", "Value": "United States", "Code": "US", "ListItemID": "gWkl$pcW18SglmFtnU$p4Vp1bpC.........." }, "Custom16": null, "Custom17": null, "Custom18": null, "Custom19": null, "Custom20": null, "ID": "D8FAAF3BE44F4D6183CF", "URI": "https://www.concursolutions.com/api/v3.0/expense/reports/D8FAAF3BE4.........." } ], }Continue reading...