Status message in interactive programs

Here's a code for interactive programs that do a lot of processing.

  The Tip "Status messages help users get through long jobs" will work fine for long CLP batch jobs, but we find the following code handy for Interactive programs that do a lot of processing. Using CEEMOUT allows messages to be display on line 24 that do not require intervention. The added bonus is a message CPF9898 being written to the joblog.
 
 *>  Parameters for CEEMOUT.                                                          
                                                                                      
DMSG_TXT          S             78                                         Message    
                                                                                      
DDEST_CODE        S             10I 0                                      Destination
                                                                                      
DFC               DS                                                       Feedback   
DFC_SEV                          5U 0                                                 
DFC_MSGNO                        5U 0                                                 
DFC_FLAGS                        1                                                    
DFC_FACID                        3                                                    
DFC_ISI                         10U 0                                                 

.
.
.

                                                                             
                                                                             
 *>  Notify the user of some action.                                         
                                                                             
C                   EVAL      MSG_TXT = 'Building work file ... please wait' 
C                   EVAL      DEST_CODE = 1                                  
                                                                             
C                   CALLB(D)  'CEEMOUT'                                      
C                   PARM                    MSG_TXT                          
C                   PARM                    DEST_CODE                        
C                   PARM                    FC                               
		
		

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your programming questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.


This was last published in November 2001

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close