RE: Changing value in PSDS

["Bob cozzi" <cozzi@xxxxxxxxx>]

Exactly,
Why bother changing user profiles? 
That doesn't seem to be a solution for this issue.
Just use the RTVJOBA CL command or if you just want to check within the RPG
program call the QUSRJOBI API. If you don't' like APIs, use the RPG
ToolKit's GetJobType() procedure which returns "I" for interactive, and "B"
for Batch.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Terry@xxxxxxxxxx
Sent: Thursday, June 19, 2003 10:40 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Changing value in PSDS






Why not RTVJOBA TYPE(&JOBTYPE)

Pass &JOBTYPE as a parm to PROGA.   &JOBTYPE will  be '0' if Batch, '1' if
interactive.

Terry Richardson
Vermont Information Processing, Inc.
terry@xxxxxxxxxx


                                                                           
             John Furniss                                                  
             <jfurniss@xxxxxxx                                             
             achine.com>                                                To 
             Sent by:                  RPG programming on the AS400 /      
             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx>     
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             06/19/2003 11:09          Re: Changing value in PSDS          
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@xxxxxxx                                             
                  e.com>                                                   
                                                                           
                                                                           




  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?
>
> Brian Parkins
>
> _______________________________________________
> 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.



_______________________________________________
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.