I'm having an issue with something that I believe is an oversight.
I have an application that recursively parses through a structure (a
folder/file type "tree" structure).
It does this recursively in an RPG subprocedure.
For each level, it calls the QMHSNDPM API to send a status message so
we can see what level/folder we're at.
What I'm finding is it will display the message, and then on the
recursive call the status message disappears. Is there a way to avoid
This is how the type of message is being set before the call to the
MsgType = 'S'
msg_type = '*STATUS'
msg_id = 'CPF9897'
stack_ent = '*EXT'
stack_ctr = 1
Here's some psuedocode that gets call with listFiles(rootfolderid):
r_level += 1;
nameList = getListForFolder(folderID);
for i = 1 to nameList.count;
if (nameList[i].type = 'folder');
sndpm('Digging down in folder ' + nameList[i].name);
sndpm('Back in folder ' + nameList[i].name);
the sndpm function flashes each message then goes blank until it
comes back. I'd like the message to stay there until sndpm is called
again to change the message.
Make sense? Thanks