/*******************************************************************/
/* Este CL nos permite recuperar la direccion IP  de un PC         */
/* conecatdo al AS/400.                                            */
/*                                                                 */
/* En este ejemplo no se ha implementado un control de errores:    */
/*                                                                 */
/* Utilizacion de las Variables:                                   */
/*------------------------------                                   */
/* RCVVAR = Contiene toda la informacion del Registro de la API.   */
/* VARLEN = Especifica la longitud de la variable RCVVAR en Binario*/
/* DEVICE = Contiene el Dispositivo del cual queremos saber la IP. */
/* IP     = Contiene la direccion IP del dispositivo               */
/* ERROR  = Contiene los errores hallados en la ejecucion de la API*/
/*                                                                 */
/*******************************************************************/

    DCL  &RCVVAR        *CHAR 2000
    DCL  &VARLEN        *CHAR    4
    DCL  &DEVICE        *CHAR   10
    DCL  &IP            *CHAR   15
    DCL  &ERROR         *CHAR  180


    RTVJOBA    JOB(&DEVICE)
    MONMSG  ( CPF0000 MCH0000 )
    CHGVAR  %BIN( &VARLEN ) 2000


  /* Llamamos a la API que nos recupera la IP del PC               */

    CALL       PGM(QDCRDEVD) PARM(&RCVVAR &VARLEN +
                  'DEVD0600' &DEVICE &ERROR)

  /* Coloca  toda la informacion del formato de la API             */
  /* en una Area de datos                                          */

    CHGDTAARA  DTAARA(ALBERT/IP (1 2000)) VALUE(&RCVVAR)

  /* Recupero solo la direccion IP del PC                          */

    CHGVAR     VAR(&IP) VALUE(%SST(&RCVVAR 878 15))