RE: QSPDSPFM example for V7R1

I had started to give it a try last night, but I have not completed it yet.

Thanks for your suggestion!

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

Jorge,

You could look into using the QSPWRTI (Retrieve Writer Information) API - you may be able to get it to do something similar to the QSPDSPFM functionality.

Rory


On Mon, Feb 11, 2013 at 8:22 AM, Jorge Merino <jorge@xxxxxxxxx> wrote:

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-m
es
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.

--
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.