SUBFILE, RPG FREE Alguien me preguntó si podría recomendar un ejemplo de programa de subarchivo simple escrito en "RPG / free". Después de unos minutos mi nutos de Googling la mayoría de los ejemplos que encontré estaban en RPGIII, unos pocos estaban en RPGLE de formato fijo, y un par tenía Cálculos de formato libre. Esto fue bastante decepcionante como RPGLE es más de 21 años de edad, los cálculos de formato libre de 14 años de edad, incluso las definiciones de formato libre RPG está en su tercer año. Todos los ejemplos que encontré parecían demasiado complicados para un principiante, así que decidí crear este post mostrando un simple subfile programa escrito en RPG moderno. Los ejemplos en este post son la forma en que escribiría un programa de subarchivo simple usando RPG totalmente gratis. Estoy seguro de que mis ejemplos no son la forma en que todos los desarrolladores de IBM i escribirían lo s suyos. Probablemente hay tantas maneras de escribir un programa de subarchivo que hay programadores que los escriben, cada uno c on sus propios peccadillos de codificación. Este ejemplo es para un subarchivo "Load all" (subfile size = 9999). Si desea utilizar un subarchivo "Ampliación" (subfile size> subfile page) o un subfile "Page a la vez" (subfile size = subfile page), puede utilizar este ejemplo como punto de partida. Permítanme comenzar con el archivo de visualización. El archivo de visualización de ejemplo consta de cuatro partes: Palabras clave de nivel de archivo Formato de registro: SFL01 el registro de subarchivo Formato de registro: CTL01 el registro de control de subarchivo Formato de grabación: REC01 el bit en la parte inferior para mostrar las teclas de función Esto no va a ser un tutorial para explicar cada palabra clave en el archivo de visualización, sólo voy a señalar ciertas líneas y explicar por qué son la forma en que son. Permítanme comenzar con las palabras clave de nivel de archivo:
01 02 03 04 05
A A A A A
REF(ITMMST) DSPSIZ(24 80 *DS3) PRINT INDARA CA03(03 'F3=Exit')
Línea 1: Este subarchivo va a mostrar datos del archivo ITMMST, por lo tanto, en mi opinión es mejor que use la palabra clave REF para que yo pueda "referirme" a los nombres de campo del archivo al definir campos en el resto de El archivo de visualización. Línea 4: Aquellos de ustedes que son lectores regulares de este sitio web sabrán que yo soy un proponente de usar el Área de Comunicación de Indicadores para pasar los valores de los indicadores hacia y desde los archivos de pantalla e impresora y un programa de RPG. No voy a entrar en detalles sobre él como lo he escrito sobre él anteriormente en el poste No More Number Indicators.
El registro de subarchivo es muy simple con sólo cuatro campos. Hay un solo campo de caracteres que se utilizará para que el usuario pueda introducir un valor para, por ejemplo, editar, ver, eliminar, etc., el registro seleccionado.
06 07 08 09 10
A A A A A
R SFL01 Z1RRN Z1OPT ITMNBR ITMDESC
SFL R R
4S 0H 1A B O O
5 3 5 6 5 24
El formato de registro de control de subarchivo es más largo que el formato de registro de subarchivo, pero sigue siendo muy simple.
11 12 13 14 15 16 17 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
A R CTL01 A A A A 31 A 30 *** A N30 A N30 A 30 A A A A A A A A A Z1SCREEN A A A A A Z1POSITIONR A A A A A A
1 1 1 12A
O
2 2 3
B
3 4
SFLCTL(SFL01) SFLSIZ(9999) SFLPAG(0017) OVERLAY SFLDSP SFLDSPCTL SFLDLT SFLCLR SFLEND(*MORE) CA05(05 'F5=Refresh') 2USER COLOR(BLU) 63TIME COLOR(BLU) 72DATE EDTCDE(Y) COLOR(BLU) 2COLOR(BLU) 72SYSNAME COLOR(BLU) 2'Position to:' COLOR(BLU) 15REFFLD(ITMNBR) COLOR(BLU) 2'Opt Item number Item description ' DSPATR(UL) DSPATR(HI)
+ +
Línea 12: Como este es un subarchivo "Load all" Quiero que mi subarchivo sea 9,999 registros. Los registros de subarchivo de la Línea 13: 17 aparecerán en cada pantalla (página). Líneas 15 - 18: Éstas son las palabras clave del subarchivo necesarias para controlar la visualización del subarchivo. Sólo tengo que usar dos indicadores para condicionarlos. El indicador 31 se utiliza sólo para controlar la visualización del subarchivo, si no hay registros en el subarchivo que no quiero mostrar. Indicador 30 se utiliza para toda la visualización del control de subarchivo, y quiero "Más ..." para aparecer en la parte inferior de la página de subfile en lugar de un "+" como creo que es más agradable estéticamente. Enmienda: Brian Rusch hizo una sugerencia en un comentario a continuación que tiene sentido. En lugar de usar un SFLDLT en la línea 17, un SFLCLR es mejor.
Líneas 20 - 26: siempre muestro el ID de usuario, la fecha y la hora en todos mis archivos de visualización. Líneas 27 - 29: También muestro el "id de pantalla", que es el nombre del programa con "-1" al final. Si el usuario tiene un problema con el programa les digo que me den el nombre de la pantalla y sé con qué programa trabajar. Nunca código duro este campo. Se toma de la estructura de datos del programa RPG. De esta manera, si copio o cambio el nombre del programa siempre mostrará el nombre del programa actual. Líneas 32 - 33: Estoy proporcionando un campo "Posición a" para que el usuario pueda colocar el inicio del subarchivo en un registro en el archivo, y luego el programa carga el subarchivo desde ese punto. El último formato de grabación realmente no necesita ninguna explicación:
38 39 40
A A A
R REC01 23
3'F3=Exit F5=Refresh' COLOR(BLU)
Y en el RPG. Para aquellos de ustedes que utilizan una versión de IBM i que no permite las definiciones de formato libre tengo los equivalentes de formato fijo en la parte inferior de este post aquí. Si no puede utilizar el RPG totalmente gratuito, pero puede utilizar definiciones de formato libre, entonces tendrá que iniciar su código en la octava columna e ignorar el ** FREE. Utilizo lo que llamo subprocedimientos "abiertos" en lugar de subrutinas. Pero si prefiere usar subrutinas puede reemplazar los subprocedimientos, reemplazando la llamada a los procedimientos con EXSR, DCL-PROC con BEGSR y END-PROC con ENDSR. Permítanme comenzar con la parte de las definiciones del programa de mi ejemplo:
01 02
**free ctl-opt option(*nodebugio:*srcstmt:*nounref) dftactgrp(*no) ;
03 04 05
dcl-ds PgmDs psds qualified ; PgmName *proc ; end-ds ;
06
dcl-f SFL_DSPF workstn indds(Dspf) sfile(SFL01:Z1RRN) ;
07
dcl-c MaxSfl 9999 ;
08 09 10 11 12 13
dcl-ds Dspf qualified ; Exit ind pos(3) ; Refresh ind pos(5) ; SflDspCtl ind pos(30) ; SflDsp ind pos(31) ; end-ds ;
14
dcl-f ITMMST keyed ;
15
dcl-s PrvPosition like(Z1POSITION) ;
16
Z1SCREEN = %trimr(PgmDs.PgmName) + '-1' ;
Línea 1: Todo RPG totalmente libre tiene que empezar con un ** GRATIS. Línea 2: Como estoy usando subprocedimientos necesito la palabra clave DFTACTGRP en mis opciones de control.
Líneas 3 - 5: Esta es la estructura de datos de mi estado del programa. Utilizo esto para conseguir el nombre del programa que utilizo para el nombre de pantalla en el formato del registro del control del subfile. Línea 6: Esta es la definición del archivo de visualización que contiene el subarchivo. Necesito el INDDS para dar el nombre de mi estructura de datos Indicator Communication Area. La palabra clave SFILE es necesaria para cada subarchivo, necesito dar el nombre del formato de registro de subarchivo y el nombre del campo que se utiliza como una "clave numérica" para el subarchivo. Línea 7: Esta constante contiene el número máximo de registros que mi subarchivo puede contener. Línea 8 - 13: Es la estructura de datos del área de comunicación del indicador. Lo que me gusta de estas estructuras de datos es que puedo asignar un indicador desde el archivo de visualización a un nombre significativo. Por ejemplo: el indicador 3 del archivo de visualización se denomina Dsp.Exit ya que los subcampos de la estructura de datos están calificados, vea el QUALIFICADO en la línea 8. Esto es mucho mejor que * IN03 o * INKC. Línea 14: Esta es la definición para el archivo de Elemento maestro, que estoy leyendo en clave de orden. Línea 15: PrvPosition se define como el campo de pantalla Z1POSITION. Voy a utilizar esto para contener el valor anterior de Z1POSITION. En otros programas he codificado esto como un campo oculto en el control de subarchivo, pero estoy manteniendo este ejemplo simple. Línea 16: Esta no es una línea de definición. Es donde creo el nombre de pantalla añadiendo "-1" al final del nombre del programa.
This next section is the code I need to handle the subfile. As I am using a "Load all" I do not have to code of the user pressing the Page Up or Down key the subfile does all that for me behind the scenes.
17 18
setll *loval ITMMSTR ; LoadSubfile() ;
19 20 21
dow (1 = 1) ; write REC01 ; exfmt CTL01 ;
22 23 24 25 26 27 28 29 30 31 32 33 34 35
if (Dspf.Exit) ; leave ; elseif (Dspf.Refresh) ; Z1POSITION = ' ' ; PrvPosition = ' ' ; setll *loval ITMMSTR ; LoadSubfile() ; iter ; elseif (Z1POSITION <> PrvPosition) ; PrvPosition = Z1POSITION ; setll Z1POSITION ITMMSTR ; LoadSubfile() ; iter ; endif ;
36 37
if (Dspf.SflDsp) ; ReadSubfile() ;
38 39
endif ; enddo ;
40
*inlr = *on ;
Line 17: Realmente no necesito esta línea como el archivo se abre en el primer registro. Línea 18: Esta es la llamada al procedimiento que carga el subarchivo. Línea 20: Formato de grabación REC01 muestra las teclas de función en la parte inferior de la pantalla. LO ESCRIBO aquí para superponer la pantalla anterior que se muestra, esto es especialmente útil si no hay registros para mostrar en el subarchivo actual. Línea 21: El EXFMT del registro de control de procesamiento del programa permanece "dentro" Enter o una de las teclas de función válidas. subir o bajar la página, ya que el subarchivo
subarchivo significa que el del subarchivo hasta que se pulsa No es necesario ningún código para se ocupa de él mismo.
Líneas 22 - 23: Como Dsp.Exit es el equivalente del indicador 3, este código sólo se ejecuta si se ha pulsado F3. Líneas 24 - 29: Este es el código para cuando se ha presionado la tecla F5. Utilizo IF y ELSEIF en lugar del código de operación SELECT, puede obtener más información acerca de ELSEIF aquí. Todo este código hace es volver a cargar el subarchivo desde el comienzo del archivo. Líneas 30 - 34: Si el usuario escribe algo en la "Posición a" entonces utilizo SETLL para reposicionar el puntero del archivo antes de recargar el subarchivo. Líneas 36 - 38: Si no ha ocurrido nada de lo anterior, quiero ver si el usuario ha introducido un valor en el campo de opción del registro con el que quiere hacer algo, lo cual se hace en el subprocedimiento ReadSubfile. Pero sólo quiero llamar a ese subprocedimiento si hay registros en el subarchivo. El indicador Dsp.SflDsp sólo estará activado si hay registros en el subarchivo. El subprocedimiento LoadSubfile es donde se carga el subarchivo:
41 42 43 44 45
dcl-proc LoadSubfile ; Dspf.SflDspCtl = *off ; Dspf.SflDsp = *off ; write CTL01 ; Dspf.SflDspCtl = *on ;
46
Z1OPT = ' ' ;
47 48 49 50 51
for Z1RRN = 1 to MaxSfl ; read ITMMSTR ; if (%eof) ; leave ; endif ;
52 53
write SFL01 ; endfor ;
54 55 56 57
if (Z1RRN > 1) ; Dspf.SflDsp = *on ; endif ; end-proc ;
Líneas 42 - 44: Aquí es donde se elimina el subarchivo existente, Dspf.DspSflCtl = * off, y como no estoy seguro de si será ningún registro, establezco el indicador que muestra el subarchivo, Dsp.DspSfl, en off. La supresión del subarchivo existente no se produce hasta que escriba el registro de control de subarchivo. Línea 45: Voy a querer que el formato de registro de control de subarchivo se muestre en todo momento por lo que aquí es donde se establece en el indicador que señala que quiero mostrarlo. Línea 46: borro el campo de opción para que todos los campos de opción en el subarchivo queden en blanco. Línea 47: Prefiero usar el código de operación FOR cuando necesito realizar un bucle un número de veces. Si usted no lo ha utilizado usted debe comprobar hacia fuera el poste PARA substituye HAGA en RPGLE. Z1RRN es el campo "clave" para el subarchivo, en cada registro de subarchivo Z1RRN debe contener un número secuencial único. La sentencia dice que el conjunto Z1RRN a uno, a continuación, incrementarlo por uno cada vez que el ciclo For ciclos para el número de veces que se mantiene en la constante MaxSfl. Líneas 48 - 52: El procesamiento dentro del For-loop es muy simple. Leer un registro, escribir en el subarchivo, hasta que el final del archivo o el bucle se haya realizado el número de veces prescrito. Línea 54 - 56: Sólo quiero mostrar el subarchivo si contiene algún registro. Si sólo se ha escrito un registro en el subfile Z1RRN contendrá dos, y si se escribieran más registros, el número sería mayor. El otro subprocedimiento maneja cualquier valor introducido en el campo de opción del subarchivo.
58 59 60 61 62 63
dcl-proc ReadSubfile ; dow (1 = 1) ; readc SFL01 ; if (%eof) ; leave ; endif ; //Do something depending on value in Z1OPT
64 65 66 67
Z1OPT = ' ' ; update SFL01 ; enddo ; end-proc ;
Líneas 60 - 63: RPG nos proporciona el código de operación READC para su uso con subarchivos. Sólo lee registros de subarchivo modificados, que serán aquellos en los que el usuario ha introducido un valor en el campo de opción, ya que es el único campo en el subarchivo que puede recibir entrada. Después de que se han leído todos los registros modificados o no hay registros cambiados, se activa el indicador de fin de archivo. Líneas 64 - 65: Después de realizar cualquier procesamiento, necesito borrar el campo de opción del registro de subarchivo y, a continuación, necesito actualizar el registro de subarchivo para borrar el campo de opción en la pantalla.
Como he dicho, este es un subarchivo de ejemplo muy simple. Usted puede hacer el suyo mucho más complicado si usted lo desea. Espero que esto sea de utilidad para
las personas que escriben su primer subfile programa, y como otro ejemplo de uso de formato libre RPG de definición.
