RE: Saving User Switches

Sure, you can retrieve the job switches within a CL using RTVJOBA
SWS(&SWITCHES) where &SWITCHES is a character field of length eight.  Then
you can set/reset the job switches using CHGJOB SWS(&SWITCHES) or using a
literal value 'XXX1XXXX' where switch 4 is set on & others are unchanged.
HTH.

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Jon A. Erickson
Viking Industries, Inc.
http://www.vikingindustries.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of bmegenity@ruskin.com
> Sent: Friday, May 01, 1998 9:05 AM
> To: midrange-l@midrange.com
> Subject: Saving User Switches
>
>
> I am working in an environment in which we are moving from the S36EE to
> Native mode. We are currently running on an AS/400 510 (Risc) and
> OS/400
> V3R7. We have many CL programs (converted from OCL) in which we make
> heavy use of the user switches U1-U8. Is there a method/utility/command
> by which we can save/suspend the user switch settings, reset them
> for use
> in another procedure and then restore them to their original settings
> when we return to the calling procedure? Are user switches still being
> used or are they replaced by newer techniques?
>
> I would appreciate any assistance in this matter.
>
> Thanks
>
> Bill Megenity
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>


begin 666 Jon Erickson.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D5R:6-K<V]N.TIO;CL[.PT*
M1DXZ2F]N($5R:6-K<V]N#0I/4D<Z5FEK:6YG($EN9'5S=')I97,[26YF;W)M
M871I;VX@4WES=&5M<PT*5$E43$4Z4W(N(%!R;V=R86UM97(@06YA;'ES= T*
M5$5,.U=/4DL[5D])0T4Z*#4P,RD@-C8W+38P,S @>#4U, T*5$5,.TA/344[
M5D])0T4Z*#4P,RD@-C4X+3<U.#D-"E1%3#M#14Q,.U9/24-%.B@U,#,I(#,P
M-RTW-C4U#0I414P[5T]22SM&05@Z*#4P,RD@-C8Y+3$Q,S4-"D%$4CM73U)+
M.CL[,3@V,# @3BY%+B!7:6QK97,@4F0N.U!O<FQA;F0[3U([.3<R,S M-CDY
M-3M5;FET960@4W1A=&5S(&]F($%M97)I8V$-"DQ!0D5,.U=/4DL[14Y#3T1)
M3D<]455/5$5$+5!224Y404),13HQ.#8P,"!.+D4N(%=I;&ME<R!29"X],$0]
M,$%0;W)L86YD+"!/4B Y-S(S,"TV.3DU/3!$/3!!56YI=&5D(%-T871E<R!O
M9B!!;65R/0T*:6-A#0I!1%([2$]-13H[.S$U,S,T(%-%($]R96=O;B!4<F%I
M;"!$<BX[0VQA8VMA;6%S.T]2.SDW,#$U.U5N:71E9"!3=&%T97,@;V8@06UE
M<FEC80T*3$%"14P[2$]-13M%3D-/1$E.1SU154]4140M4%))3E1!0DQ%.C$U
M,S,T(%-%($]R96=O;B!4<F%I;"!$<BX],$0],$%#;&%C:V%M87,L($]2(#DW
M,#$U/3!$/3!!56YI=&5D(%-T871E<R!O9B!!;64]#0IR:6-A#0I!1%([4$]3
M5$%,.CL[4"Y/+B!";W@@,C U,3@[4&]R=&QA;F0[3U([.3<R.30M,#4Q.#M5
M;FET960@4W1A=&5S(&]F($%M97)I8V$-"DQ!0D5,.U!/4U1!3#M%3D-/1$E.
M1SU154]4140M4%))3E1!0DQ%.E N3RX@0F]X(#(P-3$X/3!$/3!!4&]R=&QA
M;F0L($]2(#DW,CDT+3 U,3@],$0],$%5;FET960@4W1A=&5S(&]F($%M97)I
M8V$-"E523#H-"E523#IH='1P.B\O=W=W+G!C97HN8V]M+WYE=V%R90T*0D1!
M63HQ.38P,3(P- T*14U!24P[4%)%1CM)3E1%4DY%5#IJ;VYE<FEC:W-O;D!V
M:6MI;F=I;F1U<W1R:65S+F-O;0T*14U!24P[24Y415).150Z97=A<F5 <&-E
H>BYC;VT-"E)%5CHQ.3DX,#0P-U0Q-#,X,3E:#0I%3D0Z5D-!4D0-"@``
`
end


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---