Inicio

[an error occurred while processing this directive] ..

Página anterior

Bienvenidos a la comunidad hispana de usuarios y profesionales de AS/400 .
Secciones
Recursos
IBM y el AS/400
Manuales. FAQ's
Client Access
Java
Servidor HTTP
Windows NT
Delphi/400
Hardware AS/400
Comunidad Visual RPG
Lotus Domino
Revistas
Cliente/Servidor
Utilidades
Partners
Año 2000
Guía de compra
Shareware Pc's
Internet
Virus
Erp
Trucos AVR
Drivers
Eventos
Foros
Bolsa de trabajo
Download del mes
Rincón de GeneXus
Alertas
Entretenimiento
Novedades
¿Como recuperar el fuente de un programa (COBOL) mediante el listado de compilación ?

1) Cree un fichero para copiar el fiechero de spool en él.
* CRTPF FILE(ISANM/RCVDATA) RCDLEN(132) FILETYPE(*DATA) + MBR(*FILE)
2) Copie el fichero de spool (del programa compilado) en el fichero creado anteriormente:
* CPYSPLF pulse F4
Archivo en Spool.............................. FINDOBJCBL (Spool file and original program name)
A archivo de base de datos....................... RCVDATA (Database file created with CRTPF)
Biblioteca.................................... ISANM
Nombre de trabajo................................ FINDOBJCBL
Usuario........................................ ISANM
Número................................... 180929 (wrksplf gives you this #)
Número de archivo en spool.................. 1
A miembro.............................. *FIRST
Sustituir o añadir registros............ *ADD
3) Cree un Query (El nombre que ud. quiera) Yo lo he llamado RTVCBLQRY *Defina el query de la siguiente manera: OPT QUERY DEFINITION OPTION 1 Especificar selección de archivos
Archivo......... RCVDATA Biblioteca... ISANM Miembro. *FIRST Formato... *RCVDATA 1 Definir campos de resultado
Campo EXPRESIÓN
FIELD01 '000000000000'
FIELD02 'bbbbbb' (Blancos)
FIELD03 SUBSTR(RCVDATA, 15, 74)
SELECT1 SUBSTR(RCVDATA, 1, 2)
SELECT2 SUBSTR(RCVDATA, 8, 1)
SELECT3 SUBSTR(RCVDATA, 65, 6)
Nota 1) Para RPG la información varia.
Note 2) No defina:
* Cabecera columna
* Long
* Dec
1 Seleccionar y poner en secuencia campos
SEQ CAMPO
10 FIELD02
20 FIELD03
1 Seleccionar Registros
AND/OR CAMPO PRUEBA Valor (Campo, Número)
SELECT01 EQ (bb) 2 blancos
AND SELECT02 EQ (b) 1 blanco
AND SELECT03 NE 'ISANM'
1 Especificar formato de columnas de informe
CAMPO ESPACIADO Cabecera Columna LEN DEC EDITAR
COLUMNA
FIELD02 0 (zero) *NONE 6 - -
FIELD03 0 (zero) *NONE 74 - -
1 Seleccionar tipo y formato de salida
Tipo de salida.......... 3 = Archivo base datos
Formato de salida... 1 = Detalle
Acomodación de línea..... N
Ancho acomodación ............. --
Registro en una página.... N
NOTE: Cuando ya definio estos parametros presione ENTER y sera llevado a la siguiente pantalla.
Archivo........................... OUTCBLSRC
Biblioteca..................... ISANM
Miembrr................... *FILE
Datos en archivo............. 1 = Archivo nuevo
Para un archivo nuevo:
Autorización......... *LIBCRTAUT
TEXTI............. Your choice here...
Imprimir definicion...... N
* FIN DE LA DEFINICIÓN DEL QUERY
4) Teclee STRPDM y cree a nuevo fichero fuente: COBOL O RPG F6
Tipo.................. CBLLE (For ILE)
Nombre................ RCVCBLSRC (Ponga el nombre que ud. desee)
Texto.................. Recibir el fuente del programa recuperado
En el editor presione F15
Selección...................... 1
Copiar todos los registros........... N
Browse copy member.. OUTCBLSRC (FROM QUERY)
Fichero......................... OUTCBLSRC
Biblioteca.................. ISANM
Ahora copie el fuente en el editor
NOW YOU COPY THE WHOLE SOURCE INTO THE EDITOR:
CC
. . . . . . . . . CC
Para finalizar salve el programa y compílelo,
Esta utilidad ha sido creada por Isan Martinez.
Para cualquier duda sobre este ejemplo envíe un e-mail a isanm56@echo-on.net

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en 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 y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

IBM ® y AS/400 ® son marcas registradas de IBM
© 1997-2000 Recursos AS/400
Privacidad  
. .