RE: Changing value in PSDS

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

John, 

You're thinking too much.... <g>  It's really easy.

FVXSADRVAL CF   E             Workstn UsrOpn 

D $BatchMode      S               n       

C* Open the Display file.  If error, set program to $BatchMode=*On 
C                   Open(E)   VXSADRVAL                            
C                                                                  
C                   If        %Error  and                          
C                             not %Open(VXSADRVAL)                 
C                   Eval      $BatchMode = *On                     
C                   EndIf                                          
C* Stuff happens
C                   If        not $BatchMode  
C                   ExFmt     AddrDta         
C                   Else
C* Set default values
C                   EndIf

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: John Furniss [mailto:jfurniss@xxxxxxxxxxxxxxxxx]
Sent: Thursday, June 19, 2003 10:41 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.