RE: U1-8 Switches: Similar to *LDA ?

["McCallion, Martin" <MccalliM@xxxxxxxxxxxxxxxx>]

> are you saying that SETON  (or, move *on)  do not work for you ???
> 
> 
> At 08:01 PM 4/11/2001, you wrote:
> 
> 
> >Folks:
> >
> > From the *LDA update problem being discussed here, I have a 
> comparable 
> > one using
> >the Job switches...
> >
> >I needed to set on U1...U8, depending on data/user selection 
>  in an RPG 
> >pgm and
> >call another RPG which will behave depending on how these 
> indicators are set.

I wonder whether this is about something I discovered a while back about
RPG IV, which is that a module's U1-8 switches are its own _copy_ of the
job switches; the actual job switches are only updated with the RPG
values if the RPG ends with LR _on_.  Another solution is to call a CL
to update the external switches.  This is from the header box of a CL
module I wrote when I discovered this:

/*       This module can be called by ILE RPG modules to set the     */ 
/*       job switches, even if they end with LR off (ending an ILE   */ 
/*       module with LR off causes the job switches NOT to be       */ 
/*       updated from the U1-U8 indicators, which are the module's   */ 
/*       internal copy of the switches).                             */ 

The CL receives an 8-byte parameter containing the switch values, and
does a CHGJOB.  I wrote this module in November 1998, so it's not
something new.

HTH

Cheers,

Martin.


--                                                                     
Martin McCallion                 
Midas-Kapiti International
Work:  mccallim@midas-kapiti.com
Home: martin.mccallion@ukonline.co.uk

Apologies for the length of this sig, but company policy says:
This email message is intended for the named recipient only.  It may be
privileged and/or confidential.  If you are not the intended named
recipient of this email then you should not copy it or use it for any
purpose, nor disclose its contents to any other person.  You should
contact Midas-Kapiti International as shown below so that we can take
appropriate action at no cost to yourself.

Midas-Kapiti International Ltd, 1 St George's Road, Wimbledon, London,
SW19 4DR, UK
Email: Postmaster@midas-kapiti.com Tel: +44 (0)208 879 1188 Fax: +44
(0)208 947 3373
Midas-Kapiti International Ltd is registered in England and Wales under
company no. 971479 
+---
| 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
+---