midrange.com code scratchpad
Name:
PGMB for environment variable testing
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
12/09/2009 09:22:53 pm
IP:
Logged
Description:
This program calls PGMA to test retrieving an environment variable.
Code:
  1. D VarNameP        S              9                                          
  2. D VarName         S             50                                          
  3. D VarValue        S            250                                          
  4. D Exist           S              1                                          
  5. D*                                                                          
  6. D Message         S             52                                          
  7. D OutQ            S             10                                          
  8. C*===================================================================       
  9. C*..Parameter lists.                                                        
  10. C     *ENTRY        PLIST                                                   
  11. C                   PARM                    VarNameP                        
  12. C*                                                                          
  13. C*===================================================================       
  14. C*..Initialize return parameters                                            
  15. C*                                                                          
  16. C                   EVAL      OutQ = 'MYOUTQ'                               
  17. C                   EXSR      Proces                                        
  18. C*                                                                   
  19. C                   SETON                                        LR  
  20. C                   RETURN                                           
  21. C*                                                                   
  22. C*===================================================================
  23. C*                  SUBROUTINES                                      
  24. C*===================================================================
  25. C*--------------------------------------------------------------     
  26. C     Proces        BEGSR                                            
  27. C*                                                                   
  28. C                   IF        VarNameP = ' '                         
  29. C                   EVAL      VarName = 'JDETESTVAR'                   
  30. C                   ELSE                                             
  31. C                   EVAL      VarName = VarNameP                     
  32. C                   ENDIF                                            
  33. C*                                                                   
  34. C                   CALL      'PGMA'                               
  35. C                   PARM                    VarName                  
  36. C                   PARM                    VarValue                 
  37. C                   PARM                    Exist                    
  38. C*                                                                   
  39. C                   EVAL      Message = 'Variable=' + VarName        
  40. C     Message       DSPLY     OutQ                         
  41. C                   EVAL      Message = 'Value=' + VarValue
  42. C     Message       DSPLY     OutQ                         
  43. C                   EVAL      Message = 'Exist=' + Exist   
  44. C     Message       DSPLY     OutQ                         
  45. C                   ENDSR                                  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css