× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi Dave,

This has worked for me in the past: (maybe there is a more elegant way of doing this - this code is quite old)

APIStdIn(CgiBuffer:CgiBufLen:CgiRspLen:CgiError);
If %SubSt(Cgibuffer:1:2) = '??';
CgiBuffer = xlatwCCSIDs('0':%TrimR(CgiBuffer):819:37);
EndIf;
inString = %Trim(CgiBuffer);

FileHandle = open(%Trim(w_outFileName):flags:mode: 819);
Dataline = %Trim(inString);
TrimLine = %TrimR(Dataline) + CrLf;
callp write(FileHandle:%Addr(TrimLine):%Len(%TrimR(TrimLine)));
Callp close(FileHandle);

Best Regards,

Toni Schaake - Senior Analyst Developer

Mediscor PBM (Pty) Limited Reg. No 2005/012049/07
Baobab Building
River Falls Office Park
Rose Avenue Centurion 0157
PO Box 8796 Centurion 0046
South Africa
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.

-----Original Message-----
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

Hi,

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.

Thanks!
--
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,
visit: https://lists.midrange.com/mailman/listinfo/web400
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.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.