Posted by Jon Sacks on January 29, 2009 at 12:43:32:
In Reply to: Re: QREPORTS-Default Run Program posted by Barbara Brazil on January 29, 2009 at 08:49:39:
That doesn't make it right! Does anyone else have an opinion? If I explicitly create a program called RPGEXIT then I expect this to be run at the end of the report, If I want it to return to QREPORTS, then I can put that in my RPGEXIT program (in fact I did).
-----------------------------------------
LENGTH 1 & LOCAL An$
LENGTH 252 & LOCAL Display$
CLOSE & OPEN (0) Term$
Begin:
Display$='Tab-Menu,Q-QREPORTS,T-Terminate'
PRINT @(0,2);(LD) !Roll-up display routine
PRINT @(0,22);Display$
INPUT (0) An$
IF An$ = 'T' RUN 'CMONITOR'
IF An$ = 'Q' RUN 'QREPORTS'
RUN 'Z'
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.