Re: Old 36 Display Files

["James W. Kilgore" <qappdsn@xxxxxxxxxxxxx>]

Kathie,

I'm afraid I misunderstood what it was that you were having a problem
with.

We used a technique where every program was compiled as an MRT with 1
user.  Then would spawn multiple procedures.  We did a lot of program to
program hopping and this would keep the program in memory.

In this case we would have a procedure IC930S which would contain the
one line:
IC930S?WS?

Then there would be a procedure for every workstation (W1, W2, W3, etc.)
named IC930SW1, IC930SW2, IC930SW3, etc. which would contain:
<whatever>
0009.00 // LOAD IC930S
0010.00 // FILE NAME-IC930A,DISP-SHR,RECORDS-500,EXTEND-10
0011.00 // FILE NAME-DE980A,DISP-SHR
0012.00 // FILE NAME-DE990A,DISP-SHR
etc.

Procedures IC930SWx would be MRT procedures.

But I guess the bottom line is that you got it working, so never mind.


Kmh0421@aol.com wrote:

> In a message dated 07/18/2001 1:54:32 PM Central Daylight Time,
> qappdsn@attglobal.net writes:
> (snip) If you are trying to use 99 users to a device, you must be
> trying to
> write this as an MRT program.  Bad idea. Don't do it.Multiple people
> can run
> the same program, they just can't run the same procedure.  So let's
> say you
> have program RPGPGM and you have procedureOCLPROC that calls RPGPGM.
> Each
> user must have their own, uniquely named OCLPROC.
> Change OCLPROC to contain this single entry:
> RPGPGM?WS?
>
> James;
> Thanks so much. I tried this and it keep bombing with command not
> found.
> My RPG pgm is called IC930S. I tried:
>    RPGPGM?WS?
>    // IC930S?01?
>    // RPGPGM? WS?
>    // IC930S 01
>    // IC930S01
> I keep getting same message when I run about command not found...
> Kathie
>
>
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---