× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. August 2017

RE: CPF2479 on sndpgmmsg

  • Subject: RE: CPF2479 on sndpgmmsg
  • From: "Danny Rodius" <danny.rodius@xxxxxxxxx>
  • Date: Tue, 29 Aug 2017 09:20:38 +0200
  • Ironport-phdr: 9a23:1RD2bhQYAZ+ePWkwxl+HpNR1D9psv+yvbD5Q0YIujvd0So/mwa6zZRON2/xhgRfzUJnB7Loc0qyN4vCmATRIyK3CmUhKSIZLWR4BhJdetC0bK+nBN3fGKuX3ZTcxBsVIWQwt1Xi6NU9IBJS2PAWK8TW94jEIBxrwKxd+KPjrFY7OlcS30P2594HObwlSijewZbB/IA+qoQnNq8IbnZZsJqEtxxXTv3BGYf5WxWRmJVKSmxbz+MK994N9/ipTpvws6ddOXb31cKokQ7NYCi8mM30u683wqRbDVwqP6WACXWgQjxFFHhLK7BD+Xpf2ryv6qu9w0zSUMMHqUbw5Xymp4qF2QxHqlSgHLSY0/mHJhMx+jq1VvRyvqR9wzIHIb4+bM+Z+c7jBfd4YSmpNQthdWzBfDo66coABD/ABPeFdr4TlqVcAowGxBQ+qBOLv1zRGmnj20rA70+Q8CgHK0hErEtUTv3vOqtX1MqcTXfqvzKnP0DrDbu5W2Szm5YjTcRAgofeMUqxsccbL0kYgCRrIg1ONooLrODOV0/4Cs2md7+d4T+2vlWEnpxttrTiow8cgkozJhoMIxVDe7yp5xok1KsOiREFnZt6kFYNcuDufN4RsQ8IiRGdotDwmxb0BvJ63ZDIFyJEmxh7ZcfCHb4+I7xT+X+iSOTd1nG9pdbawihqo80WtyffwWtS03VtJtCZInd/BvW0X2RPJ8MiIUP5981+k2TaIyg/c9PlJIVsxlarHM54hxaMwloYLvUTDACD2nEL2gbeYeEo+/Oio7eTmbK/4q5OENo90jB/xMrg2l8CiBek1PRICUmqY9OimybHu/U70TK9Fg/Eul6nWqpHaJcAVpq6jBA9V154u5AulADeg1tQZnWMLLEhCeB2ajojpJkrOLevjDfe8g1Wslilkx+zcMrL6HJrBNmLDn6v5fbZh905czxI+zcpH55JbBbwNPO7/Vlb1tNHDCx85MhG7w/z9B9V72YMRR3iDDbOeMKPX4he14PkyKbyMeJMN6nG6L/k+++WoiH41g1YbcqTv1pwSL3WxH/BjKkPeZXv3ntYHH2BNpBIxELSyzVnRbTkGLTmIZ410/is8B5ivCILCQI/lh7rJwCe2Vrx8QyhHQmTMOEyvK93cE/4KZGqTGcJ7kzEfYfnuAcd1zwmh6Feijr5PK+vY4CQeup+l399wsb79jxY3oHZYBsKbwim3SG11g3hCD2s61aZ5sApnzVuCzLNQmP9JE9FPoflEBFRpfaXAxvB3XoihEjnKec2EHQ6r
  • List-archive: <http://archive.midrange.com/rpg400-l/>
  • List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
  • List-id: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l.midrange.com>
  • List-post: <mailto:rpg400-l@midrange.com>
  • List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
  • List-unsubscribe: <http://lists.midrange.com/mailman/options/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>
Hi Stuart,

Thanks for putting me on the tracks again.

Problem was the pr definition for field SpCalStkE varchar(10) Const;

Changed this to char(10) and problem no longer there. Also corrected the
msgid to CDP0006.

Again thanks.

Best regards,
DAnny

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Stuart
Rowe
Sent: maandag 28 augustus 2017 17:32
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: CPF2479 on sndpgmmsg

Yeah DSPMSGD, I get to see the text, great. We need to see the message data
from the message you are getting.

Anyway, I compiled your code to see the message data. If you had looked at
the message data, you would notice that it is 4 bytes of binary followed by
'*PGMBDY'. Since the message data is *CHAR *VARY, it should be 2 bytes
binary followed by '*PGMBDY'. The extra 2 binary bytes are the varying
length from RPG that you should not be passing due to the errant prototype
for the QMHSNDPM api.

Sometimes a message ID is not enough. You need to look at the message data.

Stu




<http://www.avg.com/email-signature?utm_medium=email&utm_source=link&utm_cam
paign=sig-email&utm_content=webmail>
Virus-free.
www.avg.com
<http://www.avg.com/email-signature?utm_medium=email&utm_source=link&utm_cam
paign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On Mon, Aug 28, 2017 at 8:29 AM, Danny Rodius <danny.rodius@xxxxxxxxx>
wrote:

Herby the description found via dspmsgd:


CPF2479
QCPFMSG
QSYS
Call stack entry not found.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Stuart Rowe
Sent: maandag 28 augustus 2017 14:45
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxx>
Subject: Re: CPF2479 on sndpgmmsg

The actual error description might help us.

<http://www.avg.com/email-signature?utm_medium=email&;
utm_source=link&utm_cam
paign=sig-email&utm_content=webmail>
Virus-free.
www.avg.com
<http://www.avg.com/email-signature?utm_medium=email&;
utm_source=link&utm_cam
paign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On Mon, Aug 28, 2017 at 4:42 AM, Danny Rodius <danny.rodius@xxxxxxxxx>
wrote:

Hi all,



I'm lost. Writing some command validation program and i'm blocked in
sending a diagnostic message and escape message.

Don't find why I'm getting this error.

Program was compiled with actgrp *caller. ( see comments)



Anyone an idea what I'm doing wrong here or forgot?



**free

// Compile options:

// - CrtRpgMod Module( STL1030VP )

// DbgView( *LIST )

//

// - CrtPgm Pgm( STL1030VP )

// Module( STL1030VP )

// ActGrp( *Caller )



ctl-opt debug(*yes);

ctl-opt option(*srcstmt : *nodebugio : *nounref);



dcl-ds ERRC0100;

AeBytesPrv int(10) inz(%size(ERRC0100));

AeBytesAvl int(10) inz(0);

AeException char(7);

Aereserved char(1);

AeExceptData char(240);

End-ds;



dcl-pr sndProgramMessage ExtPgm( 'QMHSNDPM' );

SpMsgId char(7) Const;

SpMsgFq char(20) Const;

SpMsgDta char(128) Const;

SpMsgDtaLen int(10) Const;

SpMsgTyp char(10) Const;

SpCalStkE varchar(10) Const;

SpCalStkCtr int(10) Const;

SpMsgKey char(4);

ErrorCode likeds(ERRC0100)
options(*VarSize);

SpCalStkEntLen int(10) Const Options( *NoPass );

SpCalStkEntQual char(20) Const Options( *NoPass );

SpDspWait int(10) Const Options( *NoPass );

SpCalStkEntTyp char(20) Const Options( *NoPass );

SpCcsId int(10) Const Options( *NoPass );

end-pr;



dcl-c F_OK const(0);

dcl-c R_OK const(4);

dcl-c W_OK const(2);

dcl-c X_OK const(1);



dcl-pr access int(10) ExtProc('access');

Path pointer value options(*string);

amode int(10) value;

end-pr;





dcl-pi *n;

PxIfsObjPath varchar(5000) const;

PxIfsObjSize packed(15:0);

end-pi;



dcl-s MsgDta varchar(512);

dcl-s MsgKey char(4);



If access( PxIfsObjPath: F_OK ) = -1;

MsgDta = '0000' + 'IFS object ' + PxIfsObjPath + ' not found.';

sndProgramMessage( 'CPD00006'

: 'QCPFMSG *LIBL'

: MsgDta

: %Len( MsgDta )

: '*DIAG'

: '*PGMBDY'

: 1

: MsgKey

: ERRC0100

);



MsgDta = '';

sndProgramMessage( 'CPF0002'

: 'QCPFMSG *LIBL'

: MsgDta

: %Len( MsgDta )

: '*ESC'

: '*PGMBDY'

: 1

: MsgKey

: ERRC0100

);



EndIf;



*InLr = *On;



return;



Best regards;

Danny

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

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

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.