| 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.
- 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.
- 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$
|
