Source for a the DSPPGMMSG command
Dan wrote in with this question recently:
"I'm trying to find the source for a command called: DSPPGMMSG. I have version 3.2 RPG & CL. I'm trying to run on a 5.2 box and this command is used extensively throughout the CL's. Any info would be greatly appreciated."
Can you help Dan out?
-- Debra Tart, associate editor, Search400.com
Software/Hardware used:
Software/Hardware used:
ASKED:
December 21, 2005 4:16 PM
UPDATED:
November 22, 2009 8:57 PM
Answer Wiki:
To my knowledge, this is not an IBM command. I would suggest that you do DSPOBJD DSPPGMREF *CMD. Take option 8 which will tell you the library, file, and member that created the object.
=========================================================
Without any description of what DSPPGMMSG deoes, here's a guess:<pre>
pgm
dcl &KEYVAR *char 4
Qsys/sndpgmmsg msg( +
'===> External program message queue +
display was requested...' +
) +
topgmq( *EXT ) +
msgtype( *INFO ) +
keyvar( &KEYVAR )
Qsys/rmvmsg pgmq( *EXT ) msgkey( &KEYVAR )
monmsg ( CPF0000 CPF9999 )
return
endpgm</pre>
The DSPPGMMSG command:<pre>DSPPGMMSG: CMD PROMPT('Display the *ext/program *msgq')</pre>If TOPGMQ() isn't wanted to be *EXT, then use whatever is desired.
Tom
To see all answers submitted to the Answer Wiki: View Answer History.
I would guess that the DSPPGMMSG command is a utility that somebody in your shop has either written or installed at some point in the past.
First, check to see if it’s on the system. Use WRKOBJ *ALL/DSPPGMMSG *CMD and you will be given a list of any library containing the command. If you find it then make sure the library is in your library list when running or compiling the CL’s.
If you don’t find it then change each DSPPGMMSG command to SNDPGMMSG you may need to change some of the default parameters.
All the best
Jonathan
This question is actually answered by a search400.com article. The short version is:
“It turns out that this was a command added by a conversion utility I had purchased called Target 400. This was a utility that converted OCL to CL and other System 36 stuff to OS/400.”
The address for the entire article is:
http://search400.techtarget.com/tip/1,289483,sid3_gci512218,00.html?bucket=ETA