Global variables with EXPORT and IMPORT keywords

Here's a way to share the information between two programs that you may not be aware of.

There are many ways to share the information between two programs such as passing parameters, data area, data queues...

etc., but there is another way to effectively and efficiently share the information -- use EXPORT and IMPORT keywords. In this example, we are going to share the variable "Wk_Global".

 
PGM1
---- 

DAddNum           PR             3  0                                 
 D Num1                           2  0                                 
 D Num2                           2  0                                 
  *                                                                    
 D Wk_Global       S              3S 0 EXPORT                          
  *                                                                    
 C                   Z-Add     10            A                 2 0     
 C                   Z-Add     11            B                 2 0     
 C                   Z-Add     0             C                 3 0     
 C                   Eval      C =  AddNum(A:B)                        
 C                   Z-Add     C             Wk_Global                 
 C                   CallB     'PGM2'                                  
  *                                                                    
 C                   Seton                                        Lr   
  *                                                                    
 PAddNum           B                                                   
 D                 PI             3  0                                 
 D NumX                           2  0                                 
 D NumY                           2  0                                 
   *                                                                       
 C                   Seton                                        Lr      
  *                                                                       
 PAddNum           B                                                      
 D                 PI             3  0                                    
 D NumX                           2  0                                    
 D NumY                           2  0                                    
  *                                                                       
 C                   Z-Add     0             Answer            3 0        
 C                   Eval      Answer = NumX + NumY                       
 C                   Return    Answer                                     
 P                E  

PGM2
----

D Wk_Global       S              3S 0 IMPORT      
C     Wk_Global     Dsply                         
C                   Return                        



 

==================================
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 February 2003

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