=?iso-8859-1?Q?RE=3A_De_Fecha_a_num=E9rico_con_formato_=2AISO?=

Tue, 02 Mar 2004 09:03:36 -0800

Title: Mensaje
Muy posiblemente el problema sea que no defines la signatura del programa de servicio, con lo que cada vez que a�adas funciones, �sta cambia, actuando de forma parecida al nivel de los formatos de registro. De esta manera,  si no recompilas los programas que usan el programa de servicio, estos fallar�n.
 
Nosotros usamos lo que en ingl�s se conoce como 'binder language' o algo as�. La cosa consiste en definir en un fuente las funciones y datos que exporta el programa de servicio, y opcionalmente su signatura. Un ejemplo ser�a :
 
STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('S20031111')
  EXPORT SYMBOL(DATOS1)                           
  EXPORT SYMBOL(FUNC1)                        
  EXPORT SYMBOL(FUNC2)                       
  EXPORT SYMBOL(FUNC3)                        
ENDPGMEXP   
 
En la primera l�nea defino la signatura del programa de servicio, y en las siguientes las funciones y datos exportados (por norma aqu� le ponemos 'S' m�s la fecha de vigencia de la signatura).
 
De esta manera, cuando a�ada una funci�n al programa de servicio, si la a�ado AL FINAL (en el ejemplo, tras FUNC3), no he de cambiar la signatura del programa de servicio y de esta manera no he de recompilar los programas que lo usan. 
 
La signatura ha de cambiarse ( y por ende, recompilar todos los programas que usan el programa de servicio) si se modifica el orden de los EXPORT, se a�aden nuevos y no al final, si cambian los par�metros o tipo de datos devuelto de las funciones exportadas, se eliminan exportaciones, o cambia el tipo o tama�o de alguno de los datos exportados. De no cambiarse, los resultados son impredecibles y frecuentemente muy desagradables.
 
Para utilizar el 'binder language' (malditos manuales en ingl�s...) has de compilar el programa de servicio informando informar el nombre del fuente ( por convenio se suele usar un archivo de fuentes QSRVSRC, y miembro de igual nombre que el programa de servicio) en los par�metros SRCFILE y  SRCMBR, y adem�s informar EXPORT a *SRCFILE          
 
Para m�s informaci�n, consulta ILE CONCEPTS. All� explica, por ejemplo, como tener x signaturas diferentes para un mismo programa de servicio (no lo he gastado pero puede tener su utilidad).                           
 
 

Saludos.

Fernando P�rez.

Cer�mica Saloni. Dpto. Sistemas


-----Mensaje original-----
De: gerardo.santillana [mailto:[EMAIL PROTECTED]
Enviado el: martes, 02 de marzo de 2004 16:39
Para: [EMAIL PROTECTED]
Asunto: RE: De Fecha a num�rico con formato *ISO

Pues aprovechando mas el tema, si tengo una funcion que convierte de caracter a numerico y efectivamente lo tengo en un programa de servicio, mi pregunta, si me puedes ayudar, es que pasos tengo que seguir para modificar este programa de servicio cuando tengo que agregar otras funciones ya que al momento de modificarlo los programas que lo utilizan empiezan a fallar, he leido que se tiene que crear una especie de directorio con todas las funciones que estan dentro de este programa de servicio pero no tengo muy claro esto, no se si tengas algun ejemplo o algo que me aclare un poco  esta duda
 
Gracias
 

Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554 5832
MX Ph: (868) 812 81 63/64/65  Ext 5832
Pager: (956) 768 1048
Mobil E-mail [EMAIL PROTECTED]
e-mail [EMAIL PROTECTED]

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Fernando P�rez
Sent: Tuesday, March 02, 2004 9:29 AM
To: '[EMAIL PROTECTED]'
Subject: RE: De Fecha a num�rico con formato *ISO

Perdonado lo del nombre ;)
 
Pues estamos en V5R2, y efectivamente, creo que en V5R1 %int no permite convertir de car�cter a num�rico. Yo en tu caso me plantear�a hacer una funci�n que hiciera la conversi�n y la pondr�a en un programa de servicio. La forma m�s f�cil de hacer la conversi�n es la que propone Joan, pero al no ser free-form es preferible encapsularlo en una funci�n, para que no l�e el sangrado.
 

Saludos.

Fernando P�rez.

Cer�mica Saloni. Dpto. Sistemas


-----Mensaje original-----
De: gerardo.santillana [mailto:[EMAIL PROTECTED]
Enviado el: martes, 02 de marzo de 2004 16:05
Para: [EMAIL PROTECTED]
Asunto: RE: De Fecha a num�rico con formato *ISO

Que tal Luis
 
    no tengo la solucion mas bien es una pregunta,  en que version estas del S.O. por que yo hago mas pasos para pasar un campo fecha a numerico, de hecho no uso la funcion %INT  por que no me deja hacerla sobre campos caracter, estoy en V5.1
 
Saludos
 

Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554 5832
MX Ph: (868) 812 81 63/64/65  Ext 5832
Pager: (956) 768 1048
Mobil E-mail [EMAIL PROTECTED]
e-mail [EMAIL PROTECTED]

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Fernando P�rez
Sent: Tuesday, March 02, 2004 8:21 AM
To: Foro 400 ([EMAIL PROTECTED])
Subject: De Fecha a num�rico con formato *ISO

En vista de que antes ha ido bien la cosa con lo del movel de num�rico a alfanum�rico, vuelvo a probar suerte:

La forma m�s sencilla que he encontrado de pasar un campo de fecha a uno num�rico (8 0) con formato *ISO es la siguiente (en el ejemplo paso la fecha del sistema, pero la idea ser�a aplicarlo tambi�n a variables tipo fecha):

Fecha_num = %int(%char(%date: *iso0))

�Alguna forma m�s abreviada de hacer lo mismo?



Saludos.

Fernando P�rez.

Cer�mica Saloni. Dpto. Sistemas


<<Fernando P�rez.vcf>> 

****************************************************************************************

Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you.


****************************************************************************************

****************************************************************************************

Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you.


****************************************************************************************

Attachment: Fernando P�rez.vcf
Description: Binary data

Responder a