Récupérer le nom du système sur AS/400.

Récupération du nom du système.


PGM &système
DCL VAR(&système) TYPE(*CHAR) LEN(8)
RTVNETA SYSNAME(&système)
ENDPGM

Print Friendly, PDF & Email