Re: message subfiles not working after changing from subroutines to subprocedures

[Alan Campin <alan0307d@xxxxxxxxx>]

The only way I could make this work years ago was to pass procedure
name, program name and the module name. I have a service program that
does the sending. Here is example code.

MSGF_ClearProgramMessageQueue(cMainProcedureName   :

g_dsSystem.ModuleName:
                                                       g_ProgramName
     );

   MSGF_SendProgramMessage('UTG0001'            :
                                                cXVMessageFileName   :
                                                 ' '                  :
                                                cMainProcedureName   :
                                                g_dsSystem.ModuleName:
                                                g_ProgramName        );

I have continued to use this code for twenty years.

I can send the code for the service program if you want it.



On Thu, May 3, 2012 at 2:06 PM, Smith, Mike <Mike_Smith@xxxxxxxxxxxxxxxx> wrote:
> I have a subfile program that sends a message using a message subfile when an error is generated.
>
> This program worked fine, until I converted all of the subroutines to procedures.  I send the messages to the message subfile via a procedure.
>
> I tried changing the SDS program name variable to '*' but that didn't seem to help.
>
> I searched the archives and the answer is probably there, however,  I've been chasing this all day and just realized that the only difference is subroutines to subprocedures  and my head is all mush at this point.
>
> What do I need to change to make this work now?
>
> Some pertinent pieces of code
>
> D PGMST          SDS
> D  #PGMNM           *PROC
> D  #PARMS           *PARMS
> D  DSPDEV               244    253
> D  #USER                254    263
>
> C                   Call      'TRKCREWMNT'
> C                   Parm      'I'           Mode
> C                   Parm                    TRUCK
> C                   Parm                    TCCREW
>
> C                   Move      'RGM0005'     #MSGID
> C                   CallP     AddMsgSF(#MSGID:' ':'RGCMSGF')
>
> Mike
> NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.
> --
> This is the RPG programming on the IBM i / System i (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.