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

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