QMHSNDPM API and Recursion

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?

This is how the type of message is being set before the call to the
QMHSNDPM API:
MsgType = 'S'
msg_type = '*STATUS'
msg_id = 'CPF9897'
stack_ent = '*EXT'
stack_ctr = 1

Here's some psuedocode that gets call with listFiles(rootfolderid):

function listFiles(folderID);

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);
listFiles(nameList[i].id);
sndpm('Back in folder ' + nameList[i].name);
endif;

endfor;

r_leavel -=1;

endfucntion;

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

Brad
www.bvstools.com