RE: QSPDSPFM example for V7R1 -- RPG400-L

Carsten,

I just tried to open up that link and seems like it is not responding right now. I'll take a look later!

Thanks for your reply!

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Flensburg, Carsten
Sent: Monday, February 11, 2013 2:48 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: QSPDSPFM example for V7R1

Hello Jorge,

Some time ago I wrote my own version of IBM's Additional Message Information panel, which includes support for replying to messages. You can find the code and an accompanying article here:
http://www.iprodeveloper.com/article/rpg-programming/apis-by-example-mes
sage-handling-apis--additional-message-info-support-64434

Cheers,
Carsten

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jorge Merino
Sent: 11. februar 2013 02:27
To: rpg400-l@xxxxxxxxxxxx
Subject: QSPDSPFM example for V7R1

Hi folks,

Long history short, for years I've had an utility that works almost-like WRKSPLF, it also sends the spool file over email or saves it into the IFS.

It has been lacking of Reply Messages and now I want to add that feature. By looking into the Call Stack of WRKSPLF I found that QSPDSPFM program does the trick to show and allow to reply messages.

I found that QSPDSPFM has been discussed in the past as an undocumented, unsupported sort of API and some folks were able to use it.

I've been trying to make it work with no success: this is what I got so
far:
d QSPDSPFM pr ExtPGM('QSPDSPFM')
d FileName 10 Const
d job 26 Const
d FileNumber 10i 0 Const
d JobSysName 8 Const
d SpoolFileDate 15
d null s *
/Free
FileName = 'SU0800CD';
//1234567890
job = 'SU0800CD '
+ 'JMERINOH '
+ '482626';
FileNumber = 000001;
JobSysName = 'MYSYSTEM';
SpoolFileDate = x'0002'
+ '1130210'
+ '074150';
null = *NULL;
QSPDSPFM( FileName
: job
: FileNumber
: JobSysName
: SpoolFileDate
: null
);
/End-Free

The error message that I'm getting is
Object domain or storage protection error for offset in object QSPDSPFM

Any ideas? Does anybody have a working example for V7R1?

Thanks a lot,
Jorge
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

This communication is intended only for use by the addressee.It may contain confidential or privilegedinformation.
If you receive this communication unintentionally, please inform us immediately and delete this e-mail and any attachments.
Warning: Although we have taken reasonable precautions to ensure no viruses are present in this email, we cannot accept responsibility for any loss or damage arising from the use of this email or attachments.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.