On Jul 06, 2026 11:07pm, HISACRO wrote to DIGITAL MAN:
Re: Re: ai shit from bbs people.
By: Digital Man to fusion on Mon Jul 06 2026 16:12:36
Nope, just a professional using the available tools to get the
best job
done, as is expected of me.
I have given enough examples of the people take in the
"professional"
settings that has usage to the real world.
My husband was amazed AI could generate this code :)
**free
// Prototype for QtmsCreateSendEmail API
dcl-pr QtmsCreateSendEmail extproc('QtmsCreateSendEmail');
pMimeMsg pointer value;
pMsgLength int(10) value;
pErrCode pointer value;
end-pr;
// Data structure for the Error Code parameter
dcl-ds errCode qualified;
bytesProv int(10) inz(0);
bytesAvail int(10) inz(0);
end-ds;
// Variables
dcl-s mimeMessage varchar(32767);
dcl-s msgLen int(10);
dcl-s cr char(2) inz(x'0d25'); // Carriage Return + Line
Feed
// 1. Build the MIME formatted email message
mimeMessage = 'From:
sender@domain.com' + cr +
'To:
recipient@domain.com' + cr +
'Subject: Hello from RPGLE' + cr +
'MIME-Version: 1.0' + cr +
'Content-Type: text/plain' + cr +
cr + // Blank line separates headers from body
'This email was sent directly from an RPGLE program!'
+ cr;
msgLen = %len(mimeMessage);
// 2. Send the email
QtmsCreateSendEmail(%addr(mimeMessage) + 2 : msgLen : %addr
(errCode));
if errCode.bytesAvail = 0;
dsply 'Email sent successfully!';
else;
dsply 'Failed to send email.';
endif;
*inlr = *on;
... 73s de WSNK792
---
þ wcQWK 10.0 ÷ Over The Brink ¦ Grand Island, NY USA | brinkbbs.org