RE: Suggestion for a new System Request option

[MWalter@xxxxxxxxxxxxxxx]

I did a test of this technique and indeed, the switches are only set on at
start time.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040
/"\
\ /
 X
/ \




                    "Dennis Lovelady"
                    <dlovelady@dtcc.com        To:     midrange-l@midrange.com
                    >                          cc:
                    Sent by:                   Subject:     RE: Suggestion for 
a new System Request option
                    midrange-l-admin@mi
                    drange.com


                    12/11/2002 03:34 PM
                    Please respond to
                    midrange-l







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





_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.