Retrieve Environment Var: Test (JRTVENVT)

Comando JRTVENVT

Retrieve Environment Var: Test

Testa il comando JRTVENV che recupera una variabile di ambiente.

Riceve il nome di una variabile di ambiente e ne recupera e visualizza con due messaggi in log i valori sia del job che di sistema.

Keyword	Description	Choices	Notes
ENVVAR	Environment variable	Character value	Required, Positional 1

Environment variable (ENVVAR)

Riceve il nome della variabile di cui si vuole testare il recupero.

Il valore e' obbligatorio.

Valori permessi:

stringa caratteri

Nome della variabile di ambiente.

Il nome della variabile di ambiente e' limitato ad una lunghezza massima di 128 byte. I valori validi comprendono tutti i caratteri EBCDIC ad eccezione del segno di uguale (=), del segno di terminazione nullo (X'00') e dello spazio vuoto (X'40'). Se contiene caratteri alfanumerici il nome deve essere racchiuso tra apici. Se un apice e' gia' previsto, devono essere utilizzati i doppi apici ('').

Il nome della variabile e' sensibile a maiuscole e minuscole.

Esempi per JRTVENVT

Esempio 1: Chiamata di JRTVENVT da video comandi.

Preparare sia nel job che nel sistema una variabile di ambiente da testare:

> ADDENVVAR ENVVAR(ProvaEnvVar) VALUE('Valore per il job')
     LEVEL(*JOB)
  Aggiunta variabile di ambiente.
> ADDENVVAR ENVVAR(ProvaEnvVar) VALUE('Valore per il sistema')
     LEVEL(*SYS)
  Aggiunta variabile di ambiente.

Chiamare l'esecuzione del comando JRTVENVT dal video comandi. Notare gli apici di contorno al nome della variabile, necessari per conservare le minuscole. Si ottiene il sequente log:

> JRTVENVT ENVVAR('ProvaEnvVar')
  *JOB:Valore per il job
  *SYS:Valore per il sistema

Per completezza, si riporta il sorgente del programma di test:

PGM        PARM(&VAR)
DCL        VAR(&VAR) TYPE(*CHAR) LEN(256)
DCL        VAR(&RTV) TYPE(*CHAR) LEN(1024)
JRTVENV    ENVVAR(&VAR) RTNVAL(&RTV)
SNDPGMMSG  MSG('*JOB:' *CAT &RTV)
JRTVENV    ENVVAR(&VAR) RTNVAL(&RTV) LEVEL(*SYS)
SNDPGMMSG  MSG('*SYS:' *CAT &RTV)
ENDPGM