scottklement.com

Hi Scott,

This is a SOAP API that I am working to write RPG program to process. V7R4M0 is the current version.
I am doing a HTTP_POST and getting the HTTP 500 error and below is the faultstring error.
Thanks for your advice and help! I am learning as I go with this project.
Onie ...

Thank You very much for all your help.
All working very fine now.
Onie

Thanks, Scott, for your patients.
The file is dumped into the IFS with a long path: '/xxx/webservices/log/20221206050906133925_623117_xxxxx_getCard.XML ' that is stored in a variable
FilePath. LOL.... and this of course did not work : ' path=filepath/soapenv:Envelope/soapenv:Body/ns5:getCardResponse ...

My code calls a server that sends the XML file to the IFS and if the process is successful, I then open and read the file and parse the data to data structures and next I will write the data to a file.

I have done this program in steps as I have never done any of this before. Once I got the server ...

{code}

Dcl-PR OpenFile INT() EXTPROC('open');
*N POINTER VALUE OPTIONS(*STRING);
*N INT(10) VALUE;
*NUNS(10) VALUE;
*N UNS(10) VALUE OPTIONS(*NOPASS);
*N UNS(10) VALUE OPTIONS(*NOPASS);
*N UNS(10) VALUES OPTIONS(*NOPASS);
END-PR;

DCL-PR READFILE INT(10) EXTPROC('read'_);
*N INT(10) VALUE;
*N ...

Thank you, I will remember to place [code] and [/code] next time around the code. Still learning the rule on posting to the site. I did try to use the count prefix and still had the "Parsing error code 2". I also changed the %XML options to case=convert and removed the allowextra=yes and ...

EVAL limits
LIMITS.HOURS(1) = '0 '
LIMITS.LIMIT(1) = '250 '
LIMITS.LIMITID(1) = 'DSL
LIMITS.MINHOURS(1) = '0 '
LIMITS.HOURS(2) = '0 '
LIMITS.LIMIT(2) = '250 '
LIMITS.LIMITID(2) = 'USLD
LIMITS.MINHOURS(2) = '99 '
LIMITS.HOURS(3) = ' '
LIMITS.LIMIT(3) = ' '
LIMITS.LIMITID(3 ...

I am wondering if the way the read is bringing the data?


// Null terminate lines with x'00' for API's
PathFile = %Trim(Filepath) + x'00';
OpenMode = 'r' + x'00';
FilePtr = OpenFile(%addr(PathFile):%addr(OpenMode));

if (FilePtr = *null);
Dump(A);
Return;
endif;

// RtvDta should contain ...

I see your code worked with the loading of the array. I will try again and see if I can get it to work.
I was about to try to learn how to do a %handler procedure.
Thank you very much for you example code.
Onie

CTL-OPT DFTACTGRP(*NO) ACTGRP('TMTILE')
BNDDIR('AVRTBNDDIR' :'HTTPAPI');
CTL-OPT OPTION(*DEBUGIO:*SRCSTMT) DEBUG FIXNBR(*ZONED) EXTBININT(*YES)
INDENT('|') USRPRF(*OWNER) MAIN(Main);
//****************************************************************//

DCL-F EFSTSERVER DISK(*EXT) USAGE(*INPUT ...