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:
- D getenv PR * ExtProc('getenv')
- D name * value options(*string)
- D*
- D*..Variables.
- D VarExists S 1
- D VarName S 50
- D VarValue S 250
- C*=============================================================================================
- C* PARAMETER LIST
- C*=============================================================================================
- C*..Parameter lists.
- C *ENTRY PLIST
- C PARM VarName input
- C PARM VarValue output
- C PARM VarExists output
- C*=============================================================================================
- C* MAIN LINE LOGIC
- C*=============================================================================================
- C EVAL VarValue = *BLANKS
- C EVAL VarExists = 'Y'
- C*
- C IF getenv(%TRIM(VarName)) <> *NULL
- C EVAL VarValue = %STR(getenv(%TRIM(VarName)))
- C ELSE
- C EVAL VarExists = 'N'
- C ENDIF
- C*
- C EXSR Return
- C*=============================================================================================
- C* SUBROUTINES
- C*=============================================================================================
- C Return BEGSR
- C* End of program clean-up.
- C EVAL *INLR = *ON
- C RETURN
- C ENDSR
|
|
|