This has worked for me in the past: (maybe there is a more elegant way of doing this - this code is quite old)
If %SubSt(Cgibuffer:1:2) = '??';
CgiBuffer = xlatwCCSIDs('0':%TrimR(CgiBuffer):819:37);
inString = %Trim(CgiBuffer);
FileHandle = open(%Trim(w_outFileName):flags:mode: 819);
Dataline = %Trim(inString);
TrimLine = %TrimR(Dataline) + CrLf;
Toni Schaake - Senior Analyst Developer
Mediscor PBM (Pty) Limited Reg. No 2005/012049/07
River Falls Office Park
Rose Avenue Centurion 0157
PO Box 8796 Centurion 0046
Tel: +27 12 6748058
Web-site: www.mediscor.co.za email: Toni.Schaake@xxxxxxxxxxxxxx
This e-mail is subject to a disclaimer which may be read here.
From: WEB400 <web400-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Dave
Sent: Wednesday, 09 November 2022 16:31
To: Web Enabling the IBM i (AS/400 and iSeries) <web400@xxxxxxxxxxxxxxxxxx>
Subject: [WEB400] stdin and IFS
Discovering rather late in life XML-INTO for RPG, and reading it from a file already saved on the IFS.
How can I create my IFS file from the xml data sent in stdin via http? I'm on V7R1.
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list To post a message email: WEB400@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
or email: WEB400-request@xxxxxxxxxxxxxxxxxx Before posting, please take a moment to review the archives at https://archive.midrange.com/web400
As an Amazon Associate we earn from qualifying purchases.