ADP Classic, formalmente conocido como ADP/400, es un Sistema de Desarrollo de Aplicaciones que incluye generadores de código RPG/400 (RPG III esencialmente) y de Cobol/400, el tipo de programación conocido como OPM.

Aunque ADP Classic genera código RPG/400 (sintaxis de RPG III), es posible ordenar a ADP que el código generado sea convertido a RPG IV, además cuando se hace ésto se permite también una gran funcionalidad como es tecleo directo de operaciones rpgfree dentro de los calculos ADP con SEU.

• En Aplicaciones ya existentes con muchos programas hay que tener especial cuidado al principio, probando bien el codigo generado (convertido), ya que aunque se usa la utilidad de conversion de IBM no es de descartar alguna situacion problematica.
• Para activar la funcion se necesita el control C4 y correr el proceso ARESCR desde el paso 199. Ver ActivarC4.

Tener en cuenta el tema del valor por defecto para la hoja H en programas rpgIV.

Aprovechando que se puede obtener código RPG IV (a través de la conversión de RPG III), es también posible integrar partes de código RPG IV en formato rpg-free.

Simplemente, editando con SEU los puntos de entrada y calculos, ahora podremos mezclar código tradicional ADP/RPG en formato RPG encolumnado RPG II y tambien rpgFree:

• sentencias rpgFree colocarlas entre C/free y /end-free
  • C/free
  • n lineas de rpgFree
  • /end-free para terminar (ojo: C/end-free no es correcta)

Ver

• rpgFree en ADP Classic
• la entrada en el blog.
• notas rpgfree
• notas RPG %bif
• RPG, Lenguaje de Programacion para IBM i (as400)

EXTFILE es una palabra clave (keyword) de RPG IV que permite evitar el uso de OVRDBF definiendo en la propia hoja F del fichero la biblioteca y nombre real (asi como el miembro con EXTMBR).

Para evitar el OPEN automático de RPG se debe definir el fichero con USROPN, que tambien puede indicarse en esta nueva extension para la keyword adicional de hoha F.
USROPEN (Opcion UC en File RPG III) se puede indicar en ADP Classic usando la op especial *EXF, que ahora ya puede usarse con este nuevo modo.

Para un control más completo existe tambien la key EXTDESC, que de forma similar permite indicar qué DDS se toman en tiempo de compilación. Por supuesto, tambien se puede indicar con esta extensión de ADP Classic.

El soporte de estas keywords dependen de la versión del operativo.

ADP Classic permite una extensión de linea(s) F adicionales con palabras clave, lo cual es una enorme capacidad.

En calculos internos (miembro xxx.@) se permite una nueva linea de control especial para indicar que se quiere insertar una hoja F especial (una extension), y además para más facilidad la linea puede ponerse en cualquier lugar, al principio, o al final generalmente.

Por ejemplo:

• un programa usa el fichero CLIENTES que necesita un OVRDBF
• en el miembro xxx.@ ponemos esta linea especial
  • en pos6 F*EXTK*filename y en pos44 la keyword
    • por supuesto, se permite cualquier keyword de F adicional, no sólo EXTFILE etc.
  • cuidado con el tamaño máximo del area de keyword, unas 36 posic, lo que admita SEU p.e.
  • en principio se soportan varias líneas de extension para el mismo fichero

     F*EXTK*CLIENTES                            EXTFILE(contenido) 

El contenido puede ser

• un nombre de fichero, tal como 'CLIENTES2', en este caso el programa usa ese fichero real cuando se ejecute
• un nombre calificado con biblioteca, tal como 'MIBIB/CLIENTES2'
• mejor todavia, un nombre de campo/variable sin comillas, tal como EXTFILE(wfile) y en calculos hacer
  • if talCondicion wfile = 'CLIENTES2'
  • y por supuesto calificandolo wfile = %trim(wbib) + '/' + %trim(prmFile);

Tambien puede definirse qué miembro se puede usar, en lugar del *FIRST, con la keyword EXTMBR('NAME' o campo)

      *las keywords admiten constantes o variables
     F*EXTK*CLIENTES                            EXTFILE('CLI3') EXTMBR(wMbr) USROPN
     F*EXTK*CLIENTES                            EXTFILE(wFile) EXTMBR(wMbr) USROPN
     ... y al inicio de calculos del pgm:
     C/free
                wFile = 'MIBIB/MIFILE;
                wMbr  = 'MIMBR';
                Open Clientes;
                ....
                Close Clientes;
      /end-free

Info adicional sobre EXTFILE, EXTDESC, etc

• IBM EXTFILE File-Description Keywords
• IBM EXTDESC(external-filename)
• manual pdf IBM RPG Language Reference 7.1
• Manuales y PDF de IBM i v7.1
• Manuales y PDF de IBM i v6.1

Se recomienda tener una dtaara con el contenido de la hoja H a usar en los programas creados con ADP Classic, ejemplos:

Si acaso buscar antes si hay algunas en el sistema:

• WRKDTAARA DTAARA(*ALL/RPGHSPEC) para rpg3
• WRKDTAARA DTAARA(*ALL/RPGLEHSPEC) para rpg4

• RPGHSPEC para programas RPG/400 (RPG III)
  • CRTDTAARA QGPL/RPGHSPEC con posic 6=H y 20=/ y 21=J

  • CRTDTAARA (QGPL/RPGHSPEC) (*CHAR) (80) ('     J             /J')

• RPGLEHSPEC para programas RPG4 (RPGIV, RPGLE) y/o los convertidos a RPG4 con el soporte de C4 en ADP Classic
  • CALL QCMD
  • CRTDTAARA DTAARA(QGPL/RPGLEHSPEC) TYPE(*CHAR) LEN(100)
  • WRKDTAARA QGPL/RPGLEHSPEC y opcion 2
  • pegar este contenido: DATEDIT(*DMY/) DECEDIT('0,')

Por defecto los programas se compilan en version *CURRENT (y/o la definida en el comando IBM o cambiada con CHGCMDDFT).

Pero se puede definir la version destino en general o por biblioteca, por ejemplo se está creando una aplicacion para un sistema con version mas antigua.
Se pueden tener perfiles que compilen en una version y otros en otras.

Paso 54 en ADP (o CALL cpi@pub/@RLS1) y puede definirse un valor por defecto general (*DFT) o por biblioteca.

• ver la ayuda del paso 54.

Utilidades CPI@PUB                   
Definir Control Release Compilaciones
                                     
Biblioteca............ *DFT       ------> o la bib que se quiera   
Release Destino....... V5R4M0        
Biblioteca Objeto.....               
Biblioteca Base Datos.               

Esta funcion es compatible tambien (si se tiene las Utilidades Power400) con las compilaciones desde pdm de UTP/Power como E (Editar+Compilar) C (Compilar) o PC (Compilar con Print) etc en PDM cuando se tiene cpi Power 400.

Los comandos de compilacion de IBM no traen por defecto los parametros para permitir debug con fuente.

Se recomienda para esto cambiar el valor por defecto de los comandos de compilacion (que obviamente son los que usa ADP al compilar).

• El param DBGVIEW(*SOURCE) o DBGVIEW(*COPY) para debug con STRDBG etc
• Otros param que pueden ser interesantes de cambiar son TGTRLS(V5R4M0 o la quen sea) y AUT(*ALL o la autoridad que sea)

Algunos comandos a cambiar (con CHGCMDDFT) serian, por ejemplo:

• para SQLRPGLE (Programas RPG ILE con SQL): QSYS/CRTSQLRPGI
• para RPGLE (ile RPG): QSYS/CRTBNDRPG
• para RPG III y RPG/400 (no ILE): QSYS/CRTRPGPGM
• para RPG/400 con SQL: QSQL/CRTSQLRPG
• Cobol/400: CRTCBLPGM
• Cobol SQL: QSQL/CRTSQLCBL
• Cobol ILE: CRTBNDCBL
• Cobol SQL ILE: QSQL/CRTSQLCBLI

incluso:

• CLP: QSYS/CRTCLPGM
• pantalla: QSYS/CRTDSPF
• impresora: QSYS/CRTPRTF

Y un ejemplo de cambio de parametros por defecto para un comando:

• CHGCMDDFT CMD(CRTBNDRPG) NEWDFT('TGTRLS(V5R4M0) AUT(*ALL) DBGVIEW(*COPY )')
• y para ver qué otros params podrian cambiarse basta con hacer F4 del comando y dar F11 para ver el nombre de los params

Ver esta página: TrucosADP sobre Ayudas, pasos de Menu y uso de la Tecla de Atención que tienen mucha información en línea.

• ADP Pocket Reference Guia Rápida

ADP Force1, una versión renovada de ADP Classic o ADP/400, es un Sistema de Desarrollo de Aplicaciones que incluye un generador de código RPG IV (también llamado RPG/ILE), así cómo soporte de las nomenclaturas nuevas cómo campos de 10 posiciones, etc.

Pagina docum de ActionMenu.

Info en la Web: Action Bar & Pull Down Windows Menu

• Action Menu es un Sistema de Desarrollo y Ejecución de Menús en el iSeries IBM (AS/400) que permite una gran flexibilidad, así como avanzadas características y funcionalidad.
• Es un Menú moderno, fácil de usar por los usuarios finales y muy potente para los programadores.
• Mas info: ActionMenu

www.cpi.es