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:
- D VarNameP S 9
- D VarName S 50
- D VarValue S 250
- D Exist S 1
- D*
- D Message S 52
- D OutQ S 10
- C*===================================================================
- C*..Parameter lists.
- C *ENTRY PLIST
- C PARM VarNameP
- C*
- C*===================================================================
- C*..Initialize return parameters
- C*
- C EVAL OutQ = 'MYOUTQ'
- C EXSR Proces
- C*
- C SETON LR
- C RETURN
- C*
- C*===================================================================
- C* SUBROUTINES
- C*===================================================================
- C*--------------------------------------------------------------
- C Proces BEGSR
- C*
- C IF VarNameP = ' '
- C EVAL VarName = 'JDETESTVAR'
- C ELSE
- C EVAL VarName = VarNameP
- C ENDIF
- C*
- C CALL 'PGMA'
- C PARM VarName
- C PARM VarValue
- C PARM Exist
- C*
- C EVAL Message = 'Variable=' + VarName
- C Message DSPLY OutQ
- C EVAL Message = 'Value=' + VarValue
- C Message DSPLY OutQ
- C EVAL Message = 'Exist=' + Exist
- C Message DSPLY OutQ
- C ENDSR
|
|
|