RE: Message Subfiles

If your not at end of subfile you may never be setting MsgSflCtl=*On.  I
would move this to outside the condition so it will always be turned on just
prior to the EXFMT.  The MsgSflDsp  = *On should be inserted just after the
load of the subfile if any data was written to the subfile.  Check to see if
MsgSflCtl is *on in debug mode just prior to the Exfmt SFLCTL.


Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

*Note to Recruiters
Neither I, nor anyone that I know of, is interested in any new and/or
exciting positions. Please do not contact me.


-----Original Message-----
From: Gade_R_Reddy@consecofinance.com
[mailto:Gade_R_Reddy@consecofinance.com]
Sent: Monday, February 14, 2000 7:56 AM
To: RPG400-L@midrange.com
Subject: 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
+---