Señores, como siempre necesito de ayuda.
Estoy en V5R2
tengo un comando que me solicita el nombre del objeto y tipo de objeto, el
comando recibe hasta 9 objetos y tipos.
el comando tiene las siguientes lineas
PARM KWD(OBJR) TYPE(REPLACE) MIN(0) MAX(9) +
PROMPT('Objeto a Remplazar')
REPLACE: QUAL TYPE(*NAME) LEN(10)
QUAL TYPE(*CHAR) LEN(7) RSTD(*YES) +
VALUES(*CMD *FILE *MENU *MODULE *MSGF +
*PGM *PNLGRP) PROMPT('Tipo de Objeto')
Luego, esta variable es recibida por un cl validador, y lo recibe en un
variable de 155,
y realiza la siguiente operacion
CHGVAR VAR(&BIN4) VALUE(%BIN(&OBJ 1 2))
IF COND(&BIN4 *NE 0) THEN(DO)
CHGVAR VAR(&OBJ1) VALUE(%SST(&OBJ 3 10))
CHGVAR VAR(&TIP1) VALUE(%SST(&OBJ 13 7))...........
la varible &bin4 siempre estuvo definida de 3 0, pero ahora dice que el
receptor es demaciado pequeño, la aumente a 4 0, pero el resultado es
negativo y error.
y el primer objeto &obj1, ya esta desde la posicion 5 de la variable &obj.
cualquier ayuda, bien venida..
gracias
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
