AS/400 BASICO por Wilbert Martnez

Curso De As/400

I.-

Introduccion A As/400

A) Manejo De Las Bases De Datos

El equipo as/400 trabaja con bases de datos relacionales.
La base de datos relacional as/400, es una coleccin de conjuntos de informacin
agrupados de tal forma que minimiza la redundancia entre ellos, permite cambios y el
crecimiento en el futuro.
Todos los conjuntos de datos son en base a tablas.

Diagrama De Base De Datos

INSTRUCTORES

ESTUDIANTES

CLASES

DEPARTAMENTOS

GRADOS

ESTUDIANTES

TEXTOS

SALONES

Se almacenan datos en tablas, archivos, grupos de datos, etc. con un minimo de datos
redundantes.

- 1

AS/400 BASICO por Wilbert Martnez

Tres Tipos De Bases De Datos

El Modelo Relacional.
ejemplo.:

base de datos de educacion

curso
codigo
l001
l103
l211
l303
l001
l214
l211
l103
l001
l306
l370

Nombre
Italiano
Ingles
Espaol
Chino
Italiano
Griego
Espaol
Ingles
Italiano
Japones
Cobol

num
inscr
12
23
5
44
23
11
1
0
2
3
99

instructor
victor g
juan e
pedro f
luis lee
victor g
homero
pedro f
juan e
victor g
homero
homero

- 2

tetra
88/1
88/1
88/1
88/1
88/1
88/1
88/2
88/2
88/2
88/2
88/2

clase
salon max
1
30
4
40
4
40
3
50
1
30
6
35
4
40
4
40
1
30
6
35
5
99

AS/400 BASICO por Wilbert Martnez

TABLA BASE
TABLA = ARCHIVO
RENGLON = REGISTRO
COLUMNA = CAMPO
Todas las lineas o renglones son similares ( un tipo de registro)
El archivo puede ser procesado secuencialmente o en forma indexada por el campo de
clasificacion instructor, en este ejemplo (sql order by); o con una seleccin
logica de registros (sql where......) funcionalmente, esto es una seleccin de campos.
con frecuencia se usan los queries para visualizar los datos de los archivos, para el usuario
final.

b)

Manejo De Librerias, Objetos, Fuentes:

Librerias.- Es la forma en que as/400 trabaja y se administra.
Las librerias es un area donde se almacenan archivos, programas, etc. que corresponden a
dicha librera.
Se puede manejar una librera por sistema, por area/depto., etc. (esto es definido por el
area de sistemas).
Objetos.- se generan en base a las compilaciones, ya sea de archivos o programas
(fuentes).
El objeto de un archivo se puede visualizar, para ver la informacion que la compone y el
objeto de un programa no se puede ver (en este caso se visualiza el
fuente).
Fuentes.- es el codigo que se desarrolla para la generacion de un archivo /programa, este
se compila para generar el objeto.
si un fuente no es compilado: no se puede guardar informacion en archivos o no se
puede correr un programa.
- Tipos De Objetos Y Fuentes:
los tipos de objetos mas comunes pueden ser:
*FILE .-

*PGM .-

puede tener los siguientes atributos:

ser un archivo fsico (pf), lgico (lf), archivo de pantalla (dspf),
printer file (prtf)
puede tener los siguientes atributos: clp, dfu, rpg

- 3

AS/400 BASICO por Wilbert Martnez

Los tipos de fuentes mas comunes son:

PF .- Archivos fsicos(phisical file)

LF .- Archivos lgicos (logical file)
DSPF.-Archivos de pantallas (display file)
PRTF.-Archivos de reportes (printer file)
RPG.- Programas rpg
CLP.- Programas de control (control lenguage program)

MAIN

AS/400 Main Menu

System:

S106CB4A

Select one of the following:

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

User tasks
Office tasks
General system tasks
Files, libraries, and folders
Programming
Communications
Define or change the system
Problem handling
Display a men
Information Assistant options
Client Access/400 tasks

90. Sign off

Selection or command

===>
F3=Exit
F4=Prompt
F23=Set initial men

F9=Retrieve

F12=Cancel F13=Information ssistant

Este es el men inicial del AS/400 que es una parte importante del OS/400, que nos ayuda a
ejecutar los comandos y utilerias por medio de opciones de manera un poco ms fcil.
En esta pantalla podr ejecuta los siguientes funciones:
F3
Salir termina el programa y regresa al programa anterior .
F4
Nos despliega una nueva pantalla donde nos muestra los grupos de comando que
podemos utilizar asi como una descripcion del mismo, el cual podemos accesar
con el numero de la opcin en la lnea de comando.
F9
Esta opcion nos muestra el comnado anterior ejecutado
- 4

AS/400 BASICO por Wilbert Martnez

F10
Commando de entrada.

F12
Es para salir del programa.

AS/400 Programming Development Manager (PDM)

Select one of the following:
1. Work with libraries
2. Work with objects
3. Work with members
9. Work with user-defined options

Selection or command
===>
F3=Exit
F12=Cancel

F4=Prompt
F9=Retrieve
F18=Change defaults

F10=Command entry

El PDM es una herramienta del AS/400 que facilita el control de Bibliotecas, objeto y
fuentes, de una manera rpida y eficiente, favoreciendo a la productividad en la operacin. El
PDM forma parte del grupo de herramientas de apoyo del AS/400 conocidas como TooSet/400.
Con el PDM el usuario podr controlar los siguientes concepto o funciones en AS/400:

Bibliotecas.

Objetos.

Fuentes.

Opciones definidas por el usuario.

Utilizando PDM el usuario podr disponer de las siguientes utilerias o facilidades, que a su vez
pertenecen tambin al TollSet/400.
Source Entry Utility (SEU)
Data File Utility (DFU)
Screen Design Aid (SDA)
Report Layout Utility (RLU)
- 5

AS/400 BASICO por Wilbert Martnez

File Compare and Merge Utility (FCMU)

Interactive Source Debugger (ISDB)

Specify Libraries to Work With

Type choice, press Enter.
Library

F3=Exit

. . . . . . . . . . .

F5=Refresh

*LIBL

*LIBL, name, *generic*, *ALL,

*ALLUSR, *USRLIBL, *CURLIB

F12=Cancel

F3
salir termina el programa y regresa al programa anterior .

F4
Nos muestra una nueva pantalla donde nos muestra los grupos de comando que
podemos utilizar asi como una descripcion del mismo, el cual podemos accesar con el
numero de la opcin en la lnea de comando.
Esta pantalla es de entrada a las biblioteca, podemos seleccionar que biblioteca queremos
visualizar o trabajar. Tienen la siguiente opciones:

*LIBL
Despliega la lista de Bibliotecas del usuario.
*ALLUSR
Despliega nicamente las Bibliotecas del usuario.
*ALL
Despliega todas las Bibliotecas del sistema
*USRLIBL
Despliega todas la Bibliotecas que no pertenecen al sistema.
*CURLIB
Despliega la Biblioteca definidas como current
Library Name Despliega sola mente la biblioteca especificada
*generic*
Esta opcin despliega lo que tenga en los * .
Ejemplo * QCA nos muestra todos las Bibliotecas que contengan esta cadena
De caracteres.
- 6

AS/400 BASICO por Wilbert Martnez

Work with Libraries Using PDM

List type

. . . . . . .

Type options, press Enter.

2=Change
8=Display description
Opt

Library
QSYS
QSYS2
QHLPSYS
QUSRSYS
QPDA
QGPL
QTEMP

Type
*PROD-SYS
*PROD-SYS
*PROD-SYS
*PROD-SYS
*PROD-PRD
*PROD-USR
*TEST-USR

S106CB4A

*LIBL

3=Copy
9=Save

5=Display
10=Restore

7=Rename
12=Work with ...

Text
System Library
System Library for CPI's

Bottom
Parameters or command
===> ___________________________________________________________________________
F3=Exit
F4=Prompt
F5=Refresh
F6=Add to F9=Retrieve
F23=More options
F24=More keys

F10=Command entry

Al trabajar con Bibliotecas tendremos las siguientes opciones:

2 Change : Permite cambiar el tipo de biblioteca que se tiene
*PROD Es una biblioteca se encuentra en produccin.
*TEST biblioteca de pruebas.
As como tambin cambiar su texto descripcin.
3 Copy : Copia de una biblioteca a otra bibliotecas con todas sus caractersticas.
4 Delete: Elimina una o ms Bibliotecas
5 Display: Despliega todos los tipos de objetos contenidos en la biblioteca.
6 Rename: Renombra una biblioteca.
8 Display descripcion: Despliega informacin acerca de biblioteca, fecha en que
se creo, se cambio etc.
12 Despliega los objetos contenidos en la biblioteca y poder trabajar con ellos.
13 Cambia la descripcin de la biblioteca.
En esta pantalla tenemos las siguientes teclas de funcin ms usuales:
F1
Despliega una ayuda en lnea de la pantalla.
F3
Regresa a la pantalla anterior.
F4
Parmetros adicionales en los comandos o funcin
F5
Reactualiza la consulta.
F6
Al presionar esta tecla creamos un a nueva biblioteca.
- 7

AS/400 BASICO por Wilbert Martnez

F9
Nos regresa el comando anterior ejecutado.

F10
Despliega los comandos ejecutados en el PDM en esta sesin.
F11
Despliega la lista sin tipo y sin descripcin.
F12
Cancela y no modifica nada.
F16
Funciones definidas por el usuario.
F21
Imptime la lista de la l ibreias.
F23
Con esta tecla podeomos ver los demas opciones que se tinenen.
F24
Despliega todas las funciones.
Algunos comandos para trabajar con Bibliotecas.
WRKLIBPDM .- Trabajar con Bibliotecas
ADDLIBLE .- Aadir una biblioteca a la lista de biblioteca.
EDTLIBL .- Editar la lista de biblioteca.

Specify Objects to Work With

Type choices, press Enter.
Library

. . . . . . . . . .

MTY2

*CURLIB, name

Object:
Name . . . . . . . . . . .
Type . . . . . . . . . . .
Attribute . . . . . . . .

*ALL
*ALL
*ALL

*ALL, name, *generic*

*ALL, *type
*ALL, attribute, *generic*,
*BLANK

F3=Exit

F5=Refresh

F12=Cancel

Al escoger esta opcion 2 del PDM (WRKOBJPDM) nos muetra la pantalla

anterior toma los siguientes valores:
Library : la Biblioteca con que se va a trabajar, puede ser :
*CURLIB : Despliega la biblioteca definidas como current
Name
: Despliega solamente la biblioteca especificada
Object
: Es un objeto en particular o pueden ser todos los que contengan ciertas
caractersticas definidas como:
Name : Pueden ser todos (*ALL), uno en particular(Name), Los que contengan la
cadena contenida en los * (*generic*).

- 8

AS/400 BASICO por Wilbert Martnez

Type: Los tipos de objetos que existen en la Bibliotecas. Pueden tomar valores
para desplegar todos (*ALL), o un tipo especifico (*Type) que pueden ser *PGM,
DSP, CLP, PF,LF etc.

Library . . . . .

Work with Objects Using PDM

X
MTY2
Position to . . . . . . . .
Position to type . . . . .

Type options, press Enter.

2=Change
3=Copy
8=Display description
Opt

Object
DFU1
DFU2
DFU3
DFU5
EFRA
JEFRA
JFECHA
JFIN02

4=Delete
9=Save

Type
*PGM
*PGM
*PGM
*PGM
*PGM
*PGM
*PGM
*PGM

Attribute
DFU
DFU
DFU
DFU
DFU
CLP
CLP
CLP

5=Display
10=Restore

S106CB4A

7=Rename
11=Move ...

Text
dfu insp
DFU2
DFU4
DFU5
EFRA
clp de prueba
clp de prueba
PRUEBAS
More...

Parameters or command
===>
F16=User options
F21=Print list

F17=Subset
F23=More options

Esta es el men del WRKOBJ en este podemos:

Eliminar un objeto.
Utilizar la opcin 4 (delete) en el objeto a eliminar.
Renombrar un objeto.
Utilizar la opcin 7 (rename) en el objeto a renombrar
Mover un objeto.
1. Utilizar la opcin 11 (Move) en el objeto a mover.
2. Especificar la biblioteca destino.
Copiar un objeto:
1. Utilizar la opcin 13 (Move) en el objeto a mover.
2. Especificar la biblioteca destino.
- 9

F18=Change defaults
F24=More keys

AS/400 BASICO por Wilbert Martnez

La funcin de copiar funciona como duplicar un objeto, el cual puede existir o no en la

biblioteca destino. De tal forma que la accin de copiar se realiza de dos formas:
a. Crea un objeto nuevo en la biblioteca destino, con las mismas caractersticas del
objeto original.
b. Reemplaza un objeto ya existente en la biblioteca destino. Con las caractersticas
del objeto original.
Desplegar la descripcin de un Objeto:
Utilizar la opcin 8 (display description) en el objeto a trabajar.
Desplegar la informacin de un Objeto.
Trabajar con objetos: STRPDM / Opcin 2 o WRKOBJPDM.

Ejecutar un objeto.
Utilizar la opcin 16 (Run) en el objeto a ejecutar.
Cambiar el texto de un objeto.
Utilizar la opcin 13 (Change text) en el objeto a ejecutar.
Debug interectivo.
Utilizar la opcin 34 ( Interactive source debugger ) en el objeto a trabajar.
En esta pantalla tenemos las siguientes teclas de funcin ms usuales:

F1
Despliega una ayuda en lnea de la pantalla.

F3
Regresa a la pantalla anterior.
F4
Parmetros adicionales en los comandos o funcin
F5
Reactualiza la consulta.
F9
Nos regresa el comando anterior ejecutado.
F11
Despliega la lista sin tipo y sin descripcin.
F12
Cancela y no modifica nada.
F13
Repite la opcin en todos los objetos en que estn en la pantalla
F14
Despliega el tamao del objeto solo cuando esta en modo nombre y tipos
F18
Cambia los valores por default.
F16
Funciones definidas por el usuario.
F21
Imprime la lista de objetos que se encuentran en la pantalla.
F23
Despliega las opciones que se encuentran en la pantalla.
F24
Despliega teclas de funcion.
- 10

AS/400 BASICO por Wilbert Martnez

Nota: Solo se pueden ejecutar las opciones y teclas de funcion que se encuentren
visualizadas en la pantalla.

Specify Members to Work With

Type choices, press Enter.
File

. . . . . . . . . .

JDEMTY

Library . . . . . . . .

MTY1

Member:
Name . . . . . . . . .
Type . . . . . . . . .

P43500
*ALL

F3=Exit

F4=Prompt

F5=Refresh

Name, F4 for list

*LIBL, *CURLIB, name

*ALL, name, *generic*

*ALL, type, *generic*, *BLANK

F12=Cancel

Al escoger esta opcion 3 del (STRPDM) trabaja con Fuentes (wrkmbrpdm) nos
muetra la pantalla anterior toma los siguientes valores:
File : Es nombre del source file a utilizar :
Name : Un nombre especifico del source file a trabajar.
F4 : Nos desliega una lista de source file existentes en la biblioteca .
Library: Es la biblioteca con la que se va atrabajar pueden tomar los siguientes
valores:
*LIBL : Son las todas Bibliotecas definida para el usuario
*CURLIB: Es la biblioteca definida como current
Name: Es nombre de una biblioteca especifican en donde se encuentran los
fuentes a utilizar.
Member:
Name : Nombre del Fuente a trabajar, pueden tomar los sigientes valores:
*ALL : Todos los fuentes cotenidos en la biblioteca y el sorfile
Name : EL nombre del fuente a trabajar.
* Generic * : Es un fuente que tenga las cadena que se encuentra definida
dentro de los asteriscos *.
Type : Tipo de fuente a utilizar.
*ALL : Todos los tipos de fuentes que se encuentren en esta biblioteca y en
el soruc file.
Type : Tipo especifico de fuente.
*generic *: desplegara todos aquellos fuentes que cumplan con la cadena
encerrada entre asteriscos (*)
*BLANK : Despliega todos los fuentes con type en blanco.
- 11

AS/400 BASICO por Wilbert Martnez

Work with Members Using PDM

File . . . . . .
Library . . . .

JDEMTY
MTY1

Position to

Type options, press Enter.

2=Edit
3=Copy 4=Delete 5=Display
8=Display description 9=Save 13=Change text
Opt

Member
FV4108R
F3002LR
F4102$J
F41021$A

Type
PF
LF
LF
LF

S106CB4A

. . . . .

6=Print
14=Compile

7=Rename
15=Create module...

Text
Lot Master
LF - branch comp, 2nd item, Thru date
JF - Location/Work order(F4102 F4801)
JF - Location/Branch (f41021/f4102)
More...

Parameters or command
===>
F3=Exit
F4=Prompt
F9=Retrieve
F10=Command entry

F5=Refresh
F23=More options

F6=Create
F24=More keys

TRABAJANDO CON FUENTES

Copiar un fuente
1.- Estando en la pantalla del WRKMBRPDM..
2.- Utilizar la opcin 3(copy) en el fuente a copiar
La funcin copiar funciona como duplicar un fuente, el cual puede existir o no
en la biblioteca y archivo fuente destino. De tal forma que la accin de copiar se
realiza de dos formas:
a). Crea un fuente nuevo en la biblioteca y archivo fuente destino con las
mismas caractersticas del fuente origen.
b). Reemplaza un fuente ya existente en la biblioteca y archivo fuente
destino, con las mismas caractersticas.
Cambiar tipo y texto de un fuente
Para cambiar un texto de un fuente se utiliza la opcin 13 (change text) en el
fuente a cambiar.
Editar un fuente .
Utilizando la opcin 2 (Edit) en el fuente a editar. En esta opcin nos mostrara el
SEU
Visualizar un fuente: Con la opcin 5 (display) en el fuente a visualizar. Con esta
opcin nosotros no podemos modificar el fuente.
- 12

AS/400 BASICO por Wilbert Martnez

Compilar un fuente: Para compilar un fuente se utiliza la opcin 14 (compile) en

el fuente a compilar.
Eliminar un fuente: Para eliminar un fuente se utiliza la opcin 4 en el fuente a
eliminar.
Desplegar la descripcin de un fuente: Para desplegar la descripcion de un fuente
se utiliza la opcin 8 (display description) en el fuente a trabajar.
Ordenar una lista de fuentes por fecha: Utilizan la funcin <F4> (Display date)
para desplegar las fechas de creacin. Y con la Funcin <F15> (sort date) para
ordenar la fecha.
Indistintamente la funcin <F15> (sort date) sirve para ordenar : por fecha o por
nombre.
Buscar un STRING en un fuente
a) Utilizando el PDM.
Trabajando con fuentes (WRKMBRPDM) la opcin 25 (find
String) para hacer la bsqueda correspondiente.
b) utilizando el comando FNDSTRPDM
SEU (Source Entry Utility)
Columns . . . :
1 71
Edit
MTY2/JDESRC
SEU==>
P55GLAS
FMT * ..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0084.00
I*****************************************************************
0085.00
C****************************************************************
0086.00
C*
MAINLINE PROGRAM
0087.00
C*
---------------0088.00
C*
0089.00
C*
Process housekeeping.
0090.00
C*
0091.00
C
EXSR S999
0092.00
C*
---- ---0093.00
C*
0094.00
C*
If LR on, end program.
0095.00
C*
0096.00
C
*INLR
CABEQ'1'
EOJ
0096.00
C

Con el SEU, usted puede trabajar con el fuente de archivos, y los registros
contenidos dentro de ellos.
Opciones permitida:
 Crear fuentes
 Editar fuentes
 Imprimir fuentes
- 13

AS/400 BASICO por Wilbert Martnez

 Copiar registro de un archivo (fuentes) a otro fuente o un archivo de

impresin
El SEU cuenta con las siguientes caractersticas:
Comandos: Los comandos de la SEU se pueden trabajar en Ambientes, fuentes y
registros. Con ellos, podemos ocultar registros desplegados en pantalla, salvar archivos o cancelar
los cambios hechos al fuente.
Lneas de formatos: Se pueden utilizar las lneas de formato para verificar la posicin de
los estatutos segn los estatutos fuentes del lenguaje de alto nivel utilizado. SEU provee de
lneas de formato predefinidas para comandos de los lenguajes de alto nivel utilizados y de
lenguaje de control de AS/40 (CL).
Modo de pantalla completa. El modo de pantalla completa (Full screen mode) es utilizado
en las pantallas de edicin y de browse para eliminar teclas de funcin de la pantalla del SEU,
permitiendo as, tener cuatro lneas ms de texto fuente.
Teclas de funcin completas. Cada pantalla de la SEU soporta un conjunto de teclas de
funcin, usadas para realizar tareas especificas. Estas teclas, se encuentran listadas en la parte
inferior de cada pantalla. Excepto por la tecla F1 (Ayuda) que no es siempre desplegada y sin
embargo es valida en todas la pantallas, una tecla de funcin es valida solo si es mostrada en la
parte inferior de la pantalla.
Prompts de comandos y lenguajes : Los prompts de comandos y lenguajes son utilizados
para crear registro o lneas de cdigo fuentes sin errores.
Lneas de comandos:. Esta, es usada para realizar varias operaciones, tales como insertar
registros en blancos , copiar registro y llamar al prompt de comandos o lenguajes.
Nmeros mximo y longitud de registros: El SEU permite un mximo de 32764 registros
en un fuente. La longitud mxima de registros permitida es de 240 caracteres , el cual incluye 6
caracteres para el numero de secuencia y 6 caracteres para la fecha.
Pantallas de opciones: Este tipo de pantallas son utilizadas para controlar el ambiente del
SEU y para realizar operaciones sobre los fuentes de archivos y archivos de impresin. Las
pantallas de operaciones ms usadas son:
- Cambio de defaults de la sesin.
- Opciones de browse/ copy.
- Opciones de Encontrar/ Cambiar.
Sesin split: Esta sesin es utilizar para ver y editar un fuente y visualizar otro en la
misma pantalla de trabajo. Tambin, es posible visualizar dos fuentes en la misma pantalla a la
vez. Si la pantalla de opciones de Browse/Copy es accesada desde una sesin split, es posible
copiar registros desde la fuente que sea mostrado en la pantalla a la fuente que se este utilizando.
- 14

AS/400 BASICO por Wilbert Martnez

Chequeo de sintaxis. El chequeo de sintaxis es utilizado para verificar los estatutos de los
diferentes lenguajes de alto nivel, incluyendo Basic, Pl/I, cobol, Fortan y RPG, as como el
lenguaje de control del AS/400.
Ventanas de comandos del sistema: Desde esta ventana es posible mandar ejecutar
comandos de AS/400 mientras trabaja con una pantalla de edicin del SEU. Para desplegar la
ventanas de comandos del sistema, presione F21. No es posible teclear datos en la pantalla de
edicin del SEU mientras la ventana de comandos del sistema se encuentre desplegada.
Trabajar con fuentes
Iniciar una sesin en SEU
 Desde el PDM (program development manager). Dentro del PDM utilice la opcin
2 (editar) O 5 (desplegar) en la pantalla de trabajo con fuente.
 Desde el men de programador. Selecione la opcin 8 (editar una fuente de un
archivo fuente) o bien, seleccione la opcin 5 (ejecutar comandos), y seleccione el
Comando STRSEU de la lista de comandos.
 Por medio de la linea de comandos de AS/400. Teclee STRSEU en la lnea de
Comandos.
Start Source Entry Utility (STRSEU)
Type choices, press Enter.
Source file . . .
Library . . . .
Source member . .
Source type . . .
Option . . . . . .
Text 'description'

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.

MTYSRC
MTY
*ALL
*BLANK
*BLANK

Name, *PRV
Name, *LIBL, *CURLIB, *PRV
Name, *PRV, *SELECT
Name, *SAME, BAS, BASP...
*BLANK, ' ', 2, 5, 6
.

Ver una lista de fuentes.

Para ver una lista de fuentes, usando el comando STRSEU, haga lo siguientes:
1.- Especifique el archivo fuente para el parmetro SRCFILE pero no especifique el fuente
en el parmetro SRCMBR, Especifique el valor del *SELECT para el parmetro SRCMBR.
Teclee el comando STRSEU sin ningn parmetro si la pantalla de trabajo con fuentes
usando SEU fue desplegada.
Cambiando la lista de fuentes

- 15

AS/400 BASICO por Wilbert Martnez

Usted puede cambiar la lista de fuentes que aparecen en la pantalla de trabajo con fuentes
usando SEU a que solo los fuentes que cumplan cierto criterio sean incluidos en dicha lista. La
seleccin de fuente puede ser por:

Nombre parcial
Tipo de miembro
Fecha de creacin o de ultimo cambio.
Texto o texto parcial .

Para cambiar la lista de fuentes.

1. Presione F17 (subconjunto). La pantalla de lista subconjunto de miembros.
2. Especifique el criterio para los miembros que desea que sean listados y
presione enter. Con esto, la lista de fuentes actualizada ser desplegada.
Crear un fuente:
Para crear un miembro, siga los pasos que se muestran a continuacin:
Desde la lnea de comando, o utilizando el prompt de comandos, especificando el
nombre del fuente a crear, en el parmetro SRCMBR del comando STRSEU. Si
utiliza el prompt de comandos, teclee un tipo de fuente valido en el source type,
de lo contrario el default es usado.
En la pantalla de trabajo con miembros usando SEU, teclee el nombre del
miembro a
crear en el prompt de new member y presione enter.
La pantalla de trabajo con miembros usando SEU puede ser accesada especificando
*SELECT para el parmetro SRCMBR en el comando STRSEU.
La pantalla de edicin aparecer, en la cual puede iniciar la entrada de cdigo.
Tipo de fuente
CLP
CBL
DSPF
MENU
PF
PRFT
QRY
RPG
TXT

Descripcin
CL program
Cobol
Archivos de pantallas
Mens (UIM)
Archivo Fsico
Archivo de Reportes
Archivo de Querys
RPG
Texto

La figura anterior nos muestra los tipos de fuentes mas utilizados en AS/400.
- 16

AS/400 BASICO por Wilbert Martnez

Work with Members Using PDM

File . . . . . .
Library . . . .

MTYSRC
MTY1

Position to

Type options, press Enter.

2=Edit
3=Copy 4=Delete 5=Display
8=Display description 9=Save 13=Change text
Opt

Member
FIN03L
FIN03LA
FIN04
FIN04BK
FIN04LB
FIN25

Type
LF
LF
PF
PF
LF
PF

S106CB4A

. . . . .

6=Print
14=Compile

7=Rename
15=Create module...

Text
*archivo logico de prueba
archivo logico de carr
ARCHIVO FISICO DE CAR/AL/MAT
ARCHIVO FISICO DE PIN04(ALCARMAT)
ARCHIVO LOGICO DE FIN04
ARCHIVO INFORMACION
More...

Parameters or command
===>
F3=Exit
F4=Prompt
F9=Retrieve
F10=Command entry

F5=Refresh
F23=More options

F6=Create
F24=More keys

Para iniciar una sesin del SEU desde el PDM con la opcin 2 (EDIT) en la
fuente que de deseamos editar.
Mostrar un fuente (Browsing)
La pantalla de browse es usada para ver un fuente sin el riesgo de cambiarlo
accidentalmente (solo lectura). Podemos usar las operaciones de busqueda y posicionamiento,
pero no podemos realizar operaciones que alteren el fuente, tales como edicin, eliminacin,
actualizacin o relocalizacion de registro.
Par mostrar un fuente :
Especifique 5 (Browse) en el parmetro option del comando STRSEU.
Seleccione la opcin 5 (Browse) en la pantalla de trabajo con fuentes usando SEU.
La pantalla de Browse aparecera y contendra el fuente que haya seleccionado.
Para cambiar los defaults de la sesin en la pantalla de brows, presionando F13. Aqu
podra especificar parametros tales como el numero de renglones a rolar en la pantalla, o forzar la
entrada de letras en solo Maysculas.
Tambien es posible cambiar la sesion usando el comando SEU SET
El modo de la pantalla completa le permite remover la linea de formato de la parte
superior de la pantalla y la lista de teclas de funcion de la parte inferior de la misma.
Podemos utilizar le modo de pantalla completa mientra se esta mostrando los fuentes o
archivo de impresin (browsing). Para cambiar de modo campleta:
1. En la pantalla de Browse, presione F13 (cambiar default). Con lo anterior
aparecera la pantalla de cambios de default.
2. Teclee y en el prompt de full screen mode y presionar enter. La pantalla de browse
cambiara a modo de pantalla completa.
- 17

AS/400 BASICO por Wilbert Martnez

Para cancelar el modo de pantalla completa y regresar al modo normal de operacin:

1 .- En la pantalla de browse, presionar F13.
2 .- Teclee N en el prompt full screen mode y presione enter.
Mientras se trabaje con un fuente, puede dividir (Split) la pantalla del browse con otro
browse de un fuente o archivo de impresin (spool file). Para dividir (splits) la pantalla :
1.- Presione F15 (opciones de browse).
2.- Realice los siguientes puntos:
Para mostrar otros fuente del mismo archivo, teclee el nombre del fuente en el
prompt de Browse member y presione enter.
Para mostrar otro fuente de un archivo diferente, teclee el nombre del archivo en
el prompt de file, el nombre del fuente en el promot de browse member y presione
enter.
Para mostrar un archivo de impresin, teclee su nombre en el prompt spool file.
Para mostrar un archivo de impresin de otro usuario, teclee el nombre del
usuario en el campo correspondiente, teclee su nombre de archivo de impresin y
presione enter.
La linea de divisin es colocada a la mitad de la pantalla del browse, y ahora puede ver el
fuente o archivo de impresin adicional, en la pantalla. Para mover la linea de divisin, presione
F6 (move Split line) en la posicin que desea que este.
Editar un fuente
Para editar un fuente, realice alguno de los siguientes puntos:
Especifique un 2(Edit) en el parmetro OPTION del comando STRSEU.
Especifique la opcin 2 (edit) en el prompt Opt en la pantalla trabajar con miembros
usando SEU.
Especifique la opcin 2 (edit) en la pantalla de trabajar con miembros usando el PDM.
Especifique la opcin 2 (edit) en la pantalla de trabajar con registros de pantallas en
SDA.
Aparecer la pantalla de edicin, conteniendo el miembro especificado.
Existen varios registros especiales en la pantalla de edicin de fuentes, los cuales no son
grabados juntos con el cdigo fuente.
Inicio de datos
Fin de datos
Formato
Insercin
Columnas
Tabulaciones
Exclusin (exclude)
No se pueden eliminar los registros especiales listado anteriormente.
- 18

AS/400 BASICO por Wilbert Martnez

Las lneas de inicio y fin de datos son mostradas para designar el inicio y el fin de un
fuente.
Durante la edicin de fuentes, puede dividir (split) la pantalla de edicin con otra pantalla
de browse de un fuente o archivo de impresin (spooled file). Para dividir la pantalla.
1. Presione F15 (opciones de Browse /copy).
2. Realice alguno de los siguientes puntos:
Para mostrar o copiar otro fuente del mismo archivo, teclee el nombre del fuente
en el prompt de browse y presione enter.
Para mostrar o copiar otro fuente de un archivo diferente, teclee el nombre del
archivo en el prompt de file, el nombre del fuente en el prompt de Browse member y
presione enter.
Para mostrar o copiar un archivo de impresin, teclee su nombre en prompt spool file.
Para mostrar o copiar un archivo de impresin de otro usuario, teclee el nombre del
usuario en el campo correspondiente, teclee el nombre del archivo de impresin y
presione enter.
3. Si deseas copiar el fuente o archivo de impresin completo teclee una y en el
prompt de copy all rcords.
Presione enter y Se unas de las siguientes opciones pasarn:
Si esta en modo browse, la lnea de divisin (lnea separadora de las dos sesiones) es
colocada en la parte media de la pantalla de edicin y podr ver el fuente adicional.
Si esta copiando el fuente y especifica un destino en el fuente que esta editando, el
fuente o archivo de impresin es copiado dentro del fuente que se esta editando, pero
la sesin adicional no ser iniciada.
Si se encuentra copiando un fuente, pero no especifico un destino (lugar donde se
iniciara la copia del fuente adicional) en el fuente que se esta editando actualmente, la
pantalla de edicin es dividida y el comando de copia bloque (CC) es colocado en el
primer y ultimo registro del fuente o archivo de impresin que esta desplegando.

Eliminando un fuente
Especifique 6(Print) en el parmetro OPTION del comando del STRSEU
Selecionando la opcin 6(Print) en la pantalla de trabajar con miembros
(WRKMBRPDM)

Cuando salga de la sesin de edicin, teclee y en el prompt Print member en la

pantalla de salida, o bien,
CAMBIANDO EL AMBIENTE DE LA SESION DE EDICION
Podemos cambiar el ambiente de la sesin de edicin de dos maneras: Utilizando el
comando SEU SET o bien , utilizando la pantalla de cambio de la sesin (F13).
- 19

AS/400 BASICO por Wilbert Martnez

Al presionar F13 aparecer la pantalla de cambio de Defaults de la sesin, y entonces

podr hacer lo siguiente:
Especificar el numero de registro de datos sern paginados ( mediante las
teclas de roll).
Especificar el teclado en solo maysculas o mixto.
Habilitar o deshabita los tabuladores.
Especificar el nmero en que se irn incrementando los nmeros de secuencia.
Cambiar al modo pantalla completa.
Definir las dimensiones de la pantalla(para Display de 27 renglones x 132
columnas).
Especificar el tipo de fuente que se esta editando.
Habilitar/deshabitar el chequeo de sintaxis.
Especificar el chequeo de sintaxis para un rango de estatutos.
Asignar mrgenes.
Asignar todos los registros existentes con una fecha determinada.
Asignar la resecuenciacin del fuente como default.
Algunos de los valores dependen del tipo de fuente del fuente, mientras que otros
dependen del valor que les sea asignados o de los valores usados en la ultima sesin de
edicin.
ENCONTRAR Y CAMBIAR CADENA DE CARACTERES
Durante la sesin de edicin, es posible buscar dentro de un fuente una cadena de
caracteres, y opcionalmente cambiarla por otra cadena, usando la pantalla de opciones de
Encontrar / Cambiar (Find/Change).
Para accesar dicha pantalla, presione F14 (Find/Change Option) estando dentro de la
sesin de edicin . Entonces, dentro de la pantalla de find/changer podr hacer lo siguiente:
Encontrar una cadena especifica.
Cambiar una cadena.
Encontrar los registros con una fecha determinada.
Encontrarlos errores de sintaxis
Durante una sesin de despliegue (browse), puede buscar una cadena de caracteres por
medio de la pantalla de opcin de encontrar (find Option). La diferencia es que en esta sesin no
podr cambiar el fuente y no podr encontrar los errores de sintaxis, excepto en los archivos de
impresin.
Para guardar los valores que tecleo en los Prompts de encontrar (find) y cambiar
(Change), presionar enter, F16 para encontrar o F17 para cambiar la cadena de caracteres.
Parar encontrar una cadena de caracteres:
1. Teclee el String que desea encontrar en el Prompts de find de la pantalla de
encontrar o de encontrar y cambiar.
2. Cambie los dems Prompts, si es necesario
- 20

AS/400 BASICO por Wilbert Martnez

3. Presione F16 para encontrar el String.

Para encontrar y cambiar una cadena de caracteres
1. Teclee la cadena de caracteres que desea cambiar en el prompt de encontrar o
encontrar/cambiar
2. Teclee la cadena de caracteres con la que desea remplazar la anterior en el
promt de cambia (Change).
3. Cambie los de mas Prompts, si es necesario.
4. Presione F17 para cambiar la siguiente ocurrencia del String.
Si el String tecleado, es encerrado entre apstrofes o comillas, estos signos sern
ignorados en la bsqueda.Para encontrar un registro en una determinada fecha:
1. Presione F14 para accesar la pantalla de encontrar.
2. Especifique la fecha en el campo search on date..
3. Especifique 1,2,3 en el campo de comparacin/compare.
4. Presione F16 para encontrar el siguiente registro con la fecha especificada.
Tambin, podemos usar la operacin de encontrar para localizar los errores de sintaxis
detectados en el cdigo fuente del fuente. Para encontrar estos errores teclee *ERR o * ERR e
el campo de encontrar/find. Cuando presione F16 (Find), SEU localizar cualquier error de
sintaxis encontrado por el checador de sintaxis.
COMANDOS DE LINEA
Los comandos de lnea se usan para realizar varias funciones sobre los registros en el
fuente. Podemos usar los comandos en lneas para :
Copiar, eliminar, insertar, mover o imprimir registros.
Ayuda para teclear y formatear datos de los nuevos registros.
Cambiar los registros que se ven en la pantalla.
Teclee los comandos de la lnea sobre el nmero de secuencia del registro en el fuente.
Por ejemplo, teclee una D (delete) en el nmero de secuencia de un registro para eliminarlo del
cdigo fuente. Teclee una D3 para eliminar los tres registros inmediatos del cdigo fuente.
Estos comandos pueden ser tecleados en maysculas o minsculas. SEU convierte
automticamente los comandos en maysculas.
Despus de teclear o cambiar los comandos de lnea, presione una de las siguientes teclas
para correr los campos.
Enter
Una tecla de funcin valida.
Avance o retorno de pagina ( Page up o page Ddown).
La siguiente tabla lista los comandos de lnea del SEU. Todos los comandos de lnea son
validos en las sesiones de edicin en split o Full mode. Esta tabla indica los comandos de lnea
que son validos para sesiones de despliegue (browse).
- 21

AS/400 BASICO por Wilbert Martnez

Comando

BROWSE
Y
N
Y
Y/N
Y/N
Y/N
Y
Y
N
N
N
Y
N
N
N
Y
N
Y

Posicionamiento absoluto
Antes / Despus
Columnas
Copiar
Copiar repetidamente
Borrar
Excluir
Formato
Insercin
Insertar con formato
Insertar con prompt
Imprimir lnea
Mover
Solapar
Prompt
Posicin relativa
Repetir
Show

COMANDO DE LINEA
n.
A
COLS
C
CR
D
X
F
I
IF
IP
LP
M
O
P
+
RP
SF

n
An
Cn
CRn
Dn
Xn
F?
In
IFn
IP?
LPn
Mn
On
P?
+n
RPn
SFn

n.n
B

Bn

CC
CCR
DD
XX
Fxx
IF?
Ipxx
LLP
MM
OO
Pxx
RPP
SL

IF?n

-n
RPPn
SLn

Comandos de SEU

Podemos usar los comandos del SEU para realizar operaciones de encontrar/cambiar, para
salir de la sesin y para establecer los defaults de la misma. Los comados proveen un fast path
para estas operaciones, los cuales tambin pueden ser accesadas atravs de las pantallas de
opciones. Los valores tecleados por medio de los comandos del SEU aparecern en dichas
pantallas.

Los comandos deben ser tecleados sobre la lnea de comandos del SEU . Para recuperar
el comando anterior presione F9 (retrive). Es posible mover el cursor desde el rea de datos a la
lnea de comandos del SEU y regresar al rea de datos por medio de la tecla F10 (curso).

La siguiente tabla muestra los comandos para los diferentes tipos de sesin.

COMANDOS

Funcin
- 22

Seccin Sesin
Edicin Browse

Depende de
la Ssesin

AS/400 BASICO por Wilbert Martnez

FIND o F

Encontrar una cadena de caracteres

dentro de un fuente.

CHAGE o C

Encuentra una cadena de caracteres

en un fuente y cambia por otra.

TOP o T

Reposiciona la pantalla de trabajo a

la primera pagina de datos.

BOTTOM o
BOT o B

Reposiciona la pantalla de trabajo a

la ultima pagina de datos.

SAVE

Guarda los cambios hechos al

miembro y continua editando.

FILE

Salva los cambios hechos al fuente y

sale de la edicin.

CANCEL

Abandona la seccin sin guardar los

cambios realizados.

SALIR DE SEU
Podemos salir del SEU usando la pantalla de salida. Para accesar a dicha pantalla,
presione F3 (Salir) en la pantalla de edicin o en cualquier pantalla de Split. La pantalla de salida
puede usarse para realizar las siguientes operaciones sobre el fuente que se esta editando.
Salir y crear un nuevo fuente.
Salir sin crear el fuente.
Salir y salvar un fuente existente.
Resecuenciar el fuente editado.
Imprimir el fuente.
Ir a la lista de fuente.
Regresar a edicin.
Cancelar la funcin de encontrar string por PDM,

- 23

AS/400 BASICO por Wilbert Martnez

IV.

Definicion Del Codigo De Archivos (Fisicos Y Logicos).

- tipos de archivos y su diferencia:
las tablas base son llamadas archivos fisicos.
los views/index son llamados archivos logicos.

Archivo Fisico

F
O
R
M
A
T
O

Cada archivo fisico esta conformado de tres partes o

extenciones.

EST_NO
7
0
EST_NOMB 20
A
DIRECC
cuales se 20
A

1. Formato. Definicion de los campos de los

que se compone un registro.

CAMINO DE ACCESO

2. Ruta de acceso. definicin de cmo los o por llave).

LA LLAVE ES EST_NO

3. Registros pueden ser accesados (en secuencia datos.

espacio para los registros de los cuales esta hecho el

D
A
T
O
S

DATOS

archivo.

Se pueden generar datos en un archivo, por medio de programas interactivos o barch, dfu
(data file utility), el comando de copy.
CPYF

FROMFILE(

TOFILE (

MBROPT{*ADD
*REPLACE

FMTOPT {*MAP
*DROP

CRTFILE {*NO
*YES

DSPPFM

FILE(LIB NAME/FILE NAME)

MBR(*FIRST) =>

- 24

despliega el contenido del arch.

(ej. para verificar datos copiados)

AS/400 BASICO por Wilbert Martnez

- Codigo de un archivo fisico (indexado):

COLUMNS . . . : 1 71
EDIT
MTY2/JDESRC
SEU==>
F50001
FMT PF ....A..........T.NAME++++++RLEN++TDPB......FUNCTIONS++++++++++++++++++
0010.00
A
R STUCLS
0011.00
A
TEXT('ARCHIVO DE ESTUDIANTES)
0012.00
A
STUNO
7
0
TEXT (NUMERO DE ESTUDIENTE)
0013.00
A
CLASNO
4
0014.00
A
STATUS
4
0015.00
A
FGRADE
3
0016.00
A
DATE
R
REFFLD(ENDATE CLSHST)
0017.00
A
K STUNO
0018.00
A
K CLASNO
DESCEND

NIVELES DE UN ARCHIVO:
FILE -LEVEL
RECORD-LEVEL
FIELD-LEVEL
KEY FIELD-LEVEL
SELECT/OMIT-LEVEL

FROM TYPE.- En el caso de archivos siempre se pone A.

(T) NAME TYPe.- Se define R => en la linea donde se define el nombre del reg.
Se define una K => cuando se van a definir las llaves (sort).
Se define una J => para especificaciones de archivos join.
Se define una S/O (select/omit).- para seleccionar y/o omitir regs.
esto solo se puede usar en archs. logicos (idx).
NAME .- Se define el nombre de la variable (no mayor de 6 digitos).
R) REFERENCE.- Se define una R, solo en el caso de que el campo se pueda referenciar a otro que exista en un archivo determinado. esto es para que
tome las mismas caracteristicas del campo al cual se hace referencia.
LEN) LENGTH.-longitud del campo.
D) DATA TYPE.- A => alfanumrico
P => numrico empacado
S => numrico zoned (no es empacado)
P) DECIMAL .-El numero de decimales, siempre y cuando sea numerico.
FUNCTIONS.- REFFLD(nombre campo nombre arch.) => se utiliza para tomar
caracteristicas de otro campo en otro arch. (solo caracteristicas, no
datos).
DESCEND => ordena el campo en forma descendente, por default si no
se definie nada lo considera ascendente.
- 25

AS/400 BASICO por Wilbert Martnez

Estas funciones son exclusivas para archs. logicos:

COMP => ej. comp(ge 125), solo toma registros con esta condicion.
RANGE => ej. range(10000 90000), solo toma regs. con esta Condicion.
VALUES => ej. values(pend conf can ), regs. con esta condicion.
oprimiendo ayuda en este campo se despliegan todas las opciones existentes.
no se recomienda usar estas funciones (comp, range, values), ya que hace
exclusivo el uso del arch.
El data type es opcional, si no se definen decimales se considera alfanumerico,
si se definen decimales se considera numerico zoned.
-

Codigo De Un Archivo Logico:

Columns . . . : 1 71
Edit
MTY2/JDESRC
Seu==>
F50001LA
FMT PF .....A..........T.Name++++++Rlen++Tdpb......Functions++++++++++++++++++
0010.00
A
R STUCLS
PFILE(F50001)
0011.00
A
K DATE
0012.00
A
S STATUS
COMP(EQ VAL )

FUNCTIONS.- PFILE(nombre arch.fisico) => se utiliza para definir el archivo fisico al

cual va a estar referenciado el logico.
Existen archivos JOIN LOGICAL FILES => este tipo de archivo combina en un
formato, campos de dos o mas archivos fisicos.
Se define solo un formato de registro y los campos llave deben ser del archivo
primario.
- Codigo De Un Join Logical File:
ARCHIVO
STUDENT

CLASS

CAMPOS
STUDENT NUMBER (STUNO)
STUDENT NAME
(STUNAM)
STUDENT NUMBER (STUNO)
CLASS NUMBER
(CLASNO)

COLUMNS . . . :
1 71
EDIT
MTY2/JDESRC
SEU==>
F50001LB
FMT PF
.....A..........T.NAME++++++RLEN++TDPB......FUNCTIONS++++++++++++++++++
0010.00
A
R JOINREC
JFILE(STUDENT
CLASS)
0011.00
A
J
JOIN(1 2)
0012.00
A
JFLD(STUNO
STUNO)
0013.00
A
STUNO
JREF(1)
0014.00
A
STUNAM
0015.00
A
CLASNO
0012.00
A
K STUNO

- 26

AS/400 BASICO por Wilbert Martnez

JFILE.- Se deben especificar dos archivos fisicos. el primero es el arch. primario.

J .- Identifica el inicio de especificaciones del join.
JOIN .- Identifica cuales dos archivos son joinded .
JFLD .- Identifica los nombres de campos (join fields), estos deben existir en ambos
archivos (join); y deben tener los mismos atributos.
JREF.- los campos en un jlf deben ser identificados como unicos. este atributo
permite especifiar un campo a cual archivo corresponde (esto es, cuando el nombre
de un campo existe en mas de un archivo fisico).
no se recomienda usar los archivos JOIN, ya que ocupan mucha area en el equipo,
ademas generalmente se requiere de autorizacion por parte de sistsemas/usuario.
- Compilacion De Archivos Fisicos/Logicos
a)

Se puede compilar dentro del menu de pdm con la opcion 14.

Si se usa esta opcion se recomienda oprimir el f4 para ver el dafault de la biblioteca
hacia donde se va a dirigir el objeto del archivo que se va a generar y en caso de que sea
otra biblioteca definirla. ademas es necesario definir una autoridad=*all, ya que de lo
contrario, solo el usuario que creo el archivo tendria acceso a este.
b) Compilar con el comando => CRTXF + F4. (tomar las mismas consideraciones
que en el caso de compilar con la opcion 14 dentro de pdm.
CRTPF

FILE (*CURLIB/FILE-NAME)
SRCFILE (*LIBL/QDDSRC)
SRCMBR (*FILE)
MBR(*FILE)
MAXMBRS(1)
SIZE(*NOMAX 1000 3)
AUT (*ALL)

CRTLF FILE(*CURLIB/FILE-NAME)
Comandos De Archivos:
CLRPFM .- Clear physical file member (Inicializa el archivo, borra la informacin)
DLTF .- Delete file (Borra el archivo, fisicamente ya no existir).
CHGPF .- Change physical file (Cambia atributos al archivo)
CHGPFM .- Change physical file member
DSPFD .- Display file description (Despliega datos generales del archivo)
DSPDBR .- Display data base rel. (Para consultar archivos lgicos referenciados a un arch.
fsico.)
DSPPGMref.- Display program reference (para consultar que archivos se estan utilizando en un
programa.)
- 27

AS/400 BASICO por Wilbert Martnez

DSPFFD .-Display file field descrip.(para consultar lista de campos definidos en un archivo y sus
caracteristicas.
Comamdos Para Revisar Compilaciones.
Cuando se compilan archivos, programa, pantalla, ect.. se enva a una cola de procesos
llamada Work with Submitted Jobs (WRKSBMJOB), la cual despliega el estatus de los procesos
que se encuentran en la cola.
Estos estatus son los siguientes:
JOBQ : Indica que el proceso esta por entrar a la cola procesos.
ACTIVE: Indica que el proceso esta por ejecutarse o se esta ejecutando.
OUTQ: Indica que el proceso ha terminado de ejecutarse.
END : Indica que el proceso ha sido terminado por el usuario.
Work with Submitted Jobs
01/14/99
Submitted from . . . . . . . . :
Type options, press Enter.
2=Change
3=Hold
4=End
8=Work with spooled files

Opt

Job
P550025
P550002
P550022BK

User
MTY02
MTY09
MTY09

S106CB4A
11:27:08

*USER

5=Work with

Type
BATCH
BATCH
BATCH

6=Release

7=Display message

-----Status----OUTQ
ACTIVE
JOBQ

Function
CMD-CRTRPGPGM

Bottom
Parameters or command
===>
F3=Exit
F4=Prompt
F5=Refresh
F12=Cancel

F9=Retrieve

F11=Display schedule data

Los opciones que se encuentran en este comando son las siguiente:

3= Hold .- usando esta opcin se congela el proceso.
4= End .- Usando esta opcin se cancela la ejecucin del proceso.
6= Release.8= work spooled files. Con esta opcin nos despliega el spool de nuestro proceso.
El sooled file (cola de impresion) ,es una herramienta que sirve para desplegar y
almacenar la informacin resultados compilaciones, y de las salidas de los programas ejecutados
programas.
Work with Job Spooled Files
Job:

P550025

User:

MTY02

Number:

Type options, press Enter.

1=Send
2=Change
3=Hold
4=Delete
5=Display
8=Attributes
9=Work with printing status

Opt
5

File
P550025
QPJOBLOG

Device or
Queue
QPRINT
QEZJOBLOG

User Data
P550025

Status
RDY
RDY

Total
Pages
26
6

957927

6=Release

Current
Page

7=Messages

Copies
1
1

Bottom

- 28

Parameters for options 1, 2, 3 or command

===>
F3=Exit

F10=View 3

F11=View 2

________________

F12=Cancel

F22=Printers

F24=More keys

AS/400 BASICO por Wilbert Martnez

Para revisar la compilacin de un programa con la opcin 5 (display) del Work with Job
Spooled Files desplegara la siguiente pantalla
Display Spooled File
File . . . . . :
P550025
Page/Line
25/46
Control . . . . .
B
Columns
1 - 78
Find . . . . . .
_____________________*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
.8....+....9....+....0....+....1....+....2....+....3..
Message . . . . :
RPG provides a Separate-Indicator area for the
file.
* * * * *
E N D
O F
M E S S A G E
S U M M A R Y
* * * * *
P5525MG
- CAMBIO DE GREGORIANO A JULIANO
1/P550025
5769RG1 V4R2M0 980228
IBM RPG/400
MTY
F i n a l
S u m m a r y
Message Count: (by Severity Number)
TOTAL
00
10
20
30
40
50
85
7
0
1
65
12
0
Program Source Totals:
Records . . . . . . . . . . :
794
Specifications . . . . . . :
391
Table Records . . . . . . . :
1
Comments . . . . . . . . . :
400
Compile stopped. Severity level 40 errors found in file.
* * * * *
E N D
O F
C O M P I L A T I O N
* * * * *

01/14/99

09:46:48

Page

26

Bottom
F3=Exit

F12=Cancel

F19=Left

F20=Right

F24=More keys

Los errores de compilacion se encuentran al final del spool, para poder visuaizar lo mas
rapido sin tener que que paginar, se teclea en el control B o *BOT (Bottom) que nos posiciona
el cursor al final del spool.
En esta parte podemos observar la cantidad de erores que resultaron de la compilacion.
Tambien nos indica el numero de severidad , la cual nos informa la gravedad del error
Para realizar la compilacion y se cree el objeto, son los errore menores que 30.
Si se repagina (Re. Pag) se encuentran los numeros de errores ocurridos como muetra la
pantalla siguiente:
Display Spooled File
File . . . . . :
P550025
Page/Line
25/1
Control . . . . .
B
Columns
1 - 78
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
P5525MG
- CAMBIO DE GREGORIANO A JULIANO
5769RG1 V4R2M0 980228
IBM RPG/400
MTY
M e s s a g e
S u m m a r y
* QRG1025 Severity: 40
Number:
8
Message . . . . :
Unable to open the /COPY member. Specification
is ignored.
* QRG2120 Severity: 40
Number:
2
Message . . . . :
External description not found for file
specified as externally described. File ignored.
* QRG5132 Severity: 30
Number:
3
Message . . . . :
Factor 2 entry is not the name of a file or a
record format.
* QRG5176 Severity: 30
Number:
1

Esta pantalla nos indica los numeros de errores generados y la severidad respectivamente,
por lo cual es necesario buscar en que linea ocurio el error, esto es posible tecleando el numero de
error en la linea del comando Find ......______ el numero de error, presionando la tecla F16 las
veces que se necesiten, ya que el mismo error puede encontrarse en varias lineas del codigo
Gravedad de codigo de mensajes
- 29

AS/400 BASICO por Wilbert Martnez

Gravedad

Descripcion

00
10
20
30
40
50

Informacion
Aviso
Error
Error grave
Error no deberia continuar
Terminacion anormal del trabajo
o programa
Estado del sistemas
Integridad de dispositivos
Alerta del sistema
Integridad del sistemas
Accion

60
70
80
90
99

Funciones en el spooled file.

En la linea de control tiene las siguientes funciones:

Comando
T
B
Wn
W-/+n
Pn

Descipcion
Posiciona al principio del spool
Posiciona al final del spool
Se Posiciona en la columas n
Se Posiciona en n colunas a partir de
donde se encuentras posicionado
Posiciona le apuntador en la pagina n

F19 = despliega la pantalla hacia la izquierda

F20 = despliega la pantalla hacia la derecha.

- 30

AS/400 BASICO por Wilbert Martnez

Comandos para manejo de archivos

DSPDBR
Nos muestra todos los logicos que estn relacionados con este archivo.
La forma de utilizarse es:
DSPDBR F4101

DSPDBR <F4>
Display Data Base Relations (DSPDBR)
Type choices, press Enter.
File . . . . . . . . . . . . . .
Library . . . . . . . . . . .
Output . . . . . . . . . . . . .

f4101
*LIBL
*

Name, generic*, *ALL

Name, *LIBL, *CURLIB...
*, *PRINT, *OUTFILE

Esta es una parte de lo que nos desplegaria este comando

*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+..
.
1/15/99
Display Data Base Relations
DSPDBR Command Input
File . . . . . . . . . . . . . . . . . . . : FILE
F4101
Library . . . . . . . . . . . . . . . . . :
*LIBL
Member . . . . . . . . . . . . . . . . . . : MBR
*NONE
Record format . . . . . . . . . . . . . . . : RCDFMT
*NONE
Output . . . . . . . . . . . . . . . . . . : OUTPUT
*
Specifications
Type of file . . . . . . . . . . . . . . . :
Physical
File . . . . . . . . . . . . . . . . . . . :
F4101
Library . . . . . . . . . . . . . . . . . :
ELAPRDDTAX
Member . . . . . . . . . . . . . . . . . :
*NONE
Record format . . . . . . . . . . . . . . :
*NONE
Number of dependent files . . . . . . . . :
18
Files Dependent On Specified File
Dependent File
Library
Dependency
JREF
Constraint
F4101JA
ELAPRDDTAX
Data
1
F4101LJ
ELAPRDDTAX
Data
F4101LK
ELAPRDDTAX
Data
F4101LI
ELAPRDDTAX
Data
F4101LA
ELAPRDDTAX
Data
F4101LB
ELAPRDDTAX
Data
F4101LC
ELAPRDDTAX
Data
F4101LD
ELAPRDDTAX
Data
F4101JD
ELAPRDDTAX
Data
1
F4101JE
ELAPRDDTAX
Data
1
F41021JC
ELAPRDDTAX
Data
2
F43090JA
ELAPRDDTAX
Data
2
F4101LB
JDFSRC73
Data

- 31

AS/400 BASICO por Wilbert Martnez

DSPFD
Este comando despliega la descripcin completa de un archivo, como la librera donde se
encuentra el fuente, el file, la fecha en que fue creada y por quien fue creado,el tipo de archivo,
nmero de campos que lo forman, total de registros, y todos los atributos del archivo, etc.
DSPFD F4101
DSPFD
<F4> o ENTER
Display File Description (DSPFD)
Type choices, press Enter.
File . . . . . . . .
Library . . . . .
Type of information
+ for
Output . . . . . . .
File attributes . .
+ for

. . . . . .
. . . . . .
. . . . . .
more values
. . . . . .
. . . . . .
more values

F4101
*LIBL
*ALL
___
*
*ALL

Name, generic*, *ALL

Name, *LIBL, *CURLIB...
*ALL, *BASATR, *ATR...
*, *PRINT, *OUTFILE
*ALL, *DSPF, *PRTF, *DKTF...

Nos muestra esta pantalla donde escribimos el nombre del fuente a buscar y la librera
donde se encuentra, si no sabemos el nombre de la librera con *libl lo toma de la librera donde
lo encuentre primero
Esto es parte de lo que nos muestra el DSPFD
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
1/15/99
Display File Description
DSPFD Command Input
File . . . . . . . . . . . . . . . . . . . : FILE
F4101
Library . . . . . . . . . . . . . . . . . :
*LIBL
Type of information . . . . . . . . . . . . : TYPE
*ALL
File attributes . . . . . . . . . . . . . . : FILEATR
*ALL
System . . . . . . . . . . . . . . . . . . : SYSTEM
*LCL
File Description Header
File . . . . . . . . . . . . . . . . . . . : FILE
F4101
Library . . . . . . . . . . . . . . . . . . :
ELAPRDDTAX
Type of file . . . . . . . . . . . . . . . :
Physical
File type . . . . . . . . . . . . . . . . . : FILETYPE
*DATA
Auxiliary storage pool ID . . . . . . . . . :
01
Data Base File Attributes
Externally described file . . . . . . . . . :
Yes
File level identifier . . . . . . . . . . . :
0980401202049
reation date . . . . . . . . . . . . . . . :
04/01/98
Text 'description' . . . . . . . . . . . . : TEXT
Item Master
Distributed file . . . . . . . . . . . . . :
No
DBCS capable . . . . . . . . . . . . . . . :
No
Maximum members . . . . . . . . . . . . . . : MAXMBRS
*NOMAX
Number of constraints . . . . . . . . . . . :
0
Number of triggers . . . . . . . . . . . . :
0
Number of members . . . . . . . . . . . . . :
1
Member size . . . . . . . . . . . . . . . . : SIZE
*NOMAX
Allocate storage . . . . . . . . . . . . . : ALLOCATE
*NO
Contiguous storage . . . . . . . . . . . . : CONTIG
*NO
Preferred storage unit . . . . . . . . . . : UNIT
*ANY
Records to force a write . . . . . . . . . : FRCRATIO
*NONE
Maximum file wait time . . . . . . . . . . : WAITFILE
*IMMED
Maximum record wait time . . . . . . . . . : WAITRCD
10
Max % deleted records allowed . . . . . . . : DLTPCT
*NONE

- 32

AS/400 BASICO por Wilbert Martnez

DSPFFD
Este comando nos sirve para ver todos los campos y las caractersticas de cada uno de los
campos que forman al archivo.
DSPFFD F4101

DSPFFD
con <F4> enter nos lleva a la siguiente pantalla donde damos el nombre del archivo y
la librera donde se encuentra

Display File Field Description (DSPFFD)

Type choices, press Enter.
File . . . . . . . . . . . . . .
Library . . . . . . . . . . .
Output . . . . . . . . . . . . .

f4101
*LIBL
*

Name, generic*, *ALL

Name, *LIBL, *CURLIB...
*, *PRINT, *OUTFILE

DSPOBJD
Despliega la descripcin de un objeto, nos muestra las caracteristicas completas de un objeto, en
que librera y file se encuentra, cuando fue creado y por quien, cual es el fuente de este objeto y
donde se encuentra, en que fecha fue creado y cuando fue la ultima fecha de cambio, etc.
DSPOBJD P4190

DSPOBJD
al oprimir <F4> o ENTER
Display Object Description (DSPOBJD)
Type choices, press Enter.
Object . . . . . . .
Library . . . . .
Object type . . . .
+ for
Detail . . . . . . .
Output . . . . . . .

. . . . . .
. . . . . .
. . . . . .
more values
. . . . . .
. . . . . .

P4190
*LIBL
*pgm
__
*BASIC
*

Name, generic*, *ALLUSR...

Name, *LIBL, *USRLIBL...
*ALL, *ALRTBL, *AUTL...
*BASIC, *FULL, *SERVICE
*, *PRINT, *OUTFILE

Despliega la misma pantalla solo que ahora para buscar el objeto, damos el nombre y la librera
donde se encuentra, si no sabemos el nombre de la librera con *libl lo toma de la librera donde
lo encuentre primero, hay que especificar el tipo de objeto a buscar

- 33

AS/400 BASICO por Wilbert Martnez

WRKOBJ
Trabajando con objetos, con este comando podemos manejar los objetos, nos muestra la
lista de objetos que se encuentran en la librera seleccionada y despus manejar este objeto como
copiar, borrar, cambiar de librera al objeto, entre otras cosas.
WRKOBJ P 4190

WRKOBJ
Al oprimir <F4> enter nos muestra la sig. Pantalla, donde especificaremos el objeto, o
bien si queremos ver todos los objetos en el nombre del objeto darle *all
Work with Objects (WRKOBJ)
Type choices, press Enter.
Object . . . . . . . . . . . . .
Library . . . . . . . . . . .
Object type . . . . . . . . . .

p4190
*LIBL
*ALL

Name, generic*, *ALL

Name, *LIBL, *CURLIB...
*ALL, *ALRTBL, *AUTL...

En esta pantalla es donde se manipulan lo objetos en el campo Opt dependiendo de la opcin

seleccionada se pueden copiar, renombrar, borrar,etc. Al objeto seleccionado
Work with Objects
Type options, press Enter.
2=Edit authority
3=Copy
4=Delete
5=Display authority
8=Display description
13=Change description
Opt

Object
P4190

Type
*PGM

Library
JDFOBJ73

Attribute
RPG

7=Rename

Text
Location Detail

Bottom
Parameters for options 5, 7 and 13 or command
===>
F3=Exit
F4=Prompt
F5=Refresh
F9=Retrieve
F11=Display names and types
F12=Cancel
F16=Repeat position to
F17=Position to

La opcin 8 nos despliega los atributos del objeto, una de las facilidades que nos permite esta
opcin es saber en donde se encuentra el fuente de este objeto, esta opcin la obtenemos si en ves
de presionar enter, presionamos F4 lo cual nos desplegara la siguiente pantalla.
Display Object Description (DSPOBJD)
Type choices, press Enter.
Object . . .
*ALLUSR...
Library .
*USRLIBL...
Object type
*AUTL...
Detail . . .
*SERVICE
Output . . .

. . . . . . . . . . > FIN00

Name, generic*,

. . . . . . . . . . >

Name, *LIBL,

MTY2

. . . . . . . . . . > *FILE

*ALL, *ALRTBL,

. . . . . . . . . . > *SERVICE

*BASIC, *FULL,

. . . . . . . . . .

*, *PRINT, *OUTFILE

En ella le escribimos *SERVICE en la opcin Detail.

- 34

AS/400 BASICO por Wilbert Martnez

QUE ES UN DSPF. (Display File).

En el ambiente 400 a una pantalla se le conoce como un archivo de despliegue. Una
pantalla es creada para que el operador interactue con el 400, observando informacin, dando de
alta datos e incluso cambiandolos dentro de un proceso, las pantallas pueden ser Mens,
mensajes del proceso, etc. en conclusin una pantalla sera un intermediario entre el usuario y el
proceso. Para crear una pantalla se puede utilizar la utilera SEU pero existe otra utilera que es
de gran ayuda la cual es la SDA (Screen Design Aid). Cada vez que se realiza una pantalla, esta
se compila.
Para entrar a la utilera SDA tecleamos el comando STRSDA <ENTER> , la siguiente
pantalla muestra la pantalla de la utilera SDA, donde podemos disear mens, pantallas y la
prueba de archivo de pantallas
STRSDA

<ENTER>.

AS/400 Screen Design Aid (SDA)

Select one of the following:
1. Design screens
2. Design menus
3. Test display files

Selection or command
===>1
F1=Help
F3=Exit
F4=Prompt

F9=Retrieve

F12=Cancel

La siguiente pantalla ser donde especificamos el nombre de nuestra pantalla y el archivo de

fuentes donde va a ser guardada, as como la biblioteca en donde se localizara.

Design Screens
Type choices, press Enter.
Source file . . . . . . . .
Library . . . . . . . . .
Member

F3=Exit

. . . . . . . . . .

F4=Prompt

QDDSSRC

Name, F4 for list

FIME

Name, *LIBL, *CURLIB

SCREEN

Name, F4 for list

F12=Cancel

Trabajando con el diseadpr de pantalla pantalla (SDA):

Crear un nuevo registro: Con la opcin 1(Add) nosotros podemos crear una nueva pantalla.
Copiar un registro : Con la opcin 3 (copy) nosotros podemos copiar el registro.
- 35

AS/400 BASICO por Wilbert Martnez

Eliminar un registro: Con la opcin 4 (delete) se elimina un registro

Renombrar un registro: Con la opcin 7 (Rename) se renombra el registro.
Seleccionar teclas : Con la opcin 8 (Select keyword) se selecciona la teclas de funcin que se
usaran para el registro de pantalla.
Disear la pantalla : Con la opcin 12 (Desing image) con esta opcin se disea o se modifica el
registro de pantalla.
Work with Display Records
File . . . . . . :
Library . . . . :

QDDSSRC
FIME

Member . . . . . . :
Source type . . . :

Type options, press Enter.

1=Add
2=Edit comments
7=Rename
8=Select keywords
Opt
11

Order

Record
v554123

Type

3=Copy
12=Design image
Related Subfile

VISION
DSPF

4=Delete

Date

DDS Error

(No records in file)

Bottom
F3=Exit
F15=File-level comments

F12=Cancel
F17=Subset

F14=File-level keywords
F24=More keys

Despus de dar ENTER, aade un nuevo registro a nuestra pantalla.

Work with Display Records
File . . . . . . :
Library . . . . :

QDDSSRC
FIME

Member . . . . . . :
Source type . . . :

Type options, press Enter.

1=Add
2=Edit comments
7=Rename
8=Select keywords
Opt
11

Order

Record
v554123

Type

3=Copy
12=Design image
Related Subfile

VISION
DSPF

4=Delete

Date

DDS Error

(No records in file)

Bottom
F3=Exit
F15=File-level comments

F12=Cancel
F17=Subset

F14=File-level keywords
F24=More keys

En lo anterior se ve informacin sobre nuestra pantalla y su registro, debemos especificar de que

tipo, si es una pantalla normal se utiliza el tipo RECORD, y los tipos de pantallas es ms
comunes son pantallas de Sub-Files, de tipo ventana que son mas pequeas y estilos de mens.
Add New Record
File . . . . . . :
Library . . . . :

QDDSSRC
FIME

Member . . . . . . :
Source type . . . :

SCREEN
DSPF

Type choices, press Enter.

New record
Type

. . . . . . . . . . . . . . .

SCREEN

Name

. . . . . . . . . . . . . . . . . .

RECORD

RECORD, USRDFN
SFL, SFLMSG
WINDOW, WDWSFL
PULDWN, PDNSFL
MNUBAR

- 36

AS/400 BASICO por Wilbert Martnez

II.3.2.-Aadir informacin a una pantalla

Existen diferentes formas de aadir informacin a la pantalla, la mas sencilla es el de
colocar a los campos o letreros, entre apostrofe, ejemplo: MATRICULA :
Para los campos que tienen interrelacin con la informacin existente en el AS/400, se
utilizan diferentes representaciones, dependiendo del tipo, ya sean numrico o carcter; la tabla
siguiente demostrara las diferentes representaciones.
Tipo
Carcter
Numrico

Entrada
Se representa

Salida
Ambos
Se representa
Se representa
con I
con O
con B
Se representa
Se representa
Se representa
con 3
con 6
con 9

En el SDA es posible definir campos por el usuario o campos que se encuentran en un

archivo, Para definir un campo por el usuario solo necesita poner el carcter + y especificar
el tipo qu se desea utilizar :
Ejemplo :
+IIIIII
En este ejemplo se define un campo de input de 6 caracteres.
+OOOO
En este ejemplo se define un campos de output de 4 caracteres.
+BBBBBB En este ejemplo se define un campo de input/outoput de 6 caracteres.
Otra forma mas sencilla para definir los campos en la pantalla es escribiendo el carcter
+ Seguido de el tipo a usar y entre parntesis ( ) la longitud utilizada.
Ejemplo:
+I(6)
En este ejemplo se define un campo de input de 6 caracteres.
+O(4)
En este ejemplo se define un campo de output de 4 caracteres.
+B(6)
En este ejemplo se define un campo de input/outoput de 6 caracteres.
Para definir un campo numrico se siguen los mismos pasos que para un carcter, solo
que se utiliza los siguiente:
Ejemplo:
+3333
O +3(4) En este ejemplo se define un campo de input numrico de 4
posiciones.
+6666 O +6(4) En este ejemplo se define un campo de output numrico de 4
posiciones.
+999999 O +9(6) En este ejemplo se define un campo de input/outoput numrico
de 6 posiciones.
Para definir un campo numerico con decimales solo es necesario indicar un punto ( . )
apartir de cuantos decimales se utilicen, ejemplo
+66.66 or +6(4,2) En este ejemplo es un campo numrico de 2 posiciones con dos
decimales.
- 37

AS/400 BASICO por Wilbert Martnez

Tambin se puede definir campos existentes en los archivos (campos referenciados),

presionando la tecla F10 la cual nos presentara la siguiente pantalla:

Select Database Files

Type options and names, press Enter.
1=Display database field list
2=Select all fields for input (I)
3=Select all fields for output (O)
4=Select all fields for both (B) input and output
Option
1

Database File
F5541
f

F3=Exit

F4=Prompt

Library
MTY
x

Record
I5541 1
x
x

F12=Cancel

En la cual especificamos el archivo a utilizar as como la librera donde se encuentra como

tambin el registro a utilizar.
Podemos escoger las siguientes opciones :
1 = Despliega los campos de el archivo.
2 = selecciona todos los campos del archivo de input.
3= selecciona todos los campos del archivo de output.
4= selecciona los campos del archivo de input/output.
Con la opcin 1 nos despliega la siguiente pantalla:
Select Database Fields
Record . . . :

I4105X

Type information, press Enter.

Number of fields to roll . . . . . . . . . . . . . . . . . .
Name of field to search for . . . . . . . . . . . . . . . . .

8
s

Type options, press Enter.

1=Display extended field description
2=Select for input (I), 3=Select for output (O), 4=Select for both (B)
Option

Field
$$ITM
$$DSC1
$$EFTJ
$$TRQT
$$UM

Length
8,0
30
6,0
15,0
2

Type
S
A
S
P
A

Column Heading
Short
Description
Effective
Trans
UM

Item No
Date
QTY

Bottom
F3=Exit

F12=Cancel

En la cual podemos escoger los campos que necesiten para la pantalla y especificarle de
que tipo la usaremos.
- 38

AS/400 BASICO por Wilbert Martnez

Estos campos aparecern enumerados en la parte inferior de la pantalla y los podemos

utilizar escribiendo en la pantalla el carcter & seguido del nmero del campo que deseamos.
Consulta de alumnos

Nombre
Apellidos
Direccion
Telefono
Ciudad

BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBB
&2

1:$$ITM 2:$$DSC1 3:$$EFTJ 4:$$TRQT 5:$$UM

En el ejemplo anterior se selecciono el campo 2 en del archivo, esto nos pondr el campo
en pantalla con las mismas caractersticas del campo del archivo.
Trabajando con campos:
Mover un campo -,=.
Para mover un campo en la pantalla teclee un - a la izquierda del campo y en
la posicin en donde se desee mover es teclee un = y despus presione enter.
Copiando un campo -,= = .
Para copiar un campo solo es necesario teclear un - a la izquierda inicio del
campo y despus en la posicin en donde se desea a copia, teclee = = y despus
presione enter.
Eliminando campos
Para eliminar un campo solo es necesario teclear una D o d a la izquierda del
campo que se desee eliminar y presione enter.
Moviendo un bloque de campos -,-, = .
Para mover un bloque primero se necesita marcar el bloque para esto lo se teclea
un - en el inicio y al final del bloque , despus teclear un = en donde se desee
poner el bloque y presione entre.
Copiando un bloque -,-,= =
Para copiar un bloque se teclea un - al inicio y al final del bloque que se
desee copiar y en la posicin en donde se desee copiar , teclee uno = =y presione enter.
Eliminar un bloque --,-Para eliminar un bloque se teclea - - al inicio y al final del bloque despus
presionar enter y presionar la tecla F12 para confirma su eliminacin.
Mover un espacio.
- 39

AS/400 BASICO por Wilbert Martnez

Para mover los campos uno o ms espacios solo es necesario teclear un > si se
desea mover a la derecha y < un para la izquierda, se puede mover los espacios que se
desee, dependiendo de la cantidad de el smbolo < , > que se teclee.
Modificando un campo.

Solo se necesita anteponer el carcter ? en el campo que se quiera modificar,

desplegara en la parte inferior de la pantalla, el campo el cual se quiere modificar.

Pantalla de practica

DD/DD/DD
TT:TT:TT

Nombre
?BBBBBBBBBB
direccion BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
telefono
BBBBBBBBB
33333333IIIIIIIIIIIIIIIIIIIIIIIIIIIIII
333333-

VNOMBRE

Length: 00010 TEXT:

En el podemos modificar el nombre del campo as como el tamao del campo

Nota: solo en los campos definidos por el usuario podemos cambiar el tamao,
pero los campos referenciado de los archivos no.
Informacin de los campos
Para obtener informacin de los campos definidos en la pantalla solo se antepone el
carcter * en el campo que se requiera.
Pantalla de practica

DD/DD/DD
TT:TT:TT

Nombre
*BBBBBBBBBB
direccion BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
telefono
BBBBBBBBB
33333333IIIIIIIIIIIIIIIIIIIIIIIIIIIIII
333333-

- 40

AS/400 BASICO por Wilbert Martnez

Esta opcin nos desplegara la siguiente pantalla donde se encuentran todos los atributos del
campo, en el se pueden modificar los atributos segn sea la necesidades del usuario, los mas
usuales son los siguientes:
Select Field Keywords
Field . . . . . :
Length . . . . :

VNOMBRES
15

Usage . . :
Row . . . :

B
6

Column . . . :

33

Type choices, press Enter.

Y=Yes
Display attributes
Colors . . . . . .
Keying options . .
Validity check . .
Input keywords . .
General keywords .

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

.
.
.
.
.
.

Database reference . . . . . . .
Error messages . . . . . . . . .
Message ID (MSGID) . . . . . . .

TEXT keyword

F3=Exit

For Field Type

All except Hidden
All except Hidden
Hidden, Input or Both
Input or Both, not float
Input or Both
All types
Hidden, Input, Output, Both
Input, Output, Both
Output or Both

. . . . . . . . . .

__________________

F4=Display Selected Keywords

F12=Cancel

Display attributes : Nos despliega todos los atributos del campo ejemplo: Underline, high
intensity, no visualizarlo, protegerlo etc. En el cual se selecciona con Y y ligarlo un indicador
para poder utilizarlo en el programa.
Select Display Attributes
Field . . . . . :
Length . . . . :

VNOMBRE
12

Usage . . :
Row . . . :

B
6

Column . . . :

28

Type choices, press Enter.

Keyword
Field conditioning . . . . .
Program-to-system field . .
Display attributes:
High intensity . . . . . .
Reverse image . . . . . .
Column separators . . . .
Blink . . . . . . . . . .
Nondisplay . . . . . . . .
Underline . . . . . . . .
Position cursor . . . . .
Set modified data tag . .
Protect field . . . . . .
Operator ID magnetic card
Select by light pen . . .
F3=Exit

. . . . . .
. . . . . .
.
.
.
.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.
.
.
.

Y=Yes

_________
DSPATR
HI
RI
CS
BL
ND
UL
PC
MDT
PR
OID
SP

Y
_
_
_
_
_
_
_
_
_
_

Indicators/+
__ __ __
__ __ __
80
__
__
__
__
__
__
__
__
__
__

__
__
__
__
__
__
__
__
__
__
__

__
__
__
__
__
__
__
__
__
__
__

F12=Cancel

Keying Options : En esta opcin podemos especificar los funciones en los campos por ejemplo
rellenar con blancos o rellenar con ceros.
Select Keying Options
Field . . . . . :
Length . . . . :

VNOMBRE
12

Usage . . :
Row . . . :

B
6

Column . . . :

Type choices, press Enter.

Keying options:
Mandatory entry . . . . .
Automatic record advance
Mandatory fill . . . . .
Field exit key required .
Right adjust blank fill .
Right adjust zero fill .
Move cursor right to left
Lowercase entry allowed .
Keyboard shift attribute

F3=Exit

F12=Cancel

.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.

.
.
.
.
.
.
.
.

- 41

. . . . . . .

Keyword
CHECK
ME
ER
MF
FE
RB
RZ
RL
LC

Y=Yes

Indicators/+

_
_
_
_
_
_
_
_

___ ___ ___

___ ___ ___

N A X W I D M
J O E G

AS/400 BASICO por Wilbert Martnez

Validity Check Keywords

Valide los datos de entrada de los campos, por medio de rangos, compararlos con un
Valor o definir una lista de valores.
Define Validity Check Keywords
Field . . . . . :
Length . . . . :

VNOMBRE
12

Usage . . :
Row . . . :

B
6

Column . . . :

28

Type parameters for ONE of the following keywords, press Enter.

Keyword
RANGE
Low . .
High . .
COMP
Operator
Value .
VALUES List . .

.
.
.
.
.

.
.
.
.
.

Parameters
1
9

Type choices, press Enter.

Validity check:
Name extended field .
Name field . . . . . .
Allow blanks . . . . .
Modulus 10 self check
Modulus 11 self check
F3=Exit

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

More

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

.
.
.
.
.

Keyword
CHECK
VNE
VN
AB
M10 / M10F
M11 / M11F

Y=Yes

Immed

_
_
_
_
_
More...

_
_

F12=Cancel

Error Message
Para definir un mensaje para un campo se utiliza la opcin de Error Message, el cual nos
despliega la siguiente pantalla, en la cual se asigna un indicador para poder controlarlo en el
programa y se escribe el mensaje que se requiera, El numero de indicador nos sirve para que
cuando en el programa ocurra un error asignado a este se activa y se refleja en al pantalla
inferior o sea en la lnea 24.
Nota: hay que tener cuidado de no repetir los indicadores.

Define Error Messages

Field . . . . . :
Length . . . . :

VNOMBRE
12

Usage . . :
Row . . . :

B
6

Column . . . :

28

Type parameters, press Enter.

Indicators/+
80
__
__
__
__

__
__
__
__
__

__
__
__
__

ERRMSG - Message Text

More

_Este articulo no existe________________________

________________________________________________
________________________________________________
________________________________________________
________________________________________________

_
_
_
_
_

Ind
_
_
_
_
_
Bottom

Indicators/+ ERRMSGID
File
__ __ __
________ _________
__ __ __
________ _________
__ __ __
________ _________
__ __ __
________ _________
__ __ __
________ _________

Library
________
________
________
________
________

Ind
__
__
__
__
__

Name
_________
_________
_________
_________
_________
Bottom

F3=Exit

F12=Cancel

- 42

AS/400 BASICO por Wilbert Martnez

Par definir las teclas de funcin que se usaran en la pantalla se deben especificar a nivel
registro esto es que se debe estar en la pantalla display record y con la opcin 8 (select keyword).
Work with Display Records
File . . . . . . :
Library . . . . :

QDDSSRC
QGPL

Member . . . . . . :
Source type . . . :

Type options, press Enter.

1=Add
2=Edit comments
7=Rename
8=Select keywords
Opt
__
_8

Order
__10

Record
________
VFIN001

Type

3=Copy
12=Design image
Related Subfile

RECORD

VFIN00
DSPF

4=Delete

Date

DDS Error

01/12/99

Bottom
F3=Exit
F15=File-level comments

F12=Cancel
F17=Subset

F14=File-level keywords
F24=More keys

La cual desplegara la siguiente pantalla:

Select Record Keywords
Record . . . :

VFIN001

Type choices, press Enter.

General keywords .
Indicator keywords
Application help .
Help keywords . . .
Output keywords . .
Input keywords . .
Overlay keywords .

.
.
.
.
.
.
.

.
.
.
.
.
.
.

.
.
.
.
.
.
.

.
.
.
.
.
.
.

.
.
.
.
.
.
.

.
.
.
.
.
.
.

.
.
.
.
.
.
.

Y=Yes
_
Y
_
_
_
_
_

Print keywords . . . . . . . . .
ALTNAME keyword . . . . . . . . .

_
______

TEXT keyword

_______________________

F3=Exit

. . . . . . . . . .

F4=Display Selected Keywords

F12=Cancel

Con la opcin Indicador keyword se definen los teclas de funciones a utilizar.

En esta pantalla se definen las teclas de funcin, se pueden definir toda las teclas que se
deseen, estas pueden ser de F1F24, Re Pag., Av. Pag. etc. Las teclas de funcin declaradas en
las pantalla funcionan de la siguiente manera, cuando el usuario presione la tecla
correspondiente al iniciador este se prendera por lo tanto en el programa sabremos cuando esto
ocurra.
Define Indicator Keywords
Record . . . :

VFIN001

Type keywords and parameters, press Enter.

Conditioned keywords:
CFnn CAnn CLEAR PAGEDOWN/ROLLUP PAGEUP/ROLLDOWN
HOME HELP HLPRTN
Unconditioned keywords:
INDTXT VLDCMDKEY SETOF CHANGE
Keyword
CF01
______
______
______
______
______
______
______
______

Indicators/+
__ __ __
__ __ __
__ __ __
__ __ __
__ __ __
__ __ __
__ __ __
__ __ __
__ __ __

F3=Exit

F12=Cancel

Resp
01_
___
___
___
___
___
___
___
___

Text
________________________________________________
________________________________________________
________________________________________________
________________________________________________
________________________________________________
________________________________________________
________________________________________________
________________________________________________
________________________________________________
Bottom

- 43

AS/400 BASICO por Wilbert Martnez

Para indicar el uso de una tecla de funcin se teclea CFnn y el nmero de la funcin que
se utilice, ejemplo para definir la tecla F3 que seria la de salida o F12 para cancelar la operacin
tendra que definir en keyword CF03 o CF12 receptivamente, la cual se le asigna un indicador,
por lo general se opta por el numero de la funcin.
Funciones ms usuales.
F3 o F12 .- Salir , Al presionar cualquier tecla se sabandona el diseo.
F14 .- Regla. ,Al presionar esta tecla nos despliega una regla, en la posicin actual
del cursor, al presionar nuevamente la tecla la regla desaparece.
F15 .- Imprimir, Al presionar esta tecla se imprime lo que tengamos en la pantalla.
F18 .- Al presionar esta tecla enva el cursor a la posicin del campo siguiente.
F19 .- Al presionar esta tecla enva el cursor a la posicin del campo Anterior.
F22 .- Al presionar esta tecla despliega la lnea de comando, donde podemos ejecutar
cualquier comando de OS/400.

Ambiente Data Description Speciifications (Dds).

El ambiente DDS es el metodo nativo preferentemente para describir datos en el equipo as/400 y
consiste en lo siguiente:
1.archivos fisicos.
2.archivos logicos.
3.archivos de pantalla.
4.archivos para impresin (reportes).
todos los archivos descritos por DDS pueden ser usados por todos los componentes de software
del as/400.

Codificacion De Archivos Fisicos.

OBJETIVOS.
Codificar especificaciones de descripcion de datos DDS y crear archivos fiscos en el equipo
as/400.
Explicar la funcion de los campos de archivos referenciados y codificar la DDS para crear un
archivo para la base de datos del equipo as/400.
El rpg maneja formatos fijos al generar programas. Estos formatos requieren un orden
determinado y es el siguiente:
(estos son los mas comunes)
(H)
(F)
(E)
(I)

CONTROL
DESCRIPCION ARCHIVOS
ADICIONALES
ENTRADA
- 44

AS/400 BASICO por Wilbert Martnez

C)
(O)

CONTROL
SALIDA

(este es poco comun en jde)

ESPECIFICACIONES DE CONTROL:

HOJA H

Para Definir Datos Generales Y Comentarios Del Programa

Columns . . . : 1 71
Browse
MTY2/JDESRC
SEU==>
P550001
FMT H .....H........1..CDYI....S..............1.F............................
*************** Beginning of data *************************************
0001.00
H/TITLE P550001 - Actualizacion de fechas de conteo por mo
0002.00
H* --------------------------------------------------------------0003.00
H*
0004.00
H*
This unpublished material is proprietary to
0005.00
H*
J. D. Edwards & Company. All rights reserved.

ESPECIFICACIONES DE ARCHIVOS:

HOJA F

LAS ESPECIFICACIONES DE DESCRIPCION DE ARCHIVOS

F) DEFINEN

TODOS LOS ARCHIVOS REQUERIDOS EN EL PROGRAMA.

A CONTINUACION VEMOS EJEMPLOS EN ESTE TIPO DE FORMATO:

SEU==>
FMT FX .
0034.00
0035.00
0036.00
0037.00
0038.00
0039.00

P550004
..Ffilename+ IPEAF........L..I........Device+......KExit++++Entry++A....U
FF0001
IF E
K
DISK
UC
FF41021LAIF E
K
DISK
UC
F
I41021
KRENAMEI41021A
FF550004 O E
K
DISK
UC
FDSP01
CF E
Workstn
FR550004 O E
Printer

Pmt SeqNbr Filename Typ Desig EOF Seq

FX 0034.00 F0001__
I
F
_
_
_
Exit
Entry
A/U Cond
_____ ______
_
UC
- 45

Fmt
E

Mode
_

RAT
K

Device
DISK___

AS/400 BASICO por Wilbert Martnez

Type.DesigFmtRATDevice-

I- Input, O- Output, U- Update, C- Combined

P- Primario, F- Full.
F- Descripcin por Programa, E- Descripcin Externa
K- Indexado (solo para Desc. Ext.), = Secuencial.
Disk, Workstn, Printer.

Columns . . . : 1 71
Browse
MTY2/JDESRC
SEU==>
P550004
FMT FC ... ..F............Ext-record..................RcdnbrKOption.Entry+++....
0036.00
F
I41021
KRENAMEI41021A
0037.00
FF550004 O E
K
DISK
UC
0038.00
F****************************************************************

Pmt
FC

SeqNbr
0036.00

ExtRcd
I41021

RcdNbrFld
_______

Cont
K

Option
RENAME

ESPECIFICACIONES ADICIONALES:

Entry
I41021A

HOJA E

ESTE FORMATO SE UTILIZA PARA DEFINIR TABLAS Y/O ARREGLOS.

Columns . . . : 1 71
Browse
MTY2/JDESRC
SEU==>
P550001
FMT E .....E....FromfileTofile++Name++N/rN/tbLenPDSArrnamLenPDSComments++++++
0043.00
E* PROGRAM TABLES AND ARRAYS
0044.00
E* ------------------------0046.00
E
EMK
64 4
Error Msg
0048.00
E* Totaling Array for Units - Returned
0049.00
E
TTDOCO
10 8 0
0050.00
E
NOM
1 1 30
Tabla Cas.
1307.00
C***********************************************************
1308.00 **
1309.00 BLACK & DECKER

Pmt SeqNbr
A/D
E
0049.00
___
AltName

FromFile

ToFile

Tbl

/Rcd

/Tbl

Len

P/B/L/R

Dec

_______

______

TTDOCO

____

_10

__8

___

__0

Len

P/B/L/R

Dec

A/D
- 46

Comment

AS/400 BASICO por Wilbert Martnez

_______

___

________

ESPECIFICACIONES DE ENTRADA:

HOJA I

Las especificaciones de entrada (i) describen los registros y campos a ser usados en el programa.
No se necesitan las especificaciones de entrada (i) para los archivos descritos externamente.

Columns . . . : 1 71
Browse
MTY2/JDESRC
SEU==>
P550004
FMT DS .....IDsname...NODsExt-file++.............OccrLen+....................
0057.00
IDSTXT
DS
240
0058.00
I
1 40 VTX001
0059.00
I
41 80 VTX002
0060.00
I
81 120 VTX003

Pmt
DS

SeqNbr
0057.00

DtaStrName
DSTXT

Nbr
_

Opt
_

DS
DS

ExtFName
_________

Occurs
____

Len
240

Columns . . . : 1 71
Browse
MTY2/JDESRC
SEU==>
P550004
FMT J
....I...................................PFromTo++ DField+...L1M1FrPlMnZr.
0058.00
I
1 40 VTX001
0059.00
I
41 80 VTX002

FORMATO PARA DEFINIR CONSTANTES

FMT N .....I..............Namedconstant+++++++++C.........Fldnme.............
0020.00
I
'abcdefghijklmnopqrstuvw -C
MINS
0021.00
I
'xyz'

Pmt
N

SeqNbr Constant
DataType
0019.00 '0123456789'
C
ESPECIFICACIONES DE CALCULO:

FldName
NUM
HOJA C

Las Especificaciones De Calculo (C) Describen Las Operaciones A Realizar Por El Programa E
Indican El Orden En Que Deben Realizarse.

- 47

AS/400 BASICO por Wilbert Martnez

FMT C .....CL0N01N02N03Factor1+++Opcde.Factor2+++ResultLenDHHiLoEqComments++++
0125.00
C* Read master file input.
0127.00
C
READ I4102A
99LR
0130.00
C
CANTID MULT COSUNI $PRECI

Pmt SeqNbr Lvl

C 0127.00
Len
Dec

N01N02N03
H/N/P

Hi

Factor 1
Lo Eq
99 LR

OpCode
READ
Comment
lectura

Factor 2
I4102A

Result

USO DE INDICADORES
FMT C .....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++
0153.00
C
READ CLIENTES
99
0154.00
C
*IN99
IFEQ 0
0155.00
C
MOVELMCU
$MCU
0156.00
C
.
0157.00
C
MOVE 1
*IN33
ESTADOS DE UN INDICADOR:
A) ACTIVADO
=> ON = 1
B) DESACTIVADO => OFF = 0

CICLO LOGICO DEL RPG

SALIDA DE
DETALLE

LEER UN
REGISTRO

CALCULOS
DE
DETALLE

MOVER
DATOS
A CAMPOS

- 48

AS/400 BASICO por Wilbert Martnez

PROGRAMACION BATCH
VS.
PROGRAMACION
INTERACTIVA

PROGRAMACION BATCH

ARCHIVO
HISTORICO
DE VENTAS

INFORME DE
VTAS
ENERO
2,345.70
FEBRERO

PROGRAMA DE
ANALISIS DE
VENTAS

- 49

AS/400 BASICO por Wilbert Martnez

PROGRAMACION
INTERACTIVA
PROGRAMA DE
CONSULTA DE
CLIENTES

ARCHIVO DE
CLIENTES

PREPARACION PREVIA A LA CODIFICACION DEL PROGRAMA

DESCRIPCION DEL PROGRAMA

(Narrativa del Programa)

IDENTIFICACION DE ARCHIVOS DE DATOS

IDENTIFICACION DE PANTALLAS

IDENTIFICACION DE ARCHIVOS DE IMPRESIN

DIAGRAMA DE FLUJO Y PSEUDOCODIGO

- 50

AS/400 BASICO por Wilbert Martnez

EJEMPLO:

DESCRIPCION DEL PROGRAMA

SE NECESITA UN PROGRAMA EN RPG PARA CONSULTAR LA DIRECCION Y TELEFONO DE LOS CLIENTES.

IDENTIFICACION DE ARCHIVOS

DIAGRAMA DE ENTIDAD-

CURSOS

PROGRAMACION
CURSOS

CURSOS

INSCRIPCIONES

IDENTIFICACION DE ARCHIVOS
DDS DEL ARCHIVO DE CLIENTES
** ARCHIVO FISICO: CLIENTES
R REGCLI
NUMCLI
6 0
NOMBRE
30
DIRECC
15
TELEF
7 0
TIPOCL
3
LIMICR
8 0
STATUS
1
K NUMCLI

BIBLIOTECA: RPGLIB

- 51

AS/400 BASICO por Wilbert Martnez

IDENTIFICACION DE PANTALLAS

.
.

PANTALLAS EXISTENTES
Opcin 3 de SDA
DDS
PANTALLAS NUEVAS
Opcin 1 de SDA
DDS

OPERACIONES ARITMETICAS

ADD
SUB
MULT
SQRT
DIV
Z-ADD

(SUMAR)
(RESTAR)
(MULTIPLICAR)
(RAIZ CUARADA)
(DIVIDIR)
(INICIALIZA Y MUEVE NUMERO)

1.-

Solo para campos numericos

2.-

La operacin no cambia el contenido de los campos del factor 1 y 2

a menos de que se especifiquen tambien en el campo de resultado.

3.-

Cualquier dato colocado en el campo de resultado reemplaza al dato

que existia en ese campo.

4.-

El rpg/400 no genera errores si hay desbordamientos aritmeticos.

5.-

En las operaciones: add, sub, mult y div, el factor 1 puede omitirse.

6.-

Si el factor 1 no se especifica, la operacin se realiza como si en el factor

1 Y en el campo de resultado existiera el mismo campo.

7.-

Todos los campos deben de estar definidos en el programa, la definicion

puede provenir de:
- Un archivo descrito externamente.
- Un archivo descrito por programa (especificaciones i)
- Especificaciones de clculo.
- 52

AS/400 BASICO por Wilbert Martnez

Operaciones con archivos

SETLL (Set Lower Limit)
El comando setll es usado para posicionar el apuntador en un registro buscado, el apuntador se
posicionara arriba del registro que sea igual o mayor a la llave dada como parmetro de
busqueda.
Sintaxis
Factor 1
KEY

OpCode
SETLL

Factor2
FILE REG.

Hi
In

Lo

Eq
In

Existen dos formas de usar el SETLL

- Se puede usar para posicionar y verificar que el apuntador se posicione antes del primer
registro que sea igual a la llave
Ejemplo
Factor 1
IMKY01

OpCode
SETLL

Factor2
I4101

Hi

Lo

Eq
71

El indicador 71 se activara si al hacer el SETLL se encuentra un registro que sea igual al

argumento de busqueda (IMKY01)
-

Posiciona el apuntador antes del registro que sea mayor o igual al argumento de bsqueda y
con el indicador en el Hi verifica que se cumpla esta condicin
Ejemplo

Factor 1
IMKY01

OpCode
SETLL

Factor2
I4101

Hi
72

Lo

Eq

En este caso es al revs el indicador se activara si ningn registro es mayor o igual a la llave
- Se pueden usar ambos indicadores al mismo tiempo si asi se necesita
Ejemplo
Factor 1
IMKY01

OpCode
SETLL

Factor2
I4101

Hi
72

Lo

Eq
71

Por ejemplo si tuvieramos los siguientes valores para la llave IMKY01

23
1)
si IMKY01=60
30
2)
si IMKY01=35
60
3)
si IMKY01=90
70
80
85
Para el caso 1

Para el caso 2

- 53

AS/400 BASICO por Wilbert Martnez

1) indicador 71 se activa
2) indicador 71 no se activa
3) indicador 71 no se activa

1) indicador 72 no se activa
2) indicador 72 no se activa
3) indicador 72 se activa

SETGT
Posiciona el apuntador antes de el primer registro que sea mayor a la llave dada
Sintaxis
Factor 1
KEY

OpCode
SETGT

Factor2
FILE REG.

Hi
In

Lo

Eq
In

KEY.- es la llave que se va a usar para posicionar el apuntador en el registro buscado

FILE REG.- nombre del archivo o registro al que se le va hacer el SETGT
Factor 1
IMKY01

OpCode
SETGT

Factor2
I4101

Hi

Lo

Eq

Hi

Lo

Eq

READ
Hace una lectura secuencial al archivo
Sintaxis
Factor 1

OpCode
READ

Factor2
File Reg.

File Reg.- nombre del File o registro que se va a leer

Ejem.
Factor 1

OpCode
READ

Factor2
I41021

Hi

Lo

Eq

READE
Es parecido al read, con la diferencia de que lee solo los registros que sean iguales a la llave. El
indicador se prendera cuando el registro leido no sea igual a la llave dada cuando se llegue al
fin del archivo
Sintaxis
Factor 1
Key

OpCode
READE

Factor2
File Reg.

Hi

Lo

Eq
81

KEY.- es la llave que se va a usar para posicionar el apuntador en el registro buscado

FILE REG.- nombre del archivo o registro al que se le va hacer el READE
Ejem.
- 54

AS/400 BASICO por Wilbert Martnez

Factor 1
IMITM

OpCode
READE

Factor2
I4101

Hi

Lo

Eq
81

Suponiendo que el valor de IMITM=1542 y que el archivo I41021 estuviera llaveado por IMITM
solo van a leer los registros del F4101 cuyo IMITM sea igual a 1542, y el indicador 81 se
prendera cuando ya no sean iguales los registros a la llave buscada.
El READE casi siempre se maneja en conjunto con el SETLL, para primero posicionar el
apuntador y luego ir leyendo los registros que sean iguales a la llave especificada.

READP
Lee el registro anterior, al que esta posicionado actualmente, hace una lectura regresiva
Sintaxis
Factor 1

OpCode
READP

Factor2
File Reg.

Hi

Lo

Eq
81

OpCode
READP

Factor2
I4101A

Hi

Lo

Eq
81

Ejem.
Factor 1

Por ejemplo si el registro en el que se encuentra actualmente

45
50
al hacerle el READP
52
en el que se encuentra actualmente
60

CHAIN
Posiciona y lee el registro que cumpla con la llave dada, este comando es utilizado para hacer una
busqueda directa.
El indicador se activara cuando no se encuentre ningn registro que cumpla con la llave, si
indicador esta apagado quiere decir que se encontr el registro, lo lee y se posiciona en el primer
registro que cumpla con la llave.
Sintaxis
Factor 1
Key

OpCode
CHAIN

Factor2
File Reg.

Hi

Lo

Eq
81

KEY.- es la llave que se va a usar para posicionar el apuntador en el registro buscado

FILE REG.- nombre del archivo o registro al que se le va a hacer el CHAIN
Ejem.
Factor 1
LIKY01

OpCode
CHAIN

Factor2
I41021

Hi

Lo

Eq
81

Operacines aritmticas:
- 55

AS/400 BASICO por Wilbert Martnez

ADD
Operacin de suma
Sintaxis
Factor 1
Valor1

OpCode
ADD

Factor2
Valor2

Resultado

Factor2
Valor

Resultado

Resultado= Valor1 + Valor2

Factor 1

OpCode
ADD

Resultado= Resultado + Valor

Ejem.
Factor 1
Precio

OpCode
ADD

Factor2
Iva

CantT

15

NOTA: hay que definir los campos de trabajo en este caso CantT se definio como un campo
nmerico de 15 enteros con 2 decimales, solo es necesario definirlos una vez, el campo de Precio
e Iva deben haber estado definidos si no provenian de ningn archivo.

SUB
Operacin de resta
Sintaxis
Factor 1
Valor1

OpCode
SUB

Factor2
Valor2

Resultado

Factor2
Valor1

Resultado

Resultado= Valor1 Valor2

Factor 1

OpCode
SUB

Resultado= Resultado Valor1

Valor1.- Cantidad a restar
Valor2.- Cantidad a la que se le va a restar
Resultado.- variable donde quedara el resultado
Ejem.
Factor 1
CantInv

OpCode
SUB

Factor2
CantVend

CantRest

- 56

15

AS/400 BASICO por Wilbert Martnez

MULT
Operacin de multiplicacin
Sintaxis
Factor1
Valor1

OpCode
MULT

Factor2
Valor2

Resultado
Resultado

Len
15

Dec
0

Resultado

Len
15

Dec
0

Resultado= Valor1 * Valor2

Factor1

OpCode
MULT

Factor2
Valor1

Resultado= Resultado * Valor1

Nota: el campo de Resultado debe estar definido, es decir hay que especificar que sea nmerico,
su longuitud y nmero de decimales

DIV
Operacin de divisin
Sintaxis
Factor1
Valor1

OpCode
DIV

Factor2
Valor2

Resultado
resultado

Len
15

Dec
0

Resultado

Len
15

Dec
0

Result
Cant_Div

Len
15

Dec
2

Resultado= Valor1/ Valor2

Factor1

OpCode
DIV

Factor2
Valor1

Resultado= Resultado/Valor1
Factor1
Cant1

OpCode
DIV

Factor2
5

Cant_Div = Cant1/5= 450.2/5= 90.04

SQRT
Raz cuadrada
Resultad Len Dec
Factor1 OpCode Factor2
SQRT
Valor
resultado 15 0
Valor.- cantidad a la que se le va a sacar la raz cuadrada
Ejem.
Factor1

OpCode
SQRT

Factor2
100

Resultad
RazC

Len
15

- 57

Dec
0

AS/400 BASICO por Wilbert Martnez

RazC= 10
Mover Datos
Z-ADD
La operacin Z-ADD sirve para inicializar el campo de resultado con el valor del factor1, esta
operacin solo es valida para campor numricos
Sintaxis
Factor1

OpCode
Z-ADD

Factor2
Valor2

Resultad
Resultado

Len
15

Dec
0

Valor2= cantidad con la que se va a inicializar el campo de resultado

Ejem.
Factor1

OpCode
Z-ADD

Factor2
500

Resultad
Cant

Len
15

Dec
0

Quedaria
Cant= 500
Nota: ambos deben ser de tipo numrico, con el Z-ADD no se utiliza el factor1

MOVE
Esta operacin es utilizada para mover datos y alinearlos a la derecha, la operacin MOVE
transfiere los caracteres del factor 2 al campo de resultado. El movimiento empieza con el
carcter que esta ms a la derecha del factor 2.
Sintaxis
Factor1

OpCode
MOVE

Factor2
Campo2

Resultad
Campo3

Len
20

Dec

Hay varias maneras en que se pueden mover los datos con move a continuacion se dan algunos
ejemplos para el move
Caso1
Cuando ambos campos son de tipo carcter y el campo de resultado es ms largo que el factor 2
Ejem
ANTES
Factor2=

F I

L E

- 58

AS/400 BASICO por Wilbert Martnez

Resultado=

S O F T W A R E

DESPUES
Resultado= S O F T F I L E
Caso 2
Cuando ambos campos son de tipo nmerico y el campo de resultado es ms largo que el factor 2
ANTES
Factor2=
7 8 9
Resultado= 1 2 3 4 5 6
DESPUES
Resultado= 1 2 3 7 8 9

Caso 3
El factor 2 es nmerico y el campo resultado es tipo carcter y es ms largo que el factor2
ANTES
Campo1=

2 3 4

Campo2=

u n o d o s

ESP
UES
Campo2= u n o 2 3 4

Caso 4
Ambos campos son de tipo carcter solo que el campo de resultado es ms corto que el factor2
ANTES
Factor2=
u n o d o s
Resultado=

t r e s

DESPUES
Resultado=

o d o s

Caso 5
Ambos campos son numericos el campo resultado es ms corto que el factor2
- 59

AS/400 BASICO por Wilbert Martnez

ANTES
Campo1=

u n o d o s

Campo2=

t r e s

DESPUS
Campo2=
MOVEL

o d o s

La operacin MOVEL transfiere los caracteres del factor2 al campo de resultado, empieza a
mover los caracteres de izquierda a derecha del factor 2 al campo de resultado.
La forma en que mueve los caracteres es muy parecida a la del MOVEL solo que al revs
empieza a mover de izquierda a derecha.
Estos son algunos ejemplos
Caso 1
El campo resultado es ms largo que el del factor2, ambos campos son de tipo carcter
ANTES
Factor2=
F I LE
Resultado= S O F T W A R E
DESPUS
Resultado= F I L E W A R E
Caso 2
El campo resultado es ms largo que el del factor2, ambos campos son de tipo numerico
ANTES
Factor2=
1 2 3 4
Resultado= 5 6 7 8 9 0 1 2
DESPUS
Resultado= 1 2 3 4 9 0 1 2
Los dems ejemplos son parecidos a los vistos en el move solo que en lugar de alinear el campo
del factor2 a la derecha lo alinea a la izquierda al utilizar el movel
MOVEA
Mueve todos los campos de un arreglo a una variable
Sintaxis
- 60

AS/400 BASICO por Wilbert Martnez

Factor1 OpCode
MOVEA

Factor2
Resultad Len Dec
NomArregl VarResult Lon
o
g

Por ejemplo si tenemos un arreglo llamado NAME de longuitud 10 tipo caracter y se quiere
mover a una variable llamada alumno de la misma longuitud y tipo.
NAME
E
1

D
2

Factor1

G
3

A
4

OpCode
MOVEA

R
5

O
7

M
8

Factor2
NAME

A
9

R
10

Resultad
Alumno

Len
10

Dec

Al hacer el MOVEA quedara:

Alumno= EDGAR OMAR
Condicionales y Ciclos

IFxx
Condicin IFxx, es un condicional para realizar determinada accin o no
Sintaxis
Factor1
OpCode Factor2
Campo1 Ifxx
Campo2
{Operac
ELSE
{Operac
ENDIF

Resultad

Len

Dec

Campo1.- campo que se va a comparar

xx.- tipo de comparacin, pueden ser: EQ,NE,GE,GT,LE,LT
Campo2.- variable o valor con el que se comparara
Tambin se pueden adicionar los operadores lgicos AND y OR
Sintaxis
Factor1
Campo1

OpCode Factor2
IFxx
Campo2
ANDxx
Orxx
{Operac
ENDIF

Resultad

Len

Dec

OpCode Factor2

Resultad

Len

Dec

Ejem
Factor1

- 61

AS/400 BASICO por Wilbert Martnez

$DOC
$CANT

IFEQ
ANDNE
MOVE
ELSE
MOVE
ENDIF

PA
0
A

CLIEN

CLIEN

CASxx
Este comando permite hacer una seleccin de la subrutina a ejecutar; si se cumple la comparacin
entre el factor1 y el factor2, la subrutina especificada en el campo resultante es ejecutada.
Sintaxis
Factor1
Campo1

OpCode
CASxx

Factor2
Campo2

Resultad
NomSubrutina

Len

Dec

OpCode
CASEQ

Factor2
b

Resultad
Baja

Len

Dec

Ejem.
Factor1
Mov

CABxx
Este comando permite hacer una comparacin entre el factor1 y el factor2; si esta comparacin
resulta verdadera el programa mandara el control al TAG asociado con la etiqueta especificada
en el campo resultante
Sintaxis
Factor1
Campo1

OpCode
CABxx

Factor2
Campo2

Resultad
Etiqueta

Len

OpCode
CABEQ

Factor2
1

Resultad Len
Alta

Dec

Ejem.
Factor1
Mov

Dec

DO
Inicia y procesa un grupo de operaciones y se llevan acabo tantas veces como se especifique en el
contador o variable
Sintaxis
Factor1

OpCode Factor2
Resultad
DO
Cte. Var
{Operac
ENDDO

Len

Dec

ejem
- 62

AS/400 BASICO por Wilbert Martnez

Factor1

OpCode Factor2
DO
10
Add
2
ENDDO

Resultad

Len

Dec

Sum

Estar sumando 2 a Sum hasta que sean 10 veces, que es lo que se especifico

DOWxx
Este ciclo se va a llevar acabo mientras la condicin especificada para este ciclo sea verdadera
Sintaxis
Factor1
Campo1

OpCode Factor2
DOWxx Campo2
{Operac
ENDDO

Resultad

Len

Dec

Campo1.- campo que se va a comparar

xx.- tipo de comparacin, pueden ser: EQ,NE,GE,GT,LE,LT
Campo2.- variable o valor con el que se comparara
Factor1
ILMCU

OpCode
DOWEQ
WRITE
ENDDO

Factor2
01
I5701

Resultad

Len

Dec

EXSR
Manda ejecutar una subrutina, puede ser ejecutada desde el men principal o de cualquier otra
subrutina que la mande ejecutar.
Sintaxis
Factor1

OpCode
EXSR

Factor2
NomRutina

Resultad Len

Dec

NomRutina.- nombre de la subrutina que se va a ejecutar

BEGSR ENDSR
El begsr marca el inicio de una subrutina y con el endsr se cierra el bloque de la subrutina
Sintaxis
Factor1

OpCode

Factor2

Resultad Len

Dec

- 63

AS/400 BASICO por Wilbert Martnez

Precios

BEGSR
Bloque
De la
Rutina
ENDSR

EXFMT
Permite enviar y leer un formato de pantalla
Sintaxis
Factor 1

OpCode
EXFMT

Factor2
NomPantalla

Hi

Lo

Eq

GOTO,TAG
El Goto permite variar el flujo de un programa, al llegar a el Goto Etiqueta manda el control del
programa a donde se encuentra la etiqueta especificada en el Goto. Esto se hace con el TAG
Etiqueta que marca la parte del programa a donde se mandara el control del programa cuando se
ejecute el GOTO.
Sintaxis
Factor1

OpCode
GOTO
{cuerpo
{del pgm
TAG

Factor2
Etiqueta

Resultad Len

Dec

Etiqueta

Actualizacin de Registros
UPDAT
Actualiza los cambios hechos a un registro
Sintaxis
Factor1

OpCode
UPDAT

Factor2
Resultad Len
NomRegistro
Archivo

Dec

Nota: primero hay que posicionar el apuntador en el registro que se desea actualizar
Si en el factor 2 se especifica el nombre de un formato de pantalla, la operacin UPDATE
actualiza los datos de la pantalla .
ejem
Factor1

OpCode
UPDAT

Factor2
V01200

Resultad Len

Dec

- 64

AS/400 BASICO por Wilbert Martnez

DELET
Borra el registro en que esta posicionado actualmente el apuntador
Sintaxis
Factor1

OpCode
DELET

Factor2
Resultad Len
NomRegistro
Archivo

Dec

WRITE
Escribe un registro nuevo en el archivo especificado, para esto el archivo en el que se desea
escribir debe estar declarado en la hoja F una A en la columna de Adicin.
Sintaxis
Factor1

OpCode
WRITE

Factor2
Resultad Len
NomRegistro
o File

Dec

OpCode
WRITE

Factor2
I4111

Dec

ejem
Factor1

Resultad Len

Si en el factor 2 se especifica el nombre de un formato de pantalla, la operacin WRITE escribe

ese formato en la pantalla .
Si en el factor 2 se especifica el nombre de un formato de impresora, la operacin WRITE
imprime ese formato.
ejem
Factor1

OpCode
WRITE

Factor2
Heading

Resultad Len

Dec

Definicin de llaves
KLIST
Define una llave compuesta, se utiliza para declarar una lista de campos llave (KFLD). Esta lista
puede ser usada como argumento de busqueda.
Los KFLDs son los campos que forman la llave como campos de archivos, valores fijos o
variables; pueden ser de uno a ms campos.
Sintaxis
Factor1
OpCode
NomKey KLIST
KFLD
KFLD

Factor2

Resultad Len

Dec

Campo1
Campo2

- 65

AS/400 BASICO por Wilbert Martnez

KFLD

Campo3

NomKey .- nombre con el que se identificara la llave, este es el nombre con el cual se llamara la
llave para una busqueda.
Campo13.- son los campos que forma a esta llave
Ejem.
Factor1

OpCode

Factor2

LIKY01

KLIST
KFLD
KFLD
KFLD

LIMCU
LILOCN
LIITM

Resultad

Len

Dec

Parmetros
PLIST
Define un nombre nico para la lista de parmetros que recibir o pasara el programa, al ser
ejecutado o mandado ejecutar con la operacin CALL
Sintaxis
Factor1
OpCode
*ENTRY PLIST
PARM

Factor2

PARM
PARM

Resultad

Len

Dec

Parmetro1

Lon1

#de
c

Parmetro2
Parmetro3

Lon2
Lon3

PARM.- Define cada uno de los parmetros que componen la lista de parmetros del programa
Lon1..n.- longuitud de cada uno de los parmetros y tipo

CALL
Manda llamar un programa para ser ejecutado, si el programa al que va a ser llamado requiere
que le sean pasado parmetros se especificaran aqu, al mandarlo ejecutar con el comando CALL
Sintaxis
Factor1

OpCode
Move
Movel

Movel
CALL
PARM
PARM

Factor2
Dato1
Dato2

Daton
Programa

Resultad
ParaEntr1
ParaEntr2

ParaEntrn

Len

Dec

ParaSal1
ParaSal2

- 66

AS/400 BASICO por Wilbert Martnez

PARM

ParaSaln

Dato1..n .- son los datos de entrada que requiere el programa que se esta llamando para ejecutado
ParaEnt1..n.- nombres de los parmetros, pueden ser iguales o no, lo que si es importante es el
oreden en que son dados, deben ser en el mismo orden en que son especificados en el programa
llamado y del mismo tipo.
ParaSal1..n .- son los parmetros que regresa el programa.

OPEN
Comando para abrir un archivo
Sintaxis
Factor1 OpCode Factor2 Resultad
OPEN
Archivo

Len Dec

CLOSE
Cierra un archivo abierto
Sintaxis
Factor1

OpCode
CLOSE

Factor2
Archivo

Resultad

Len

Dec

SETOF
Apaga los indicadores especificados en el Hi,Lo,Eq le asigna el valor de 0 al indicador
Sintaxis
Factor 1

OpCode
SETOF

Factor2

Hi
In

Lo
In

Eq
In

OpCode
SETOF

Factor2

Hi
82

Lo

Eq

Ejem
Factor 1

SETON
Operacin para activar los indicadores contenidos en Hi,Lo,Eq le asigna el valor de 1 al
indicador.
Sintaxis
Factor 1

OpCode
SETON

Factor2

Hi
In

Lo
In

Eq
In

OpCode
SETON

Factor2

Hi

Lo
81

Eq

Ejem
Factor 1

- 67

AS/400 BASICO por Wilbert Martnez

Manejo de Arreglos
LOKUP
Hace una bsqueda a un arreglo o tabla
Sintaxis
Factor 1
Argumento

OpCode Factor2
LOKUP Arreglo tabla

Hi

Lo

Eq
In

Argumento.- elemento del arreglo o tabla buscado

Arreglo tabla.- nombre del arreglo o tabla donde se va a hacer la bsqueda
El indicador se prendera cuando el argumento de busqueda sea encontrado en el arreglo o tabla
especificado en el factor 2
Ejem.
Factor 1
500

OpCode Factor2
LOKUP Precios

Hi

Lo

Eq
81

El arreglo de precios contiene los sig elementos

100
300
500
800
:
en este caso el indicador 81 se prendera, ya que el valor 500 si existe en el arreglo
XFOOT (Cross Foot an Array)
La operacin XFOOT suma todos los elementos de el arreglo nmerico especificado en el factor2
y deja la suma en el campo resultado
Sintaxis
Factor1

OpCode
XFOOT

Factor2
Arreglo

Resultad
VarResul

Len Dec
Long #dec

OpCode
XFOOT

Factor2
ArreIva

Resultad
Suma

Len
15

Ejem
Factor1

Dec
2

Manejo de Cadenas
- 68

AS/400 BASICO por Wilbert Martnez

CAT
Une dos cadenas de caracteres en una sola
Sintaxis
Factor1
String1

OpCode
CAT

Factor2
String2

Resultad
StringRes

Len
20

Dec

String1 .- es el primer campo que se va a concatenar

String2.- segundo campo string que se unira con el primero
StringRes.- es la cadena de caracteres resultante que quedara da la unin de ambos campos
Ejem.
Factor1
Nom1

OpCode
CAT

Factor2
Nom2

Resultad
Nombre

Len
20

Dec

Nom1= Maria
Nom2=Cristina
Al concatenar de esta manera quedaria asi:
Nombre= Maria Cristina

O si se quiere que al concatenar quite los espacios, o deje solo algunos la sintaxis es
Factor1
String1

OpCode
CAT

Factor2
String2:n

Resultad
StringRes

Len
20

Dec

Len
20

Dec

n.- nmero de espacios entre los string

Ejem.
Factor1
Nom1

OpCode
CAT

Factor2
Nom2:1

Resultad
Nombre

Nom1= Maria
Nom2=Cristina
Al concatenar de esta manera quedaria asi:
Nombre= Maria Cristina

SCAN (Scan String or Array)

La operacin SCAN checa la variable tipo carcter o arreglo especificado en el factor2 con el
argumento especificado en el factor1. Si el argumento fue encontrado, la posicin del el primer
carcter de el argumento es pasado al campo resultante. Si un arreglo numerico es especificado
como el campo resultante, cada ocurrencia del argumento encontrado en factor2 es pasado en un
correspondiente elemento del arreglo.
Sintaxis
Factor1

OpCode

Factor2

Resultad

Len

- 69

Dec

AS/400 BASICO por Wilbert Martnez

Argumento:1

SCAN

NomVar

Posicion

Long #Dec

Argumento.- cadena de caracteres a buscar

NomVar.- variable o campo donde se buscara el argumento
Posicin.- nombre de la variable donde se regresa la posicin donde encuentra al argumeto (la
primera letra de izq. a derecha)
Long. #Dec.- atributos del cammpo resultante
Ejem
Factor1
Apellido:1

OpCode
SCAN

Factor2
Name

Resultad
ResPos

Len
1

Dec
0

Apellido= Gu
Name=Pablo Guzmn
Al hacer el SCAN
ResPos=7
El lenguaje de control es:
Es nico interface consistente para todas las funciones del sistema,Con un CLP podemos
controlar programas de aplicacin.

INTERACTIVO
 PALABRA CALVE O POSICIONAL
 CON SOLOCITUD (PROMPT)
COMPILABLE
 RAPIDO
 LOGICA POTENTE
 MANEJO DE ERRORES
 MANIPULACION DE DATOS
 INTERFACE CON PANATALLA Y DB.
DISEO PARA CONTROLAR EL FLUJO DE UNA APLICACIN.
PGM (opcional)
DCLF (
archivo)
DCL (variables)
MONMSG
IF
ELSE
SNDRCVF
[PROGARMA]
SNDMSG
CHGVAR
MONMSG
GOTO TOP
ENDPGM(optional)
- 70

AS/400 BASICO por Wilbert Martnez

Reglas de codificacin
Nombre de variable.- Para almacenar y actualizar datos y recibir parmetros. Debe
empezar con el carcter &.
Dos puntos (:)._ Separa la etiqueta del mandato
Blancos. Separa los parmetros de un mandato.
Parntesis ( ) .- Separa las palabras claves y valores.
Diagonal (/). Conecta las partes de nombres calificados.
Apstrofe .- Al comienzo y al final de una serie de caracteres en comillas, tal como
ALL.

DCLF declaracin de archivo, este comando sirve para declarar archivos

DCL
Toda las variable en un cl siempre se declara con el carcter & antes del nombre de la variable.
DCL VAR (&NAME) TYPE ( ) LEN ( ) VALUE ( )
TYPE( )
*DEC

*CHAR

*LGL

LEN ( )
VALUE( )
Por deafult (15 Default (0)
5)
Maximo (15
9)
Default
Default (0)
(32)
Maximo
(9999)
1 Default (0)

Ejemplo:
(1) DCL &A *LGL
VALUE (1)
(2) DCL &B *CHAR 5
ABCD
(3) DLC &c *DEC (5 2) 543.21
CHGVAR.
Este comando nos permite cambiar valores a:
Constantes
Otras variable
Expresiones
- 71

AS/400 BASICO por Wilbert Martnez

Conversin entre valores decimales y de caracteres.

CHGVAR VAR (CL- variable) VALUE (expresin)
Ejemplos de CHRVAR
1.- CHGVAR &MONT 37.2
2.- CHGVAR &NAME TOM SMITH
3._ CHGVAR &CODE A
4.- CHGVAR &COUNT (&CONTEO + 1)
5.- CHGVAR &IN20 (&IN10 *OR &IN15)
6.- CHGVAR &IN99 (&OPCION = 90)
7.- CHGVAR &AMT ((&PRECIO. & DESCUENTO /0 * & CANT)
Usar CHGVAR para cambiar tipo de datos, en un CL podemos cambiar el tipo de dato que
tengamos de un valor numrico a carcter o viceversa.
CHARVAR VAR (&A) VALUE(&A)
Variable carcter &A
Longitud ResultadoConvertido

Variable Decimal &A

Longitud Valor Especificado

7
7
7

5.2
5.2
5.2

0023.00
-003.90
-123.67

23.00
-3.90
-123.67

CHARVAR VAR (&A) VALUE(&A)

Variable decimal &A
Longitud ResultadoConvertido

Variable Carcter &A

Longitud Valor Especificado

5.2
5.0
5.2

10
10
10

123.00
123
-123.00

bb+123.1bb
bbb+123.000
-123bbbbbb

Mas acerca de cambiar variable, CHGVAR

Podemos Trabajar con parte de una variable de caracteres usando %SST
Recuperar o cambiar, todo o parte de local data rea.
Uso de los interruptores de trabajo como una variable lgica.
%SUBSTRING O %SST FUNCIN INTEGRADA
Identifica parte de una variable de caracteres o *LDA

%SS *LDA
nombre variable

]- Posicion-inicial longitud )
- 72

AS/400 BASICO por Wilbert Martnez

Contenido de la variable o *LDA :

1 2 3 ....

X= posicin inicial.
Y= longitud.
CHGVAR VAR (&PART) VALUE (%SST(&WHOLE 5 10 ))
CHGVAR VAR (%STT (&WHOLE 5 10)) VALUE (&PART)
Ejemplo de %SUBSTRING
ANTES &NAME: DAVE
CHGVAR VAR(%SUBSTRING(&NAME 4 2)) VALUE(ID)
DESPUS &NAME: DAVID
ANTES &DATA: ABCDE12345
&NAME: DAVE
CHGVAR VAR(&NAME) VALUE(%SST(&DATA 2 1))
DESPUS &NAME: B

ejemplo 2
usar una variable para posicin inicial
PGM
DCL VAR (&TEAM) TYPE(*CHAR) VALUE (ABCDEFGHIJKL)
DCL VAR(&LIB) TYPE (*CHAR) LEN (6) VALUE (IWLIBX)

CONCATENACION
Serie2

Resultad
o
Serie
Serie

Serie2

Serie
b

A B b

*CA
T
*TCA
T

A B C

*BCAT Serie2

ABC

*BCA Serie2
T
- 73

Serie1

A b

b
b

AS/400 BASICO por Wilbert Martnez

Ejemplo de concatenacin:
Cliente XYZ corporacin, numero de cuentea 54321, su crdito vencido por 30 das.
&CUSNAME &CUSNUMALPH &DAYSALPH
PGM
DCL &CUSNAME
*CHAR 25 XYZ CORPORATION
DCL &CUSNUM
*DEC (5 0)
DCL &CUSNUMALPH
*CHAR 5
DCL &DAYS
*DEC
30
DCL &DAYSALPH
*CHAR 3
CHGVAR &DAYSALPH
&DAYS
CHGVAR &CUSNUMALPH &CUSNUM
SNDMSG MSG(Cliente *Bcat & cusname + CUSNUMALPH + *CAT , numero de cuenta
*BCAT & c
CONDICION
Cuando deseamos condicionar un programa CL solo puede ejecutar un comando o una etiqueta
despus de la condicin.
IF COND ( exprecion ) THEN (comando)
ELSE CMD(comando)
Operadores relacionales :

<
=
>
<=
_<
_>
>=
_=

Operadores relacionales
*LT Menor que
*EQ Igual
*GT Mayor que
*LE Menor igual
*NL No menor
*NG No mayor
*GE Mayor igual
*NE No igual o distinto

Ejemplo :
1.- IF COND (&RESP * EQ 5 ) THEN ( CALL PGM (CUSING))
2.- IF (&AMTDUE > ) THEN ( CALL ARC900)
3.- IF (&AMTDUE *GT 1000) SENBRKMSG MSG (HOLA)
ELSE CDM (GOTO LABEL3)
4.- IF (&A *NE &b) RETURN
5.- IF (&A = &B)
- 74

AS/400 BASICO por Wilbert Martnez

ELSE RETURN
6.- IF (&IN99) GOTO ENDLABEL
Otra forma de usar el IF para que ejecute mas de una lnea se utiliza la siguiente sentencia
IF COND (condicin) THEN (DO)
CALL PGM1
CALL PGM2
END DO
ELSE CMD (DO)
CALL PGM3
CALL PGM4
ENDDO

Mandato de conversin de fecha, cvtdat

Cvtdat date (constannte o variable cl) tovar( variable CL)
Fromfmt *JOB
*SYSVAL
*MDY
TOFMT
*YMD
*JUL
*JUL

*JOB
*SYSVAL
*MDY
*DMY

*JOB
*SYSVAL
TOSEP
*NONE
*CARCTER SEPARADOR

EJEMPLO CVTDAT
PGM
DCL VAR (&DATE) TYPE (*CHAR) LEN(6)
DCL VAR (& YMRD) TYPE (*CHAR) LEN(6)
RTVSYSVAL SYSVAL(QDATE) TOVAR(&YRMD) +
FORMFTM(*SYSVAL) TO FMT(*YMD) TOSEP (*NONE)
CALL PGM(PYC50) PARM(&YRMD)
....
....
....
ENDPGM
MONMSG
Este comando se utiliza para supervisar mensajes de error dentro de un programa
Ejemplo: Disponibilidad de archivo.
ALCOBJ OBJ((PRLIB/PRMST *FILE *EXCL) WAIT(0)
MONMDG MSGID(CPF1002) EXEC(SNDURSMSG MSG(ARCHIVO +
PLANILLAS EN USO) TOMSGQ(*EXT)
...
...
- 75

AS/400 BASICO por Wilbert Martnez

...
DLCOBJ OBJ((PRLIB/PRMST * FILE *EXCL))
Ejemplo de algunos mensajes de eerro que pueden ser supervisado
ALCOBJ
CPF1002
CPF1040
CPF1085
CPF5739

No puede asignar objetos.

Numero maximo de objetos asignados en el sistema
Objetos no asignados
No puede asignarse o liberar archivo(S) DDM

Mandato para supervisar mensaje

MONMSG MSGID() CMPDTA9) EXEC()
MSGID- requerido
MSGID (MCH1211)
solo este mensaje.
MSGID (CPF1500)
CPF1500 - CPF1599
MSGID (CPF0000)
CPF0000 - CPF9999
MSGID (CPF9999)
Error de funcion: se activa por mensaje de
Escape no supervisados
CMPDTA (Opcional)
Ejemplo
MONMSG MSGID(CPF2182) CMPDTA(PLALIB)
EXEC (Opcional)
Mandato CL
MONMSG: Nivel programa, nivel de mandato
Pgm
DCL
DCL
DCL
MONMSG
Nivel de programa
MONMSG
compruebe aqu si el mensaje esta supervisado
MONMSG
Supervisin de todos los mandatos de programa
NO EXEC: ignore
MONMSG
MONMSG

Nivel de mandato
Compruebe aqu primero si el mensaje esta supervisado
Supervisar solo el mandato anterior.
NO EXEC: ignore.

ENDPGM
Ejemplo de supervisar mensajes
Comprobar existencia y autorizacin de un objeto
- 76

AS/400 BASICO por Wilbert Martnez

CHKOBJ OBJ (nombre-objeto) +

OBJTYPE(CPF- tipo-de-objeto) + AUT(derecho-de automatizacin)
Ejemplo:
1 CHGOBJ OBJ(IWLIB/APR010 OBJTYPE(*PGM) /* existencia*/
MONMSG..............
2 CHKOBJ OBJ(APPVEND) OBJTYPE(*PGM) + /* existencia*/
MBR(APPVAND) AUTO(*DLT) /*y autorizacion*/
MONMSG............
Ejemplo de supervisar mensajes
PGM
DCL...
/*NVEL DE PROGRAMA
MONMSG CPF9801 EXCE(GOTO NO ENCONT)
MONMSG CPF7302
/* FIN NIVEL DE PROGRAMA
CHKOBJ PYPMAST *FILE
CHKOBJ GLPMAST *FILE
DE NUEVO: CRTPF QTEMP/WORK.....
MONMSG CPF7302 EXEC (DO)
DTLF QTEMP/WORK
GOTO DE NUEVO
ENDDO
CRTPF PLALIB/PYPTRAN
GOTO FIN
NO ENCONT: SNDURSMSG TOMSGQ(*EXT) MSG( NO ENCUENTRA EL
ARCHIVO+ CHECAR LISTA DE BILBIOTECA DE LA SESIOBN0
FIN: ENDPGM

- 77