Esta es una muestra espero te sirva.....
Ignacio Tellez
===========================
PGM
DCL VAR(&DATA) TYPE(*CHAR) LEN(2000)
DCL VAR(&USER) TYPE(*CHAR) LEN(10) VALUE('ITELLEZ'
DCL VAR(&DEC4) TYPE(*DEC) LEN(4) VALUE(2000)
DCL VAR(&BIN4) TYPE(*CHAR) LEN(4)
DCL VAR(&CHR4) TYPE(*CHAR) LEN(4)
DCL VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('UPWD0100')
DCL VAR(&IOERR) TYPE(*CHAR) LEN(50)
MONMSG MSGID(CPF0000)
CHGVAR VAR(%BIN(&BIN4)) VALUE(&DEC4) => aqui se convierte de
caracter a BINARIO
CALL PGM('programa') PARM(&DATA &BIN4 &FMT &USER &IOERR)
CHGVAR VAR(&BIN4) VALUE(%SST(&DATA 4 4))
CHGVAR VAR(&CHR4) VALUE(%BIN(&BIN4)) => aqui se convierte de
Binario a caracter
.......
........
ENDPGM
==============================
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
