RE: External Indicators and CLP

["Willie J. Moore" <WJMoore@xxxxxxxxxxxx>]

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