from:"Sergio Luis Puentes\-Valladares"

Re: Store Procedure

2019-05-03 Por tema Sergio Luis Puentes-Valladares

Carlos
Los procedimientos almacenados se guarda en la base de datos donde fueron
creados
si mal no recuerdo
Saludos

*Sergio Luis Puentes Valladares*
Analista Programador SR IBM AS400 - RPG/COBOL



*Móvil/WhatsApp (CO)+57 300 8575545*

*   (AR)+54 911 2451 3677*

*   (CL)+56 9 9612 8330*

*Skype/Hangouts  spuen...@gmail.com *







El vie., 3 may. 2019 a las 12:57, Carlos C. ()
escribió:

> Buenas tardes FORO
>
> Quisiera saber si algunos de Uds. saben donde se guarda la definicion de
> los procedimientos almacenados en el Iseries.
>
> Gracias desde ya por su tiempo.
>
>
> Saludos
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: una manita - Como eliminar ceros de un campo numerico en rpg????

2019-03-21 Por tema Sergio Luis Puentes-Valladares

SIMPLE  %Editc(Campo Numerico:'X') los Deja
%Editc(Campo Numerico:'Z') los Elimina

*Sergio Luis Puentes Valladares*
Analista Programador SR IBM AS400 - RPG/COBOL



*Móvil/WhatsApp (CO)+57 300 8575545*

*   (AR)+54 911 2451 3677*

*   (CL)+56 9 9612 8330*

*Skype/Hangouts  spuen...@gmail.com *







El jue., 21 mar. 2019 a las 10:43, Paco Medina - Exclusivas Camacho (<
med...@e-camacho.com>) escribió:

> Paso un archivo del As a CSV
>
> Como eliminar ceros de un campo numérico en RPG
>
>
>
>
>
> Gracias de antemano por vuestra ayuda
>
>
>
>
> *Paco MedinaDept. Informática *
>
> Exclusivas Camacho, S. Ltd.
> EORI ESB29145240
> Av. J. Ortega y Gasset, 301 (Pol. San Luis)
> 29006 Málaga, España (SPAIN)
>
> [image: http://www.e-camacho.com/img/logo_camacho.png]
> Tel.   +34 952 322 900
> Fax   +34 952 314 900
> www.e-camacho.com
> *med...@e-camacho.com* 
>
> *Antes de imprimir piensa si es necesario, piensa en el MEDIO AMBIENTE.*
>
> Este mensaje y sus adjuntos son confidenciales y reservados exclusivamente
> a su destinatario.
>
> Queda prohibida cualquier revelación, copia o distribución de su
> contenido. Si ha recibido este
>
> mensaje por error, notifíquelo inmediatamente por esta misma vía y borre
> el mensaje de su sistema.
>
> Los datos contenidos en las comunicaciones son tratados por EXCLUSIVAS
> CAMACHO, S. L. con
>
> domicilio en AV. ORTEGA Y GASSET 301, 29006 MÁLAGA (ESPAÑA) con el fin de
> gestionar las
>
> comunicaciones y ofrecerle la información solicitada. Puede ejercitar sus
> derechos de acceso,
>
> rectificación, supresión, oposición y limitación, remitiéndonos su
> solicitud por escrito acompañando
>
> copia de su documento de identidad. Nuestra política de protección de
> datos podrá encontrarla en
>
> https://www.e-camacho.com.
>
>
>
> *Before printing thinks if necessary, think of ENVIRONMENT.*
>
> This message and any attachments are confidential and intended for the use
> of the addressee
>
> only. Any disclosure, copying, distribution is strictly prohibited. If you
> have received this email in error,
>
> please notify the sender and delete it immediately. Personal data included
> in this email belongs to
>
> EXCLUSIVAS CAMACHO, S. L. with registered address in AV. ORTEGA Y GASSET
> 301, 29006
>
> MÁLAGA (SPAIN) and will be processed with the purpose of managing the
> communications and
>
> providing information. You are entitled to exercise your rights of access,
> rectification, erasure, object,
>
> and limitation by addressing such written application to the company,
> together with a copy of you ID
>
> card. You may consult our privacy and data protection policy in
> https://www.e-camacho.com.
>
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: [Tema Viernes] Juanraneitor Returns ¿Game Over?

2018-09-13 Por tema Sergio Luis Puentes-Valladares

Estimado Colega
La MEJOR DE LAS SUERTE
Saludos

*Sergio Luis Puentes Valladares*
Analista Programador Senior IBM AS400 - RPG/COBOL



*Móvil/WhatsApp (AR)+54 911 2451 3677/(CL) +56 9 9612 8330*

*Skype (phone)f031eda531ec45d0 (PC)spuentes3452*

*Hangouts spuen...@gmail.com *







El jue., 13 sept. 2018 a las 16:59, Juan Ramón Garcia (<
juanranei...@gmail.com>) escribió:

> Muchas gracias Richard:
>
> El caso es que mañana tengo una entrevista (la segunda) en una empresa de
> Valencia.
> Desearme suerte :-)
>
> Un saludo
> Juanra
>
> PD: La suerte no existe, sólo es necesario una oportunidad y experiencia.
> FilosofoSaurio
>
>
> El jue, 13 de septiembre de 2018 21:43, Richard Tupet 
> escribió:
>
>> Buenas noches,
>>
>>
>>
>> Hay un analista programador RPG (AS/400) que se cambia de empresa y busca
>> a alguien para sustituirlo en Barcelona, si sigues buscando llámame y te
>> pasare los datos para que contactes con él.
>>
>>
>>
>> Un saludo.
>>
>>
>>
>> --
>>
>> *Richard Tupet*
>>
>> *Tel  * [image: cid:image001.jpg@01D44BAA.53269CF0]
>>
>> *656 40 66 29*
>>
>> *i...@cdosi.com *
>>
>> --
>>
>>
>>
>> *De:* forum.help400-boun...@listas.combios.es [mailto:
>> forum.help400-boun...@listas.combios.es] *En nombre de *Juan Ramón Garcia
>> *Enviado el:* viernes, 31 de agosto de 2018 10:52
>> *Para:* forum.help400
>> *Asunto:* Re: [Tema Viernes] Juanraneitor Returns ¿Game Over?
>>
>>
>>
>> Hola a tod@s:
>>
>> Me ha costado mes y medio el escribir estas líneas, el caso es que a
>> primeros de Julio finalizó el Proyecto para el que estaba contratado, en
>> principio iban a ser 6 meses pero se terminó en 4.
>>
>> Desde entonces estoy en "dique seco" y el subdidio de 423 eur no da para
>> mucho.
>>
>> Por motivos personales (que no deseo expresar públicamente) no puedo
>> marcharme de Valencia, al menos de momento, sin embargo no puedo estar sin
>> hacer nada así que llevo varias semanas buscando trabajo en Barcelona. Ya
>> viví allí (por trabajo) y el clima es muy parecido al de Valencia, el
>> problema es que necesito un salario lo suficientemente "digno" para poder
>> pagar a alguien que me sustituya con mis obligaciones actuales en Valencia
>> y eso es muy difícil de conseguir.
>>
>> Ya me han rechazado 6 empresas, supongo que por mis expectativas
>> salariales, otras provincias no me las planteo, en Asturias estuve a punto
>> de irme al otro barrio por una bronquitis que se me complicó y casi se
>> convierte en neumonía.
>>
>> Pues eso es lo que hay, para colmo no puedo participar en el Foro porque
>> todos mis fuentes están en mi pequeño 150 que está averiado y no tengo
>> dinero para arreglarlo.
>>
>> Estoy acostumbrado a trabajar desde mi casa, lo he estado haciendo los 2
>> últimos años sin ningún problema salvo que no tengo horario, igual trabajo
>> 10 o 12 horas diarias y... es que me encanta mi trabajo.
>>
>> Pues ya está dicho, si alguien necesita (o conoce a alguien que
>> necesite) a un anciano iSaurio (lo de anciano lo digo por la experiencia,
>> no por la edad ;-) ya sabeis donde encontrarme.
>>
>> Muchas gracias a tod@s y perdón por el rollazo.
>>
>> Un saludo.
>>
>> Juanra
>>
>> OtraVezParadoSaurio
>>
>>
>>
>> [image:
>> https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]
>> <https://www.avast.com/sig-email?utm_medium=email_source=link_campaign=sig-email_content=webmail>
>>
>> Libre de virus. www.avast.com
>> <https://www.avast.com/sig-email?utm_medium=email_source=link_campaign=sig-email_content=webmail>
>>
>>
>>
>>
>>
>> __ ESET Endpoint Security __
>>
>> Este correo electronico se ha analizado y no se han encontrado amenazas.
>>
>>
>>
>> Versión del Motor de deteccion
>>
>> http://www.eset.com
>> 
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: consulta pantalla tactil 5250

2017-11-15 Por tema Sergio Luis Puentes-Valladares

Estimado Vicente
Has calculado alguna vez la posicion del CURSOR en pantalla?
Bueno aqui te adjunto, algo de codigo para explicarte
 Rpgile
 FPRUSFL1DCF  EWORKSTN

 FNRSFL KSFILE FORM0001

 F  KINFDS IOFB



 *--

 * Estructura de Pantalla

 *--
 IIOFBDS
 I9   9 WPFOPN
 I   10  10 WPFEOF
 I   46  52 WMSGID
 I  369 369 WKYPRS
 IB 370 3710WCURSO
 IB 376 3770WSRN
 IB 378 3790WSRNB


  *---

  * Define estructuras de variables de programa

  *---

 IXVARIE IDS

 I1   50XI

 I6  100XIND

 I   11  150XSTR

 I   16  200XLINE

 I   21  250XCOLM

 I   26  300XREG

 I   31  350XSFL

  *--

  * SRPS10 - Calcula posición de campo

  *--
 C   SRPS10BEGSR

  *  Cálcula posición de cursor

 C   WCURSODIV  256   XLINE

 CMVRXCOLM

WCURSO es una variable de la estructura de pantalla IOFB, que al dividirla
por 256
siempre te devolvera en que linea estas y el resto obtenido de la revision
con la
instruccion MVR(MOVE REMAINDER) siempre te devolvera el numero de columna
en que estas, bien una vez obtenido estos datos, basta con verificar si
estas en el
area que necesitas (Columna x hasta Columna y, Lineas x hasta Lineas y) y
si es asi
hacer lo que requieres de acuerdo a la logica de vuestro programa, ve si el
campo o
campos que componen tu gran boton tienen en la DDS el tributo de ENTER
implicito
(Quiere decir que ingresado un dato salta automaticamente o equivale a
enter)

Puede que te sirva, usualmente uso esto, mas logica adicional para saber en
que registro
exacto del subfile me encuentro, algo que es muy util cuando necesitas
actualizar un archivo
de acuerdo a los datos de un registro de subfile
Saludos

Sergio L Puentes Valladares
Analista Programador Senior - iSeries


El mié., 15 nov. 2017 a las 3:38, Vicente Aliaga | Silomar (<
vali...@silomar.es>) escribió:

> Buenas Foro,
>
>
>
> Estoy retomando un tema de pantallas táctiles 5250 estoy en iSeries Access
> 6.0 y quería que si pulsan en un recuadro con el lápiz en
>
> la pantalla me recupere la posición del cursor un RPGLE, solo me falta que
> al marcar con el Lápiz devuelva el control al programa, sin
>
> embargo después de pulsar con el Lápiz (con lo que el cursor se queda en
> esa área) tengo que pulsar INTRO para devolver el control
>
> al RPGLE. Y no quiero que pulse el teclado el usuario.
>
>
>
> Seria como cuando pulsas en una calculadora y cuando pulsas cada botón
> muestra el numero pulsado.
>
>
>
> El área es un cuadrado de 5 columnas y 5 filas, por lo que no me sirven
> PSHBTNFLD, PSHBTNCHC ya que solo tienen un área de una línea.
>
>
>
> Seria como un Botón grande jeje
>
>
>
> He probado estas palabras clave de DDS:
>
>
>
> MOUBTN(*ULP ENTER)
>
> RTNCSRLOC(  )
>
> RTNCSRLOC(*MOUSE  )
>
>
>
> Me funciona pero cuando selecciono fuera de las áreas, marcadas como
> táctiles, deja de funcionar y no hay manera de que vuelva a funcionar
>
> si no me salgo de la Sesión a user y pass.
>
>
>
> Ya no se si será problema de PTF’s
>
>
>
>
>
> Muchas gracias
>
>
>
> Vicente
>
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

-- 
Sergio L. Puentes Valladares
Analista Programador Senior - iSeries
Móvil:  (+54)   11-2451-3677
WhatsApp:  (+54) 911-2451-3677
Skype  :   spuentes3452

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Día de la semana rpgile

2015-11-06 Por tema Sergio Luis Puentes-Valladares

Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos

Sergio L

On Fri, Nov 6, 2015, 14:42 Roberto Palomino  wrote:

> Buenas tardes Foreros, mi pregunta es si hay alguna función que me
> devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
> como le hago?.
> Por ejemplo:
> Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
> cuenta que el día 01 fue el domingo pasado.
> De antemano gracias
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: SESION AS400 CAE A LOS 5 MIN. DE INACTIVIDAD

2015-07-23 Por tema Sergio Luis Puentes-Valladares

Alex; Buenos Dias

Mas alla del seteo,el tema es que quieren llegar a la luna en una Citrola,
Yo tengo banda ancha en casa y me conecto via Client Access o Mocha sin
Problema y desde mi Smartphone con Mocha a un Servicio Aleman que ofrece
conectividad a sus As400 en Modalidad gratis o Pago sin problema
Saludos y Gracias por tus Ayudas

Sergio L Puentes Valladares

On Thu, Jul 23, 2015, 04:53 Alex Martínez ajut...@gmail.com wrote:

 Hola

 los valores que has utilizado son de KeepAliveTime=30 minutos y
 KeepAliveInterval=5 minutos

 es decir *Mantener Activo después de estar 30 minutos la conexión
 desocupada* con retransmisiones cada 5 minutos

 tambien te recomiendo que revises si tienes instalado el ultimo service
 pack de iseries access, aunque no indicas si usas este programa ni la
  versión o si se trata de otro emulador 5250

 prueba a reducir los valores a por ejemplo 3 minutos desocupada y 1 minuto
 para cada retransmision, aunque esto incrementará el trafico de red

 si utilizas iseries access tienes la utilidad CWBCOPWR  para realizar
 estos cambios

 Salu2

 El 22 de julio de 2015, 15:19, Javier Baca javier.b...@bcndepot.com
 escribió:

  Buena tardes :



 Nos conectamos al AS400 (con emulación 5250) con un PC que tiene
 conectado un pen usb de Movistar y al 5 min. de inactividad, cae la sesión
 y el log que genera el AS400 es el siguiente :

 “Mensaje . . . . :   Una petición del dispositivo QPADEV02N2 ha detenido
 la

   sesión.


 Causa . . . . . :   La petición de cierre se debe a que el usuario
 ha

   desconectado la alimentación, a un error de dispositivo, o a que *ha
 expirado   *

 *  el temporizador de inactividad del controlador ASCII*. Recuperación
 . :

   Cierre los archivos y desactive el dispositivo (mandato VRYCFG). Si
 el

   problema se repite, especifique el mandato ANZPRB para ejecutar el
 análisis

   de problemas.”



 Hemos modificado el Registro de Windows, y hemos creados dos claves :

 “KeepAliveTime con valor DWORD=001b7740”

 “KeepAliveInterval con valor DWORD=000493e0”



 Hemos modificado el archivo .WS añadiendo en la sección “Telnet5250” lo
 siguiente :

 “KeepAlive=Y”.



 Hemos probado en varios PCs, tanto Windows XP, con Windows 7 e incluso
 con Windows CE, y en todos los casos, se ha cortado la conexión.



 ¿Alguien tiene información sobre el “*temporizador de inactividad del
 controlador ASCII*” o sabría cómo evitar que caigan las sesiones AS400
 por inactividad?



 El SIM que se inserta en el pen usb (sin finalmente funciona), tendrá que
 ir colocado en un equipo (portátil de mano) un Motorola Omni XT15 con
 módulo GRPS, que también se corta, pero se ha colocado de momento, en un PC
 para hacer las pruebas.



 Según IBM, se podría desconectar la sesión por la VPN, un cortafuegos, un
 router o por el proveedor del servicio, en este caso, Movistar, pero VPN
 queda descartado porque, en este caso, no la utilizamos, ponemos
 directamente la IP pública, y cortafuegos y router también quedarían
 descartados, porque se ha probado de conectar con un portátil, totalmente
 aislado de la instalación de la empresa :



 “Cuando una conexión Telnet 5250 se realiza sobre una red local no suelen
 ocurrir problemas, sin embargo, cuando ésta se establece a través de
 Internet intervienen una serie de elementos y factores que pueden afectar a
 la comunicación. En estos casos la sesión 5250 podría desconectarse del
 servidor debido a un periodo de inactividad de la conexión al activarse
 algún temporizador situado en uno de los elementos intermedios del enlace:
 *VPN*, *cortafuegos*, *routers*, *proveedores de servicio*, entre otros.
 Como en la mayoría de las ocasiones es difícil o complicado actuar sobre
 este *temporizador*, existe otra forma de evitar estas desconexiones.”



 Por favor, ¿alguien nos puede ayudar?



 Saludos,



 *[image: Firma Javier Baca BCN DEPOT]*



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: SESION AS400 CAE A LOS 5 MIN. DE INACTIVIDAD

2015-07-23 Por tema Sergio Luis Puentes-Valladares

Miguel; Buenos Dia aca, Tardes Alla

Me asombro y agradezco vuestra observacion desconocia que hubiese tal
diferencia en la calidad de las conunicaciones, uds son primer mundo era mi
pensar y veo que no es asi, uff, Soy Analista Programador (Chileno) y puedo
decirte que nunca tuve problemas en Chile,  en Argentina en la que vivo
hace ya casi 11 años tampoco e incluso en una breve estadia en Costa Rica
en que vivi tampoco y lo que mas me gustaba era la calidad de la telefonia,
hablaba a casa y era como si estuviera  en casa, Lamento mucho todos tus
problemas y mil gracias por cambiarme mi apreciacion de una realidad que no
es tal (Europa todo cool)

Un abrazo desde un extremo del Mundo, Buenos Aires, Argentina

Sergio L Puentes Valladares

On Thu, Jul 23, 2015, 06:04 webaccess as400acc...@gmail.com wrote:


 Hola

 No es cuestión ni de citrolas ni de mercedes. Por desgracia para los que
 estamos en España, las lineas en Argentina las tenéis mucho mejor y de una
 calidad que en España no hay. Yo llevo conectado a 400 vía Internet desde
 que se podía con módem de 28 K, y la conexión en cuanto a sincronizacion y
 continuidad era casi mejor que ahora. Por poner un ejemplo, en el centro de
 Madrid con conexión ADSL normal he estado conectado mas de 24 horas con una
 emulación client access, y algún día se me quedo la pantalla encendida y se
 ha quedado todo el fin de semana. Sin embargo donde vivo ahora en las
 afueras la lineas son una mierda y se corta todo el tiempo. y lo mismo me
 ocurre con el servicio alemán de RZKH donde también tengo cuenta. Por eso
 tengo muy claro que es problema de la calidad de las lineas, como decía antes
 la calidad de las lineas es suficiente para navegar con los exploradores
 por Internet pero en algunos casos no lo suficiente para las conexionas a
 un 400. Y en un mundo tan globalizado donde estamos aquí gente de muchos
 países, algunas cosas técnicas y sobre todo de calidades, son distintas
 en cada país.

 un saludo

 Miguel



 El 23 de julio de 2015, 10:01, Sergio Luis Puentes-Valladares 
 spuen...@gmail.com escribió:

 Alex; Buenos Dias

 Mas alla del seteo,el tema es que quieren llegar a la luna en una
 Citrola, Yo tengo banda ancha en casa y me conecto via Client Access o
 Mocha sin Problema y desde mi Smartphone con Mocha a un Servicio Aleman que
 ofrece conectividad a sus As400 en Modalidad gratis o Pago sin problema
 Saludos y Gracias por tus Ayudas

 Sergio L Puentes Valladares

 On Thu, Jul 23, 2015, 04:53 Alex Martínez ajut...@gmail.com wrote:

 Hola

 los valores que has utilizado son de KeepAliveTime=30 minutos y
 KeepAliveInterval=5 minutos

 es decir *Mantener Activo después de estar 30 minutos la conexión
 desocupada* con retransmisiones cada 5 minutos

 tambien te recomiendo que revises si tienes instalado el ultimo service
 pack de iseries access, aunque no indicas si usas este programa ni la
  versión o si se trata de otro emulador 5250

 prueba a reducir los valores a por ejemplo 3 minutos desocupada y 1
 minuto para cada retransmision, aunque esto incrementará el trafico de red

 si utilizas iseries access tienes la utilidad CWBCOPWR  para realizar
 estos cambios

 Salu2

 El 22 de julio de 2015, 15:19, Javier Baca javier.b...@bcndepot.com
 escribió:

  Buena tardes :



 Nos conectamos al AS400 (con emulación 5250) con un PC que tiene
 conectado un pen usb de Movistar y al 5 min. de inactividad, cae la sesión
 y el log que genera el AS400 es el siguiente :

 “Mensaje . . . . :   Una petición del dispositivo QPADEV02N2 ha
 detenido la

   sesión.


 Causa . . . . . :   La petición de cierre se debe a que el usuario
 ha

   desconectado la alimentación, a un error de dispositivo, o a que *ha
 expirado   *

 *  el temporizador de inactividad del controlador ASCII*.
 Recuperación  . :

   Cierre los archivos y desactive el dispositivo (mandato VRYCFG). Si
 el

   problema se repite, especifique el mandato ANZPRB para ejecutar el
 análisis

   de problemas.”



 Hemos modificado el Registro de Windows, y hemos creados dos claves :

 “KeepAliveTime con valor DWORD=001b7740”

 “KeepAliveInterval con valor DWORD=000493e0”



 Hemos modificado el archivo .WS añadiendo en la sección “Telnet5250” lo
 siguiente :

 “KeepAlive=Y”.



 Hemos probado en varios PCs, tanto Windows XP, con Windows 7 e incluso
 con Windows CE, y en todos los casos, se ha cortado la conexión.



 ¿Alguien tiene información sobre el “*temporizador de inactividad del
 controlador ASCII*” o sabría cómo evitar que caigan las sesiones AS400
 por inactividad?



 El SIM que se inserta en el pen usb (sin finalmente funciona), tendrá
 que ir colocado en un equipo (portátil de mano) un Motorola Omni XT15 con
 módulo GRPS, que también se corta, pero se ha colocado de momento, en un PC
 para hacer las pruebas.



 Según IBM, se podría desconectar la sesión por la VPN, un cortafuegos,
 un router o por el proveedor del servicio, en este caso, Movistar

Re: Accesar con CHAIN a un archivo definido por programa

2015-02-12 Por tema Sergio Luis Puentes-Valladares

Juan
En Sistema 36 los archivos eran por default planos y para accederlos se
creaban indices (LF) ve si tiene algun indice creado para accederlo y otra
cuando lo definas en el programa en la hoja F debes indicarle en vez de
definición E una F e indicar que el acceso es K(clave), el resto sigue
igual definir una KList y el Chain debe usar la KList definida
Saludos
Sergio L

On Thu, Feb 12, 2015, 12:07 Juan Gutierrez Ruiz 
juan_gutierrez_r...@hotmail.com wrote:

  Buenos Días Foro
 estos tratando de acceder con un chain a un archivo definido por programa
 el archivo tiene una longitud de registro 400
 y  la claves es de 3 caracteres alfabéticos
 el archivo es MFUSCC es un archivo de clientes donde las 3 primeras
 posiciones es de 3 caracteres alfabéticas y el resto la razón social y
 demás, este fue credo en un ambiente 36
 el  problema es que al darle chain con el dato de entrada de 3 caracteres
 el compilador me manda error

 *RNF7055 30  1 El Factor 1 no es válido para la operación
 especificada.
  Causa . . . . . :   El operando de Factor 1 no es
 válido
para la operación
 especificada.
-- Para el proceso de número de registro relativo,
 el
  operando de Factor 1 debe ser numérico con
 cero
  posiciones
 decimales.
-- Para el acceso aleatorio por clave, el operando
 de
  Factor 1 debe ser compatible con el tipo de
 dirección
  de registro (posición 34 de la especificación
 de
  Archivo) del
 archivo.
   La especificación se pasa por
 alto.
  Recuperación  . :   Corrija la definición del
 operando de
Factor 1. Vuelva a
 compilar.
* *   F I N   D E   R E S U M E N   D E   M E N S A J E S   *
 *

 estos compilando en un RPGILE

 la  tabla CONDATOS es igual, sin embargo este lo leo secuencialmente sin
 problema
 pero al archivo MFUSCC   al encadenarlo me manda error

 alguien me puede echar una mano ??
 gracias




 FCONDATOSX IF   F   43DISK
 FMFUSCCIF   F  400   DISK
 FLCLIEN1 UF AE   K
 DISK
 FLPOLDDS1 O  A E   K DISK
  *
 ICONDATOSX NS  01
 I P13 0LLAVE
 I  55  MA
 I  6   11 0NUMAUX
 I 12   17 0FECHA
 I 18   18 0CP
 I 19   23 0NP
 I P   24   31 2IMP
 I 32   32  CA
 IMFUSCCXX  021 CC
 I  13  CLIENTE
 I  4   45  NOMBRE
 I 46  400  DEMAS
 C* ==
 C* | RECEPCION Y MANEJO DE PARAMETROS. DEF. DE CAMPOS DE TRAB.  |
 C* ==
 C *ENTRYPLIST
 C   PARMWCTE  3
 C* ==
 C* | B L O Q U E   P R I N C I P A L   D E L   P R O G R A M A  |
 C* ==
 C   EXSR  SRDATOS
 C   EXSR  SRCLIEN
 C   EVAL  *INLR = *ON
 C* ==
 C* | SRDATOS: Genera DDS TPOLDD de COMDATOSX|
 C* ==
 C SRDATOS   BEGSR
 C   READ  CONDATOSX  80
 C   DOW   *IN80 = *off
 C*  MOVEL 'YYY' CLIECVE
 C   MOVEL WCTE  CLIECVE
 C   Z-ADD LLAVE POLAIDD
 C   Z-ADD LLAVE POLAIDD
 C   Z-ADD NUMAUXPOLAAUX
 C   Z-ADD FECHA POLAFEC
 C   Z-ADD CPPOLACLP
 C   Z-ADD NPPOLANUP
 C   Z-ADD IMP   POLAIMP
 C   MOVEL CAPOLAMOV
 C   WRITE TPOLDDSF
 C   READ  CONDATOSX  80
 C   ENDDO
 C   ENDSR
 C* ==
 C* | SRCLIEN  : CREA EL REGISRO DEL CLIENTE DE MFUSCC A TCLIEN  |
 C* ==
 C SRCLIEN   BEGSR
 C WCTE  CHAIN MFUSCC 99
 C   IF*IN99 = *OFF
 C WCTE  CHAIN TCLIENF
 C   IF%FOUND
 C   MOVEL CLIENTE

Re: Accesar con CHAIN a un archivo definido por programa

2015-02-12 Por tema Sergio Luis Puentes-Valladares

Sergio
Exactamente  al usar IP? Para definir el tipo de hoja y definir F te
entrega el formato donde puedes definir la longitud de la clave tipo A
Caracteres
Sergio L


Hoja F archivo Plano S36.rtf
Description: MS-Word document


Hoja F archivo Plano S36-2.rtf
Description: MS-Word document

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Accesar con CHAIN a un archivo definido por programa

2015-02-12 Por tema Sergio Luis Puentes-Valladares

Juan
Si tienes a bien adjuntar archivo .txt con todo ( DDS del lógico,  Programa
ile)
Saludos

Sergio L

On Thu, Feb 12, 2015, 13:09 Juan Gutierrez Ruiz 
juan_gutierrez_r...@hotmail.com wrote:

  Gracias Por contestar foro
 me estado peleando con todo eso que me dicen

 le he puesto un K , para indicarle que es un archivo de llave, mas sin
 embargo en el SEU me manda error de sintaxis y me dice que no puedo poner
 un K a un archivo descrito por programa, solo a los externos

 le he tratado de  poner la longitud de la llave de 3 en la hoja F y
 también manda una sintaxis de error

 también he creado un archivo lógico  por la llave de cliente y me nada el
 mismo error como el fidico

 también genere un Klist y  es lo mismo , me manda el mismo error (mostrado
 Abajo)

 ya no encuentro mas opciones
 saludos


 *De:* Vicente Aliaga | Silomar vali...@silomar.es
 *Enviado el:* ‎jueves‎, ‎12‎ de ‎febrero‎ de ‎2015 ‎09‎:‎35‎ ‎a. m.
 *Para:* forum.help400 forum.help400@listas.combios.es

 Ponle la “K” en la hoja F como te indica Francisco



 Un saludo foo



 Vicente

 P *No lo imprima si no es necesario. Protejamos el medio ambiente.*

 Este mensaje y sus archivos adjuntos pueden contener información
 confidencial y están dirigidos exclusivamente a su destinatario. Le
 informamos que la legislación vigente prohíbe el uso, divulgación o copia
 del contenido del presente mensaje por persona distinta del destinatario
 sin autorización previa. Si Ud. no es el destinatario de este mensaje y lo
 ha recibido por error le agradeceríamos que nos lo comunicara y que
 procediera a destruirlo. This message can contain confidential information
 and is directed exclusively to its adressee. We inform you that the
 legislation prohibits to use, spreading or copy the content of the present
 message by person different from the adressee without previous
 authorization. If you are not the adressee of this message or you have
 received it by error we would be thankful if you notify us and delete it.





 *De:* forum.help400-boun...@listas.combios.es [mailto:
 forum.help400-boun...@listas.combios.es] *En nombre de *Juan Gutierrez
 Ruiz


 *Enviado el:* jueves, 12 de febrero de 2015 15:43
 *Para:* forum.help400; forum.help...@combios.es

 *Asunto:* Accesar con CHAIN a un archivo definido por programa



 Buenos Días Foro

 estos tratando de acceder con un chain a un archivo definido por programa

 el archivo tiene una longitud de registro 400

 y  la claves es de 3 caracteres alfabéticos

 el archivo es MFUSCC es un archivo de clientes donde las 3 primeras
 posiciones es de 3 caracteres alfabéticas y el resto la razón social y
 demás, este fue credo en un ambiente 36

 el  problema es que al darle chain con el dato de entrada de 3 caracteres
 el compilador me manda error



 *RNF7055 30  1 El Factor 1 no es válido para la operación
 especificada.
  Causa . . . . . :   El operando de Factor 1 no es
 válido
para la operación
 especificada.
-- Para el proceso de número de registro relativo,
 el
  operando de Factor 1 debe ser numérico con
 cero
  posiciones
 decimales.
-- Para el acceso aleatorio por clave, el operando
 de
  Factor 1 debe ser compatible con el tipo de
 dirección
  de registro (posición 34 de la especificación
 de
  Archivo) del
 archivo.
   La especificación se pasa por
 alto.
  Recuperación  . :   Corrija la definición del
 operando de
Factor 1. Vuelva a
 compilar.
* *   F I N   D E   R E S U M E N   D E   M E N S A J E S   *
 *



 estos compilando en un RPGILE



 la  tabla CONDATOS es igual, sin embargo este lo leo secuencialmente sin
 problema

 pero al archivo MFUSCC   al encadenarlo me manda error



 alguien me puede echar una mano ??

 gracias









 FCONDATOSX IF   F   43DISK

 FMFUSCCIF   F  400   DISK

 FLCLIEN1 UF AE   K
 DISK
 FLPOLDDS1 O  A E   K DISK
  *
 ICONDATOSX NS  01
 I P13 0LLAVE
 I  55  MA
 I  6   11 0NUMAUX
 I 12   17 0FECHA
 I 18   18 0CP
 I 19   23 0NP
 I P   24   31 2IMP
 I 32   32  CA
 IMFUSCCXX  021 CC
 I  13  CLIENTE
 I  4   45  NOMBRE
 I 46  400  DEMAS

 C* ==
 C* | RECEPCION Y MANEJO DE PARAMETROS. DEF. DE CAMPOS DE TRAB.  |
 C* ==
 C *ENTRYPLIST
 C

Re: No me muestra registro de pantalla

2014-08-05 Por tema Sergio Luis Puentes-Valladares

Javier B, Buenos Días
En primer lugar si deseas desplegar algo solo debes ejecuta Write nombre de
formato
la instrucción EXFMT es equivalente a un Write/Read es decir requiere una
acción
Creo que vas mal enfocado, Cambia el EXFMT por WRITE
Salduos

Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil +54   11 2452 9241 (Local, Buenos Aires, Argentina)
  +54 9 11 2452 9241 (Internacional)
WhatApps  +54 9 11 2452 9241
Skype Spuentes3452



El 5 de agosto de 2014, 7:06, Javier B. reiv...@hotmail.com escribió:

 Buenas tardes :

 Estoy intentando poner en un programa que tarda mucho, el nº de registro
 leído, para que el usuario tenga una idea de cuánto va a tardar el proceso.
 Lo que hago es que por cada 100 registros leídos, intento mostrar una
 ventana del tipo Registro leído : nn de nn.
 Entonces lo que hago (utilizo RPG/400) es una 'WRITE registro', pero no me
 lo muestra.
 Me suena que había alguna forma de forzar que visualice el contanido de un
 registro de pantalla aunque no se haga un EXFMT, ¿es posible?
 He probado con KEEP (en la DDS de pantalla) y nada.

 ¿Me podéis ayudar por favor?
 A parte de saber por qué no la muestra, ¿hay otra forma más eficaz de
 conseguir lo mismo?

 Javier

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Como certificarse en RPG (iSeries)

2014-07-08 Por tema Sergio Luis Puentes-Valladares

Sr(es) Forro
Agradeceré si pueden indicarme como poder Certificarse en Rpg (iSeries)
algo que me interesa mucho, desde ya agradezco cualquier información
que puedan proporcionarme
Saludos

Sergio L Puentes Valladares

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ¿existe un fichero en la IFS?

2014-07-07 Por tema Sergio Luis Puentes-Valladares

Juan Carlos
adjunto un extracto de programa que permite hacer el chequeo de un objeto
en una carpeta IFS

2302 /* Verifica, Si existe archivo de transferencia .CSV */

  2303  *CHKOUT OBJ(PATH_ORIG)   *

  2304  MONMSG MSGID(CPFA0A9) EXEC(DO)

  2305  SNDMSG MSG('(Archivo  *TCAT ARCHIVO * TCAT  No
+
  2306   existe en  *TCAT RUTA)') TOUSR(*SYSOPR)

  2307  GOTO   CMDLBL(SALE)

  2308  ENDDO

  2309  MONMSG MSGID(CPFA09E) EXEC(DO)

  2310  *CHKIN  OBJ(PATH_ORIG) *

  2313  ENDDO

  2400

Las instrucciones CHKOUT y CHKIN realizan esto en conjunto (Ambas son
idénticas al OUT e IN para trabajar
con una DTAAAREA de RPG)
CHKOUT es chequea y asigna el objeto y CHKIN los liberar, por lo que cada
vez que realizas un CHKOUT debes
acompañarlo de un CHKIN
Saludos

*Nota: Los créditos de aprender esto son de Simon Hutchinson, quien publico
el como hacerlo *

Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
  +54 911 2452 9241 (Internacional)
SkypeSpuentes3452


El 7 de julio de 2014, 8:03, Juan Carlos O. jc...@mixmail.com escribió:

 Buenos días.

 Os cuento mi problema:

 Tengo un proceso que genera un factura en .PDF en la IFS. Luego ese
 documento se le cambia de nombre y se copia en otra carpeta, también de la
 IFS, para que lo pueda procesar otro programa.

 Mi problema es que no puedo saber el tiempo que tarda en generarse el PDF.
 De tal manera que cuando se intenta renombrar el fichero, puede estar o no.

 He intentado colocar un DLYJOB, pero o pongo un tiempo muy grande o sigo
 con el mismo problema. A parte de que el proceso se retarda muchas veces
 sin motivo.

 ¿Hay forma de saber si un fichero existe en la IFS?

 ¿Se os ocurre alguna idea para controlarlo de otra forma?

 Muchas gracias por leer este correo.

 Un saludo.

 PD: Trabajo en RPG, cualquiera, y CL's.



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Enlace C y RpGle . Urgente

2014-05-28 Por tema Sergio Luis Puentes-Valladares

Para una mejor comprensión del ambiente ile, te recomiendo consultar o descargar
los Manuales IBM que puedes encontrar en el Centro de Manuales IBM, Que se
encuentra publicado en Internet por release del Sistema Operativo

De acuerdo al concepto de entorno de lenguajes integrados (ile), los módulos son
programas, que pueden ser escritos en el mismo lenguaje u otro, soportado por
el iSeries. los cuales se ejecutan entres si (llamada de procedimientos)

Estos programas enlazables o módulos, se estructuran en procedimientos, donde
cada procedimiento tiene una interfase de programa (definición de los parámetros
de I/O) y el cuerpo lógico del procedimientos, un módulo puede contar de uno o
más procedimiento y este siempre de una interfase de programa

Cuando enlazas los programas(Módulos) mediante el comando CRTPGM, siempre
deberá haber un Módulo principal, que aglutina a los demás módulos

Recuerda que la filosofía del entorno ile, es construir piezas de
programas (Módulos)
que son reusables (programa orientada a objeto), que pueden enlazarse con otros
módulos y generar de esta forma un objeto ejecutable de tal manera que un módulo
puede estar enlazado en ene programas ejecutables

Espero pueda orientarte

Saludos
Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
  +54 911 2452 9241 (Internacional)
SkypeSpuentes3452


El día 27 de mayo de 2014, 17:02, rpalomi...@gmail.com
rpalomi...@gmail.com escribió:
 exacto, deseo saber los parámetros para lograr este enlace.
 Hasta ahora lo que tengo son 2 modulos, uno de C y el otro Rpgle. Como los
 enlazo?, con crtpgm ?, que parámetros ?


 Enviado desde mi HTC de Claro

 - Reply message -
 De: Sergio Luis Puentes-Valladares spuen...@gmail.com
 Para: forum.help400 forum.help400@listas.combios.es
 Asunto: Enlace C y RpGle . Urgente
 Fecha: mar., may. 27, 2014 2:44 PM

 Estimado

 Creo que te estar refiriendo a enlazar los modulo, para crear el
 objeto que compartirá los módulos
 CRTPGM ... donde debes indicar los módulo que enlazar (en tu caso el
 programa rpg y c)
 además del nombre de dará al objeto ejecutable que enlaza estos múdulos

 Sergio L. Puentes Valladares
 Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
 Analista Programador - Junior Java
 Analista Programador - Junior PHP
 Analista Programador - Junior Abap/4
 Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
   +54 911 2452 9241 (Internacional)
 SkypeSpuentes3452


 El día 27 de mayo de 2014, 14:36, rpalomi...@gmail.com
 rpalomi...@gmail.com escribió:
 Buenas tardes, tengo una fácil pero que no la tengo clara.
 Tengo un módulo C creada con crtcmod ( en esta tengo procedimientos que
 quiero llamarlos desde rpgs).
 Tengo 1 módulo rpgle creada con crtrpgmod.
 Como hago para crear el programa RPG y pueda llamar a los procedimientos
 que
 están en el módulo C. O cuales son los pasos que debo seguir.
 Gracias de antemano



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.
 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Enlace C y RpGle . Urgente

2014-05-27 Por tema Sergio Luis Puentes-Valladares

Estimado

Creo que te estar refiriendo a enlazar los modulo, para crear el
objeto que compartirá los módulos
CRTPGM ... donde debes indicar los módulo que enlazar (en tu caso el
programa rpg y c)
además del nombre de dará al objeto ejecutable que enlaza estos múdulos

Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
  +54 911 2452 9241 (Internacional)
SkypeSpuentes3452


El día 27 de mayo de 2014, 14:36, rpalomi...@gmail.com
rpalomi...@gmail.com escribió:
 Buenas tardes, tengo una fácil pero que no la tengo clara.
 Tengo un módulo C creada con crtcmod ( en esta tengo procedimientos que
 quiero llamarlos desde rpgs).
 Tengo 1 módulo rpgle creada con crtrpgmod.
 Como hago para crear el programa RPG y pueda llamar a los procedimientos que
 están en el módulo C. O cuales son los pasos que debo seguir.
 Gracias de antemano



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Campos de pantalla en array

2014-05-06 Por tema Sergio Luis Puentes-Valladares

Manual
Verifica con WrkObjLck quien lo esta usando, si eres tu en otra sesión
termina el trabajo y posterior vuelve a editarlo y recuperalo
Saludos
Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
  +54 911 2452 9241 (Internacional)
SkypeSpuentes3452


El día 6 de mayo de 2014, 11:04, manuel.orrala
manuel.orr...@gmail.com escribió:
 Hola estimados amigos,

 Quisiera saber si alguien conoce como liberar un fuente que al tratar de
 entrar en modo edicion no me lo permite porque se encuentra bloqueado.

 Espero su pronta respuesta.

 Muchas gracias


 Enviado desde Samsung Mobile



  Mensaje original 
 De: Javier Mora jm...@musgrave.es
 Fecha: 06/05/2014 6:55 AM (GMT-05:00)
 A: forum.help400 forum.help400@listas.combios.es
 Asunto: RE: Campos de pantalla en array


 SI

 
 De: forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
 Enviado el: martes, 06 de mayo de 2014 13:33
 Para: forum.help400
 Asunto: RE: Campos de pantalla en array

 En Like(wMes1) quieres decir Like(wMes01) verdad?

 Gracias!!



 De:Javier Mora jm...@musgrave.es
 Para:forum.help400 forum.help400@listas.combios.es
 Fecha:06/05/2014 12:27
 Asunto:RE: Campos de pantalla en array
 



  D ventasMensuales...
 D DS
‚D* Los campos de pantalla
 D   wMes01
 D   wMes02
 D   wMes03
 D   wMes04
 D   wMes05
 D   wMes06
 D   wMes07
 D   wMes08
 D   wMes09
 D   wMes10
 D   wMes11
 D   wMes12
‚D* La matriz
 D ventaDelMes Like( wMes1 )
 D Overlay( ventasMensuales )
 D Dim( 12 )

   /FREE

For  i = 1 To 12;
  Dsply %Editc( ventaDelMes( i ): 'K' );
   EndFor;

totalVentas = %Xfoot( ventaDelMes );
 Con este código estás solapando los campos de pantalla (también es válido
 con un fichero de datos) con una matriz.

 Saludos,
 Javier

 
 De: forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
 Enviado el: martes, 06 de mayo de 2014 8:53
 Para: forum.help400
 Asunto: Campos de pantalla en array

 Hola Foro.
 Alguien ha tenido la necesidad de crear un array con los campos de una
 pantalla DSPF?
 del estilo de lo que hacdemos con el
 D   E DS  EXTNAME(FICHERODDS) D  CAMPODDS
 143302  0
 D
 DIM(20)
 pero en un fichero de pantalla. Se trata de ir leyendo un array y
 dependiendo de su índice, ponerlo en una columna determinada.
 del tipo:
 For @index=1 to @contador;
campo_DSPF(@index)=campo_ARRAY(@index);
 endfor;
 Esto antes lo hacíamos a mano, pero no sé si con el free esto está resuelto.
 Gracias
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Campos de pantalla en array

2014-05-06 Por tema Sergio Luis Puentes-Valladares

Manuel
Nada tienes que agradecer
Saludos
Sergio L. Puentes Valladares
Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
  +54 911 2452 9241 (Internacional)
SkypeSpuentes3452


El día 6 de mayo de 2014, 15:02, manuel.orrala
manuel.orr...@gmail.com escribió:
 Gracias estimado, si se pudo


 Enviado desde Samsung Mobile



  Mensaje original 
 De: Sergio Luis Puentes-Valladares spuen...@gmail.com
 Fecha: 06/05/2014 9:14 AM (GMT-05:00)
 A: manuel.orrala manuel.orr...@gmail.com,forum.help400
 forum.help400@listas.combios.es
 Asunto: Re: Campos de pantalla en array


 Manual
 Verifica con WrkObjLck quien lo esta usando, si eres tu en otra sesión
 termina el trabajo y posterior vuelve a editarlo y recuperalo
 Saludos
 Sergio L. Puentes Valladares
 Analista Programador Senior AS400 RPG(36, 400, ile, Free, Sql Embebido)
 Analista Programador - Junior Java
 Analista Programador - Junior PHP
 Analista Programador - Junior Abap/4
 Móvil   +54 11  2452 9241 (Local, Buenos Aires, Argentina)
   +54 911 2452 9241 (Internacional)
 SkypeSpuentes3452


 El día 6 de mayo de 2014, 11:04, manuel.orrala
 manuel.orr...@gmail.com escribió:
 Hola estimados amigos,

 Quisiera saber si alguien conoce como liberar un fuente que al tratar de
 entrar en modo edicion no me lo permite porque se encuentra bloqueado.

 Espero su pronta respuesta.

 Muchas gracias


 Enviado desde Samsung Mobile



  Mensaje original 
 De: Javier Mora jm...@musgrave.es
 Fecha: 06/05/2014 6:55 AM (GMT-05:00)
 A: forum.help400 forum.help400@listas.combios.es
 Asunto: RE: Campos de pantalla en array


 SI

 
 De: forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
 Enviado el: martes, 06 de mayo de 2014 13:33
 Para: forum.help400
 Asunto: RE: Campos de pantalla en array

 En Like(wMes1) quieres decir Like(wMes01) verdad?

 Gracias!!



 De:Javier Mora jm...@musgrave.es
 Para:forum.help400 forum.help400@listas.combios.es
 Fecha:06/05/2014 12:27
 Asunto:RE: Campos de pantalla en array
 



  D ventasMensuales...
 D DS
‚D* Los campos de pantalla
 D   wMes01
 D   wMes02
 D   wMes03
 D   wMes04
 D   wMes05
 D   wMes06
 D   wMes07
 D   wMes08
 D   wMes09
 D   wMes10
 D   wMes11
 D   wMes12
‚D* La matriz
 D ventaDelMes Like( wMes1 )
 D Overlay( ventasMensuales )
 D Dim( 12 )

   /FREE

For  i = 1 To 12;
  Dsply %Editc( ventaDelMes( i ): 'K' );
   EndFor;

totalVentas = %Xfoot( ventaDelMes );
 Con este código estás solapando los campos de pantalla (también es válido
 con un fichero de datos) con una matriz.

 Saludos,
 Javier

 
 De: forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
 Enviado el: martes, 06 de mayo de 2014 8:53
 Para: forum.help400
 Asunto: Campos de pantalla en array

 Hola Foro.
 Alguien ha tenido la necesidad de crear un array con los campos de una
 pantalla DSPF?
 del estilo de lo que hacdemos con el
 D   E DS  EXTNAME(FICHERODDS) D  CAMPODDS
 143302  0
 D
 DIM(20)
 pero en un fichero de pantalla. Se trata de ir leyendo un array y
 dependiendo de su índice, ponerlo en una columna determinada.
 del tipo:
 For @index=1 to @contador;
campo_DSPF(@index)=campo_ARRAY(@index);
 endfor;
 Esto antes lo hacíamos a mano, pero no sé si con el free esto está
 resuelto.
 Gracias
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

2013-12-23 Por tema Sergio Luis Puentes-Valladares

Juan Ramón García
En momentos que las cosas en muchas lugares no están que digamos para saltar
Te deseo una Feliz Navidad y un Prospero año 2014, que todo lo malo quede
atrás
y comience una etapa de ventura, prosperidad, salud y trabajo

Un abrazo,, desde el extremo de América

*Sergio L. Puentes Valladares*
*Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)*
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
*Móvil +54 11 2452 9241 (Local, Buenos Aires, Argentina)*
* +54 911 2452 9241 (Internacional)*
*SkypeSpuentes3452*

El 23 de diciembre de 2013, 9:17, Juan Ramón Garcia
juanranei...@gmail.comescribió:

Hola a tod@s:

Este año la Navidad y yo estamos enfadados por lo que hemos decidido no
celebrarlo.
Sin embargo lo cortés no quita lo valiente asi que, como cada año, os
deseo a tod@s unas felices fiestas (si es posible junto a vuestros seres
queridos) y que el nuevo año 2014 os traiga lo que más necesiteis cada
un@(trabajo, salud, amor, aumento de sueldo)

Albert preguntaba:
;-) ¿Cuál es tu mejor recuerdo de Navidad?
Uf, que difícil, últimamente sólo recuerdo cosas malas pero... si,
después de mucho esfuerzo neuronal, recuerdo una Navidad especial, la de
1988 fué grandiosa, nos juntamos para cenar (en mi casa) casi toda la
familia de mi, entonces, esposa, además de mi hermano family y una de mis
hermanas que esa noche estaba solita y también se vino. Todavía no se como
pude meter a tanta gente en el salón de casa, éramos unas 22 personas sin
contar a mi hijo mayor que tenía sólo tres meses pero participó en toda la
juerga y no se durmió hasta que no acabó la cena.
No recuerdo cuantas botellas de vino y cava que tomamos, lo que si
recuerdo es que empezamos y terminamos con una botella de Armagnac Cles
Des Ducs que me regalaron en La Jonquera y que estaba de muerte. Así
acabamos, sobre las 09:30 de la mañana, un@s tirados en el sofá o en
alguna cama y l@s más juerguistas nos pasamos la noche comiendo,
bebiendo, cantando y disfrutando. Que buenos viejos tiempos.

Un fuerte abrazo a tod@s y, por favor, intentar ser felices :-)

Juanra
LutoSaurio :-(

El 20 de diciembre de 2013, 18:05, HELP400 a.bla...@gmail.com escribió:

Buscando una felicitación para nuestra Comunidad IBMi en developerWorks
http://bit.ly/db68ddencontré un montón de postales navideñas del
fabuloso Joan Ferrándiz, un artista que durante muchos años contribuyó a
alegrarnos estas fiestas. Su peculiar estilo ingenuo y tierno se fundió con
el espíritu navideño creando un universo propio donde Navidad y Ferrándiz
se convirtieron en sinónimos. Sus entrañables christmas llegaron a todos
los rincones del mundo... Aunque sea con cierta nostalgia, seguro que las
recordareis http://bit.ly/17IaIh4.

En fin, una excelete ocasión para, una vez más, haceros llegar mis
mejores deseos para tod@s vosotr@s y vuestros seres más queridos.

*¡¡¡ Felices fiestas y próspero año 2014 !!!*

;-) ¿Cuál es tu mejor recuerdo de Navidad? *Seas de donde seas...* tómate
unos minutos para revivir la magia de compartir http://bit.ly/17IaIh4con
nosotros
http://bit.ly/17IaIh4una de esas postales navideñas tan típicas de la
Navidad en todos los países de habla
hispanahttp://es.wikipedia.org/wiki/Distribuci%C3%B3n_geogr%C3%A1fica_del_idioma_espa%C3%B1ol.

Que se note que ésta es una Comunidad hispana !
Un cordial saludo,
Albert C. Blanch

--
http://www.avast.com/

This email is free from viruses and malware because avast!
Antivirushttp://www.avast.com/protection is active.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

2013-12-20 Por tema Sergio Luis Puentes-Valladares

A todos los colegas As400sentitas una Feliz Navidad y un Prospero 2014
y familia
On Dec 20, 2013 2:49 PM, Gallegos, Anthony agalle...@mc.com.pe wrote:

Un saludo para todos los foreros fieles a la plataforma que nos ha
brindado grandes satisfacciones. Reciban un saludo cordial y que tengan
unas FELICES FIESTAS NAVIDEÑAS y un PROPESPERO AÑO 2014. Desde Lima, Peru.

Anthony Gallegos Cuadros

*De:* forum.help400-boun...@listas.combios.es [mailto:
forum.help400-boun...@listas.combios.es] *En nombre de *Paco Medina
*Enviado el:* viernes, 20 de diciembre de 2013 12:20 p.m.
*Para:* 'forum.help400'
*Asunto:* RE: Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

Igualmente para todos

*De:* forum.help400-boun...@listas.combios.es [mailto:
forum.help400-boun...@listas.combios.es] *En nombre de *HELP400
*Enviado el:* viernes, 20 de diciembre de 2013 18:05
*Para:* forum.help400@listas.combios.es
*CC:* Carlos Bell
*Asunto:* Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

En fin, una excelete ocasión para, una vez más, haceros llegar mis mejores
deseos para tod@s vosotr@s y vuestros seres más queridos.

*¡¡¡ Felices fiestas y próspero año 2014 !!!*

Que se note que ésta es una Comunidad hispana !

Un cordial saludo,

Albert C. Blanch

[image: Descripción: Imagen quitada por el remitente.]http://www.avast.com/

This email is free from viruses and malware because avast!
Antivirushttp://www.avast.com/protection is active.

Aviso de Confidencialidad:

La información contenida en este correo electrónico y sus anexos originados
por Procesos de Medios de Pago S.A. o alguna de sus oficinas;es de uso
privilegiado, confidencial y sólo puede ser utilizada por la persona
a quien ha sido dirigida. Si usted no es el destinatario original no deberá
examinar, usar, copiar o distribuir este mensaje o la información que
contiene. Si lo recibe por error, por favor reenvíelo a la persona que se
lo envió y elimínelo. Cualquier retención o distribución total o parcial no
autorizada de este mensaje está estrictamente prohibida y sancionada por ley.
Esta comunicación es sólo a propósitos de información y no genera
obligación contractual alguna a cargo de Procesos de Medios de Pago S.A. Nada
de lo señalado en este correo electrónico o en sus anexos podrá ser
interpretado como una recomendación sobre los riesgos o ventajas
económicas, legales, contables o tributarias, o sobre las consecuencias a
realizar determinada transacción.Este correo ha sido remitido con
conocimiento de que Internet no es un medio de comunicación seguro.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

~WRD054.jpg
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: fichero logico especial

2013-10-24 Por tema Sergio Luis Puentes-Valladares

Buenos Días
Si deseas crear un LF cuya Key este compuesta por campos de un archivo PF y
un campo nuevo, esto no puede ser
1.- solo existe la posibilidad del Join como lo indican en que unos dos o
más archivo (PF) por un enlace de campos y
 así puedes crear un nuevo archivo,pero la Key debe estar formadas
exclusivamente por campos del archivo primario
 (Principal)
2.- crear una key, a partir de un substring de un campo(parte de otro campo)

Lo siento



Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 24 de octubre de 2013 08:36, FB FB ofitecni...@gmail.com escribió:

 ¿Eso es posible?

 En todo caso se me ocurre que si ese campo nuevo lo tenéis en otro
 fichero, puedes montar un JOIN


 El 24 de octubre de 2013 08:47, Fernando idem cobolero...@gmail.comescribió:

 Buenos dias;

 Estamos viendo la posibilidad de crear un lógico, con una particularidad;
 Esto es crear un lógico con un campo que sera cte. y no exista en el
 fisico y este en la clave.

 Fich. Físico;  campoa, campob, campoc,
  Clave; campoa, Campob, Campoc


 Nvo. Fichero Logico. Clave; campo_Nvo, campoa, campob, campoc

 Gracias

 Un saludo



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.




 --
 Atentamente.

 RP Director Técnico
 Tel. 93 255 31 51
 Fax. 93 255 31 09

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: SQL versus Nativo

2013-10-24 Por tema Sergio Luis Puentes-Valladares

Buenos Días
Debemos tener en cuenta que si creas las tablas con SQL, el acceso en Free
Rpg debe ser hecho a travéz de un programa Free Rpg
SQL, no puedes accederlo vía chain (campo1: campo2...) Tabla
Saludos



Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 24 de octubre de 2013 09:48, Pedro Molina pmoli...@hotmail.comescribió:

 Hola.

 Como dice Javier, con tablas definidas con SQL, además de lo que el
 menciona, puedes también manejar la integridad referencial y acuerpando lo
 del proceso de los millones de registros, yo también con PA (procedimiento
 almacenado) hice una consulta sencilla donde leía una tabla y armaba una
 tabla estadística a partir de la primera, solo que la tabla primaria
 contenía 165 millones de registros y te cuento que no era la más grande,
 pero para no hacerte largo el cuento, estos registros se procesaban en 6.5
 minutos, sin exagerar como dice Javier, todo va en función de lo que
 quieras hacer y sobre todo si haces un Módulo basado en tablas SQL,
 Procedimientos Almacenados (programación SQL) hay que ver si tus compañeros
 le entienden a esto, porque yo hice un Modulito en puro SQL y me tocó
 hacerlo de nuevo en la forma nativa tradicional que todos conocemos y
 trabajamos por causa de que mis panas no le entendían al asunto.

 Saludos!!

 --
 Subject: RE: SQL versus Nativo
 Date: Thu, 24 Oct 2013 10:01:49 +0200
 From: jm...@musgrave.es
 To: forum.help400@listas.combios.es

 Si defines las tablas con SQL en lugar de DDS mejorará el rendimiento de
 los programas nativos. Un fichero creado con DDS por cada lectura de un
 RPG se comprueba la validez de los datos (p.e. que un campo numérico no
 tenga errores de datos decimales). En cambio en un fichero definido con SQL
 este tipo de comprobaciones de realizan sólo cuando grabas y no cuando lees.

 Desde mi punto de vista, utilizar SQL en los programas te ofrece mucha
 flexibilidad y los simplifica bastante. ¡Ojo!, hay que estar atento en la
 construcción y optimización de esas consultas SQL.

 Te voy a contar una anécdota. Hace un par de años necesitamos un informe
 que atacaba un fichero que tiene unos 150 millores de registros (no
 exagero). La persona que el programa no tenía conocimientos de SQL y optó
 por hacerlo a la forma tradicional utilizando los lógicos de dicho fichero.
 En las primeras versiones, calculamos que el programa sería capaz de
 entregar el informe en más de 12 horas (una barbaridad). Después de muchos
 intentos de optimización optamos por usar *una* sentencia SQL y el
 resultado se obtuvo en 30 minutos.

 Sin embargo, esto NO es lo habitual y te toca revisar contínuamente el
 Asesor de índices en aquellos programas en los que el rendimiento y
 velocidad sean críticos.

 Javier Mora

  --
 *De:* forum.help400-boun...@listas.combios.es [mailto:
 forum.help400-boun...@listas.combios.es] *En nombre de *Juan Carlos O.
 *Enviado el:* jueves, 24 de octubre de 2013 8:29
 *Para:* forum.help400
 *Asunto:* SQL versus Nativo

  Buenos días compañeros.
 Quisiera conocer vuestra opinión sobre estas dos posibilidades
 de utilización de la base de datos. Por centrar un poco el debate planteo
 un par de preguntas:

- Al definir ficheros existe alguna funcionalidad que el otro no
tenga. Con SQL se puede hacer ... y con Nativo no, o viceversa.
- ¿Existen dos motores de acceso a la base de datos o solo uno?

 Os adelanto las gracias por vuestras opiniones sobre este tema.
 Saludos a todos.



  �nete a Recursos
 AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 �
 Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: SQL versus Nativo

2013-10-24 Por tema Sergio Luis Puentes-Valladares

Perdon
Dije Free Rpg,

Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 24 de octubre de 2013 10:40, Javier Mora jm...@musgrave.es escribió:

 **
 No estoy de acuerdo, cualquier tabla definada con SQL puede trabajarse en
 RPG con las operaciones nativas CHAIN, SETLL, READ, etc.


  --
 *De:* forum.help400-boun...@listas.combios.es [mailto:
 forum.help400-boun...@listas.combios.es] *En nombre de *Sergio Luis
 Puentes-Valladares
 *Enviado el:* jueves, 24 de octubre de 2013 15:05
 *Para:* forum.help400
 *Asunto:* Re: SQL versus Nativo

  Buenos Días
 Debemos tener en cuenta que si creas las tablas con SQL, el acceso en Free
 Rpg debe ser hecho a travéz de un programa Free Rpg
 SQL, no puedes accederlo vía chain (campo1: campo2...) Tabla
 Saludos



  Sergio L. Puentes Valladares
 Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
 Analista Programador - Junior Java
 Analista Programador - Junior PHP
 Analista Programador - Junior Abap/4
 Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
  +54  911 2452 9241 (Internacional)
 SkypeSpuentes3452


 El 24 de octubre de 2013 09:48, Pedro Molina pmoli...@hotmail.comescribió:

  Hola.

 Como dice Javier, con tablas definidas con SQL, además de lo que el
 menciona, puedes también manejar la integridad referencial y acuerpando lo
 del proceso de los millones de registros, yo también con PA (procedimiento
 almacenado) hice una consulta sencilla donde leía una tabla y armaba una
 tabla estadística a partir de la primera, solo que la tabla primaria
 contenía 165 millones de registros y te cuento que no era la más grande,
 pero para no hacerte largo el cuento, estos registros se procesaban en 6.5
 minutos, sin exagerar como dice Javier, todo va en función de lo que
 quieras hacer y sobre todo si haces un Módulo basado en tablas SQL,
 Procedimientos Almacenados (programación SQL) hay que ver si tus compañeros
 le entienden a esto, porque yo hice un Modulito en puro SQL y me tocó
 hacerlo de nuevo en la forma nativa tradicional que todos conocemos y
 trabajamos por causa de que mis panas no le entendían al asunto.

 Saludos!!

  --
 Subject: RE: SQL versus Nativo
 Date: Thu, 24 Oct 2013 10:01:49 +0200
 From: jm...@musgrave.es
 To: forum.help400@listas.combios.es

 Si defines las tablas con SQL en lugar de DDS mejorará el rendimiento de
 los programas nativos. Un fichero creado con DDS por cada lectura de un
 RPG se comprueba la validez de los datos (p.e. que un campo numérico no
 tenga errores de datos decimales). En cambio en un fichero definido con SQL
 este tipo de comprobaciones de realizan sólo cuando grabas y no cuando lees.

 Desde mi punto de vista, utilizar SQL en los programas te ofrece mucha
 flexibilidad y los simplifica bastante. ¡Ojo!, hay que estar atento en la
 construcción y optimización de esas consultas SQL.

 Te voy a contar una anécdota. Hace un par de años necesitamos un informe
 que atacaba un fichero que tiene unos 150 millores de registros (no
 exagero). La persona que el programa no tenía conocimientos de SQL y optó
 por hacerlo a la forma tradicional utilizando los lógicos de dicho fichero.
 En las primeras versiones, calculamos que el programa sería capaz de
 entregar el informe en más de 12 horas (una barbaridad). Después de muchos
 intentos de optimización optamos por usar *una* sentencia SQL y el
 resultado se obtuvo en 30 minutos.

 Sin embargo, esto NO es lo habitual y te toca revisar contínuamente el
 Asesor de índices en aquellos programas en los que el rendimiento y
 velocidad sean críticos.

 Javier Mora

  --
 *De:* forum.help400-boun...@listas.combios.es [mailto:
 forum.help400-boun...@listas.combios.es] *En nombre de *Juan Carlos O.
 *Enviado el:* jueves, 24 de octubre de 2013 8:29
 *Para:* forum.help400
 *Asunto:* SQL versus Nativo

 Buenos días compañeros.
 Quisiera conocer vuestra opinión sobre estas dos posibilidades
 de utilización de la base de datos. Por centrar un poco el debate planteo
 un par de preguntas:

- Al definir ficheros existe alguna funcionalidad que el otro no
tenga. Con SQL se puede hacer ... y con Nativo no, o viceversa.
- ¿Existen dos motores de acceso a la base de datos o solo uno?

 Os adelanto las gracias por vuestras opiniones sobre este tema.
 Saludos a todos.



  �nete a Recursos
 AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 �
 Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400

Re: Mensaje CPF5192 al paginar un subarchivo

2013-09-27 Por tema Sergio Luis Puentes-Valladares

Estimado
Si estas usando rolapeo automático, te recomiendo que en la rutina de carga
del subfile, donde lee el archivo y cargas
los datos, al finalizar la carga que seguros controlar que no exceda los
 registros, tengas el cuidado de asignar
a la variable definida para el SFLRCDNBR el valor inicial a 1 (Siempre
tenga o no registros el archivo que cargas en el
subfile
De tal forma que la primera pantalla a visualizar sea la primera, además te
recomiendo en el control subfile, definir un
campo de posicionamiento (Situar en... ) con la clave del archivo a leer de
tal forma que ofrezcas la posibilidad de cargar
datos a partir del valor ingresado en posicionar, esto te permitirá un
mejor manejo de los datos a cargar, algo que te
será muy util si el archivo tiene más de  registros
Saludos

Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 27 de septiembre de 2013 09:06, FB FB ofitecni...@gmail.com escribió:

 Hola foro,

 os envío los mensajes que me está dando un poltergeist que tengo desde
 hace un par de días y que soy incapaz de encontrarle la causa.

 El error se produce al paginar un subarchivo. Inicialmente se me posiciona
 en la pantalla del último registro grabado, corréctamente, y al pulsar
 RetrocesoPágina es cuando se produce el error.

 SFLSIZ()
 SFLPAG(0013)
 Se graban 48 líneas. Por lo que se posiciona el la cuarta pantalla, y
 peta cuando retrocedo a la tercera.
 (Después de contestar el mensaje, se ve medio segundo la tercera pantalla)

 La gestión del Avance/Retroceso Página la dejo al sistema. No utilizo
 ROLLUP.

 Como dato curioso os diré que solo me pasa con la emulación ClientAccess.
 Si ejecuto el programa con Mocha no se produce. (?)

 Trabajo en V4R5, pero también se produce en V5R4.

 La pantalla está compilada con RSTDSP(*YES)
 No tengo ni de lejos 256 campos en el archivo, y mucho menos en los
 formatos de control/subarchivo.

 He revisado todos los campos de los formatos de control y subarchivo, así
 como como el SFLRCDNBR y la variable de programa que lo actualiza. No hay
 ninguna variable numérica con datos no numéricos, ni alfanumérica con
 caracteres no alfanuméricos.

 He quitado algunos colores que tenía supeditados a indicador.


 ID de mensaje  . . . . :   CPF5192

 Fecha de envío . . . . :   27/09/13  Hora de envío  . . . . :
 13:30:16


 Mensaje . . . . :   Los datos enviados al dispositivo SCDEV03 no son
 válidos.
   El código de respuesta negativo es 10050129.



 Causa . . . . . :   La condición se debe a que los datos de salida del

   programa contienen valores menores que hex 40 o demasiados campos de

   entrada. Se puede encontrar más información sobre códigos de respuesta

   negativos en la publicación IBM 5494 Remote Control Unit Functions
 Reference
   (bajo el apartado respuestas negativas) o en el Manual de Formatos SNA
 (bajo
   los códigos SENSE o LUSTAT). Pueden haberse producido datos no válidos

   (inferiores a hex 40) de una de las siguientes formas:

 Se han pasado datos de parámetro no válidos en una variable al
 programa de
   lenguaje de control. La variable se utiliza en el mandato SNDPGMMSG. Se

   produce un error en el mandato al visualizar los datos.

 Se han entrado caracteres hexadecimales inferiores al hex 40 en el

   parámetro TEXT del mandato crear. Se produce un error en el mandato para

   visualizar el objeto al tratar de visualizar los parámetros del objeto.

 El programa de aplicación visualiza un registro de base de datos que

   contiene datos no válidos.

 No se ha especificado RSTDSP(*YES) cuando se alternan pantallas de más
 de
   un archivo para el dispositivo, donde ambos archivos tienen campos de

   entrada.

 Recuperación. . :   Corrija el programa o los datos de salida. Vuelva a

   intentar el mandato. Si el problema se produce de nuevo, introduzca el

   mandato ANZPRB para ejecutar el análisis del problema.



 **

 ID de mensaje  . . . . :   LBE7200

 Fecha de envío . . . . :   27/09/13  Hora de envío  . . . . :
 13:30:17


 Mensaje . . . . :   Mensaje CPF5192 en CRAITPRC en AMODPTF (C D F G).



 Causa . . . . . :   Se detectó el mensaje CPF5192 en la instrucción COBOL
 .GET
   (instrucción MI 32D5) en el programa CRAITPRC de AMODPTF.

 Recuperación. . :   Introduzca una G para continuar el programa en la

   siguiente instrucción MI, o una C si no se desea vuelco, una D si se
 desea
   un vuelco de los identificadores COBOL, o una F para volcar los

   identificadores COBOL y las variables generadas por el compilador. Este
 es
   el texto de mensaje para CPF5192: Los datos enviados al dispositivo
 SCDEV03

Re: TrueType

2013-09-25 Por tema Sergio Luis Puentes-Valladares

Carlos
Mira estos Links

https://play.google.com/store/apps/details?id=com.lookout.labs.planbfeature=nav_result#?t=W251bGwsMSwxLDMsImNvbS5sb29rb3V0LmxhYnMucGxhbmIiXQ

http://forums.iprodeveloper.com/forums/aft/49725

Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 25 de septiembre de 2013 12:54, Carlos C. paipuk...@hotmail.comescribió:

 Estimados amigos
 quiero hacer una consulta respecto a printer file; si alguno de Uds. tiene
 experiencia para utilizar el TrueType.
 Como debo indicar a un campo especifico o que palabra clave se debe
 utilizar?

 saludos y gracias por la ayuda.

 Carlos Pedrozo


 --

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Fwd: BLoqueos de archivos.

2013-09-24 Por tema Sergio Luis Puentes-Valladares

Lola, Buenos Días
Si agregas campos al final de un archivo, el comando CHGPF se encarga de
cambiar los archivos sin necesidad de hacer una copia y posterior CPYF,
esto tiene la ventaja que todas los lógicos quedan actualizados sin
necesidad de recompilarlos, pero si en vez de agregar un campo intermedio o
cambias sus atributos (longitud) deberas hacer una copia del archivo y
posteriormente compilar todas los que lógicos efectuar finalmente el CPYF
de los datos desde el archivo copia al nuevo archivo
Saludos

Sergio L
On Sep 24, 2013 8:18 AM, Lola Lopez larjac1...@gmail.com wrote:

 Buenos dias, muchisimas gracias a todos, voy solucionando los problemas
 poco a poco.

 Ahora tengo otra duda, creo que voy a tener que tocar algun fichero,
 añadir un par de campos que no se pensaron inicialmente,  si los ficheros
 se cambian  con CHGPF  a Comprobacion a nivel de registro  a valor *NO
 necesito compilar de nuevo los programas?.

 La idea es copiar los  datos en un fichero, cambiar los  ficheros, y
 volver  a copiar los datos (cpyf... *drop  *map), mi duda es la compilacion.

 Gracias

 El 19 de septiembre de 2013 16:31, alberto albe...@arcadie.es escribió:

 Hola
 Eso te puede pasar tanto por no tener registros como por tener más de los
 que el NRR admite. Normalmente el NRR se define como 4.0 que es el máximo.
 Si lo tienes definido así, y alguien te está haciendo una consulta que
 proporcione más de  registros, tendrás que controlarlo manualmente.
 Salu2



 De:Lola Lopez larjac1...@gmail.com
 Para:Jorge Merino jmeri...@yahoo.com, forum.help400 
 forum.help400@listas.combios.es
 Fecha:19/09/2013 11:49
 Asunto:Re: Fwd: BLoqueos de archivos.
 --



 Muchisimas gracias a todos, he estado revisando los programas uno a uno,
 haciendo correciones y parace que el problema se ha solucionado, ahora el
 bloqueo se produce en momentos puntuales.

 Ahora tengo otra duda de novata, tengo un programa que en algun momento
 (muy pocas veces ), al llenar un subarchivo de control aparece el mensaje
 de  se ha producido un error de dispositivo o de sesion , operacion del
 archivo  EXFMTR  error CPF5293, supongo que es pq no hay archivos para
 cargar, no se como sacar la pantalla para que anulen, como me sale el error
 pierden todo el trabajo que han hecho.

 Gracias, y disculpen pos estas preguntas de primaria.

 El 10 de septiembre de 2013 16:56, Jorge Merino 
 *jmeri...@yahoo.com*jmeri...@yahoo.com
 escribió:
 Lola,
 A veces algunos programadores declaran los archivos de actualizacion,
 hacen la Lectura del registro y con eso se queda bloqueado, luego declaran
 la actualización del registro, y eso es correcto.

 El problema, es que algunos dejan esa actualización basada en una
 condición, a veces la condición no se cumple y el registro se queda
 bloqueado hasta que ocurre otra lectura en el mismo archivo, o el programa
 se cierra.

 Asegúrate de que el registro es desbloqueado si la Actualización no se
 llevo a cabo. Para eso tendrás que revisar tus programas, uno por uno.

 ¡Saludos!
 Jorge*
 **http://blog.jmerinoh.com* http://blog.jmerinoh.com/

 --
 *De:* Lola Lopez *larjac1...@gmail.com* larjac1...@gmail.com*
 Para:* *forum.help400@listas.combios.es*forum.help400@listas.combios.es
 *
 Enviado:* Martes, 10 de septiembre, 2013 0:00:54*
 Asunto:* Fwd: BLoqueos de archivos.


 Buenos dias , tengo una pequeña duda de programacio  en RPG, despues de
 hacer Updat en los archivo es conveniente hacer UNLCK del archivo?,  cuando
 es conveniente poner la instruccion UNLCK?. ultimamente he detectado que en
 alguna ocasion se me quedan  un par de programas en estado LCKW, el numero
 de usuarios que utlizan la aplicacion se he incrementado, este bloqueo no
 es siempre,pero me gustaria eliminar esta circunstancia en todo lo posible,
 que consejos me dais?

 Muchisimas gracias.


 
 Únete a Recursos AS400, nuestra Comunidad ( *http://bit.ly/db68dd 
 *http://bit.ly/db68dd
 )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( 
 *http://bit.ly/db68dd*http://bit.ly/db68dd)
 Forum.Help400 © Publicaciones Help400, S.L.
 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Fwd: BLoqueos de archivos.

2013-09-24 Por tema Sergio Luis Puentes-Valladares

Lola
Me olvidaba jamás cambies el atributo de no chequeo de nivel en los
programas, debes recompilar todos aquellos que usen el archivo cambiado de
lo contrario jamás reconoceran los cambio en el archivo
Saludos
Sergio L
On Sep 24, 2013 8:18 AM, Lola Lopez larjac1...@gmail.com wrote:

 Buenos dias, muchisimas gracias a todos, voy solucionando los problemas
 poco a poco.

 Ahora tengo otra duda, creo que voy a tener que tocar algun fichero,
 añadir un par de campos que no se pensaron inicialmente,  si los ficheros
 se cambian  con CHGPF  a Comprobacion a nivel de registro  a valor *NO
 necesito compilar de nuevo los programas?.

 La idea es copiar los  datos en un fichero, cambiar los  ficheros, y
 volver  a copiar los datos (cpyf... *drop  *map), mi duda es la compilacion.

 Gracias

 El 19 de septiembre de 2013 16:31, alberto albe...@arcadie.es escribió:

 Hola
 Eso te puede pasar tanto por no tener registros como por tener más de los
 que el NRR admite. Normalmente el NRR se define como 4.0 que es el máximo.
 Si lo tienes definido así, y alguien te está haciendo una consulta que
 proporcione más de  registros, tendrás que controlarlo manualmente.
 Salu2



 De:Lola Lopez larjac1...@gmail.com
 Para:Jorge Merino jmeri...@yahoo.com, forum.help400 
 forum.help400@listas.combios.es
 Fecha:19/09/2013 11:49
 Asunto:Re: Fwd: BLoqueos de archivos.
 --



 Muchisimas gracias a todos, he estado revisando los programas uno a uno,
 haciendo correciones y parace que el problema se ha solucionado, ahora el
 bloqueo se produce en momentos puntuales.

 Ahora tengo otra duda de novata, tengo un programa que en algun momento
 (muy pocas veces ), al llenar un subarchivo de control aparece el mensaje
 de  se ha producido un error de dispositivo o de sesion , operacion del
 archivo  EXFMTR  error CPF5293, supongo que es pq no hay archivos para
 cargar, no se como sacar la pantalla para que anulen, como me sale el error
 pierden todo el trabajo que han hecho.

 Gracias, y disculpen pos estas preguntas de primaria.

 El 10 de septiembre de 2013 16:56, Jorge Merino 
 *jmeri...@yahoo.com*jmeri...@yahoo.com
 escribió:
 Lola,
 A veces algunos programadores declaran los archivos de actualizacion,
 hacen la Lectura del registro y con eso se queda bloqueado, luego declaran
 la actualización del registro, y eso es correcto.

 El problema, es que algunos dejan esa actualización basada en una
 condición, a veces la condición no se cumple y el registro se queda
 bloqueado hasta que ocurre otra lectura en el mismo archivo, o el programa
 se cierra.

 Asegúrate de que el registro es desbloqueado si la Actualización no se
 llevo a cabo. Para eso tendrás que revisar tus programas, uno por uno.

 ¡Saludos!
 Jorge*
 **http://blog.jmerinoh.com* http://blog.jmerinoh.com/

 --
 *De:* Lola Lopez *larjac1...@gmail.com* larjac1...@gmail.com*
 Para:* *forum.help400@listas.combios.es*forum.help400@listas.combios.es
 *
 Enviado:* Martes, 10 de septiembre, 2013 0:00:54*
 Asunto:* Fwd: BLoqueos de archivos.


 Buenos dias , tengo una pequeña duda de programacio  en RPG, despues de
 hacer Updat en los archivo es conveniente hacer UNLCK del archivo?,  cuando
 es conveniente poner la instruccion UNLCK?. ultimamente he detectado que en
 alguna ocasion se me quedan  un par de programas en estado LCKW, el numero
 de usuarios que utlizan la aplicacion se he incrementado, este bloqueo no
 es siempre,pero me gustaria eliminar esta circunstancia en todo lo posible,
 que consejos me dais?

 Muchisimas gracias.


 
 Únete a Recursos AS400, nuestra Comunidad ( *http://bit.ly/db68dd 
 *http://bit.ly/db68dd
 )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( 
 *http://bit.ly/db68dd*http://bit.ly/db68dd)
 Forum.Help400 © Publicaciones Help400, S.L.
 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Fwd: BLoqueos de archivos.

2013-09-24 Por tema Sergio Luis Puentes-Valladares

Lola
Debes agregar los campos a tu archivo a continuación efectas CHGPF,
indicando el archivo fuentes y biblioteca, donde esta la DDS
del archivo cambiado y listo, nada de recompilar (esto solo lo haces si
cambias atributos de campos) y después recompilas por pgms
que utilizan estos archivos

Saludos

Sergio L

Sergio L. Puentes Valladares
Analista Programador Senior Plus AS400 (Rpg36, Rpg400, Rpgile, Free Rpg)
Analista Programador - Junior Java
Analista Programador - Junior PHP
Analista Programador - Junior Abap/4
Móvil  +54   11 2452 9241 (Local, Buenos Aires, Argentina)
 +54  911 2452 9241 (Internacional)
SkypeSpuentes3452


El 24 de septiembre de 2013 08:56, Lola Lopez larjac1...@gmail.comescribió:

 Ok, entonces añado al final del fichero los campos, en la QDDSSRC, luego
 compilo con 14 F4,  Comprobacion a nivel de registro  a valor *NO, ya ya
 esta?

 Gracias
 El 24 de septiembre de 2013 13:31, Sergio Luis Puentes-Valladares 
 spuen...@gmail.com escribió:

 Lola
 Me olvidaba jamás cambies el atributo de no chequeo de nivel en los
 programas, debes recompilar todos aquellos que usen el archivo cambiado de
 lo contrario jamás reconoceran los cambio en el archivo
 Saludos
 Sergio L
  On Sep 24, 2013 8:18 AM, Lola Lopez larjac1...@gmail.com wrote:

 Buenos dias, muchisimas gracias a todos, voy solucionando los problemas
 poco a poco.

 Ahora tengo otra duda, creo que voy a tener que tocar algun fichero,
 añadir un par de campos que no se pensaron inicialmente,  si los ficheros
 se cambian  con CHGPF  a Comprobacion a nivel de registro  a valor *NO
 necesito compilar de nuevo los programas?.

 La idea es copiar los  datos en un fichero, cambiar los  ficheros, y
 volver  a copiar los datos (cpyf... *drop  *map), mi duda es la compilacion.

 Gracias

 El 19 de septiembre de 2013 16:31, alberto albe...@arcadie.esescribió:

 Hola
 Eso te puede pasar tanto por no tener registros como por tener más de
 los que el NRR admite. Normalmente el NRR se define como 4.0 que es el
 máximo. Si lo tienes definido así, y alguien te está haciendo una consulta
 que proporcione más de  registros, tendrás que controlarlo manualmente.
 Salu2



 De:Lola Lopez larjac1...@gmail.com
 Para:Jorge Merino jmeri...@yahoo.com, forum.help400 
 forum.help400@listas.combios.es
 Fecha:19/09/2013 11:49
 Asunto:Re: Fwd: BLoqueos de archivos.
 --



 Muchisimas gracias a todos, he estado revisando los programas uno a
 uno, haciendo correciones y parace que el problema se ha solucionado, ahora
 el bloqueo se produce en momentos puntuales.

 Ahora tengo otra duda de novata, tengo un programa que en algun momento
 (muy pocas veces ), al llenar un subarchivo de control aparece el mensaje
 de  se ha producido un error de dispositivo o de sesion , operacion del
 archivo  EXFMTR  error CPF5293, supongo que es pq no hay archivos para
 cargar, no se como sacar la pantalla para que anulen, como me sale el error
 pierden todo el trabajo que han hecho.

 Gracias, y disculpen pos estas preguntas de primaria.

 El 10 de septiembre de 2013 16:56, Jorge Merino 
 *jmeri...@yahoo.com*jmeri...@yahoo.com
 escribió:
 Lola,
 A veces algunos programadores declaran los archivos de actualizacion,
 hacen la Lectura del registro y con eso se queda bloqueado, luego declaran
 la actualización del registro, y eso es correcto.

 El problema, es que algunos dejan esa actualización basada en una
 condición, a veces la condición no se cumple y el registro se queda
 bloqueado hasta que ocurre otra lectura en el mismo archivo, o el programa
 se cierra.

 Asegúrate de que el registro es desbloqueado si la Actualización no se
 llevo a cabo. Para eso tendrás que revisar tus programas, uno por uno.

 ¡Saludos!
 Jorge*
 **http://blog.jmerinoh.com* http://blog.jmerinoh.com/

 --
 *De:* Lola Lopez *larjac1...@gmail.com* larjac1...@gmail.com*
 Para:* *forum.help400@listas.combios.es*forum.help400@listas.combios.es
 *
 Enviado:* Martes, 10 de septiembre, 2013 0:00:54*
 Asunto:* Fwd: BLoqueos de archivos.


 Buenos dias , tengo una pequeña duda de programacio  en RPG, despues de
 hacer Updat en los archivo es conveniente hacer UNLCK del archivo?,  cuando
 es conveniente poner la instruccion UNLCK?. ultimamente he detectado que en
 alguna ocasion se me quedan  un par de programas en estado LCKW, el numero
 de usuarios que utlizan la aplicacion se he incrementado, este bloqueo no
 es siempre,pero me gustaria eliminar esta circunstancia en todo lo posible,
 que consejos me dais?

 Muchisimas gracias.


 
 Únete a Recursos AS400, nuestra Comunidad ( *http://bit.ly/db68dd 
 *http://bit.ly/db68dd
 )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( 
 *http://bit.ly/db68dd*http://bit.ly/db68dd)
 Forum.Help400 © Publicaciones Help400, S.L

Re: Fwd: BLoqueos de archivos.

2013-09-19 Por tema Sergio Luis Puentes-Valladares

Lola
Si el archivo a desplegar por el subfile esta vacio, el campo definido para
contener el subfile number debe siempre ser 1, en caso contrario tendra el
número de registros cargados en el subfile
Saludos
 On Sep 19, 2013 6:47 AM, Lola Lopez larjac1...@gmail.com wrote:

 Muchisimas gracias a todos, he estado revisando los programas uno a uno,
 haciendo correciones y parace que el problema se ha solucionado, ahora el
 bloqueo se produce en momentos puntuales.

 Ahora tengo otra duda de novata, tengo un programa que en algun momento
 (muy pocas veces ), al llenar un subarchivo de control aparece el mensaje
 de  se ha producido un error de dispositivo o de sesion , operacion del
 archivo  EXFMTR  error CPF5293, supongo que es pq no hay archivos para
 cargar, no se como sacar la pantalla para que anulen, como me sale el error
 pierden todo el trabajo que han hecho.

 Gracias, y disculpen pos estas preguntas de primaria.

 El 10 de septiembre de 2013 16:56, Jorge Merino jmeri...@yahoo.comescribió:

  Lola,
 A veces algunos programadores declaran los archivos de actualizacion,
 hacen la Lectura del registro y con eso se queda bloqueado, luego declaran
 la actualización del registro, y eso es correcto.

 El problema, es que algunos dejan esa actualización basada en una
 condición, a veces la condición no se cumple y el registro se queda
 bloqueado hasta que ocurre otra lectura en el mismo archivo, o el programa
 se cierra.

 Asegúrate de que el registro es desbloqueado si la Actualización no se
 llevo a cabo. Para eso tendrás que revisar tus programas, uno por uno.

 ¡Saludos!
 Jorge
 http://blog.jmerinoh.com

   --
 *De:* Lola Lopez larjac1...@gmail.com
 *Para:* forum.help400@listas.combios.es
 *Enviado:* Martes, 10 de septiembre, 2013 0:00:54
 *Asunto:* Fwd: BLoqueos de archivos.


  Buenos dias , tengo una pequeña duda de programacio  en RPG, despues de
 hacer Updat en los archivo es conveniente hacer UNLCK del archivo?,  cuando
 es conveniente poner la instruccion UNLCK?. ultimamente he detectado que en
 alguna ocasion se me quedan  un par de programas en estado LCKW, el numero
 de usuarios que utlizan la aplicacion se he incrementado, este bloqueo no
 es siempre,pero me gustaria eliminar esta circunstancia en todo lo posible,
 que consejos me dais?

 Muchisimas gracias.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.



 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Ayuda nombre archivo IFS

2013-08-23 Por tema Sergio Luis Puentes-Valladares

Jaime
Esa es la mejor opción,  el tema está en si maneja Rpg free format algo que
algunos manejan en forma parcial,  coincido contigo pues lo manejo puro
Saludos
On Aug 23, 2013 11:23 AM, JAIME LOPEZ jlopez...@hotmail.com wrote:

 Hola foreros

 Lo que he entdendido es leer el contenido de una carperta IFS y utilizar
 la información de los nombres recuperados. Si es correcto  lo que se puede
 hacer es utilizar en un programa RPGLE en formato free las instrucciones
 para trabajar en el IFS:

 Abrir Directorio: opendir
 Leer Directorio: readdir

 Jaime López
  Bogotá, Colombia
 --
 Date: Fri, 23 Aug 2013 13:05:11 +0200
 Subject: Re: Ayuda nombre archivo IFS
 From: rdej...@gmail.com
 To: forum.help400@listas.combios.es

 Gracias Alex.

 La verdad es que lo que yo había propuesto lo hice hace mil años. Pero
 como me funciona...
 Me bajaré el manual.

 Saludos.

  �nete a Recursos
 AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 �
 Publicaciones Help400, S.L.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Stored procedure que no actualiza

2013-08-22 Por tema Sergio Luis Puentes-Valladares

Alberto
Debes pasar como parametro el nombre de la biblioteca y el string sql debe
ser dinámico, es decir
Xcmd = Select * from  + parm_lib + / + parm_file + Where ..
 On Aug 22, 2013 8:29 AM, alberto albe...@arcadie.es wrote:

 Hola Foro. A ver si me podéis dar una pista.
 Tengo stored procedure tipo externo que llama a un programa en SQLRPGLE.
 Una de las sentencias que ejecuta este programa es delete from *lib/archivo
 where tal y tal
 pues bien, resulta que si esto lo ejecuto desde el stored procedure, NO
 hace el delete. En cambio si llamo al programa con un call desde el AS, si
 que lo ejecuta.
 Sabéis qué puede estar pasando?
 Gracias
 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Ayuda nombre archivo IFS

2013-08-22 Por tema Sergio Luis Puentes-Valladares

Nelly
El conando wrklnk te permite trabajar con directorio IFS la opcion 3  o 5
te permite ver el contenido de cada folder IFS
On Aug 22, 2013 12:34 PM, Luz Nelly Zapata nelly.zap...@olimpiait.com
wrote:

  Buenos días..

 Agradecería mucho si alguien sabe cuál es el comando para saber cuál es el
 nombre del archivo que se encuentra en una carpeta del IFS 400

 Me explico.. con DSPLNK si me se el nombre, con el MONMSG MSGID(CPFA0A9)
 se si el archivo existe o no existe, pero como no me se el nombre porque
 puede ser variable, necesito saber como se lee una carpeta de Ifs y colocar
 en una variable del programa el nombre del archivo que allí encuentre

 Muchas gracias

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Ayuda nombre archivo IFS

2013-08-22 Por tema Sergio Luis Puentes-Valladares

Nelly
Hay comandos a nivel de cl que te permiten recuperar el contenido,  digamos
que son qshell, busca literatura en Internet y estas
Saludos
On Aug 22, 2013 12:49 PM, Luz Nelly Zapata nelly.zap...@olimpiait.com
wrote:

  Sergio muchas gracias..

 El tema es que necesito que colocar en una variable de programa el nombre
 que encuentre, no puedo mostrar al usuario la pantalla que genera el
 comando WRKLNK..
  --
 *De:* forum.help400-boun...@listas.combios.es [
 forum.help400-boun...@listas.combios.es] en nombre de Sergio Luis
 Puentes-Valladares [spuen...@gmail.com]
 *Enviado el:* jueves, 22 de agosto de 2013 10:37 a.m.
 *Para:* forum.help400
 *Asunto:* Re: Ayuda nombre archivo IFS

   Nelly
 El conando wrklnk te permite trabajar con directorio IFS la opcion 3  o 5
 te permite ver el contenido de cada folder IFS
 On Aug 22, 2013 12:34 PM, Luz Nelly Zapata nelly.zap...@olimpiait.com
 wrote:

  Buenos días..

 Agradecería mucho si alguien sabe cuál es el comando para saber cuál es
 el nombre del archivo que se encuentra en una carpeta del IFS 400

 Me explico.. con DSPLNK si me se el nombre, con el MONMSG MSGID(CPFA0A9)
 se si el archivo existe o no existe, pero como no me se el nombre porque
 puede ser variable, necesito saber como se lee una carpeta de Ifs y colocar
 en una variable del programa el nombre del archivo que allí encuentre

 Muchas gracias

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Tamaño de una variable en RPG

2013-06-27 Por tema Sergio Luis Puentes-Valladares

Jaime, Buenos Días

De acuerdo al manual ILE RPG Language Reference

LEN(length)
The LEN keyword is used to define the length in characters of a Data
Structure or
 character, UCS-2 or graphic definition. It is valid for Data Structure
definitions, and
for Prototype, Prototyped Parameter, Standalone Field and Subfield
definitions
 where the type entry is A (Alphanumeric), C (UCS-2), or G (Graphic).
Rules for the LEN keyword:
- The data type A, C or G must be specified in the Data-Type entry.
 - The LEN keyword cannot be specified if the Length entry is specified, or
if the
  From and To entries are specified for subfields. The LEN keyword must be
used
  to specify a length greater than 9,999,999.
- Length adjustment for LIKE definitions cannot be done using the LEN
keyword.


* Use the LEN keyword to define a standalone field of one million
* characters and a standalone array of 100 characters.
 D paragraph S A LEN(100) VARYING(4)
D splitPara S A LEN(100) DIM(1)

* Use the LEN keyword to define a data structure of length 1600,
 * and to define three subfields. Since the lengths of the parameters
* are less than 999, they can be defined using from-and-to, or length
 * notation, or the LEN keyword.
D info DS LEN(1600)
D name G LEN(100) OVERLAY(info : 1401)
 D address 5000G OVERLAY(info : 14000301)
D country 1 40G

* Use the LEN keyword to define a prototype that returns a varying
 * UCS-2 value that is up to 5000 UCS-2 characters long, and to define
* two alphanumeric parameters. Since the lengths of the parameters
 * are less than 999, they can be defined either using length notation
* or the LEN keyword.
D getDftDir PR C VARYING LEN(5000)
 D usrprf A LEN(10

Muchas cosas no están en los manuales, pero una gran parte si

Sergio L Puentes Valladares
Analista Programador Senior - iSeries


El 26 de junio de 2013 19:33, JAIME LOPEZ jlopez...@hotmail.com escribió:

 Hola foreros

 Gracias por las ayudas que he recibido cuando tengo dudas. Ahora tengo una
 nueva pregunta:

 Cual es el tamaño máximo permitido para una variable tipo alfanumérico en
 un programa RPG formato Free para la versión V7R1M0?

 Lo que se quiere es crear un programa que tenga un parametro de entrada
 alfanumérico del maximo tamaño que permita el RPG. Hice una prueba de la
 siguiente forma:

 dMIPGRM   pr  extpgm('MIPRGM')
 dPARAMT1   999a
 Datos de Entrada
  * Prototipo del programa
 dMIPGRM   pi
 dPARAMT1   999a
 Datos de Entrada
  *---
  // *
  // Main program
  /free
  *inlr = *on;
  /end-free
  // *

 Se compila el programa y no genera ningun error y en el listado de la
 compilación aparece:

 *RNF7031 PARAMT1A(999) 29D
BASED(_QRNL_PRM+)

 Lo que puedo deducir es que el máximo tamaño es de 9'999.999 y no
 presentara problemas de rendimiento?

 Muchas gracias por la respuesta.

 
 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
 Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Store Procedure

Re: una manita - Como eliminar ceros de un campo numerico en rpg????

Re: [Tema Viernes] Juanraneitor Returns ¿Game Over?

Re: consulta pantalla tactil 5250

Re: Día de la semana rpgile

Re: SESION AS400 CAE A LOS 5 MIN. DE INACTIVIDAD

Re: SESION AS400 CAE A LOS 5 MIN. DE INACTIVIDAD

Re: Accesar con CHAIN a un archivo definido por programa

Re: Accesar con CHAIN a un archivo definido por programa

Re: Accesar con CHAIN a un archivo definido por programa

Re: No me muestra registro de pantalla

Como certificarse en RPG (iSeries)

Re: ¿existe un fichero en la IFS?

Re: Enlace C y RpGle . Urgente

Re: Enlace C y RpGle . Urgente

Re: Campos de pantalla en array

Re: Campos de pantalla en array

Re: Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

RE: Compartiendo recuerdos navideños... FELIZ NAVIDAD !!!

Re: fichero logico especial

Re: SQL versus Nativo

Re: SQL versus Nativo

Re: Mensaje CPF5192 al paginar un subarchivo

Re: TrueType

Re: Fwd: BLoqueos de archivos.

Re: Fwd: BLoqueos de archivos.

Re: Fwd: BLoqueos de archivos.

Re: Fwd: BLoqueos de archivos.

RE: Ayuda nombre archivo IFS

Re: Stored procedure que no actualiza

Re: Ayuda nombre archivo IFS

RE: Ayuda nombre archivo IFS

Re: Tamaño de una variable en RPG

33 matches

Site Navigation

Mail list logo

Footer information