Documentos
Recuperar el nombre del sistema
|
 |
 |
PGM
/***********************************************************/
/* FUNCION: Recupera nombre de sistema. */
/* MODULO: */
/* */
/***********************************************************/
DCL VAR(&NOMSIS) TYPE(*CHAR) LEN(8)
RTVNETA SYSNAME(&NOMSIS)
ENDPGM
Este documento ha sido elaborado con la respuesta de
Edwin Rosales a un mensaje del foro
11-09-2001
|
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
