|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.