×
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.
You can use the UDS and set it in your program. You can define the field and then move 'Y' in to print or ' ' to not print.
Then check in the CL for a 'Y' or ' ' in the *LDA.
I UDS
I 1 1 PRTIT
C *IN27 IFEQ '1'
C MOVE 'Y' PRTIT
C ELSE
C MOVE ' ' PRTIT
C END
Then in the CL:
IF COND(%SST(*LDA 1 1) *EQ 'Y') THEN(DO)
Then do your DEBUG/VERBOSE
ENDDO
William
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of David Turnidge
Sent: Wednesday, April 23, 2008 8:24 AM
To: Midrange Systems Technical Discussion
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
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.
midrange.com
