RE: QSPDSPFM example for V7R1

What a pity!
Thanks Rory.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Sunday, February 10, 2013 7:50 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: QSPDSPFM example for V7R1

Jorge,

I believe IBM stopped their unofficial support for QSPDSPFM a couple of releases back :( The object domain error you're getting is because of that.
No workaround that I know of.

Rory


On Sun, Feb 10, 2013 at 5:26 PM, Jorge Merino <jorge@xxxxxxxxx> wrote:

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.

--
Rory Hewitt

http://www.linkedin.com/in/roryhewitt
--
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.