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

From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of York, Albert
Sent: Wednesday, December 11, 2002 11:44 AM
To: 'MIDRANGE-L@midrange.com'
Subject: Suggestion for a new System Request option

The System/36 used to have an option on the system request menu which was
called something like 'Set latch flag'. All it did was turn on an indicator
that you could test in your program. Then your program could take the
appropriate action. I used it for ending long searches for example. I would
really like to see something like that on the AS/400. Right now the only
choice we have is to end the whole program, which is pretty heavy handed.