Message Subfiles

Hey guys,

Apologies for this long message.

Could somebody please tell what's wrong with this code. I am trying to send
a message when subfile ends. When i run the program, i get the following
error.

" Permanent I/O error occurred in file SUBACTDSP "
"Call stack entry not found"

Thanks,
Gade.

*****************
 C                   If        EndOfFile = *On
 C                   Eval      MsgSflDsp  = *Off
 C                   Eval      MsgSflCtl  = *Off
 C                   CallP     RmvMsgsFrmQ
 C                   Eval      MsgSflCtl  = *On
 C                   CallP     PutErrMsg( 'xxx0001': *blanks : 100   )
 C                   Eval      MsgSflDsp  = *On
 C                   Eval      MsgSflEnd  = *On
C                   EndIf
C                   Write     MsgCtl
C                   Write     SFLFTR
C                  Exfmt     SFLCTL
*****************

P RmvMsgsFrmQ     B

 * Local variables
D ClStkEntry      S             10    Inz( '*' )
D ClStkCounter    S             10U 0 Inz( 1 )
D MsgKey          S              4    Inz( *Blank )
D MsgsToRmv       S             10    Inz( '*ALL' )
D ApiErr          S             16A

C                   Call      'QMHRMVPM'
C                   Parm                    ClStkEntry
C                   Parm                    ClStkCounter
C                   Parm                    MsgKey
C                   Parm                    MsgsToRmv
C                   Parm                    ApiErr

P RmvMsgsFrmQ     E

P PutErrMsg       B

D                 PI
D  MsgId                         7    Value
D  MsgDta                      100    Value
D  MsgDtaLen                    10U 0 Value

 * Local variables
D QlMsgf          S             20    Inz( 'xxxmsgf      *LIBL' )

D MsgType         S             10    Inz( '*COMP' )
D ClStkEntry      S             10    Inz( '*PGMBDY')
D ClStkCounter    S             10U 0 Inz( 1 )
D MsgKey          S              4
D ApiErr          S             16A

C                   Call      'QMHSNDPM'
C                   Parm                    MsgId
C                   Parm                    QlMsgf
C                   Parm                    MsgDta
C                   Parm                    MsgDtaLen
C                   Parm                    MsgType
C                   Parm                    ClStkEntry
C                   Parm                    ClStkCounter
 C                   Parm                    MsgKey
 C                   Parm                    ApiErr

 P PutErrMsg       E




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---