¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Obtener DDS de archivos

Categoría : Programación
Autor : Fidel Reyes Caballero
Título : Obtiene DDS de archivos


Descripción del truco:
Cuando se compra algun software, no tenemos las DDS's de los archivos. En ocasiones necesitamos extraer informacion para desarrollar. Con este programa podras obtener la descripcion de archivo PF y LF, asi como la descripcion de los campos que utiliza.

El metodo a usar sera crear un comando que llamaremos FILE.

Solo teclea al comando FILE en cualquier linea de comandos, teclea el archivo y libreria, y ya esta. Espero que les sea de utilidad.

  1. Empezaremos por crear los archivos fisicos que utilizara el programa.
    Los crearemos en la Biblioteca QGPL, ya que es biblioteca raiz (para no tener que adicionar bibliotecas al momento de ejecutar el comando)

    DSPOBJD OBJ(LIBRERIA/ARCHIVO) OBJTYPE(*FILE) OUTPUT(*OUTFILE)
    OUTFILE(QGPL/FIL001PF)

    DSPFFD FILE(LIBRERIA/ARCHIVO) OUTPUT(*OUTFILE) +OUTFILE(QGPL/FIL002PF)

    DSPFD FILE(LIBRERIA/ARCHIVO) TYPE(*ACCPTH) OUTPUT(*OUTFILE)
    OUTFILE(QGPL/FIL003PF)

    Nota: No importa que LIBRERIA y ARCHIVO escojas. Recuerda que solo asi se generaran los archivos. Esta LIBRERIA y ARCHIVO deben de ser reales.

  2. Limpia estos archivos con el comando CLRPFM, para que no tengamos futuros problemas:
    CLRPFM FILE(QGPL/FIL001PF)
    CLRPFM FILE(QGPL/FIL002PF)
    CLRPFM FILE(QGPL/FIL003PF)

Fuentes:

a) Este miembro es de tipo COMMAND "CMD"

b) Este es el programa CL que recibira los parametros del miembro anterior. (CMD)

c) Este es el miembro de la pantalla a visualizar.

d) Programa de consulta

e) Programa reporte.

Una vez compilados estos miembros con sus respectivos nombres (FILE , FILECL , FILEDDS , FILERPG , FILEREP) deberemos de crear el comando FILE con la siguiente instruccion:

CRTCMD CMD(QGPL/FILE) PGM(QGPL/FILECL) SRCFILE(QGPL/QCMDSRC) SRCMBR(FILE) TEXT('Command File Field Description')

Y ahora si, a trabajar.

Fecha 09-09-2004


Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344