RE: *NOMAIN procedure with display file

One problem that I am having with *NOMAIN and display files is the subfile messages display.

The call stack changes with *NOMAIN:
Type Program Statement Procedure
QUOCMD QSYS /01EA
OTT5568 DJCWORK _QRNP_PEP_OTT5568
OTT5568 DJCWORK 220 OTT5568
OTR5568 DJCWORK _QRNP_PEP_OTRM556800
OTR5568 DJCWORK 1019 DISPLAYUPGREVCHAINDATA
OTR5568 DJCWORK 918 DISPLAYORDERITEMSARRAY
OTR5568 DJCWORK 1265 LISTSUBFILE
QRNXIO QSYS 63 _QRNX_WS_EXFMT

OTT5568 is a test program without *NOMAIN, notice that there is a procedure called "OTT5568", but program OTR5568, which does have *NOMAIN, only has the PEP procedure. "displayUPGRevChainData" is the Main procedure for program OTR5568. The problem is that the "normal" SFLPGMQ variable is 10 long and is populated with the program name, but in the *NOMAIN situation that program message queue does not exist.
In this case, my first *NOMAIN program, I decided to send all messages to the PEP (_QRNP_PEP_OTRM556800) message queue. This is somewhat awkward, every procedure that needs to send messages to the subfile message queue needs to know the PEP procedure, and the SFLPGMQ variable must be 276 long and setup correctly.
The other solution is to rename the procedure displayUPGRevChainData to OTR5568 and keep the "normal" code and DDS. This is somewhat unsatisfying because I want to have a "real" name for the procedure but the jinking around that I have to do to accomplish that is even more unsatisfying.

Duane Christen


NOTICE: This electronic mail transmission may contain confidential information and is intended only for the person(s) named. Any use, copying, or disclosure by any other person is strictly prohibited. If you have received this transmission in error, please notify the sender via e-mail.