RE: Comprobar objetos del IFS

2019-01-10 Por tema Javier Mora 
Si se puede si tienes configurado convenientemente NetServer, QNTC y los 
equipos Windows.

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Vicente Aliaga | 
Silomar
Enviado el: jueves, 10 de enero de 2019 18:37
Para: 'forum.help400'
Asunto: RE: Comprobar objetos del IFS

Gracias a todos me pongo con ello y lo pruebo.

Supongo que verificar archivos en otras rutas fuera del Power7 no se podrá, 
como carpetas en un NAS desde el Power7?

gracias

[LogoElayFri]

Vicente Aliaga
Director Informática

961 920 029
vali...@silomar.es



Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL
Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia • 
www.silomar.es<http://www.silomar.es>








De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Alex Martínez
Enviado el: jueves, 10 de enero de 2019 11:51
Para: forum.help400
Asunto: Re: Comprobar objetos del IFS

Hola

sino recuerdo mal la función stat, que utilizas en CHKIFSOBJ solo funciona con 
archivos de hasta 2Gb de tamaño, que en la mayoria de las ocasiones es 
suficiente pero dará problemas con archivos de mayor tamaño

la solución es usar la funcion stat64

El jue., 10 ene. 2019 a las 10:05, Javier Mora 
(mailto:jm...@musgrave.es>>) escribió:
Yo utilizo el mandato

CHKIFSOBJ

Aunque puedes (o se podía) encontrar muchas versiones, yo uso esta

https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7=a67238ad-ce50-4f10-9b05-d4c4796146cb

Saludos,

Javier

De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de marti.ri...@gmail.com<mailto:marti.ri...@gmail.com>
Enviado el: miércoles, 9 de enero de 2019 19:18
Para: Regional Silomar; forum.help400
Asunto: Re: Comprobar objetos del IFS

Hola,

Puedes utilizar el DSPLNK, si da error CPFA0A9, es que no existe.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/cl/dsplnk.htm

Saludos

Martí Riera


Missatge de Vicente Aliaga | Silomar 
mailto:vali...@silomar.es>> del dia dc., 9 de gen. 2019 a 
les 18:23:
Buenas tardes foro,

Me interesaría saber si hay algún comando o API para comprobar si existe un 
fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un 
documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….

En abril comentaron esto que adjunto pero quería atacar directamente a los 
ficheros de la carpeta IFS.

Muchas gracias

[LogoElayFri]

Vicente Aliaga
Director Informática

961 920 029
vali...@silomar.es<mailto:vali...@silomar.es>



Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL
Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia • 
www.silomar.es<http://www.silomar.es>








De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de pedro.pin...@gmail.com<mailto:pedro.pin...@gmail.com>
Enviado el: viernes, 13 de abril de 2018 13:34
Para: 'forum.help400'
Asunto: RE: recuperacion datos desde nombre fichero

Con este código, lees un directorio del ifs (), lo metes en un documento 
() y luego lo copias a un fichero (audos2f).

/*   */
 /*leer directorio*/
 /*   */
  CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
   /QDLS/CARPETA/' *CAT )
  STRQSH CMD()
  MONMSG MSGID(CPF)
 /*   */
 /*copiar a archivo   */
 /*   */
  CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
   FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
  MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
  DLTDLO DLO() FLR(CARPETA)


  **
  *  FICHERO DE DIRECTORIOS   AUDOS2F  *
  **
 A*
 A  R RDOS2
 A*
 ANOMDI1   150
 A*

Un saludo


Pedro Pinedo Hernandez.
pedro.pin...@hotmail.com<mailto:pedro.pin...@hotmail.com>



De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.c

RE: Comprobar objetos del IFS

2019-01-10 Por tema Javier Mora 
Una buena apreciación. No he tenido la oportunidad de tratar un fichero de más 
de 2 GB, pero se puede intentar hacer una prueba.

Ya comento.

Gracias Alex.

Javier

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Alex Martínez
Enviado el: jueves, 10 de enero de 2019 11:51
Para: forum.help400
Asunto: Re: Comprobar objetos del IFS

Hola

sino recuerdo mal la función stat, que utilizas en CHKIFSOBJ solo funciona con 
archivos de hasta 2Gb de tamaño, que en la mayoria de las ocasiones es 
suficiente pero dará problemas con archivos de mayor tamaño

la solución es usar la funcion stat64

El jue., 10 ene. 2019 a las 10:05, Javier Mora 
(mailto:jm...@musgrave.es>>) escribió:
Yo utilizo el mandato

CHKIFSOBJ

Aunque puedes (o se podía) encontrar muchas versiones, yo uso esta

https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7=a67238ad-ce50-4f10-9b05-d4c4796146cb

Saludos,

Javier

De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de marti.ri...@gmail.com<mailto:marti.ri...@gmail.com>
Enviado el: miércoles, 9 de enero de 2019 19:18
Para: Regional Silomar; forum.help400
Asunto: Re: Comprobar objetos del IFS

Hola,

Puedes utilizar el DSPLNK, si da error CPFA0A9, es que no existe.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/cl/dsplnk.htm

Saludos

Martí Riera


Missatge de Vicente Aliaga | Silomar 
mailto:vali...@silomar.es>> del dia dc., 9 de gen. 2019 a 
les 18:23:
Buenas tardes foro,

Me interesaría saber si hay algún comando o API para comprobar si existe un 
fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un 
documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….

En abril comentaron esto que adjunto pero quería atacar directamente a los 
ficheros de la carpeta IFS.

Muchas gracias

[LogoElayFri]

Vicente Aliaga
Director Informática

961 920 029
vali...@silomar.es<mailto:vali...@silomar.es>



Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL
Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia • 
www.silomar.es<http://www.silomar.es>








De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de pedro.pin...@gmail.com<mailto:pedro.pin...@gmail.com>
Enviado el: viernes, 13 de abril de 2018 13:34
Para: 'forum.help400'
Asunto: RE: recuperacion datos desde nombre fichero

Con este código, lees un directorio del ifs (), lo metes en un documento 
() y luego lo copias a un fichero (audos2f).

/*   */
 /*leer directorio*/
 /*   */
  CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
   /QDLS/CARPETA/' *CAT )
  STRQSH CMD()
  MONMSG MSGID(CPF)
 /*   */
 /*copiar a archivo   */
 /*   */
  CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
   FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
  MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
  DLTDLO DLO() FLR(CARPETA)


  **
  *  FICHERO DE DIRECTORIOS   AUDOS2F  *
  **
 A*
 A  R RDOS2
 A*
 ANOMDI1   150
 A*

Un saludo


Pedro Pinedo Hernandez.
pedro.pin...@hotmail.com<mailto:pedro.pin...@hotmail.com>



De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de Elvira_vazquez
Enviado el: viernes, 13 de abril de 2018 10:09
Para: forum.help400@listas.combios.es<mailto:forum.help400@listas.combios.es>
Asunto: recuperacion datos desde nombre fichero

Hola a todos

Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el 
nombre por ejemplo:

2018_13_04_9_12_31_72_68505K.400

Necesito guardar de alguna forma parte del nombre con el que lo tengo en el 
DIR, sería 9_12_31_72,  y no se como hacerlo

Agradezco cualquier ayuda

Gracias

Elvira

.
[cid:image002.jpg@01D4A900.354A8F80]
P No lo imprima si no es necesario. Protejamos el medi

Re: Comprobar objetos del IFS

2019-01-10 Por tema victor . velardez 
hola, buen dia
te paso un link donde hay un comando hecho por scott, que hace lo que
necesitas (esta el fuente y funciona bien )

saludos

https://www.scottklement.com/rpg/ifs_ebook/ch3chkobj.html





[image: Mailtrack]

Remitente
notificado con
Mailtrack

10/01/19
10:20:34

El mié., 9 ene. 2019 a las 14:23, Vicente Aliaga | Silomar (<
vali...@silomar.es>) escribió:

> Buenas tardes foro,
>
>
>
> Me interesaría saber si hay algún comando o API para comprobar si existe
> un fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un
> documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….
>
>
>
> En abril comentaron esto que adjunto pero quería atacar directamente a los
> ficheros de la carpeta IFS.
>
>
>
> Muchas gracias
>
>
>
> [image: LogoElayFri]
>
> Vicente Aliaga
> *Director Informática*
>
>
>
> 961 920 029
>
> vali...@silomar.es
>
>
>
> *Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL*
>
> Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia •
> www.silomar.es
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *
> pedro.pin...@gmail.com
> *Enviado el:* viernes, 13 de abril de 2018 13:34
> *Para:* 'forum.help400'
> *Asunto:* RE: recuperacion datos desde nombre fichero
>
>
>
> Con este código, lees un directorio del ifs (), lo metes en un
> documento () y luego lo copias a un fichero (audos2f).
>
>
>
> /*   */
>
>  /*leer directorio*/
>
>  /*   */
>
>   CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
>
>/QDLS/CARPETA/' *CAT )
>
>   STRQSH CMD()
>
>   MONMSG MSGID(CPF)
>
>  /*   */
>
>  /*copiar a archivo   */
>
>  /*   */
>
>   CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
>
>FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
>
>   MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
>
>   DLTDLO DLO() FLR(CARPETA)
>
>
>
>
>
>
> **
>
>   *  FICHERO DE DIRECTORIOS   AUDOS2F
> *
>
>   **
>
>
>  A*
>
>
>  A  R RDOS2
>
>  A*
>
>
>  ANOMDI1   150
>
>  A*
>
>
>
> Un saludo
>
>
>
>
>
> *Pedro Pinedo Hernandez.*
>
> *pedro.pin...@hotmail.com *
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Elvira_vazquez
> *Enviado el:* viernes, 13 de abril de 2018 10:09
> *Para:* forum.help400@listas.combios.es
> *Asunto:* recuperacion datos desde nombre fichero
>
>
>
> Hola a todos
>
>
>
> Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el
> nombre por ejemplo:
>
>
>
> 2018_13_04_9_12_31_72_68505K.400
>
>
>
> Necesito guardar de alguna forma parte del nombre con el que lo tengo en
> el DIR, sería 9_12_31_72,  y no se como hacerlo
>
>
>
> Agradezco cualquier ayuda
>
>
>
> Gracias
>
>
>
> Elvira
>
> .
> P *No lo imprima si no es necesario. Protejamos el medio ambiente. Please
> consider the environment before printing this email.*
> ADVERTENCIA - 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. Según la normativa vigente en
> materia de protección de datos de carácter personal, informamos que sus
> datos personales serán tratados por parte de Silomar Elaborados y
> Distribución, SL con la finalidad del correcto desarrollo de las
> actividades de nuestra organización así como enviarle noticias, novedades e
> información general de nuestra empresa a través de medios postales y
> electrónicos. En caso que Ud no sea cliente de nuestra empresa dichas
> comunicaciones se realizarán siempre bajo previo consentimiento por su
> parte. Usted puede ejercitar los derechos de acceso, rectificación,
> cancelación, oposición y demás derechos en los términos establecidos en la
> normativa vigente dirigiéndose a nosotros. Asimismo, Ud. nos puede
> solicitar el envío de información adicional

Re: Comprobar objetos del IFS

2019-01-10 Por tema Alex Martínez 
Hola

sino recuerdo mal la función stat, que utilizas en CHKIFSOBJ solo funciona
con archivos de hasta 2Gb de tamaño, que en la mayoria de las ocasiones es
suficiente pero dará problemas con archivos de mayor tamaño

la solución es usar la funcion stat64

El jue., 10 ene. 2019 a las 10:05, Javier Mora ()
escribió:

> Yo utilizo el mandato
>
>
>
> CHKIFSOBJ
>
>
>
> Aunque puedes (o se podía) encontrar muchas versiones, yo uso esta
>
>
>
>
> https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7=a67238ad-ce50-4f10-9b05-d4c4796146cb
>
>
>
> Saludos,
>
>
>
> Javier
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *
> marti.ri...@gmail.com
> *Enviado el:* miércoles, 9 de enero de 2019 19:18
> *Para:* Regional Silomar; forum.help400
> *Asunto:* Re: Comprobar objetos del IFS
>
>
>
> Hola,
>
>
>
> Puedes utilizar el DSPLNK, si da error CPFA0A9, es que no existe.
>
> https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/cl/dsplnk.htm
>
>
>
> Saludos
>
>
>
> Martí Riera
>
>
>
>
>
> Missatge de Vicente Aliaga | Silomar  del dia dc., 9
> de gen. 2019 a les 18:23:
>
> Buenas tardes foro,
>
>
>
> Me interesaría saber si hay algún comando o API para comprobar si existe
> un fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un
> documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….
>
>
>
> En abril comentaron esto que adjunto pero quería atacar directamente a los
> ficheros de la carpeta IFS.
>
>
>
> Muchas gracias
>
>
>
> [image: LogoElayFri]
>
> Vicente Aliaga
> *Director Informática*
>
>
>
> 961 920 029
>
> vali...@silomar.es
>
>
>
> *Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL*
>
> Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia •
> www.silomar.es
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *
> pedro.pin...@gmail.com
> *Enviado el:* viernes, 13 de abril de 2018 13:34
> *Para:* 'forum.help400'
> *Asunto:* RE: recuperacion datos desde nombre fichero
>
>
>
> Con este código, lees un directorio del ifs (), lo metes en un
> documento () y luego lo copias a un fichero (audos2f).
>
>
>
> /*   */
>
>  /*leer directorio*/
>
>  /*   */
>
>   CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
>
>/QDLS/CARPETA/' *CAT )
>
>   STRQSH CMD()
>
>   MONMSG MSGID(CPF)
>
>  /*   */
>
>  /*copiar a archivo   */
>
>  /*   */
>
>   CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
>
>FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
>
>   MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
>
>   DLTDLO DLO() FLR(CARPETA)
>
>
>
>
>
>
> **
>
>   *  FICHERO DE DIRECTORIOS   AUDOS2F
> *
>
>   **
>
>
>  A*
>
>
>  A  R RDOS2
>
>  A*
>
>
>  ANOMDI1   150
>
>  A*
>
>
>
> Un saludo
>
>
>
>
>
> *Pedro Pinedo Hernandez.*
>
> *pedro.pin...@hotmail.com *
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Elvira_vazquez
> *Enviado el:* viernes, 13 de abril de 2018 10:09
> *Para:* forum.help400@listas.combios.es
> *Asunto:* recuperacion datos desde nombre fichero
>
>
>
> Hola a todos
>
>
>
> Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el
> nombre por ejemplo:
>
>
>
> 2018_13_04_9_12_31_72_68505K.400
>
>
>
> Necesito guardar de alguna forma parte del nombre con el que lo tengo en
> el DIR, sería 9_12_31_72,  y no se como hacerlo
>
>
>
> Agradezco cualquier ayuda
>
>
>
> Gracias

RE: Comprobar objetos del IFS

2019-01-10 Por tema Javier Mora 
Yo utilizo el mandato

CHKIFSOBJ

Aunque puedes (o se podía) encontrar muchas versiones, yo uso esta

https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=81e67f1a-3698-4109-b043-06fd5bbb8acb#fullpageWidgetId=Wfb71c05c1300_4fa6_b95c_cd1c744f38d7=a67238ad-ce50-4f10-9b05-d4c4796146cb

Saludos,

Javier

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de 
marti.ri...@gmail.com
Enviado el: miércoles, 9 de enero de 2019 19:18
Para: Regional Silomar; forum.help400
Asunto: Re: Comprobar objetos del IFS

Hola,

Puedes utilizar el DSPLNK, si da error CPFA0A9, es que no existe.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/cl/dsplnk.htm

Saludos

Martí Riera


Missatge de Vicente Aliaga | Silomar 
mailto:vali...@silomar.es>> del dia dc., 9 de gen. 2019 a 
les 18:23:
Buenas tardes foro,

Me interesaría saber si hay algún comando o API para comprobar si existe un 
fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un 
documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….

En abril comentaron esto que adjunto pero quería atacar directamente a los 
ficheros de la carpeta IFS.

Muchas gracias

[LogoElayFri]

Vicente Aliaga
Director Informática

961 920 029
vali...@silomar.es<mailto:vali...@silomar.es>



Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL
Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia • 
www.silomar.es<http://www.silomar.es>








De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de pedro.pin...@gmail.com<mailto:pedro.pin...@gmail.com>
Enviado el: viernes, 13 de abril de 2018 13:34
Para: 'forum.help400'
Asunto: RE: recuperacion datos desde nombre fichero

Con este código, lees un directorio del ifs (), lo metes en un documento 
() y luego lo copias a un fichero (audos2f).

/*   */
 /*leer directorio*/
 /*   */
  CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
   /QDLS/CARPETA/' *CAT )
  STRQSH CMD()
  MONMSG MSGID(CPF)
 /*   */
 /*copiar a archivo   */
 /*   */
  CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
   FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
  MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
  DLTDLO DLO() FLR(CARPETA)


  **
  *  FICHERO DE DIRECTORIOS   AUDOS2F  *
  **
 A*
 A  R RDOS2
 A*
 ANOMDI1   150
 A*

Un saludo


Pedro Pinedo Hernandez.
pedro.pin...@hotmail.com<mailto:pedro.pin...@hotmail.com>



De: 
forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>
 
[mailto:forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>]
 En nombre de Elvira_vazquez
Enviado el: viernes, 13 de abril de 2018 10:09
Para: forum.help400@listas.combios.es<mailto:forum.help400@listas.combios.es>
Asunto: recuperacion datos desde nombre fichero

Hola a todos

Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el 
nombre por ejemplo:

2018_13_04_9_12_31_72_68505K.400

Necesito guardar de alguna forma parte del nombre con el que lo tengo en el 
DIR, sería 9_12_31_72,  y no se como hacerlo

Agradezco cualquier ayuda

Gracias

Elvira

.
[cid:image003.jpg@01D4A8CA.2E15D570]
P No lo imprima si no es necesario. Protejamos el medio ambiente. Please 
consider the environment before printing this email.
ADVERTENCIA - 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. Según la 
normativa vigente en materia de protección de datos de carácter personal, 
informamos que sus datos personales serán tratados por parte de Silomar 
Elaborados y Distribución, SL con la finalidad del correcto desarrollo de las 
actividades de nuestra organización así como enviarle noticias, novedades e 
información general de nuestra

Re: Comprobar objetos del IFS

2019-01-09 Por tema Vicente Aliaga | Silomar 
Muchas gracias a todos, creo que es lo que buscaba.

 

Un saludo y feliz 2019

 


LogoElayFri

Vicente Aliaga
Director Informática

 

961 920 029

vali...@silomar.es

 


Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL

Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia •
www.silomar.es

 

 

 

 

 

 

 



.
No lo imprima si no es necesario. Protejamos el medio ambiente. Please consider 
the environment before printing this email.
ADVERTENCIA - 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. Según la 
normativa vigente en materia de protección de datos de carácter personal, 
informamos que sus datos personales serán tratados por parte de Silomar 
Elaborados y Distribución, SL con la finalidad del correcto desarrollo de las 
actividades de nuestra organización así como enviarle noticias, novedades e 
información general de nuestra empresa a través de medios postales y 
electrónicos. En caso que Ud no sea cliente de nuestra empresa dichas 
comunicaciones se realizarán siempre bajo previo consentimiento por su parte. 
Usted puede ejercitar los derechos de acceso, rectificación, cancelación, 
oposición y demás derechos en los términos establecidos en la normativa vigente 
dirigiéndose a nosotros. Asimismo, Ud. nos puede solicitar el envío de 
información adicional sobre nuestra política de protección de datos, tel 961 
920 029, e-mail: proteccionda...@silomar.es
WARNING - This message can contain confidential information and is directed 
exclusively to its addressee. We inform you that the legislation prohibits to 
use, spreading or copy the content of the present message by person different 
from the addressee without previous authorization.  If you are not the 
addressee of this message or you have received it by error we would be thankful 
if you notify us and delete it. According to current regulations regarding the 
protection of personal data, we inform you that your personal data will be 
processed by Silomar Elaborados y Distribución, SL for the purpose of the 
correct development of our organization's activities as well as to send you 
news and general information about our company through postal and electronic 
means. In case you are not a customer of our company, such communications will 
always be made with your prior consent. You can exercise the rights of access, 
rectification, cancellation, opposition and other rights in the terms 
established in the current regulations by contacting us. Likewise, you can 
request us to send additional information about our data protection policy, tel 
961 920 029, e-mail: proteccionda...@silomar.es

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

Re: Comprobar objetos del IFS

2019-01-09 Por tema marti . riera 
Hola,

Puedes utilizar el DSPLNK, si da error CPFA0A9, es que no existe.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/cl/dsplnk.htm

Saludos

Martí Riera


Missatge de Vicente Aliaga | Silomar  del dia dc., 9 de
gen. 2019 a les 18:23:

> Buenas tardes foro,
>
>
>
> Me interesaría saber si hay algún comando o API para comprobar si existe
> un fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un
> documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….
>
>
>
> En abril comentaron esto que adjunto pero quería atacar directamente a los
> ficheros de la carpeta IFS.
>
>
>
> Muchas gracias
>
>
>
> [image: LogoElayFri]
>
> Vicente Aliaga
> *Director Informática*
>
>
>
> 961 920 029
>
> vali...@silomar.es
>
>
>
> *Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL*
>
> Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia •
> www.silomar.es
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *
> pedro.pin...@gmail.com
> *Enviado el:* viernes, 13 de abril de 2018 13:34
> *Para:* 'forum.help400'
> *Asunto:* RE: recuperacion datos desde nombre fichero
>
>
>
> Con este código, lees un directorio del ifs (), lo metes en un
> documento () y luego lo copias a un fichero (audos2f).
>
>
>
> /*   */
>
>  /*leer directorio*/
>
>  /*   */
>
>   CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
>
>/QDLS/CARPETA/' *CAT )
>
>   STRQSH CMD()
>
>   MONMSG MSGID(CPF)
>
>  /*   */
>
>  /*copiar a archivo   */
>
>  /*   */
>
>   CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
>
>FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
>
>   MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
>
>   DLTDLO DLO() FLR(CARPETA)
>
>
>
>
>
>
> **
>
>   *  FICHERO DE DIRECTORIOS   AUDOS2F
> *
>
>   **
>
>
>  A*
>
>
>  A  R RDOS2
>
>  A*
>
>
>  ANOMDI1   150
>
>  A*
>
>
>
> Un saludo
>
>
>
>
>
> *Pedro Pinedo Hernandez.*
>
> *pedro.pin...@hotmail.com *
>
>
>
>
>
>
>
> *De:* forum.help400-boun...@listas.combios.es [mailto:
> forum.help400-boun...@listas.combios.es] *En nombre de *Elvira_vazquez
> *Enviado el:* viernes, 13 de abril de 2018 10:09
> *Para:* forum.help400@listas.combios.es
> *Asunto:* recuperacion datos desde nombre fichero
>
>
>
> Hola a todos
>
>
>
> Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el
> nombre por ejemplo:
>
>
>
> 2018_13_04_9_12_31_72_68505K.400
>
>
>
> Necesito guardar de alguna forma parte del nombre con el que lo tengo en
> el DIR, sería 9_12_31_72,  y no se como hacerlo
>
>
>
> Agradezco cualquier ayuda
>
>
>
> Gracias
>
>
>
> Elvira
>
> .
> P *No lo imprima si no es necesario. Protejamos el medio ambiente. Please
> consider the environment before printing this email.*
> ADVERTENCIA - 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. Según la normativa vigente en
> materia de protección de datos de carácter personal, informamos que sus
> datos personales serán tratados por parte de Silomar Elaborados y
> Distribución, SL con la finalidad del correcto desarrollo de las
> actividades de nuestra organización así como enviarle noticias, novedades e
> información general de nuestra empresa a través de medios postales y
> electrónicos. En caso que Ud no sea cliente de nuestra empresa dichas
> comunicaciones se realizarán siempre bajo previo consentimiento por su
> parte. Usted puede ejercitar los derechos de acceso, rectificación,
> cancelación, oposición y demás derechos en los términos establecidos en la
> normativa vigente dirigiéndose a nosotros. Asimismo, Ud. nos puede
> solicitar el envío de información adicional sobre nuestra política de
> protección de datos, tel 961 920 029, e-mail: proteccionda...@silomar.es
> WARNING - This message can contain confidential information and is
> directed exclusively to its addressee. We inform you that the legislation
> prohibits to use, spreading or copy the

RE: Comprobar objetos del IFS

2019-01-09 Por tema Gandul, Luis 
Yo utilizo el comando DSPLNK en un CL  y monitorizo los siguientes errores:

CPF9899 Error occurred during processing of command.
CPFA085 Home directory not found for user &1.
CPFA09C Not authorized to object.  Object is &1.
CPFA0A7 Path name too long.
CPFA0A9 Object not found.  Object is &1.

Obviamente la ruta de ubicación del objeto tiene que ser exacta.


Saludos


LuisG



De: forum.help400-boun...@listas.combios.es 
 En nombre de Vicente Aliaga | Silomar
Enviado el: miércoles, 09 de enero de 2019 18:18
Para: 'forum.help400' 
Asunto: [EXT] Comprobar objetos del IFS
Importancia: Alta

Buenas tardes foro,

Me interesaría saber si hay algún comando o API para comprobar si existe un 
fichero en el IFS, lo que quiero saber es si hay o no un xx.PDF o un 
documento de Word….. para luego abrirlo, copiarlo, renombrarlo, moverlo….

En abril comentaron esto que adjunto pero quería atacar directamente a los 
ficheros de la carpeta IFS.

Muchas gracias

[LogoElayFri]

Vicente Aliaga
Director Informática

961 920 029
vali...@silomar.es



Silomar Elaborados y Distribución, SL & Silomar Frigoríficos, SL
Autovía A-3 Madrid-Valencia, km 345 • 46930 • QUART DE POBLET • Valencia • 
www.silomar.es








De: 
forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de 
pedro.pin...@gmail.com
Enviado el: viernes, 13 de abril de 2018 13:34
Para: 'forum.help400'
Asunto: RE: recuperacion datos desde nombre fichero

Con este código, lees un directorio del ifs (), lo metes en un documento 
() y luego lo copias a un fichero (audos2f).

/*   */
 /*leer directorio*/
 /*   */
  CHGVAR VAR() VALUE('ls /' *CAT  *TCAT ' > +
   /QDLS/CARPETA/' *CAT )
  STRQSH CMD()
  MONMSG MSGID(CPF)
 /*   */
 /*copiar a archivo   */
 /*   */
  CPYFRMPCD  FROMFLR(CARPETA) TOFILE(Tulib/audos2f) +
   FROMDOC() TRNTBL(*NONE) TRNFMT(*NOTEXT)
  MONMSG MSGID(CPF) EXEC(GOTO CMDLBL(FIN))
  DLTDLO DLO() FLR(CARPETA)


  **
  *  FICHERO DE DIRECTORIOS   AUDOS2F  *
  **
 A*
 A  R RDOS2
 A*
 ANOMDI1   150
 A*

Un saludo


Pedro Pinedo Hernandez.
pedro.pin...@hotmail.com



De: 
forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de Elvira_vazquez
Enviado el: viernes, 13 de abril de 2018 10:09
Para: forum.help400@listas.combios.es
Asunto: recuperacion datos desde nombre fichero

Hola a todos

Tengo un fichero que traigo desde un FTP y lo dejo en un Directorio con el 
nombre por ejemplo:

2018_13_04_9_12_31_72_68505K.400

Necesito guardar de alguna forma parte del nombre con el que lo tengo en el 
DIR, sería 9_12_31_72,  y no se como hacerlo

Agradezco cualquier ayuda

Gracias

Elvira

.
[cid:image002.jpg@01D4A84C.4B63CE80]
P No lo imprima si no es necesario. Protejamos el medio ambiente. Please 
consider the environment before printing this email.
ADVERTENCIA - 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. Según la 
normativa vigente en materia de protección de datos de carácter personal, 
informamos que sus datos personales serán tratados por parte de Silomar 
Elaborados y Distribución, SL con la finalidad del correcto desarrollo de las 
actividades de nuestra organización así como enviarle noticias, novedades e 
información general de nuestra empresa a través de medios postales y 
electrónicos. En caso que Ud no sea cliente de nuestra empresa dichas 
comunicaciones se realizarán siempre bajo previo consentimiento por su parte. 
Usted puede ejercitar los derechos de acceso, rectificación, cancelación, 
oposición y demás derechos en los términos establecidos en la normativa vigente 
dirigiéndose a nosotros. Asimismo, Ud. nos puede solicitar el envío de 
información