RE: Procesar Archivos BD en Programas CL

[Victor Velardez BT]

pgm (&fecha )
dcl &fecha *dec 8
dcl &fechac *char 9 

dcl &quote *char 1 value(X'7D')
dcl &cmd *char 128 


chgvar &fechac &fecha
chgvar &cmd      ('OVRDBF     FILE(CALNDR01) TOFILE(AMFLIB/CALNDR01) MBR(*FIRST) +
    position(*KEYBE 1 CALNDRA X' || &quote || &fechac |< 'F' || &quote )

call qcmdexc (&cmd 128) 

endpgm 



Puede que haya que hacerle algunos ajustes, pero en principio esta es la idea


> -----Mensaje original-----
> De:   [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
> Enviado el:   Mi�rcoles, 18 de Septiembre de 2002 10:00 a.m.
> Para: [EMAIL PROTECTED]
> Asunto:       Procesar Archivos BD en Programas CL
> 
> Hola Foro, hace unos d�as envi� esta pregunta y todav�a no he encontrado la
> respuesta. Por favor, si alguno de Uds tiene alg�n programador cerca
> transmitanle este mensaje para ver si alguien puede contestarme a la
> pregunta.
> .......
> En el �ltimo numero de la revista NEWS 400 encontr� ejemplos de como
> situarse por clave en un archivo de datos en un progrma CL. Todo bien hasta
> que prob� con un archivo cuya clave es num�rica empaquetada. Hay que poner
> el valor en Hexadecimal. Muy bien, funciona:
>      OVRDBF     FILE(CALNDR01) TOFILE(AMFLIB/CALNDR01) MBR(*FIRST) POSITION
>      (*KEYBE 1 CALNDRA X'1020911F')
> 
> Claro que de poco me sirve si el valor se lo tengo que dar como una
> constante.
> Mi pregunta es como puedo pasarle el valor de posicionamiento en una
> variable. �como defino esa variable, *CHAR o DEC? etc... �c�mo convierto el
> valor que tengo a Hexadecimal?.
> Gracias, Jone Abrego
> 
> 
> 
> _____________________________________________________
> 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=AVE

La informacion contenida en este correo es para uso exclusivo de los destinatarios del 
mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este correo
realizar cualquier tipo de modificacion, copia o distribucion del mismo.
Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.

_____________________________________________________
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