Code: Select all
dcl-ds jsonDoc qualified;
STATUS varchar(10) inz('');
MESSAGE varchar(50) inz('');
INTERFACENAME varchar(50) inz('');
num_BATCHCLAIMRESPONSE int(10) inz(0);
dcl-ds BATCHCLAIMRESPONSE dim(150);
dcl-ds CLAIMINFO;
TRACKINGNUMBER varchar(10) inz('');
SUBMITTALINDICATOR varchar(1) inz('');
SERIALNUMBER varchar(20) inz('');
RMASTATUSDESCRIPTION varchar(80) inz('');
RMASTATUSCODE varchar(3) inz('');
REPAIRORDER varchar(8) inz('');
REPAIRINGOUTLET varchar(10) inz('');
IDENTIFIER varchar(50) inz('');
DISPOSITIONCODEDESCRIPTION varchar(80) inz('');
DISPOSITIONCODE varchar(5) inz('');
DATETIMEPROCESSED varchar(24) inz('');
CLAIMSTATUSDESCRIPTION varchar(20) inz('');
CLAIMSTATUSCODE varchar(3) inz('');
num_CLAIMPROCESSMSGINFO int(10) inz(0);
dcl-ds CLAIMPROCESSMSGINFO dim(300);
LINENUMBER varchar(5) inz('');
PROCESSCODE varchar(4) inz('');
PROCESSCATEGORYDESCRIPTION varchar(20) inz('');
PROCESSMESSAGE varchar(80) inz('');
end-ds;
CLAIMNUMBER varchar(20) inz('');
APPROVEDDOLLARAMOUNT varchar(20) inz('');
end-ds;
BUSINESSPARTNERCODE varchar(10) inz('');
end-ds;
end-ds;
Code: Select all
data-into jsonDoc %DATA( ifsPathname
: 'doc=file case=convert countprefix=num_ allowextra=yes')
%PARSER( 'YAJLINTO'
: '{ "document_name": "jsonDoc", +
"number_prefix": "YAJL_" }');
Code: Select all
{
"status": "Success",
"message": "Claim not Found",
"interfaceName": "I-207 - Batch Claim Submittal Response",
"batchClaimResponse": null
}
Thanks!!!!