AS/400 - Ayuda en Programaciòn CLP

Buenas tardes.

Solo me resta decir que me quedo decepcionado de no encontrar a alguien que me pueda ayudar con el programa que necesito, pense que si habia personal con capacidad para poder ayudar a los mismos compañeros del entorno AS400.
De cualquier manera les agradezco el haber visto mis preguntas !!

Saludos

Estimado Francisco una forma practica (y rápida) sería incorporar las siguientes instrucciones en tu programa:

DCL &USER *CHAR 10
SNDUSRMSG MSG('Por favor ingrese el usuario del que +
desea resetear el perfil?') MSGRPY(&USER)
Call PROG1 PARM(&user)

donde PROG1 es el programa de reseteo, de la siguiente manera:

PGM
DCLF FILE(SOPORTE/DSPUSER)
DCL VAR(&USRPRF) TYPE(*CHAR) LEN(8)
DCL &USER *CHAR 10
ADDLIBLE LIB(SOPORTE)
MONMSG MSGID(CPF2103)
CICLO: +
SNDRCVF
IF COND(&OPCMENU = 1) THEN(DO)
? DSPUSRPRF TYPE(*BASIC) OUTPUT(*) OUTMBR(*FIRST *REPLACE)
MONMSG MSGID(CPF6801)
ENDDO
IF COND(&OPCMENU = 2) THEN(DO)
SNDUSRMSG MSG('Por favor ingrese el usuario del que +
desea resetear el perfil?') MSGRPY(&USER)
Call PROG1 PARM(&user)
GO MAIN
ENDDO
IF COND(&OPCMENU = 3) THEN(DO)
? WRKUSRJOB
MONMSG MSGID(CPA0701)
MONMSG MSGID(CPF6801)
ENDDO
IF COND(&OPCMENU = 5) THEN(DO)
SIGNOFF
ENDDO
GOTO CMDLBL(CICLO)
FIN: +
ENDPGM

Sin embargo mucho más serio y profesional sería diseñar un pequeña pantalla de ingreso de datos que lo podría manejar el programa de reset, pero para ello necesitarías conocimientos del utilitario del SDA y un mejormanejo de CL.

Espero haberte ayudado algo.

Jesús Acuña
www.cursos-as400.com

hola yo tengo este

1.- DESPLEGAR INFORMACION USUARIO

2.- DESBLOQUEO USUARIO

3.- RESETEA USUARIO











<- SELECCIONE LA OPCION
F1 = SALIDA

hola yo tengo este

1.- DESPLEGAR INFORMACION USUARIO

2.- DESBLOQUEO USUARIO

3.- RESETEA USUARIO











<- SELECCIONE LA OPCION
F1 = SALIDA

Hola Vicente creees que me puedas regalar tu programa para poder ejecutar estas opciones en el equipos AS400 que tengo ??

Gracias y Saludos