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

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

Mike,

You should be able to send to the 'program containing procedure' field
specified in positions 334 to 343 of the PSDS - this is the name of the
'external' program (or service program), and may (as you've found out) be
different to the procedure name.

Rory

On Thu, May 3, 2012 at 1: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