AS/400 - Ayuda en Programaciòn CLP

   
Vista:

Ayuda en Programaciòn CLP

Publicado por Francisco Delgado (44 intervenciones) el 28/04/2010 23:20:57
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda en Programaciòn CLP

Publicado por Jesús Acuña (10 intervenciones) el 13/05/2010 22:06:04
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda en Programaciòn CLP

Publicado por vicente arteaga (2 intervenciones) el 13/08/2010 23:26:37
hola yo tengo este

1.- DESPLEGAR INFORMACION USUARIO

2.- DESBLOQUEO USUARIO

3.- RESETEA USUARIO











<- SELECCIONE LA OPCION
F1 = SALIDA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda en Programaciòn CLP

Publicado por vicente.arteaga (1 intervención) el 13/08/2010 23:28:10
hola yo tengo este

1.- DESPLEGAR INFORMACION USUARIO

2.- DESBLOQUEO USUARIO

3.- RESETEA USUARIO











<- SELECCIONE LA OPCION
F1 = SALIDA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda en Programaciòn CLP

Publicado por Francisco Delgado (44 intervenciones) el 25/08/2010 18:24:19
Hola Vicente creees que me puedas regalar tu programa para poder ejecutar estas opciones en el equipos AS400 que tengo ??

Gracias y Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar