RE: External Indicators and CLP -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Dave,
The only external indicators I know of are *INU1 through *INU8. Are
these what you are talking about? If so, you can use:

DCL VAR(&SWITCH) TYPE(*CHAR) LEN(8)

RTVJOBA SWS(&SWITCH)

For each external indicator that is on, there will be a corresponding
'1' in the variable &SWITCH. So, if &SWITCH = '10101000' then external
indicators *INU1, *INU3, and *INU5 are on.

HTH

Terry Anderson
Programming Manager
Citation Corporation
Switchboard 1.251.867.5481 ext 212
Direct Line 1.251.809.2312
Fax 251.867.0525
Cell 1.251.363.4975

------------------------------

message: 6
date: Wed, 23 Apr 2008 10:24:26 -0500
from: "David Turnidge" <daveturnidge@xxxxxxxxx>
subject: External Indicators and CLP

Is it possible to read external indicators in a CL Program?
I want to be
able to debug a RUNJVA command. So I want to have two
commands based on the
external indicator being there or not. If I turn it on, I
will get the
*DEBUG and *VERBOSE options. If not, then it doesn't "talk" to me...

Is there a better way?

Dave

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.