scottklement.com

Code: Select all

{
  "result": {
    "verdict": {
      "inputGranularity": "SUB_PREMISE",
      "validationGranularity": "OTHER",
      "geocodeGranularity": "OTHER",
      "hasUnconfirmedComponents": true
    },
    "address": {
      "formattedAddress": "WESRERSER 23423, D, AS, DUNK, UK",
      "postalAddress": {
        "regionCode": "GB",
        "languageCode": "en-GB",
        "locality": "DUNK",
        "addressLines": [
          "WESRERSER 23423, D",
          "AS"
        ]
      },
      "addressComponents": [
        {
          "componentName": {
            "text": "DUNK",
            "languageCode": "en"
          },
          "componentType": "postal_town",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE",
          "unexpected": true
        },
        {
          "componentName": {
            "text": "WESRERSER 23423",
            "languageCode": "en"
          },
          "componentType": "subpremise",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE"
        },
        {
          "componentName": {
            "text": "D",
            "languageCode": "en"
          },
          "componentType": "premise",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE"
        },
        {
          "componentName": {
            "text": "CITYJP",
            "languageCode": "en"
          },
          "componentType": "postal_town",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE",
          "unexpected": true
        },
        {
          "componentName": {
            "text": "AS",
            "languageCode": "en"
          },
          "componentType": "premise",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE"
        },
        {
          "componentName": {
            "text": "5555555554",
            "languageCode": "en"
          },
          "componentType": "postal_town",
          "confirmationLevel": "UNCONFIRMED_BUT_PLAUSIBLE",
          "unexpected": true
        },
        {
          "componentName": {
            "text": "UK",
            "languageCode": "en"
          },
          "componentType": "country",
          "confirmationLevel": "CONFIRMED"
        }
      ],
      "missingComponentTypes": [
        "postal_code"
      ],
      "unconfirmedComponentTypes": [
        "postal_town",
        "subpremise",
        "premise",
        "postal_town",
        "premise",
        "postal_town"
      ]
    },
    "geocode": {
      "location": {
        "latitude": 55.378051,
        "longitude": -3.435973
      },
      "plusCode": {
        "globalCode": "9C7R9HH7+6J"
      },
      "bounds": {
        "low": {
          "latitude": 34.5614,
          "longitude": -8.8988999
        },
        "high": {
          "latitude": 60.9157,
          "longitude": 33.9165549
        }
      },
      "featureSizeMeters": 20000,
      "placeId": "ChIJqZHHQhE7WgIReiWIMkOg-MQ",
      "placeTypes": [
        "country",
        "political"
      ]
    }
  },
  "responseId": "fa3da8c4-a829-4aea-bec3-860ae659bc84"
}

Code: Select all

dcl-ds jsonResponse qualified inz;
        dcl-ds result;
            dcl-ds verdict;
                inputGranularity char(20);
                validationGranularity char(20);
                geocodeGranularity char(20);
                addressComplete char(5);
                hasUnconfirmedComponents char(5);
                hasInferredComponents char(5);
                hasReplacedComponents char(5);
            end-Ds;
            dcl-ds address;
                formattedAddress char(256);
                dcl-ds postalAddress;
                    revision char(5);
                    regionCode char(2);
                    languageCode char(2);
                    postalCode char(10);
                    administrativeArea char(2);
                    locality char(50);
                    sublocality char(50);
                    addressLines char(100) dim(999);
                    recipients char(100) dim(999);
                    organization char(100);
                end-Ds;
                dcl-ds addressComponents dim(999);
                    dcl-ds componentName;
                        text char(50);
                        languageCode char(2);
                    end-Ds;
                    componentType char(30);
                    confirmationLevel char(30);
                    inferred char(5);
                    spellCorrected char(5);
                    replaced char(5);
                    unexpected char(5);
                end-Ds;
                missingComponentTypes char(30) dim(999);
                unconfirmedComponentTypes char(50) dim(999);
                unresolvedTokens char(50) dim(999);
            end-Ds;
            dcl-ds geocode;
                dcl-ds location;
                    latitude char(15);
                    longitude char(15);
                end-Ds;
                dcl-ds plusCode;
                    globalCode char(50);
                    compoundCode char(50);
                end-Ds;
                dcl-ds bounds;
                    dcl-ds low;
                        latitude char(15);
                        longitude char(15);
                    end-Ds;
                    dcl-ds high;
                        latitude char(15);
                        longitude char(15);
                    end-Ds;
                end-Ds;
                featureSizeMeters char(15);
                placeId char(50);
                placeTypes char(25) dim(999);
            end-Ds;
            dcl-ds metadata;
                business char(5);
                poBox char(5);
                residential char(5);
            end-Ds;
            dcl-ds uspsData;
                dcl-ds standardizedAddress;
                    firstAddressLine char(50);
                    firm char(50);
                    secondAddressLine char(50);
                    urbanization char(50);
                    cityStateZipAddressLine char(50);
                    city char(50);
                    state char(2);
                    zipCode char(5);
                    zipCodeExtension char(4);
                end-Ds;
                deliveryPointCode char(2);
                deliveryPointCheckDigit char(1);
                dpvConfirmation char(1);
                dpvFootnote char(40);
                dpvCmra char(1);
                dpvVacant char(1);
                dpvNoStat char(1);
                dpvNoStatReason int(10);
                dpvDrop char(1);
                dpvThrowback char(1);
                dpvNonDeliveryDays char(1);
                dpvNonDeliveryDaysValues int(10);
                dpvNoSecureLocation char(1);
                dpvPbsa char(1);
                dpvDoorNotAccessible char(1);
                dpvEnhancedDeliveryCode char(1);
                carrierRoute char(4);
                carrierRouteIndicator char(1);
                ewsNoMatch char(5);
                postOfficeCity char(50);
                postOfficeState char(2);
                fipsCountyCode char(3);
                county char(50);
                elotNumber char(10);
                elotFlag char(1);
                lacsLinkReturnCode char(20);
                lacsLinkIndicator char(20);
                poBoxOnlyPostalCode char(20);
                suitelinkFootnote char(20);
                pmbDesignator char(20);
                pmbNumber char(20);
                addressRecordType char(1);
                defaultAddress char(5);
                errorMessage char(100);
                cassProcessed char(5);
            end-Ds;
        end-Ds;
        responseId char(100);
    end-Ds;

Code: Select all

// Call the HTTP service
            response = http_string('POST': url : request : 'application/json');

        // Parse the JSON response
            DATA-INTO jsonResponse %DATA(response) %PARSER('YAJLINTO');

Code: Select all

dcl-ds jsonResponse qualified inz;
        dcl-ds result;
            dcl-ds verdict;
                inputGranularity char(20);
                validationGranularity char(20);
                geocodeGranularity char(20);
                count_addressComplete int(5);  <<< I use int(5) but can be any numeric
                addressComplete char(5);

Code: Select all

DATA-INTO jsonResponse %DATA(response : 'case=convert countprefix=count_' ) %PARSER('YAJLINTO');

Code: Select all

DATA-INTO jsonResponse %DATA( response
                            : 'case=convert +
                               allowmissing=yes +
                               allowextra=yes') 
                           %PARSER('YAJLINTO');

Code: Select all

DATA-INTO jsonResponse %DATA( response
                            : 'case=convert +
                               countprefix=num_ +
                               allowextra=yes') 
                           %PARSER('YAJLINTO');

Code: Select all

     . . .
      addressComplete char(5);
      num_addressComplete int(10);
     . . .

Code: Select all

DATA-INTO JsonResponse %DATA(response
                                        : 'case=convert +
                                        allowmissing=yes +
                                        allowextra=yes')
                                        %PARSER('YAJLINTO');

Code: Select all

monitor;
  // call http_string here
on-error;
  error_msg = http_error(errorCode: httpStatus);
end-mon;

if httpStatus = 400;
  // do special logic that is only done for 400 errors
endif;