midrange.com code scratchpad
Name:
PGMA for environment variables
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
12/09/2009 09:20:52 pm
IP:
Logged
Description:
Program to retrieve an environment variable.
Code:
  1. D getenv          PR              *   ExtProc('getenv')                                        
  2. D  name                           *   value options(*string)                                   
  3. D*                                                                                             
  4. D*..Variables.                                                                                 
  5. D VarExists       S              1                                                             
  6. D VarName         S             50                                                             
  7. D VarValue        S            250                                                             
  8. C*=============================================================================================
  9. C*                 PARAMETER LIST                                                              
  10. C*=============================================================================================
  11. C*..Parameter lists.                                                                           
  12. C     *ENTRY        PLIST                                                                      
  13. C                   PARM                    VarName                        input               
  14. C                   PARM                    VarValue                       output              
  15. C                   PARM                    VarExists                      output              
  16. C*=============================================================================================
  17. C*                 MAIN LINE LOGIC                                                             
  18. C*=============================================================================================
  19. C                   EVAL      VarValue = *BLANKS                                               
  20. C                   EVAL      VarExists = 'Y'                     
  21. C*                                                                                             
  22. C                   IF        getenv(%TRIM(VarName)) <> *NULL                                  
  23. C                   EVAL      VarValue = %STR(getenv(%TRIM(VarName)))                          
  24. C                   ELSE                                                                       
  25. C                   EVAL      VarExists = 'N'                                                  
  26. C                   ENDIF                                                                      
  27. C*                                                                                             
  28. C                   EXSR      Return                                                           
  29. C*=============================================================================================
  30. C*                 SUBROUTINES                                                                 
  31. C*=============================================================================================
  32. C     Return        BEGSR                                                                      
  33. C*   End of program clean-up.                                                                  
  34. C                   EVAL      *INLR = *ON                                                      
  35. C                   RETURN                                                                     
  36. C                   ENDSR                                                                                                   
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css