Guten Tag zusammen,
bei dem Versuch, eine MSG Subfile anzuzeigen, erhalte ich den Fehler CPF2479 (Aufrufstapeleintrag nicht gefunden.)
Die DDS Definition:
Code:
A R MSGSFL SFL
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A PGMQ SFLPGMQ
A*
A R MSGCTL SFLCTL(MSGSFL)
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A
A 30 SFLEND
A SFLSIZ(0003)
A SFLPAG(0001)
A PGMQ SFLPGMQ
Die Prozedurdefinition:
Code:
D sndpgmmsg PR ExtPgm('QMHSNDPM')
D MsgID 7A Const
D MsgFile 20A Const
D MsgData 256A Const
D MsgDtaLen 10I 0 Const
D MsgType 10A Const
D StackEntr 10A Const
D StackCoun 10I 0 Const
D MsgKey 4A Const
D ErrorCode 16A Const
der Aufruf:
Code:
sndpgmmsg( $MsgId
: $MsgFile
: $MsgDta
: %len( %trimr($MsgDta))
: '*INFO'
: '*'
: 1
: *blanks
: ErrorCode );
msg_sflend = *on;
write msgctl;
Im Joblog sind zu der gesendeten Nachricht diese Details zu finden:
Code:
Von Programm . . . . . . . . . : Q98924A551
Von Bibliothek . . . . . . . : QRPLOBJ
Von Modul . . . . . . . . . : SSTMON100R
Von Prozedur . . . . . . . . : SNDCSV
Von Anweisung . . . . . . . : 129900
An Programm . . . . . . . . . : Q98924A551
An Bibliothek . . . . . . . : QRPLOBJ
An Modul . . . . . . . . . . : SSTMON100R
An Prozedur . . . . . . . . : FAKDET_SFLPROCESS
An Anweisung . . . . . . . . : 109800
Vor dem Senden der Nachricht sieht der Aufrufstapel so aus:
Code:
Von Programm . . . . . . . . . : Q98924A551
Von Bibliothek . . . . . . . : QRPLOBJ
Von Modul . . . . . . . . . : SSTMON100R
Von Prozedur . . . . . . . . : SNDCSV
Von Anweisung . . . . . . . : 129900
An Programm . . . . . . . . . : Q98924A551
An Bibliothek . . . . . . . : QRPLOBJ
An Modul . . . . . . . . . . : SSTMON100R
An Prozedur . . . . . . . . : FAKDET_SFLPROCESS
An Anweisung . . . . . . . . : 109800
SSTMON100R WINTEST 129800 SNDCSV
QTEVIREF QSYS /0475
QTESTOPH QSYS _C_pep
QTESTOPH QSYS 200 main
QTENPTS QSYS 20 qtescren
QTENPTS QSYS 36 ProgramSource
QUIDSPP QSYS /00E4
QUIMGFLW QSYS /03C3
QUIEXFMT QSYS /0099
QUIINMGR QSYS /05C4
QWSGET QSYS /0667
QT3REQIO QSYS /0256
Wo habe ich da den Denkfehler?
Vielen Dank im Voraus für die Unterstützung.
Hubert
Bookmarks