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