×
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.
I think something along these lines will work. Keep in mind I didn't
test it though.
Have you tried searching the archives? Here's one link I found and it
looks like Scott provided the sample code.
http://archive.midrange.com/rpg400-l/200204/msg00420.html
H BNDDIR('QC2LE') DFTACTGRP(*NO)
D STDIN c 0
D read PR 10I 0 ExtProc('read')
D handle 10i 0 value
D buffer * value
D bytes 10U 0 value
D Len S 10I 0
D Data S 32768A
/Free
Len = read(STDIN: %addr(data) : %size(Data));
Return;
/End-Free
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
Sent: Wednesday, August 01, 2007 12:53 PM
To: Midrange Systems Technical Discussion
Subject: Re: perl and sendmail on iSeries
Just write an RPG or C program that reads stdin, saves it to a
file in the IFS, and sends it via QtmmSendMail() or sockets.
Scott,
I have learned much over the years from your sample code on your site.
Is there an RPGLE stdin sample??
I am still hoping for a PASE version of sendmail.... My part of this
project
is to take html & perl from a 3rd party and config Apache to make it
work
(and no more). I could easily build my own web form with rpg/cgi and use
the QtmmSendMail or other mail options I've implemented - but I am not
the coder or maintainer of this site - only acting as the server
manager...
I do fear telling the customer of a roadblock with the iSeries will have
repercussions.
jim franz
midrange.com
