Re: Changing value in PSDS

John, you could use external switches or a data area so that the RPG program
can tell where it's called from by the status of U1-U8 or the data area.

There's many other ways that don't need the USER name to solve the problem

 
 
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Thursday, June 19, 2003 10:50:07 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Changing value in PSDS
 
How would I determine who (or how) this program was called within the RPG
program?
 
Scott Klement wrote:
 
> What does this have to do with the user name?!
>
> On Thu, 19 Jun 2003, John Furniss wrote:
>
> > Well, Brian, we have a program that brings up a display screen. This
program
> > gets called many, many times a day from interactive jobs within Mapics.
Well,
> > under specific circumstances we want to load up some off-line files,
then call
> > turn Mapics loose within a batch job. Batch jobs don't like interactive
screen
> > displays very well, so we need a way of by-passing the screen displays.
> > In pseudo code:
> > If <interactive job>
> > call PROGA as usual
> > Else (batch job)
> > call PROGA without screen displays
> > Endif.
> >
> > Can you shed some light on this?
> > John
> >
> > Brian Parkins wrote:
> > > John, why would you want to change the User Name mid-job?
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
 
--
John Furniss
Applications Programmer
Allied Machine & Engineering Corp.
mailto:jfurniss@xxxxxxxxxxxxxxxxx
Phone (330) 343-4283 ext. 8371
 
 
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
 
.