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 ************Beginnin...

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 t...

{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 POINTER...

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 a...

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) = ' LIMITS.MINHOURS(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 each row up to...

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:*UPDAT...