RE: Suggestion for a new System Request option

["Dennis Lovelady" <dlovelady@xxxxxxxx>]

Maybe things have changed, but I believe the U1-U9 switches are set only at
program start.  Is that not the case?

Dennis





"Steve Richter" <srichter@autocoder.com>@midrange.com on 12/11/2002
03:24:57 PM

Please respond to midrange-l@midrange.com

Sent by:    midrange-l-admin@midrange.com


To:    <midrange-l@midrange.com>
cc:
Subject:    RE: Suggestion for a new System Request option


Albert,

the SetAtnPgm command should do what you are asking.

write a cl pgm that sets one of the job switches
  PGM
  CHGJOB     SWS(1XXXXXXX)
  ENDPGM

here is the rpg code that tests the switch
 if          *inu1 = '1' ;
   dsply     'latch is set' ;
   *inu1     = '0' ;
 else ;
   dsply     'latch is not set' ;
 endif ;

and then SETATNPGM  PGM(SETLATCH) at signon


Steve Richter