As400 Con Db2

Minicomputadoras
-

-1-

Ing. Alberto Moreno C.

AS400 CON DB2
En AS/400 , las consultas por pantalla e impresoras se pueden tambien realizar a traves
del SQL embebido , tengase en cuentaque la base de dato es el nombre del usuario que
contiene todos los objetos como archivos , por lo tanto para acceder a una tabla de
forma general es :
SELECT C1, C2 ... FROM BIBLIOTECA/TABLA1 ,…WHERE ….

Por ejemplo si modificamos el ejemplo anterior respecto a reportes de alumnos por
curso , teniendo los siguientes archivos:
Tabla Alumnos PF
A
A
A
A
A

R REGALU
CODALU
APEALUNOMALU
K CODALU

5A
15A
15A

Tabla de cursos
A
A
A
A
A

R REGC
CODCUR
NOMCUR
CREDITOS
K CODCUR

Tabla notas
A
R REGN
A
CODALU
A
CODCUR
A
EXAPAR
A
EXAFIN
A
K CODALU
A
KCODCUR
Archivo de impresora

4
25
2S 0

5
4
2S 0
2S 0

Diseño del reporte REPNOTAS PRTF

BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7------------------------ Inicio de Página 001 ------------------------TITULO
FLD1

00002 + FECHA 13/07/07
HORA 12:57:19

Minicomputadoras
-

-2-

Ing. Alberto Moreno C.

00003 +
FLD1

00004 +
REPORTEDE ALUMNOS POR CURSO
00005 +
FLD1
ADDKIBLE D91041

b) crear el programa en RPGLE , pero con la extensión SQLRPGLE

=>STRSEU PROG01 SQLRPGLE 2
o simplemente pulsar F6 dar el nombre y laextensión del programa fuente.

Y el programa: SQLRPNOTA SQLRPGLE
FREPNOTAS O E
PRINTER OFLIND(*IN10)
DXCUR
S
4A
C/EXEC SQL
C+ DECLARE C1 CURSOR FOR SELECT CURSO.CODCUR,NOMCUR,
C+ALUMNO.CODALU,APEALU,NOMALU,EXAPAR, EXAFIN
C+ FROM CURSO , NOTAS, ALUMNO
C+ CURSO.CODCUR=NOTAS.CODCUR AND

Minicomputadoras
-

-4-

Ing. Alberto Moreno C.

C+ NOTAS.CODALU=ALUMNO.CODALU
C+ORDER BYCURSO.CODCUR
C/END-EXEC
C/EXEC SQL
C+ OPEN C1
C/END-EXEC
C/EXEC SQL
C+ FETCH C1 INTO :CODCUR,:NOMCUR,:CODALU,:APEALU,:NOMALU,
C+ :EXAPAR,:EXAFIN
C/END-EXEC
C
EVAL
XCUR=CODCUR
C
WRITE TITULO...