Retrieve Environment Var: Test (JRTVENVT)

Where allowed to run: All environments (*ALL)
Threadsafe: No
Parameters
Examples
Error messages

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.

Top

Parameters

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

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.

Top

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

Top

Messaggi errore per JRTVENVT

Messaggi *DIAG seguiti da *ESCAPE CPF0001

Nessun messaggio previsto.

Top