Howto and Tools for AS/400 iSeries

Felices Fiestas y prospero 2012

2011-12-21T09:18:00.002+01:00

Os deseo unas felices fiestas y un prospero año 2012, que el sentido común guié nuestros actos, en un futuro que se prevee difícil, y que los que trabajamos con sistemas AS400 lo tengamos un poco mejor.

pd: Aunque el blog esta en "standby", espero poder reanudar la publicación de nuevos artículos en las próximas semanas.

Activada visualizacion en moviles

2011-09-22T17:22:00.000+02:00

Activada la funcionalidad de Blogger para la publicación de las entradas de este blog en formato para móviles

Tango/04 Computing Group - 20º Aniversario

2011-09-15T19:17:00.000+02:00

La empresa Tango/04, dedicada a diseñar productos de visualización de eventos (monitorizacion pero de alto nivel y calidad), cumple años y ha publicado un "timeline" de los principales hitos de sus productos.

¡¡ Felicidades !!

Estoy de vacaciones

2011-08-01T09:08:00.000+02:00

Averiguar cuando se hizo el ultimo SAVSYS

2011-06-21T20:44:00.002+02:00

Si nunca habéis tenido la necesidad de averiguar cuando se hizo el ultimo SAVSYS en nuestro sistema AS400, aquí tenéis un enlace a un interesante articulo donde explica como averiguarlo:

When Was Your Last SAVSYS, SAVCFG, SAVSECDTA?

Control umbral de disco

2011-05-11T17:47:00.000+02:00

Una de las preocupaciones de todo administrador de sistemas es la del espacio en disco disponible en el sistema.
Debemos evitar una caída del sistema por ocupación en disco, ya que un IPL anormal por dicha causa tendrá una larga duración, y ademas no es seguro que se libere el espacio en disco suficiente para terminarla sin intervención manual desde la consola.

Nuestro sistema AS400 tiene dos formas de avisarnos cuando el sistema esta llegando al porcentaje de uso del umbral (predefinido) de ocupación en disco:

(A) La de "toda la vida": El sistema operativo empieza a enviar mensajes de aviso cuando la ocupación en disco supera el umbral definido en la configuración del disco, normalmente del 90%. A partir de ese momento empieza a enviar el mensaje CPF0907 "Serious storage condition may exist. Press HELP." a la cola del operador (QSYSOPR) y al histórico del sistema (DSPLOG). Este mensaje nos indica la cantidad de almacenamiento disponible, el usado y el porcentaje de almacenamiento libre en ese instante. Si tenemos creada la cola de mensaje QSYSMSG (ver Cola de mensajes QSYSMSG) también los recibiremos en esa cola de mensajes especial.

Para ver y/o modificar el umbral, debemos arrancar las herramientas de servicio (DST), para ello nuestro perfil de usuario debe ser de tipo *SECOFR y tener autorización *SERVICE como mínimo. Para entrar en la herramienta de las DST teclearemos el mandato STRSST, que nos pedirá el usuario de servicio y contraseña.

Seleccionamos la opción 3. Work with disk units

Después seleccionar la opción 2. Work with disk configuration y a continuación seleccionaremos la opción 3. Work with ASP threshold, que nos mostrara los umbrales de todas las ASP de disco que tengamos configuradas.

Para modificar el umbral de una ASP, seleccionarla con un 1 y pulsar Intro:

Introducir el nuevo umbral, en %, que deseemos que el i5/OS a partir del cual nos envié el mensaje de aviso.

Para salir de las DST iremos pulsando F3 y finalmente nos pedirá confirmación para salir pulsando Intro.

(B) La otra de las opciones es utilizar los valores de sistema de control del almacenamiento, usar WRKSYSVAL SYSVAL(*STG) para verlos:

QSTGLOWACN Auxiliary storage lower limit action
QSTGLOWLMT Auxiliary storage lower limit

El valor de sistema QSTGLOWLMT, nos permite, conjuntamente con el valor QSTGLOWACN, controlar que debe hacer el sistema operativo cuando llega a cierto limite de ocupación en disco. Su valor indica el porcentaje de disco libre (límite inferior), por omisión es el 5%, a partir del cual empezara a ejecutar la acción definida en el valor QSTGLOWACN, en este caso cuando el sistema llegue al 95% de ocupación en disco.
El valor de sistema QSTGLOWACN puede tener los siguientes valores, con los 3 primeros valores hemos de preocuparnos de que hacer cuando el sistema llegue a su limite inferior de almacenamiento:

*MSG: Este es el valor por omisión, e indica que se envié el mensaje CPI099C " Critical storage lower limit reached" a la cola del operador QSYSOPR (y por ende al histórico del sistema) y a la cola QSYSMSG, si esta existe.
*CRITMSG: Indica que se enviará el mensaje CPI099B "Critical storage condition exists" a los usuarios designados en los atributos de servicio (CHGSRVA).
*ENDSYS: Indica que finalizara TODOS los trabajos y subsistemas y dejara el sistema en estado restringido (subsistema QCTL o QBASE activo desde consola). Esta opción es la más recomendable en sistemas de desarrollo, o no críticos, ya que, aunque podrían haber perdidas de datos (ya que se cancelaran los trabajos que se están ejecutando así como dejaremos de dar servicio), en cambio nos protege una parada incontrolada del sistema cuando llegue al 100% de ocupación en disco y que nos forzaría a una IPL anormal, mucho mas lenta, ademas nos permitirá liberar espacio de disco manualmente, desde la consola, con lo que acortaremos el tiempo de recuperación del sistema.
*PWRDWNSYS: Ejecutará el mandato PWRDWSYS dejando el sistema apagado. No recomiendo para nada esta opción, antes es mejor tener el valor *ENDSYS para dejarlo en restringido.
*REGFAC: Ejecutará el exit program registrado para el exit point "QIBM_QWC_QSTGLOWACN". Con esto podemos conseguir que cuando se llegue al límite inferior de ocupación en disco, el sistema operativo ejecute el programa que definamos nosotros. Este programa podría ejecutar, entre otras cosas:

La finalización controlada de aplicaciones no necesarias.
La finalización controlada de transcriptores (impresoras).
Retener colas de trabajos batch.
La eliminación de datos, u objetos, temporales y no necesarios.
etc...
Si no podemos corregir la situación, podremos realizar una parada controlada del sistema para evitar daños mayores.

Para ver, definir, o cambiar el valor del exit program, ejecutar el mandato WRKREGINF EXITPNT(QIBM_QWC_QSTGLOWACN) y la opción 8=Work with exit programs.

Utilidad CHGOBJAUT

2011-04-15T10:00:00.028+02:00

La utilidad CHGOBJAUT nos permite cambiar los permisos de uno, o varios, objetos de una biblioteca.

Por ejemplo el mandato:

CHGOBJAUT LIB(MYLIB) OBJ(XYZ*) TYPE(*FILE) USER(AN_USER) AUT(*CHANGE)

Otorgara autorización *CHANGE al usuario AN_USER a todos los objetos tipo *FILE de la biblioteca MYLIB que su nombre de objeto empiece por XYZ.

La diferencia con el mandato GRTOBJAUT, es que CHGOBJAUT solo cambiara la autorización si esta es diferente, para comprobar esta diferencia utiliza la utilidad CMPOBJAUT publicada anteriormente en este blog.

Cuando finaliza la ejecución del mandato CHGOBJAUT envía el mensaje CPF9897 informando del resultado de su ejecución:

Procesados 0000000018 objetos. No se ha otorgado autorización a 0000000000 objetos.

Podéis bajar el código de esta utilidad del grupo Recursos AS400 en IBM developersWorks

Utilidad CMPOBJAUT

2011-04-09T09:48:00.004+02:00

El mandato CMPOBJAUT nos permite, dentro de un programa, comparar la autorización de un objeto para un usuario concreto.

Por ejemplo con el siguiente mandato:

CMPOBJAUT LIB(MYLIB) OBJ(AN_OBJECT) TYPE(*FILE) USER(AN_USER) AUT(*USE) LGL (&MATCH)

Verificaremos si el usuario AN_USER tiene autorización *USE al archivo MYLIB/AN_OBJECT, si es así devolverá un '0' en la variable &MATCH, si es diferente devuelve '1'.

Podéis bajar el código de esta utilidad del grupo Recursos AS400 en IBM developersWorks

Mandato para añadir dias a una fecha (ADDDAT)

2011-03-18T20:23:00.001+01:00

Con el mandato ADDDAT podemos sumar o restar días a una fecha, es muy útil para utilizarlo en programas CL.

Debemos pasar en el parámetro DAYS el numero de días a añadir, o sustraer, a la fecha que le pasamos en el parámetro DATE, por omisión tiene el valor especial *TODAY que recuperara la fecha del sistema. La nueva fecha la devuelve en la variable que pongamos en el parámetro TOVAR.

Podéis bajaros el código de esta utilidad desde este enlace en Recursos400 de IBM DeveloperWorks.

Autoarranque servicios TCP/IP

2011-03-16T22:46:00.079+01:00

El mandato STRTCPSVR tiene el valor *ALL por omisión para el parámetro SERVER. Si no tenemos controlado el uso de este mandato, se arrancaran un montón de servicios TCP/IP y que puede que no necesitemos en nuestras aplicaciones, consumiendo además, recursos del sistema para nada.

Un ejemplo podría ser el servidor de correo SMTP que, evidentemente si no lo usamos en nuestro sistema, puede consumir recursos y darnos algún dolor de cabeza.

Por esta razón recomiendo cambiar el valor por defecto del comando STRTCPSVR (solo válido solo para las versiones del OS/400 V4R5 o superiores):

CHGCMDDFT  CMD(STRTCPSVR) NEWDFT('SERVER(*AUTOSTART)') 

De esta forma si se ejecuta un STRTCPSVR sin parámetros, en lugar de arrancar todos los servicios TCP/IP, solo se arrancaran los que hayamos definido como autoarranque nosotros. Además prevendremos posibles ataques por los puertos de los servicios que no estamos utilizando.

¿Como hacemos esto?, pues con el mandato CFGTCP, seleccionamos la opción 20, y vamos modificando todos servicios, que nos interese arrancar automáticamente, con el parámetro AUTOSTART(*YES), el resto los dejamos con el valor *NO. Eso si hemos de tener muy claro que servicios usamos y cuales no.
Para algunos servicios existen comandos para cambiarlos directamente desde la linea de mandatos, por ejemplo para el FTP Trivial: CHGTFTPA AUTOSTART(*NO)

¡¡Ojo!! Hay algunos servicios que solo se pueden configurar desde el "Navegador de Operaciones" (menú Network, Servers, TCP/IP). Para modificarlos usar el botón derecho sobre cada servicio (Propiedades) y desmarcar o marcar la casilla "Start when TCP/IP is started".

¡¡Ojo!! También deberemos verificar el programa QSTRUP, o el que utilicemos en nuestro sistema, no tenga "hardcode" el mandato STRTCPSVR SERVER(*ALL).

Gestionar mejor la configuracion de subsistemas

2011-03-05T17:20:00.003+01:00

En varias de las entradas del blog se mostraba como "tunear" nuestros subsistemas:
Asignar prioridad automáticamente
Cola de trabajos independiente
Memoria para subsistema
Colas de trabajos
Entradas de direccionamiento
Cambiar inicio de sesión

La gente de System i Network publica utilidades y artículos muy interesantes, y muchos de ellos nos pueden ser de mucha utilidad. Entre ellas han publicado unas utilidades de Carsten Flensburg que nos pueden facilitar las tareas de configuración de los subsistemas.

Están d¡vididas en cuatro artículos titulados:
Carsten's Corner - New Subsystem Entry Commands
New Subsystem Entry Commands - Part 1
New Subsystem Entry Commands - Part 2
New Subsystem Entry Commands - Part 3
New Subsystem Entry Commands - Part 4

Nueva version utilidad CPYJOBSPL

2011-02-25T17:56:00.001+01:00

La utilidad CPYJOBSPL ha sido modificada para habilitar el parámetro MAXSIZ cuando seleccionamos la opción *TEXT en el parámetro TOFMT. Esta opción solo funcionaba con la opción *SPL y esta pensada para evitar copiar archivos demasiado grandes, cuando solo queremos documentar una parte del proceso.

Ir al articulo Copiar archivos spool.

Copiar archivos fuentes a un directorio

2011-02-12T18:18:00.001+01:00

Utilidad que copia miembros, de un archivo de fuentes, a archivos en formato de pc (ANSI), en un directorio del AS400.

El archivo de salida lo renombra con esta nomenclatura:

Miembro.Atributo_Descripcion.TXT

Podéis bajaros el código desde este enlace.

Utilidad publicada, en el año 2000, en mi antigua web "Utilitats per a..., Utilidades para..., Tools for AS/400 iSeries"

Cambio ubicacion utilidades publicadas

2011-01-31T15:08:00.000+01:00

Debido a los problemas para descargar las utilidades desde Google Sites, estoy moviendolas a la web de Recursos AS400 en IBM Developers.

Podeis ver todas las utilidades publicadas en este blog hasta el momento en este enlace.

Feliz Navidad y Prospero año nuevo

2010-12-20T13:11:00.000+01:00

Feliç Any Nou, Feliz Año Nuevo, Happy New Year, Neues frohes Jahr, Bonne Année, Felice anno nuevo, Ano feliz novo, Mutlu yeni yıl, Nowy Szczęśliwy Rok, prosperu añu nuevu, Erós An Nau, srecno novo leto, shoma mobarak bashad, Feliz AniNovo, Boldog Új Évet Kívánok, Farsaelt Komandi ar, Appi Niu Yaa, Annum Nuevo, Xin Nian Kuai Le, bona annada, Te-Pito-O-Te-Henua, Anul Nou Fericit, prosperu annu nou, Vesela Nova Gomina, Manigong Bagong Taon, Hepi Nu Yia…

Estadisticas espacio en disco

2010-11-08T10:00:00.005+01:00

Muchos de nosotros conocemos la utilidad del sistema para recoger las estadísticas de uso de disco. Para los que no las conozcan se accede a ellas con el mandato GO MENU(DISKTASKS)

Con ellas podemos planificar la recogida de datos de ocupación de disco (mandato RTVDSKINF), ya que el proceso suele tardar horas, y la impresión de los informes de los datos recogidos (mandato PRTDSKINF), con varios niveles de detalle.

Lo más habitual es planificar la recogida de datos de ocupación en disco semanalmente (o mensualmente) durante el fin de semana (por ejemplo), con la opción 1. Collect disk space information, e imprimir el informe al lunes siguiente.

Cuando planificamos la recogida el sistema nos añade una entrada en el planificador de trabajos denominada QEZDKWKMTH, lo podemos ver con el mandato WRKJOBSCDE JOB(QEZDK*).

El trabajo QEZDKWKMTH graba los datos en el archivo QUSRSYS/QAEZDISK, no confundir con el mismo archivo en la biblioteca QSYS ya que esta vacío. Cada vez que se lanza el trabajo QEZDKWKMTH limpia, antes de empezar, el archivo QAEZDISK, de la QUSRSYS, para insertar los nuevos datos en la siguiente ejecución.

Cambio hora verano/invierno

2010-10-25T07:00:00.006+02:00

Como cada año el próximo fin de semana se realiza el cambio de hora al horario de invierno (-01:00 GMT)

Para que nuestros sistemas AS400 no se despisten y realicen el cambio de hora automáticamente revisar el articulo publicado el año pasado:

Cambio hora verano/invierno

Averiguar quien elimino un archivo de spool

2010-10-22T21:30:00.001+02:00

Algunas veces todos hemos tenido la necesidad de averiguar que usuario ha eliminado un archivo de spool de un trabajo. Esto lo podremos hacer si tenemos activada la auditoria del sistema (valor QAUDCTL) que debe contener *AUDLVL. También debe estar especificado *SPLFDTA, en el valor de sistema QAUDLVL (ver Nota2).

Una vez comprobado, y activado, lo anterior, ya podemos recuperar las entradas del diario de auditoria que se correspondan con las operaciones en el spool.
Para ello lo mas recomendable es someter el mandato DSPJRN (suele tardar bastante) indicando día/hora de inicio y día/hora fin, del rango de tiempo donde queremos investigar la desaparición del spool, e indicando que solo queremos volcar las entradas de diario T-SF:

SBMJOB CMD(DSPJRN JRN(QAUDJRN) RCVRNG(*CURCHAIN) FROMTIME(ddmmyy hhmmss) TOTIME(ddmmyy hhmmss) JRNCDE((T)) ENTTYP(SF) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE5) OUTFILE(MyTmpLib/TmpDspJrn) ENTDTALEN(*CALC)) JOB(DSPJRN)

El trabajo DSPJRN nos generará un archivo con las entradas relacionadas, en el ejemplo MyTmpLib/TmpDspJrn. Ahora podremos ejecutar una consulta, por ejemplo con SQL, indicando el nombre del archivo de spool y el nombre del trabajo de donde ha desaparecido el spool, en el ejemplo "QSYSPRT" y "MyJob":

SELECT * FROM MyTmpLib/TmpDspJrn WHERE JOESD LIKE 'D%' AND JOESD LIKE '%QSYSPRT%' AND JOESD LIKE '%MyJob%'

Y "voila", en la columna JOB NAME y USER NAME, ya tenemos el usuario que ha eliminado el archivo de spool, así como la hora y desde que programa, si es QCMD indica que se eliminó desde la linea de mandatos, o con alguna opción de menú. Cuando eliminamos un spool, el campo JOESD empieza con el carácter D.

Nota1: El OUTFILFMT(*TYPE5) es válido para la versión V5R2 o superiores. Para versiones anteriores podemos utilizar el *TYPE4, pero entonces no podemos especificar el nombre de trabajo (MyJob), con lo cual pueden aparecer más entradas que correspondan a eliminaciones de archivo de spool, pero en varios trabajos. Si no tenemos muchos puede que no sea un problema, pero si aparecen muchos, sera difícil discernir cual es el que buscamos, aunque hay otros valores que nos pueden ayudar, como puede ser la cola de salida que también aparece en el campo JOESD.

Nota2: Para activar la seguridad del sistema leer la entrada Configurar seguridad del sistema. Para saber más sobre la auditoria del sistema, Help400 publicó , hace ya unos años, una utilidad que puede ir bien para entender mejor como funciona.

Tabla de trabajos

2010-10-06T15:35:00.001+02:00

El mandato WRKSYSSTS nos muestra una pantalla con el estado del sistema.

Uno de los valores que hemos de tener en cuenta ,en sistemas con muchos trabajos, es "Jobs in system" que nos indica cuantos JobID tiene el sistema, esto incluye cualquier trabajo que este en cola de trabajos, en estado activo o en cola de salida.

Existe un valor de sistema que nos indica cual es el numero máximo de trabajos en el sistema : DSPSYSVAL SYSVAL(QMAXJOB)

El sistema usa unas tablas para controlar los trabajos que están en el sistema, cada una de ellas puede contener 16352 entradas, con los JobId de los trabajos, que están en el sistema.

Con el mandato DSPJOBTBL podemos visualizar el estado de dichas tablas.

Es importante tener activada la limpieza del sistema (ver entrada Limpiar automaticamente mensajes, joblogs, dumps, ...) para evitar llegar a llenar las tablas de trabajos y tengamos una parada anormal del sistema.

Recuperar trabajos de un usuario

2010-09-17T14:57:00.002+02:00

La utilidad RTVUSRJOB nos sirve para recuperar los trabajos de los usuarios, pudiendo seleccionar por nombre de usuario, nombre de trabajo (incluido genéricos), estado del trabajo y tipo de trabajo (Batch, Interactivo o todos).

La salida del mandato puede ser a archivo de spool o directamente a fichero, no se contempla la salida a pantalla porque ya existe el mandato WRKUSRJOB que realiza dicha función.

Pulsando F1 podemos acceder a la ayuda del mandato.

La utilidad la podéis bajar pulsando aquí.

pd: También esta disponible en el Grupo Recursos AS400 de IBM MydW para su descarga.

Limpiar automaticamente mensajes, joblogs, dumps, ...

2010-09-02T19:05:00.117+02:00

Una de las tareas básicas de cualquier administrador de un sistema es mantener los logs del sistema. Nuestro AS400 incluye una funcionalidad para realizar estas tareas, de una forma sencilla y automática.

Para ello solo hemos de ejecutar el mandato GO MENU(CLEANUP) que nos mostrará un menú con las siguientes opciones:

Primero definiremos que acciones y periodos queremos limpiar, para ello seleccionamos la opción 1, que nos mostrará la siguiente pantalla:

En esta pantalla definimos los periodos de retención de los mensajes, diarios y logs del sistema, así como la hora de ejecución diaria de la limpieza. Pulsar Intro para guardar los cambios y otra vez para salir.

Nota1: La limpieza de joblogs la realiza solo de los listados ubicados en las colas de salida QUSRSYS/QEZJOBLOG y QUSRSYS/QEZDEBUG.

Nota2: Para que los listados de los joblogs, dumps y vuelcos de servicio vayan a parar a las colas QEZ* correspondientes, ejecutar los siguientes mandatos:

  CHGPRTF    FILE(*ALL/QPJOBLOG) OUTQ(*LIBL/QEZJOBLOG)

  CHGPRTF    FILE(*ALL/QPPGMDMP) OUTQ(*LIBL/QEZDEBUG) 

  CHGPRTF    FILE(*ALL/QPSRVDMP) OUTQ(*LIBL/QEZDEBUG)

A continuación solo nos queda activar la limpieza automática seleccionando la opción 2.

Nota3: Para que se ejecute la limpieza diaria debe estar activo el Planificador de trabajos del sistema. Trabajo QSYSSCD en subsistema QCTL o QBASE, este trabajo somete el trabajo QCLNUSRMSG, así como los trabajos planificados.

También podemos lanzar la limpieza automática inmediatamente con la opción 3, o cancelar su ejecución con la opción 4.

Goodbye, AS/400, Old Friend

2010-08-04T17:28:00.000+02:00

Interesante Articulo con una retrospectiva de la historia del AS400 y sus orígenes, publicado en ITJungle en Abril de 2008 por Brian Kelly:

http://www.itjungle.com/tfh/tfh040708-story05.html

El siguiente enlace al documento "20 years of the AS/400", podemos ver el timeline de la historia de este sistema.

Aprovechad el verano para su lectura.

Auditar la seguridad en AS400

2010-07-24T18:38:00.001+02:00

La gente de PowerTech tiene colgada una guía donde nos explica los conceptos de seguridad del As400 y algunos ejemplos para comprobar nuestro estado. Recomiendo su lectura ya que puede sernos muy interesante a la vez que aprendemos mas sobre nuestro sistema:

System i Compliance Guide

Además realizando este tipo de análisis muchas veces descubrimos problemas ocultos en nuestras aplicaciones.

Trabajos QZDASOINIT

2010-07-14T18:25:00.000+02:00

Los trabajos QZDASOINIT dan servicio a las conexiones ODBC de los usuarios y/o aplicaciones remotas realizan desde cliente (PC,o Servidor). Estos trabajos se ejecutan con el usuario QUSER.

QZDASOINIT es un trabajo de prearranque del subsistema QUSRWRK; para ver estas entradas usar el mandato DSPSBSD SBSD(QUSRWRK) y seleccionar la opción 10 "Prestart job entries". En esas entradas podemos ver, con la opción 5, la configuración de este servicio y sobre todo el numero inicial de trabajos y numero máximo de trabajos permitidos.
Para arrancar el servicio (es necesario que este levantado el subsistema QSERVER):
STRHOSTSVR SERVER(*DATABASE)
    The database server daemon is started in the QSERVER subsystem
    The daemon job is named QZDASRVSD. The associated server jobs
    are named QZDASOINIT, QZDASSINIT, and QTFPJTCP.

Para detener el servicio:
ENDHOSTSVR SERVER(*DATABASE)

    The active connections being serviced by the         

    QZDASOINIT and QZDASSINIT server jobs will be ended. 

    The server jobs servicing these connections will be  

    ended.

Si ejecutamos el mandato WRKACTJOB JOB(QZDASOINIT) vemos, rápidamente, que usuarios están conectados en ese momento al servicio, ya que desde la V5R4 del OS400 se modifico este mandato para mostrar el Current User en la columna User, si no hay nadie conectado en ese momento se muestra QUSER.

Impacto del ENDJOBABN

2010-06-21T15:09:00.000+02:00

El comando ENDJOBABN tiene la finalidad de terminar trabajos que aparentemente no responden a una finalizacion con el mandato ENDJOB.

Es muy recomendable no utilizar normalmente este mandato, ya que tiene implicaciones ocultas.

Una vez ejecutado se activa una marca en el sistema por el cual el siguiente IPL sera considerado "anormal" y el sistema al arrancar realizara una serie de tareas de comprobación del sistema adicionales que alargaran el tiempo de IPL.

Ademas si hay alguna ptf pendiente de aplicar en IPL no se aplicará, ya que el sistema considera que no debe instalarlas en una IPL con terminación anormal.

Existe un valor de sistema para ver cual si el ultimo IPL fue anormal, para ello ejecutar el comando: DSPSYSVAL SYSVAL(QABNORMSW)

Esto nos mostrara uno de los siguientes valores:

0=Normal
1=Abnormal

Recuperar subsistema de un trabajo

2010-06-09T08:00:00.003+02:00

La utilidad RTVJOBSBS nos devuelve el nombre del subsistema donde se esta ejecuta un trabajo.

Esto nos puede ser de utilidad para, por ejemplo, no ejecutar un ENDSBS SBS(QINTER) si nuestro trabajo se esta ejecutándose en ese subsistema.

Podéis bajaros el código desde este enlace.

The IBM AS400 A technical introduction

2010-06-02T10:27:00.000+02:00

He encontrado este documento, creado por Tom Van Looy en 2009, y puede servirnos para introducirnos en el fantástico mundo del AS400. Esta colgado en el apartado Archivos del nuevo espacio de Recursos/400 en IBM MydW

Modificada utilidad CHGSTSJRN

2010-05-17T07:00:00.002+02:00

Se ha modificado la utilidad CHGSTSJRN, para permitir desactivar el registro por diario de todos los archivos de una biblioteca, aunque esa biblioteca no tenga ningún diario.

Esta utilidad, que se publico en el año 2004, permite Parar, Arrancar o Parar y Arrancar el registro por diario de todos los archivos físicos de una biblioteca. También tiene la opción de crear el diario y sus receptor automáticamente.

Pulsando F1 podemos acceder a la ayuda del mandato.

Podemos bajar la nueva versión desde este enlace.

Desactivar usuarios con contraseña por omision

2010-05-10T08:00:00.001+02:00

Para evitar accesos indeseados a nuestros sistemas es una norma básica no utilizar la contraseña por omisión al crear el usuario y que habitualmente es igual al nombre del perfil, ya que cualquier usuario con unos conocimientos muy básicos del sistema podría acceder a nuestro sistema.

Para saber cual es nuestra situación actual podemos analizar las contraseñas actuales con una herramienta del sistema:

Ir al menú GO SECTOOLS.
Seleccionar la opción "1. Analyze default passwords" (mandato ANZDFTPWD), en este mandato podemos seleccionar varias opciones:

*NONE: Solo imprime el listado de usuarios con contraseña igual al perfil
*DISABLE: Desactiva el usuario
*PWDEXP: Caduca la contraseña del usuario para forzar su cambio en el próximo inicio de sesión.

Para evaluar nuestro estado es recomendable utilizar el valor *NONE.
Podemos someterlo ya que puede tardar algunos minutos:
SBMJOB CMD(ANZDFTPWD ACTION(*NONE)) JOB(ANZDFTPWD)
Después analizaremos el resultado del listado y actuaremos en consecuencia.
Si nosotros no controlamos la creación de los usuarios, podemos planificar la ejecución de este mandato pero con la opción de *DISABLE o *PWDEXP:
ADDJOBSCDE JOB(ANZDFTPWD) CMD(ANZDFTPWD ACTION(*DISABLE)) FRQ(*MONTHLY) SCDDATE(*MONTHEND) SCDDAY(*NONE) JOBQ(*LIBL/QSYSNOMAX) TEXT('Desactiva usuarios con contraseña por omisión')
En este caso hemos optado por desactivar automáticamente y mensualmente los usuarios con la contraseña igual al perfil, pero podríamos haber optado por caducarla y forzar su cambio.
Es aconsejable hacer estas acciones con el perfil de usuario QSECOFR.

Otra acción recomendable es cambiar el mandato para crear perfiles de usuario (CRTUSRPRF) para que, por omisión, la contraseña sea igual a *NONE, con lo que después de crear un usuario no tendría contraseña y no podría conectarse al sistema:

CHGCMDDFT CMD(QSYS/CRTUSRPRF) NEWDFT('PASSWORD(*NONE)')

Después manualmente le asignaríamos una contraseña que cumpla las políticas y ademas forzaríamos su caducidad en el primer inicio de sesión, para que el usuario la cambie a la que le parezca mejor:

CHGUSRPRF USRPRF(New_User) PASSWORD(krl2_lt5vz) PWDEXP(*YES)

Únase a la comunidad hispana del entorno AS/400

2010-05-06T09:00:00.002+02:00

Corregido bug utilidad CPYJOBSPL

2010-04-29T20:07:00.002+02:00

Se ha corregido un pequeño bug de la utilidad CPYJOBSPL, que eliminaba el archivo de spool cuando el primer archivo a copiar se denominaba QSYSPRT.

Ir al articulo Copiar archivos spool.

IBM i 7.1 y Power7

2010-04-23T13:39:00.008+02:00

IBM ha anunciado la nueva versión V7R1M0 del OS400, o como la llama ahora IBM i 7.1, así como sus nuevos procesadores POWER7

Podéis ver los anuncios de la 7.1 en IBM Power of i y del nuevo procesador POWER7

Tenemos mucho más detalle en los siguientes enlaces:

Los documentos de los anuncios los ha publicado Common España.

Recuperar estado de un trabajo

2010-04-22T13:00:00.002+02:00

La utilidad RTVJOBSTS nos facilita el recuperar el estado de un trabajo.

Para ello hemos de indicarle el JOBID del trabajo (job_number/user/job_name) en el parámetro JOB y nos devolverá el estado en el parámetro JOBSTS (char 10). La ayuda nos indica que posibles estados nos puede devolver:

La única consideración es que el trabajo debe existir en el sistema, si la ejecución del mismo ha terminado, y no tiene ningún archivo de spool asociado, el mandato RTVJOBSTS nos devolverá *ERROR.

Este mandato solo se puede utilizar desde programas compilados.

Podéis bajar el código desde este enlace RTVJOBSTS

Recuperar número trabajos activos subsistema

2010-04-09T13:51:00.005+02:00

La utilidad RTVACTJOB recupera el número de trabajos activos, del subsistema que pasemos en el parámetro SBSNAM, y lo devuelve en el parámetro ACTJOB al programa desde donde se llame.

Este mandato solo se puede utilizar desde programas compilados.

Podéis bajar el código desde este enlace RTVACTJOB.

pd: También esta disponible en el Grupo Recursos AS400 de IBM MydW para su descarga.

Uso del mandato WRKACTJOB

2010-03-29T15:38:00.000+02:00

Uno de los mandatos más utilizados en el AS400 es el WRKACTJOB (Trabajar con Trabajos Activos), ¿Pero le sacamos todo el partido a este mandato?

En primer lugar comentar que este mandato es un consumidor de recursos, por tanto no es recomendable que estén varias personas ejecutándolo al mismo tiempo. La primera vez que usamos el mandato puede que nos salga una pantalla parecida a esta:

Esta nos muestra las opciones y las teclas de Función que podemos usar. Una vez tengamos soltura con esas opciones y funciones, podemos pulsar F21=Nondisplay instructions/keys para ocultarlas, de esta forma podemos ver más trabajos en la misma pantalla:

La primera vez que ejecutamos este mandato en nuestra sesión, se activan unas estadísticas que se actualizaran cada vez que pulsemos F5=Refresh, con lo que acumulara y hará las medias aritméticas de los valores de algunas columnas marcadas bajo la denominación Elapsed, como la del porcentaje de uso de CPU de los trabajos. En la parte superior tenemos el campo Elapsed time que nos indica el tiempo desde el ultimo reset de las estadísticas. También vemos CPU % que indica el total de uso de CPU del sistema para el total de procesadores que tengamos. El total de trabajos en el sistema se nos indica en el campo Active jobs.
Si pulsamos F10=Restart statistics, resetearemos las estadísticas a 0, esto nos puede servir para comprobar el consumo puntual de CPU (snapshot) de un trabajo.

También podemos utilizar F19=Start automatic refresh para dejar la pantalla en modo de refresco automático, que como si pulsáramos F5 cada n segundos, el valor por omisión esta indicado en el parámetro INTERVAL del mandato, por omisión es *PRV o sea el ultimo utilizado, aunque la primera vez son 300 segundos. Esto nos puede ser útil para controlar algún trabajo en concreto desde una pantalla.

Con F17=Top podemos ir al principio de pantalla y con F18=Bottom al final, esto nos sirve para movernos algo más rápido, sobre todo si tenemos muchos trabajos.

Con F11 podemos cambiar las vistas para ver más información sobre el trabajo, hay 3 vistas diferentes que aparecen cada vez que pulsamos la tecla de función.

El mandato WRKACTJOB permite filtrar por:

Nombre de subsistema (SBS) para por ejemplo ver solo los trabajos interactivos en el subsistema QINTER y/o QCTL:

WRKACTJOB SBS(QCTL QINTER)

Nombre de trabajo (JOB) para ver solo los trabajos que:

Empiecen por un nombrte:

WRKACTJOB JOB(MyJob*)

Trabajos del sistema:

WRKACTJOB JOB(*SYS)

O trabajos de subsistema activos:

WRKACTJOB JOB(*SBS)

Podemos filtrar por:

Uso de CPU (CPUPCTLMT), por ejemplo los trabajos que consumas mas de un 15% de CPU: WRKACTJOB CPUPCTLMT(15)
Tiempo de respuesta interactivo (RSPLMT) de una sesión (pantalla verde), por ejemplo una pantalla que tarde más de 5 minutos en ejecutar un programa/mandato: WRKACTJOB RSPLMT(300)

Otra opción muy interesante es el parámetro Sequence (SEQ) que nos permite ordenar por alguna de las columnas del mandato, un clásico es ordenar por consumo de CPU para averiguar que trabajo se nos esta llevando el procesador: WRKACTJOB SEQ(*CPU) o por Total de unidades de CPU consumidas (en segundos) WRKACTJOB SEQ(*CPUPCT). Para más información pulsar F1=Help sobre campo del parámetro y podremos ver una explicación más detallada de todas las opciones posibles.

Una opción que utilizo bastante es ordenar por una columna, combinándola con otras opciones explicadas, por ejemplo la de Status de los trabajos, para ello situamos el cursor encima del titulo de la columna y pulso F16=Resequence de esta forma puedo encontrar, más rápidamente, todos los trabajos que están en estado MSGW.
Nota: Tener en cuenta que si queremos ordenar por subsistema debemos situar el cursor encima de la columna Subsystem/Job, pero si queremos ordenar por nombre de trabajo deberemos situar el cursor encima del primer carácter del nombre de trabajo que aparezca en la pantalla.

Otra opción, poco conocida, es que el mandato WRKACTJOB oculta los trabajos de prearranque inactivos (PJ) o grupos de sesión inactivos (INT), es cuando pulsamos la tecla PetSys + opción 1 (Mayusc+Esc) o la tecla de Atención de Sistema (Esc). Para visualizarlos hemos de pulsar F14=Include, un ejemplo para el subsistema QSERVER:

WRKACTJOB SBS(QSERVER)

En esta pantalla solo vemos 5 trabajos, pero si pulsamos F14 nos aparecen más de 14 trabajos:

Finalmente podemos usar la tecla de función F15=Work with system status que ejecuta el mandato WRKSYSSTS que necesitaría un libro para explicar su utilidad, podéis consultar la siguiente entrada para tener alguna idea sobre el tema: Como saber si el AS400 necesita mas RAM

Configurar seguridad del sistema

2010-03-08T13:56:00.000+01:00

Existe un mandato para configurar automáticamente la seguridad básica del sistema. Ejecutándolo nos cambiará varios valores de sistema:

QALWOBJRST=*NONE
QAUTOCFG=0
QAUTOVRT=0
QDEVRCYACN=*DSCMSG
QDSCJOBITV=120
QDSPSGNINF=1
QINACTITV=60
QINACTMSGQ=*ENDJOB
QLMTDEVSSN=1
QLMTSECOFR=1
QMAXSGNACN=3
QMAXSIGN=3
QRMTSIGN=*FRCSIGNON
QRMTSRVATR=0
QSECURITY=50
QVFYOBJRST=3
QPWDEXPITV=60
QPWDMINLEN=6 si es <6, u 8 si es <8
QPWDLMTCHR=Contenido del msgid CPXB302
QPWDLMTAJC=1
QPWDLMTREP=2
QPWDRQDDGT=1
QPWDRQDDIF=1
QPWDVLDPGM=*NONE

También desactivara la contraseña, con PASSWORD(*NONE), de los siguientes usuarios: QSYSOPR, QPGMR, QUSER, QSRV y QSRVBAS.

De esta forma evitamos que nadie se conecte al sistema utilizando estos perfiles.

Finalmente, si existe el diario de auditoria (QAUDJRN), ejecutará el mandato CHGSECAUD (Cambia auditoría de seguridad) que cambiara los siguientes valores de sistema: QAUDCTL=*AUDLVL y QAUDLVL=*DFTSET, que incluye la auditoria de todos los conceptos siguientes:

*ATNEVT, *CREATE, *AUTFAIL, *DELETE, *JOBDTA, *NETBAS, *NETCLU, *NETCMN, *NETFAIL, 
*NETSCK, *OBJMGT, *OFCSRV, *OPTICAL, *PGMADP, *PGMFAIL,*PRTDTA, *SAVRST, *SECCFG, *SECDIRSRV, *SECIPC, *SECNAS, *SECRUN, *SECSCKD, *SECURITY, *SECVFY, *SECVLDL, *SERVICE, *SPLFDTA, *SYSMGT.

Para más información sobre estos valores buscad en el IBM iSeries Information Center 

Al ejecutar el mandato CFGSYSSEC aparecerá una pantalla que nos pedirá confirmación:

Es recomendable ejecutar este mandato con el sistema restringido y conectado con usuario *SECOFR.

Podemos modificar los valores por omisión de este programa, que nos interesen para nuestro sistema, recuperando, editando y creando nuestra propia versión.

Para recuperar el fuente del programa utilizar el mandato:

RTVCLSRC PGM(QSECCFGS) SRCFILE(MYSRCLIB/MYSRCFILE) SRCMBR(MYQSECCFGS)

Utilizar los menus de ayuda

2010-03-01T11:00:00.083+01:00

Es interesante recordar los sistemas de ayuda para buscar un mandato y que nos pueden ser muy útiles, existen varias opciones:

Situar el cursor en la línea de mandatos del AS400, al pulsar F4 aparece el menú "Major Command Groups", también podemos acceder con GO MENU(MAJOR).

En el menú MAJOR podemos intentar buscar una opción que, por la descripción, pueda contener el mandato que estamos buscando. Muchas veces nos aparecerán submenus. Las 3 primeras opciones, del menú MAJOR, son más interesantes ya que son búsquedas genéricas, el resto son temáticas.

Un ejemplo si queremos visualizar el contenido de la cola de salida QGPL/QPRINT, seleccionaríamos la opción "11. Spooling Commands", a continuación "4. Output Queue Commands" y finalmente "8. Work with Output Queue" que ejecuta el mandato que buscábamos WRKOUTQ, solo hace falta indicarle en el parámetro OUTQ la cola QPRINT y pulsar Intro. Evidentemente es más rápido acordarse del mandato WRKOUTQ OUTQ(QGPL/QPRINT), pero si no lo conocemos, pero si la manera de buscarlo, seguramente lo encontraremos.

Con la opción "1. Select Command by Name" podemos seleccionar por los caracteres con los que suponemos empieza el mandato. Por ejemplo si usamos DSP* (Display) nos mostrará la lista de mandatos utilizados para visualizar algo. Podemos utilizar directamente el mandato SLTCMD, o incluso mejor tecleando los caracteres iniciales del mandato y añadiendo el carácter * al final, desde la linea de mandatos, y pulsando Intro: Probad WRKJOB*.

La opción "2. Verb Commands" (VERB) nos lista un menú con los mandatos agrupados por verbo. Por ejemplo si queremos ver todos los mandatos para verificar el estado de algo (CMDVFY) utilizaremos la opción "85. Verify Commands".

Otra opción es "3. Subject Commands" (SUBJECT), con esta se nos muestra una lista de mandatos agrupados por la función que realizan. Un ejemplo seria ver todos los mandatos que se utilizan para gestionar un dispositivo, para ello seleccionaríamos la opción "89. Device Commands".

Darse cuenta que todos estos menús en la parte superior izquierda muestran el nombre del menú por lo que podemos acceder a ellos directamente con el mandato GO y el nombre de menú.

Todos los submenus tienen nombre para poder acceder a ellos directamente, siguen la filosofía de denominación del AS400, con lo que se nos facilita su búsqueda por "intuición". Por ejemplo queremos ver todos los mandatos (CMD) que se pueden utilizar para la definición (D) de un subsistema (SBS), pues nada tecleamos GO MENU(CMDSBSD), pulsamos Intro y "voilà":

Nota: Los números de opción que se muestran es para la versión V5R4M0, pero pueden variar para otras versiones.

Diccionario breve para entender mandatos AS400

2010-02-15T12:25:00.002+01:00

Los mandatos del AS400 heredaron la nomenclatura de creación de comandos del S/38 de IBM, y la costumbre muy anglosajona de contraer las palabras usadas. Básicamente la idea, con excepciones, es utilizar las consonantes del verbo de la acción a realizar y de las palabras a utilizar mientras fueran legibles.

Por ejemplo unos de los mandatos mas utilizados del AS400 es "Trabajar con trabajos activos" y que es: WRKACTJOB (Work active jobs), realmente es simple y fácil de recordar.

A continuación os paso un breve diccionario para entender la nomenclatura de los mandatos del AS400 (no pretende ser una lista exhaustiva):

AUD - Audit (Auditar)
AUT - Authorization (Autorización)
AUTL - List of authorization (Lista de autorizaciones)
CFG - Configuration (Configuración)
CHG - Change (Cambiar)
CPY - Copy (Copiar)
CRT - Create (Crear)
CTL - Controller (Controlador)
DEV - Device (Dispositivo)
DFN - Definition (Definición)
DIR - Directory (Directorio)
DLT - Delete (Eliminar)
DOC - Document (Documento)
DSK - Disk (Disco)
DSP - Display (Visualizar)
DTA - Data (Datos)
DUP - Duplicate (Duplicar)
EDT - Edit (Editar)
FIL - File (Archivo)
GRP - Group (Grupo)
GRT - Grant (Autorizar)
HDW - Hardware
INF - Information (Información)
JOB - Job (Trabajo)
JRN - Journal (Diario)
LCK - Locks (Bloqueos)
LIB - Library (Biblioteca)
LIN - Line (Linea)
LNK - Links (Enlaces)
OBJ - Object (Objeto)
OUT - Output (Salida)
OWN - Owner (Propietario)
PGM - Program (Programa)
PGP - Primary group (Grupo primario)
PNL - Panel (Panel de visualización)
PRF - Profile (Perfil de usuario)
PRT - Printer (Impresora)
QRY - Query (Consulta)
RMT - Remote (Remoto)
RMV - Remove (Remover)
RSC - Resource (Recurso)
RST - Restore (Restaurar)
RVK - Revoke (Revocar)
SAV - Save (Salvar)
SRC - Source (Origen, Fuente)
STR - Start (Arrancar)
STS - Status (Estado)
SYS - System (Sistema)
TBL - Table (Tabla)
TGT - Target (Destino)
USR - User (Usuario)
VAL - Value (Valor)
WRK - Work with (Trabajar con)

...

Algunos de especiales:
***E - Entry (Entrada de una lista)
D - Description (Descripción)
Q - Queue (Cola)
...

Desactivar usuarios sin uso

2010-02-08T13:57:00.002+01:00

Es recomendable desactivar los usuarios inactivos, o sea con más de x días sin conectarse al sistema.

Para ello podemos utilizamos una herramienta del sistema, es recomendable conectarse como QSECOFR para realizar esta acciones:

Ir al menú GO SECTOOLS.
Seleccionar la opción "4. Analyze profile activity" (mandato ANZPRFACT) e introducir los días inactivos, por ejemplo 30 días.
Al pulsar Intro añade, o modifica si ya la teníamos, la entrada QSECIDL1 de los trabajos planificados del sistema.
Podemos ver o editar esta entrada con el mandato:
WRKJOBSCDE JOB(QSECIDL1)
Si, por ejemplo, queremos que se ejecute mensualmente (por omisión es semanal):
CHGJOBSCDE JOB(QSECIDL1) FRQ(*MONTHLY) SCDDATE(*MONTHEND) SCDDAY(*NONE) JOBQ(*LIBL/QSYSNOMAX) TEXT('Desactiva usuarios sin uso durante más de 30 días')

Si tenemos usuarios que no nos interesa que se desactiven nunca hemos de introducirlo en la lista de usuarios a omitir por este proceso, para ello:

Ir al menú GO SECTOOLS.
Seleccionar la opción "3. Change active profile list".
O utilizar el mandato CHGACTPRFL y pulsar F4.
Después introducimos el perfil de usuario que queremos omitir, por ejemplo QSECOFR:
CHGACTPRFL USRPRF(QSECOFR) ACTION(*ADD).
Para eliminar un usuario de la lista:
CHGACTPRFL USRPRF(ANYUSER) ACTION(*REMOVE)
Podemos visualizar, o imprimir, la lista de usuarios omitidos para desactivación automática con la opción "2.Display active profile list" (mandato DSPACTPRFL)

Auditar uso o supresión de un objeto

2010-01-18T12:27:00.002+01:00

A veces nos puede interesar auditar el uso o eliminación de un objeto por varias razones:

Investigar quien, cuando y que lo usa/elimina un objeto.
Investigar si podemos eliminar un objeto sin uso.
Análisis el funcionamiento de una aplicación nuestra, o de terceros.
Etc...

USO DE UN OBJETO

Para ello debemos cambiar el valor de auditoria del objeto, que por omision tendrá el valor indicado en los atributos de la biblioteca, utilizar mandato DSPLIBD LIB(MYLIB) y fijarse en parámetro "Create object auditing" si tiene el valor *SYSVAL habremos de ver el valor de sistema QCRTOBJAUD (utilizar DSPSYSVAL SYSVAL(QCRTOBJAUD) para verlo) que habitualmente tiene el valor *CHANGE, o sea solo audita cambios en el objeto, no su utilización.

Para auditar el uso de un objeto, por ejemplo del programa MYLIB/MYPGM, debemos cambiar el valor de auditoria del objeto, antes documentaremos el valor actual de auditoria para el objeto a cambiar:

DSPOBJD OBJ(MYLIB/MYPGM) OBJTYPE(*PGM) DETAIL(*FULL)

Pulsar AvPág y ver parámetro "Object auditing value", usualmente *CHANGE.

Después ya podemos activar la auditoria de lecturas para el objeto, para ello ejecutar:

CHGOBJAUD OBJ(MYLIB/MYPGM) OBJTYPE(*PGM) OBJAUD(*ALL)

A partir de este instante cualquier acceso al programa MYLIB/MYPGM quedara registrado en el diario de auditoria del sistema (QAUDJRN).

Cuando queramos analizar el uso de ese programa deberemos acceder a los datos del diario de auditoria, para ello lo más recomendable es someter el comando DSPJRN para realizar un volcado de los datos del diario a un archivo temporal y posteriormente realizar un query sobre ese fichero:

Someter:

DSPJRN JRN(QAUDJRN) RCVRNG(*CURCHAIN) FROMTIME(dia/hora_inicio) TOTIME(dia/hora_fin) ENTTYP(ZR) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE1) OUTFILE(MYLIBTEMP/DSPJRNUSE)

Después con SQL, por ejemplo, podemos buscar las utilizaciones del objeto:

SELECT * FROM TEMP/DSPJRN WHERE JOESD LIKE '%MYPGM%'

Dentro de los campos, que se nos mostraran, tendremos algunos claves para nuestra investigación:

Campo    Descripción

JOCODE   Código de auditoría
JOENTT   Tipo entrada de auditoria
JODATE   Fecha de la entrada

JOTIME   Hora de la entrada
JOJOB    Nombre del trabajo
JOUSER   Nombre del usuario
JONBR    Numero del trabajo
JOPGM    Nombre del programa que ha realizado el cambio

JOOBJ    Nombre del objeto cambiado
JOLIB    Biblioteca del objeto cambiado
JOMBR    Nombre del miembro (si es un archivo)

JOESD Datos de la entrada (longitud variable

Una vez analizado el uso del objeto, es recomendable dejar el valor de auditoria al valor anterior, para evitar demasiada sobrecarga en el sistema al tener que guardar en el diario cada vez que se utiliza un objeto, así como el crecimiento desmesurado de los receptores asociados del diario

También es recomendable no dejarlo activado el valor para muchos objetos al mismo tiempo, por las mismas razones.

SUPRESIÓN DE UN OBJETO

Si lo que buscamos es quien y cuando se ha eliminado un objeto, debemos volcar a fichero unos códigos de diario de auditoria diferentes:

DSPJRN JRN(QAUDJRN) RCVRNG(*CURCHAIN) FROMTIME(dia/hora inicio) TOTIME(dia/hora fin) JRNCDE((T)) ENTTYP(DO) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE1) OUTFILE(MYLIBTEMP/DSPJRNDLT)

Después utilizaremos la misma consulta SQL que en el caso anterior.

Nota1: Si queremos la fecha en formato TIMESTAMP utilizar OUTFILFMT(*TYPE3)

Nota3: Podemos ver el significado de los codigos de auditoria en el IBM i Information Center.

Nota2: Tener en cuanta el periodo de latencia en el sistema de los receptores de los diarios de auditoria, ya que es habitual su borrado periódico para evitar ocupar demasiado espacio en disco

Averiguar IP donde se desactiva un usuario

2010-01-07T11:18:00.004+01:00

A veces vemos el mensaje CPF1393 en el log del sistema:

Esto nos indica que el sistema ha desactivado un perfil de usuario, habitualmente por contraseña errónea.

Si vemos que se repite mucho este mensaje, para el mismo usuario, podemos intentar averiguar desde que dirección IP se está intentando conectar. Para ello hemos de ejecutar el mandato DSPJRN y visualizar las entradas del diario de auditoria del sistema, procurando ajustar al máximo el día y hora ya que acostumbran haber cientos de entradas en el mismo segundo:

DSPJRN JRN(QAUDJRN) RCVRNG(*CURCHAIN) FROMTIME(250509 165607) JRNCDE((T)) ENTTYP(PW)

Al pulsar Intro obtendremos una lista parecida a esta:

Pulsar la opción "5=Display entire entry" para ver el contenido de la entrada:

Ahí veremos que perfil de usuario esta fallando el login; si pulsamos "F10=Display only entry details" podremos ver el nombre de trabajo, la hora, y si pulsamos AvPag. podremos ver la dirección IP:

Lo único que habra que tener en cuenta es que, si usamos DHCP en los clientes, puede que esa dirección sea reutilizada por otros usuarios.

Feliz Navidad y 2010

2009-12-21T10:00:00.002+01:00

eyeOS y IBM

2009-12-19T00:24:00.001+01:00

Hoy he leído esta noticia IBM distribuirá el software de una 'start up' catalana en El Periódico que me ha llamado la atención.

Una compañía creada por dos estudiantes catalanes ha desarrollado el escritorio web EyeOS, basado en tecnología "cloud computing" y con software libre, y que ha sido adoptado por IBM para usarlo en sus system Z (mainframe). Más información en el blog de EyeOS:

eyeOS y IBM – Trabajando juntos

¡ Buena idea !, ¿para cuando para los system i?

Biblioteca de trabajo TEMP

2009-12-19T00:18:00.003+01:00

Para poder crear objetos de trabajo es muy recomendable utilizar la biblioteca QTEMP, que el sistema crea solo para nuestro trabajo automáticamente. Pero si los objetos creados en esa biblioteca deben ser usados en mas de un trabajo, o sesión, o accedidos por odbc, bajados por ftp, o tenerlos en el sistema durante unos días, es muy conveniente tener una biblioteca que no desaparezca y que pueda ser compartida por mas de un trabajo, para ello nada mejor que crear la biblioteca TEMP (o como queráis llamarle), con autorización *PUBLIC *ALL. Para ello ejecutar los mandatos:

CRTLIB LIB(TEMP) TYPE(*TEST) TEXT('Temporary library (cleared weekly automatically)')
CHGOBJOWN OBJ(TEMP) OBJTYPE(*LIB) NEWOWN(QPGMR)

Con la misma idea podemos crear el directorio /home/temp:

CRTDIR DIR('/home/temp') DTAAUT(*RWX) OBJAUT(*ALL)
CHGOWN OBJ('/home/temp') NEWOWN(QPGMR)

Para que esta biblioteca y directorio, no se conviertan en un contenedor de basura es muy recomendable realizar una limpieza periódica de su contenido.

Los objetos que se crean en esta biblioteca y directorio se podrían eliminar automáticamente todos los domingos a las 06:00h (por ejemplo), con el trabajo planificado CLRTEMP.

Mandato para planificar dicho trabajo:

ADDJOBSCDE JOB(CLRTEMP) CMD(CALL PGM(ZGPL/CLRTEMP)) FRQ(*WEEKLY) SCDDATE(*NONE) SCDDAY(*SUN) SCDTIME(060000) 

JOBQ(QUSRNOMAX) TEXT('Clear library TEMP and /home/temp')

Codigo del programa CLRTEMP

Planificador de trabajos

2009-11-12T21:00:00.007+01:00

El objeto de planificación de trabajos contiene entradas que configuran una planificación de trabajos (WRKJOBSCDE). Puede planificar trabajos añadiendo una entrada de planificación de trabajos al objeto de planificación de trabajos (ADDJOBSCDE).
Para que funcione el planificador de trabajos debe estar activo el trabajo QSYSSCD en el subsistema QCTL (o QBASE) y se arranca automáticamente después del IPL.

El objeto de planificación de trabajos, QDFTJOBSCD, está en la biblioteca QUSRSYS y tiene un tipo de objeto *JOBSCD. No puede crear, suprimir, redenominar ni duplicar el objeto de planificación de trabajos, y no puede moverlo a otra biblioteca. Este objeto de planificación de trabajos se suministra con la autorización de uso público *CHANGE. Esta es la mínima autorización necesaria para añadir, cambiar, retener, liberar y eliminar entradas de planificación de trabajos.

Cómo guardar o restaurar objetos de planificación de trabajos

El objeto de planificación de trabajos puede salvarse con los mandatos Salvar Biblioteca (SAVLIB), Salvar Objeto (SAVOBJ) o Salvar Objetos Cambiados (SAVCHGOBJ), y después restaurarse con los mandatos Restaurar Biblioteca (RSTLIB) o Restaurar Objeto (RSTOBJ). La restauración del objeto de planificación de trabajos hace que la próxima fecha de sometimiento se actualice para cada entrada. Puede restaurar el objeto de planificación de trabajos al sistema desde el que se salvó o a un sistema distinto, pero no puede restaurarlo a una biblioteca que no sea QUSRSYS. Si restaura el objeto de planificación de trabajos a un sistema diferente, el registro histórico de sometimiento de trabajos se borra en cada entrada.

Información extraída del manual Gestión de Trabajos, capitulo Planificación de trabajos (pag.267)

IBM i Manifest

2009-11-04T09:43:00.004+01:00

Por el boletín mensual de Common Europe España del mes de noviembre me he enterado de la iniciativa de 71 partners de IBM en Japón de publicar un anuncio en los periódicos pidiendo que IBM de un apoyo claro a la plataforma system i (o sea el AS400), extraído del comunicado podemos leer:

"Aprovechando la oportunidad del 20º aniversario de IBM i hemos creado el Manifiesto i de IBM para solicitar a los usuarios volver a reconocer el valor y los logros de IBM i. Les pedimos que renueven su firme confianza y la creencia de que IBM i es la mejor infraestructura disponible para apoyar la innovación gerencial y operativo."

Help400 nos cuenta en varios artículos en su blog como esta evolucionando esta iniciativa:

Ahora ya podemos adherirnos a esta iniciativa en la web de IBM i Manifest de Europa.

Esperemos que IBM oiga nuestras "plegarias" que, aunque no tienen nada que ver con el cambio climático, si tienen que ver con el cambio en los escenarios que se nos avecinan (cloud computing) y que me recuerdan a que es el enésimo vaivén hacia una estructura informática de "cliente ligero" y sistema central. ¿No os recuerda a pantalla verde + AS400?, este binomio viene mejorado en cada cambio que se ha hecho en la historia de la informática.

Pensar un poco en esta evolución: Pantalla verde + Entorno de ventanas + Navegador + Navegador que ejecuta aplicaciones remotas = Computación en nube.

Cancelar un rollback

2009-10-28T10:30:00.005+01:00

En un artículo anterior se explicaba como averiguar el porcentaje rollback realizado por un trabajo.

Pero en muy contadas excepciones nos puede interesar cancelar un rollback, cosa realmente peligrosa sino conocemos, pero que muy bien, lo que esta haciendo el trabajo en la base de datos.

Por norma un rollback NUNCA se debe cancelar, debemos esperar que termine.

No se os ocurra realizar un IPL para forzar la finalización de un rollback, ya que el sistema lo terminara durante el IPL, con lo os quedareis sin sistema durante un tiempo indeterminado.

Dicho lo anterior, unos ejemplos de casos en que nos puede interesar cancelar el rollback:

Supongamos que lanzamos un programa que crea una tabla temporal, abre un ciclo de commit y empieza a insertar registros en esta tabla, el programa se mete en un bucle y continua insertando registros, cuando lleva unos cuantos millones de insert nos damos cuenta y cancelamos el trabajo. Entonces empieza a realizar el rollback eliminando millones de registros insertados. En este caso si pudiéramos cancelar el rollback y eliminar la tabla temporal seguro que terminaría más rápido que esperar el final del rollback.
Un programa se mete en un bucle actualizando miles de veces el mismo registro, es importante verificarlo con las entradas del diario. Al cancelarlo el rollback empezara a realizar miles de update en sentido inverso hasta dejarlo en el valor original. También en este caso si supiéramos el valor del registro al inicio del bucle, podríamos cancelar el rollback y después realizar un update manual del registro a su valor inicial; con esto ahorraríamos seguramente mucho tiempo.
Un trabajo realiza cambios en una o mas tablas, utilizando un solo ciclo de commit, cuando lleva unos millones de cambios cancelamos el trabajo. Si tenemos la absoluta seguridad que tenemos una copia de las tablas antes de empezar el proceso y que ningún otro trabajo ha realizado cambios en las mismas, podríamos valorar la posibilidad de cancelar el rollback y restaurar las tablas.

A partir de la V5R3 existe un procedimiento para cancelar un rollback, es el siguiente:

Definir la estrategia para reparar la base de datos: Asegurarse de que tenemos los datos necesarios, verificar que tenemos las copias de seguridad, son accesibles y contienen las tablas implicadas (recordar los ejemplos).
Conectarse con usuario con permisos *SECOFR.
Lanzar el ENDJOB, con OPTION(*IMMED), del trabajo que empezara a realizar el rollback.
Averiguar el ciclo de compromiso del rollback que vamos a cancelar:
WRKCMTDFN JOB(012345/MYUSER/MYJOB)
Pulsar F23 para ver más opciones y aparecerá la opción 20=End rollback.
Introducir la opción 20 en el ciclo de compromiso a cancelar y pulsar Intro.
Nos aparecerá una pantalla (ver imagen) que nos advierte del peligro de cancelar el rollback, ya que dejaremos inconsistente la base de datos y eso podría afectar a otros trabajos.
Si estamos seguros pulsaremos Intro. Sino podemos pulsar F12 para volver atras.
A partir de ese momento el trabajo empezará a liberar los registros bloqueados por el commit, cancelando el rollback. Esto puede tardar algún tiempo dependiendo de la cantidad de registros.
Una vez a finalizado el rollback y el trabajo, podremos reparar la base de datos, según la estrategia decidida en el primer paso. En los ejemplos: Eliminar la tabla temporal, Actualizar manualmente el registro implicado, Restaurar la/s tabla/s implicadas.

ADVERTENCIA FINAL: Es responsabilidad vuestra el utilizar, o no, este procedimiento. Como comprenderéis podéis causar un daño irreversible a la base de datos, si no estáis absolutamente seguros de lo que vais a hacer. En caso de la más mínima duda os recomiendo esperar al final del rollback.

Más información en el documento: Ending A Rollback - V530 and Later Releases

Cambio hora verano/invierno

2009-10-19T02:00:00.044+02:00

La madrugada del ultimo domingo de Octubre los sistemas deben cambiar la hora al horario de invierno, o sea a las 3:00 se retrasara la hora a las 2:00 horas.

Actualmente, a partir de la V5R4, podemos configurar el sistema para que automáticamente realize el cambio de hora sin nuestra intervención, para ello debéis seguir las indicaciones del articulo:

Sincronizar la hora del AS400

Pero si tenemos un sistema con una versión anterior del OS400, podemos utilizar mi utilidad SUMWIN para realizar el cambio de hora automáticamente.

La estrategia para realizar el cambio de hora es añadir un trabajo automático al planificador de tareas el siguiente mandato (con usuario QSECOFR):

ADDJOBSCDE JOB(SUMWIN) CMD(CALL PGM(SUMWIN)) FRQ(*MONTHLY) SCDDATE(*NONE) SCDDAY(*SUN) SCDTIME(020000) RELDAYMON(*LAST) JOBQ(QSYSNOMAX) TEXT('Cambio automático a horario de verano-invierno')

Con esto conseguimos que cada ultimo domingo de mes se lance el trabajo y solo cambiara la hora cuando sea:

El ultimo domingo del mes de Marzo a las 02:00:00 sumara una hora o
El ultimo domingo del mes de Octubre esperara a las 03:01:00 y restara una hora,
En ambos casos envía un mensaje al operador.
El resto de meses no hará nada.

Podéis bajaros el código en este enlace.

Cambios en variable de sistema QLMTDEVSSN (V6R1)

2009-10-15T19:32:00.002+02:00

La nueva versión del i5/OS V6R1, incluye un muy esperado nuevo valor para la variable del sistema QLMTDEVSSN (Limit device session).

Hasta la versión V5R4 podíamos tener los siguientes valores:

0=Do not limit = El usuario puede abrir tantas sesiones interactivas como quiera.

1=Limit = El usuario solo puede abrir una sesion interactiva.

Con la V6R1 se modifican los valores de esta variable como sigue:

0=Do not limit = El usuario puede abrir tantas sesiones interactivas como quiera.

1-9=Maximum device sessions = Este valor nos indica cuantas sesiones podrá abrir como máximo un usuario 1,2,.. y hasta 9 sesiones interactivas concurrentes.

Para ver que valor tiene el sistema:
DSPSYSVAL SYSVAL(QLMTDEVSSN)

Por defecto es preferible, sobretodo en los sistemas de Producción, que este valor de sistema este a 1, así todos los usuarios, que en el parámetro LMTDEVSSN de su perfil de usuario tengan el valor *SYSVAL, solo podrán abrir una sesión interactiva por defecto. A los Operadores y/o Administradores podemos darles más sesiones cambiando este valor en su perfil de usuario.

Pero puede ser interesante tener el valor de sistema a 2 o 3 en los sistemas de Desarrollo, para que al crear un nuevo programador, y sin tener que cambiar su perfil de usuario, ya pueda tener más de una sesión interactiva, cosa muy solicitada y recomendable para poder realizar pruebas, del código que están creando y probando, mas cómodamente.

Auditar uso de comandos

2009-09-21T20:30:00.009+02:00

Hay ciertos mandatos que nos puede interesar que los usuarios no utilicen, pero en cambio hemos de permitir el uso de otros.
Al crear un usuario y definir que clase de usuario es (USRCLS), de alguna forma ya estamos limitando que mandatos podrá usar y cuales no. Con las autorizaciones especiales (SPCAUT) del perfil de usuario, podemos limitar aun más el acceso a los mandados críticos.
Pero ademas podemos auditar la utilización de un mandato, sin limitar su uso, por ejemplo el mandato CLRPFM.

¿Como podemos hacerlo? Simplemente cambiando el valor de auditoria del objeto QSYS/CLRPFM de tipo *CMD.

Para ver el valor actual de auditoria de un objeto, hemos de utilizar el mandato:

DSPOBJD OBJ(QSYS/CLRPFM) OBJTYPE(*CMD) DETAIL(*FULL)

Pulsando una vez la AvPág, podremos observar que tiene el valor "Object auditing value" igual a *NONE. Para cambiarlo y empezar a auditar su uso, ejecutaremos el mandato:

CHGOBJAUD OBJ(QSYS/CLRPFM) OBJTYPE(*CMD) OBJAUD(*ALL)

Esto hará que cada vez que se utilice el mandato CLRPFM, se grabara una entrada en el diario de auditoria del sistema (QSYS/QAUDJRN).

Posteriormente podemos obtener un listado del uso del mandato ejecutando:

CPYAUDJRNE ENTTYP(CD) OUTFILE(MYLIB/CMD_USE)

Esto volcara las entradas de uso de cualquier objeto, que se este auditando, a un fichero. Después con SQL podremos seleccionarlas:

SELECT CDTSTP, CDJOB, CDUSER, CDNBR, CDPGMLIB, CDPGM, CDCMDS FROM
MYLIB/CMD_USECD WHERE CDCMDS LIKE '%CLRPFM%'

Nota: El mandato CPYAUDJRNE añade los caracteres CD al nombre del fichero de salida.

Ahora ya podemos ver cuando, quien y desde que programa se ha utilizado el mandato CLRPFM. Si el programa es el QCMD, nos indicara que se ha ejecutado desde la linea de mandatos.

Este tipo de auditoria nos puede también servir para investigar algún problema en nuestros programas o aplicaciones, ver quien usa ciertos objetos, o simplemente llevar un registro del uso de ciertos objetos importantes.

CHGOBJAUD OBJ(MYLIB/MYOBJECT) OBJTYPE(*CMD) OBJAUD(*ALL)

Hay que tener en cuenta que estas entradas del diario de auditoria ocupan espacio en disco y habrá que tener un procedimiento de salvado y borrado de los receptores de diario para evitar comernos el espacio en disco si auditamos demasiados objetos.
También el rendimiento del sistema puede verse afectado, ligeramente, si auditamos muchos objetos muy usados.

Una vez analizado sería conveniente desactivar la auditoria de uso, a no ser que queramos llevar un registro.

CHGOBJAUD OBJ(MYLIB/MYOBJECT) OBJTYPE(*CMD) OBJAUD(*CHANGE)

Podemos usar el valor *CHANGE que habitualmente es el valor por omisión del valor de sistema QCRTOBJAUD, o *NONE para no auditar nada en absoluto ese objecto (solo es recomendable en unos pocos casos).

Mas información:

Conexion automatica al AS400

2009-09-05T11:00:00.002+02:00

¿Como realizar una conexión automática desde un servidor Windows, o un cliente de red, al AS400?

A veces necesitamos para lanzar un cmd, o bat, en un pc en que la conexión al AS400 ya este establecida; para hacerlo automáticamente debemos tener instalado el producto iSeries Access y entonces podremos utilizar el comando c:\Program Files\ibm\Client Access\cwblogon.exe.

Básicamente se trata de cargar en un buffer de windows el usuario y la contraseña que utilizamos para conectar a el AS400 y así cuando los requiera la conexión windows la suministrara sin ninguna intervención.

Sintaxis
Para iniciar la sesión en un servidor:
CWBLOGON sistema /u ID_usuario /p contraseña

Para borrar un ID de usuario específico:
CWBLOGON sistema /u ID_usuario /c

Para borrar todos los ID de usuario de un servidor:
CWBLOGON sistema /c

Para borrar todos los ID de usuario de la antememoria:
CWBLOGON /c

Parámetros
sistema designa el nombre del servidor para el que debe almacenarse la información de ID de usuario y contraseña
/u ID_usuario designa el ID de usuario del servidor que debe almacenarse en la antememoria de iSeries Access para Windows
/p contraseña designa la contraseña del servidor asociada al ID de usuario proporcionado
/c borra la información de ID de usuario y contraseña de la antememoria de iSeries Access para Windows

Para más información:
http://www.redbooks.ibm.com/pubs/html/as400/v4r5/ic2924/info/rzaiimst.pdf

Como saber si el AS400 necesita mas RAM

2009-08-15T10:00:00.002+02:00

¿Como podemos saber cuando un sistema AS400 necesita mas memoria RAM?

Nota: En AS400 no se denomina Memoria RAM sino Memoria Principal (Main storage), y el disco Memoria Auxiliar (Auxiliary storage) que puede estar dividido en ASP (Auxiliary storage pool) a modo similar del concepto de volúmenes.

El concepto de uso de la memoria, y la CPU, en el AS400 es muy diferente a la de los sistemas Windows y esa es la base de muchos errores de concepto, cuando provienen de personas que no tienen mucha idea de como funciona un AS400 y, además llegando a conclusiones totalmente equivocadas.

Con el mandato DSPSYSSTS puedes ver la cantidad de memoria (pool size) que esta "usando" el sistema, en los diferentes pool de memoria definidos en el sistema (ver Memoria para subsistema), pulsa F21=Select assistance level y selecciona 3=Advanced para acceder a toda la información en la misma pantalla.
El i5/OS, el nuevo nombre del sistema operativo del AS400, siempre consume siempre TODA la memoria disponible.

Normalmente yo me fijo, básicamente, en cuantas paginas en estado Inelegible (Wait-Inel, Act-Inel) aparecen en el DSPSYSSTS.

¿Que nos indica este parámetro Inel? pues básicamente que cuando el s.o. ha necesitado cargar una pagina de memoria de disco a memoria RAM (ya que estaba paginada), no ha podido, porque toda la memoria RAM estaba ocupada por trabajos que están activos y usando la CPU, esto explicado de manera simple y para que se entienda, ya que intervienen otros factores, como por ejemplo el TIMESLICE y el PURGE.

Además habría que analizar las causas de la paginación, ya que podría tener una "fácil" solución que no implique comprar mas RAM, sino solamente algo de "tunning" del tamaño de los pool de memoria y/o en el numero de hebras (threads) activos en cada momento.

Puedes leerte las siguientes entradas de mi blog www.as400howto.com, para ver si te aclaro un poco más el tema:

También tienes un link a un documento de IBM que puede servirte de ayuda:

Experience Report

Recuperar configuracion dispositivos

2009-08-01T12:00:00.000+02:00

¿Como recuperar la configuración de dispositivos, controladores y lineas configuradas en nuestro AS400?. Para ello ejecutar el siguiente mandato:

RTVCFGSRC CFGD(*ALL) CFGTYPE(*ALL) SRCFILE(QGPL/QCLSRC) SRCMBR(SYSTEM_CFG)

Podemos utilizar la información recuperada como backup histórico o para, incluso, duplicar la configuración en otros AS400.

Un ejemplo de como buscar dos impresoras con la misma dirección IP:

RTVCFGSRC CFGD(PRT*) CFGTYPE(*DEVD) SRCFILE(QGPL/QCLSRC) SRCMBR(PRINTERS)
Esto crea el miembro fuente QGPL/QCLSRC.PRINTERS.
Doy por supuesto que todas las impresoras se denominan PRT*, sino habrás de hacerlo por cada una, o por grupos, en ese caso acuérdate de utilizar la opción MBROPT(*ADD) para que no sobrescriba el miembro.
Después editar el fuente:
STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(PRINTERS)
Utilizar la opción de búsqueda de string del SEU, para encontrar la dirección IP
Utilizar la tecla F14 (o el comando F) + Direccion_IP y pulsar F16 para buscarla.
Si aparece mas de una vez es que esta duplicada.

Como cargar lista de bibliotecas

2009-07-15T09:00:00.014+02:00

A veces nos puede interesar cargar en un trabajo la lista inicial de bibliotecas.

Esto nos puede servir, por ejemplo, en un menú, para nuestro operador, que realice llamadas a programas o someta otros y estos cambian la lista de bibliotecas. Es conveniente dejar la lista de bibliotecas como estaba después de cada ejecución para evitar errores del operador al tener cargada una lista de bibliotecas diferente a la que él cree tener.

El código que habríamos de insertar en nuestro programa seria el siguiente:
DCL VAR(&BLANKS) TYPE(*CHAR) LEN(2764)
/* Incluir estas sentencias inmediatamente después de declarar las variables */
CHGVAR VAR(&BLANKS) VALUE(' ')
DOWHILE COND(&COUNT <= &LEN) CHGVAR VAR(&BLANKS) VALUE(&BLANKS *CAT ' ') CHGVAR VAR(&COUNT) VALUE(&COUNT + 1) ENDDO /* Este mandato guarda en la variable &USRLIBL el valor de la lista de bibliotecas actual */ RTVJOBA USRLIBL(&USRLIBL)
....
Inserte su código aquí
....
/* Construir el mandato CHGLIBL con el valor de la lista de bibliotecas en blanco */
CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *TCAT &BLANKS *TCAT ')')
/* Limpia la lista de bibliotecas del trabajo */
CALL PGM(QCMDEXC) PARM(&CMD &LEN)
/* Construir el mandato CHGLIBL con el valor de la lista de bibliotecas inicial */
CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *TCAT &USRLIBL *TCAT ')')
/* Cargar la lista de bibliotecas inicial del trabajo */
CALL PGM(QCMDEXC) PARM(&CMD &LEN)
ENDPGM

Se utiliza el QCMDEXC para ejecutar el CHGLIBL, en lugar de CHGLIBL LIBL(&USRLIBL), ya que en este caso solo nos cargaría en la lista la primera biblioteca de la variable &USRLIBL; eso es porque el parámetro LIBL es un parámetro de listas y el interprete de mandatos del sistema operativo los trata de forma diferente.
Para utilizar CHGLIBL deberíamos hacer CHGLIBL LIBL(&LIB1 &LIB2 ..... &LIBn), o sea utilizar tantas variables como bibliotecas contenga la variable &USRLIBL y eso complicaría aun mucho más el código.

Arrancar registro por diario automaticamente

2009-07-05T08:00:00.003+02:00

Como arrancar automáticamente el registro por diario de los objetos creados en una biblioteca.

Para ello debemos crear la especial área de datos QDFTJRN en nuestra biblioteca, MYLIB por ejemplo. Los datos de este área de datos informan al sistema operativo que diario debe utilizar para arrancar el registro por diario de los nuevo objetos creados en la biblioteca MYLIB si los objetos son "journalizables" (de tipos de objeto * FILE, DTAARA * y * DTAQ) se añaden a la biblioteca.
Cuando se crea un objeto en la biblioteca el sistema operativo busca este área de datos, en la misma biblioteca, y utiliza los datos que contiene para decidir si el registro por diario debe ser arrancado para ese objeto. Esto solo funciona en sistemas con la versión V5R4 del OS400, en V6R1 tenemos otra manera de hacerlo (STRJRNLIB) .

Como ejemplo para arrancar el registro por diario de TODOS los archivos creados en la biblioteca MYLIB, deberíamos de ejecutar los siguientes mandatos:

CRTDTAARA DTAARA(MYLIB/QDFTJRN) TYPE(*CHAR) LEN(100)
CHGDTAARA DTAARA(MYLIB/QDFTJRN (1 10)) VALUE(MYLIB)
CHGDTAARA DTAARA(MYLIB/QDFTJRN (11 10)) VALUE(MYJRN)
CHGDTAARA DTAARA(MYLIB/QDFTJRN (21 10)) VALUE(*FILE)
CHGDTAARA DTAARA(MYLIB/QDFTJRN (31 10)) VALUE(*ALLOPR)

Para crear los receptores de diario y el diario de una biblioteca MYLIB, podemos utilizar mi utilidad CHGSTSJRN, o ejecutar los siguientes mandatos.

CRTJRNRCV JRNRCV(MYLIB/JRNRCV0001) THRESHOLD(10000)
CRTJRN JRN(MYLIB/MYJRN) JRNRCV(MYLIB/JRNRCV0001) MNGRCV(*SYSTEM) DLTRCV(*YES)

Más información en el documento de IBM Journaling at object creation on DB2 for iSeries

¿El AS400 ha muerto?

2009-06-20T09:00:00.003+02:00

Con el último cambio de nombre del AS400, que ha hecho IBM, parece que finalmente conseguirá su objetivo de hacerlo desaparecer por "mimemitación" con el entorno.

Repasemos:

AS/400: AS quiere decir Application Server (¡¡que no estaba tan mal!!)
AS/400: AS de Advanced Series.
AS/400e
eServer
iSeries
System i
Power Systems

Pero realmente el ultimo cambio implica que ya no sabremos diferenciar, por el nombre, un sistema con sistema operativo AIX de otro con el i5/OS (antes llamado OS400), esto finalmente implica que desaparece virtualmente nuestro AS400 y se convierte en un mero "plugin" del nuevo hardware controlado por una consola HMC que no funciona en i5/OS.

Pros:

(espacio intencionadamente en blanco)

Contras:

(espacio intencionadamente en blanco)

Nota: Que cada cual lo rellene con sus opiniones, aunque realmente tardaremos unos años en ver el resultado de tanto "marear la perdiz".

Entradas de direccionamiento

2009-06-13T10:00:00.001+02:00

¿Para que sirven las entradas de direccionamiento?

En anteriores artículos he hecho referencia a las entradas de direccionamiento de un subsistema (Memoria para subsistema, Asignar prioridad automáticamente y Memoria para trabajos batch), en este artículo intentaré explicar como funcionan y para que las podemos utilizar.

Utilizaremos como ejemplo las entradas del subsistema QBATCH. Para verlas hemos de utilizar el mandato DSPSBSD SBSD(QBATCH) y seleccionaremos la opción 7. Routing entries:En este subsistema (de ejemplo) tenemos 4 entradas de direccionamiento y la secuencia en que se ejecutaran (Seq Nbr), las entradas hacen referencia a:

QIGC: Para trabajos que utilicen el sistema DBCS (Double-byte character set), si esta instalado.
QS36EVOKE: Para trabajos que utilizan el entorno compatible con IBM S/36.
QCMD38: Para trabajos que utilizan el entorno compatible con IBM S/38.
*ANY: Para el resto de trabajos del subsistema.

Para entender como el sistema asigna una clase al trabajo y los atributos de ejecución del mismo, deberíamos tener claro como el sistema operativo somete un trabajo y que parámetros utiliza, para ello nada mejor que leer el articulo Someter trabajos batch.

Enrevesado, no?, veamos ahora como se asigna la clase:

El trabajo de control del subsistema QBATCH (WRKJOB JOB(QSYS/QBATCH) lee, de la cola/s de trabajos que tiene asignada, los trabajos que están pendientes por ejecutar.
Recupera el valor del parámetro RTGDTA del trabajo, por omisión QCMDB.
Ira comparando el valor RTGDTA del trabajo con el valor de CMPVAL de las entradas de direccionamiento, en el orden de la secuencia indicada en "Seq Nbr".
Cuando encuentre una entrada de direccionamiento que sea igual, ejecutará el programa que se indica en la entrada de direccionamiento. Como el valor por omisión de RTGDTA es QCMDB, la entrada de direccionamiento a asignar es la 9999, que tiene el valor especial *ANY y por tanto llamará al programa QSYS/QCMD, pasando como parámetro el mandato indicado en el parámetro CMD del SBMJOB.
En la entrada de direccionamiento puede definirse en que posición del parámetro RGTDTA, debe empezar a comparar (CMPVAL), con lo que se amplían las posibilidades de asignación.
Entonces asignará, al trabajo, los valores de los atributos de ejecución indicados en la clase asignada a dicha entrada. Por omisión, en nuestro ejemplo, asignará los valores de la clase QSYS/QBATCH, o sea RUNPTY(50) y TIMESLICE(5000), para ver los valores de la clase podemos utilizar el mandato DSPCLS CLS(QSYS/QBATCH).
También asignará el trabajo al pool de memoria donde se ejecutara, esto se indica en el parámetro POOLID de la entrada de direccionamiento, ver también Memoria para subsistema.

De esta forma el sistema asignará al trabajo los atributos de ejecución de la clase QBATCH a los trabajos que contengan cualquier cadena de caracteres en el campo RTGDTA que no sean igual a: QIGC, QS36EVOKE o QCMD38. Es obvio explicar que pasaría si contiene alguno de estos valores.

Nota: Después de lo visto habréis podido deducir que el interprete de mandatos del OS400 es el programa QSYS/QCMD, tiene similitud con el interprete de comandos de windows que es c:\windows\system32\cmd.exe; y del entorno S/38 es el QSYS/QCL.

Analicemos, ahora, las entradas de direccionamiento del subsistema QINTER:

Vemos algunas diferencias, pero creo que ya podéis deducir que:

QCMDI es para llamar al interprete de mandatos del OS400, pero con la clase QINTER, que asigna por omisión los atributos de ejecución QGPL/QINTER, o sea RUNPTY(20) y TIMESLICE(2000) para trabajos interactivos. Notar la diferencia entre los valores QCMDInteractivo y QCMDBatch. Es por esta entrada de direccionamiento por donde se arrancarán nuestras sesiones 5250.

525XTEST esta es una entrada muy especial para ejecutar un programa de test de las pantallas 5250. Esto se conseguía pulsando una combinación de teclas al encender el terminal y aparecía una pantalla de test (programa QARDRIVE).
El resto de trabajos entrarán con *ANY, que por omisión utiliza la misma clase QINTER.

En este ultimo punto podríamos implementar un sencillo truco para evitar que usuarios "listillos" sometan trabajos batch por el subsistema QINTER, con la "sana" intención de que sus trabajos obtengan más prioridad en la ejecución y terminen antes, pero claro a costa de que consuman más recursos del sistema. Para ello lo único que deberíamos hacer, es cambiar la clase de la entrada de direccionamiento *ANY, del subsistema QINTER, para asignarle la clase QBATCH, en lugar de la clase QINTER:

CHGRTGE SBSD(QSYS/QINTER) SEQNBR(9999) CLS(QSYS/QBATCH)

De esta forma cuando realizan el SBMJOB, como el valor RTGDTA es QCMDB, se les asignara la prioridad de un trabajo batch en lugar de interactivo. Esto no lo soluciona todo, ya que no podremos evitar que consuman memoria del mismo pool que el asignado a los trabajos interactivos en el subsistema QINTER, habitualmente *INTERACT.

Colas de trabajos

2009-06-05T08:00:00.003+02:00

Cuando hemos de controlar la ejecución de los trabajos batch en el sistema, normalmente usamos los subsistemas, las colas de trabajo y las prioridades en la cola de trabajo (parámetro JOBPTY del CHGJOB).
Este articulo es para entender mejor como un subsistema trabaja con las colas de trabajo que tiene asignadas y como podemos crear colas de trabajo especificas para ciertas tareas. Para ello explicare algunos conceptos relacionados con las colas de trabajo, en los ejemplos nos basaremos en el sistema QBATCH (DSPSBSD SBSD(QBATCH) y opción 6).

El subsistema tiene un numero de trabajos máximo que puede ejecutar, se cambia con el mandato CHGSBSD SBSD(QBATCH) MAXJOBS(*NOMAX), en este ejemplo estamos diciendo al sistema, que puede ejecutar un numero ilimitado de trabajos en el subsistema, bueno el limite es el rendimiento del sistema, ya podríamos llegar a colapsarlo.
El subsistema tiene colas de trabajo asignadas y estas tienen un numero de secuencia, o sea el sistema primero mira si hay trabajos en la cola de trabajos de la secuencia 10, después de la 20, ..., hasta la 9999.
Cada cola de trabajos, asignada a un subsistema, tiene también un numero máximo de trabajos que puede ejecutar. El numero máximo de trabajos de una cola de trabajos se puede cambiar con el mandato CHGJOBQE.
Para complicarlo un poco más, también pueden definirse en cada cola de trabajo el numero de trabajos máximo por prioridad del trabajo, aunque por lo que he podido ver se usa poco.
Si el sistema encuentra un trabajo en la cola de trabajos, y no hay ejecutándose el numero máximo de trabajos activos de esa cola y el subsistema tiene menos trabajos que el máximo que tiene definido para el subsistema, entonces entraran tantos trabajos de esa cola hasta que no queden trabajos en la cola o hasta que el subsistema tenga el numero máximo de trabajos.
Una cola de trabajos puede estar definida en dos subsistemas diferentes, pero solo se asigna al primer subsistema que arranca.
Una cola puede no estar asignada a algún subsistema (o el subsistema no esta activo), en ese caso nunca entran trabajos de esa cola.

Ejemplo1:

En este ejemplo supongamos que el subsistema QBATCH puede ejecutar un numero ilimitado de trabajos (*NOMAX).
En este caso podríamos tener el numero máximo de trabajos ejecutándose de todas las colas porque 10+1+4 = 15.
Si en la cola QBATCH hay 17 trabajos solo se ejecutaran como máximo 10, aunque el subsistema no este ejecutando ningún trabajo del resto de colas.

Ejemplo2:

Igual que en el Ejemplo1 pero con dos colas más (con *NOMAX) y el subsistema QBATCH puede ejecutar 50 trabajos al mismo tiempo como máximo:

Supongamos que se están ejecutando 3 trabajos de la cola QBATCH y llegan de golpe 160 trabajos a la cola QSRCTXT, de estos entraran 47 trabajos, ya que 3+47=50 es el numero máximo de trabajos activos en el subsistema, quedando el resto en cola.
Si en ese momento llega un trabajo por la cola QBATCH1X1, esté no podrá entrar hasta que finalice algún trabajo.
Si finaliza un trabajo que ha entrado por la cola QSRCTXT, entonces entraría el trabajo de la QBATCH1X1, porque tiene una secuencia mas baja que la cola QSRCTXT, cuando termine otro, si no hay ninguno en las colas de las secuencias inferiores a la QSRCTXT, irán entrando más trabajos a medida que finalicen.
Si mientras llega algún trabajo a la cola QBATCH pasaría antes que los de la QBATCH1X1, ya que su numero de secuencia es menor.

Recomendaciones:

Si queremos asignar a una cola un numero de trabajos *NOMAX, mi recomendación es ponerla al final, y deberíamos solo enviar a esa cola trabajos de ejecución muy rápida, para no colapsar la cola ni el sistema.
Prefiero asignar al subsistema un numero máximo de trabajos ilimitado (*NOMAX), pero debemos vigilar que las colas *NOMAX no nos puedan colapsar el sistema, en ese caso no nos quedara más remedio que asignar un numero máximo de trabajos al subsistema que nos pueda soportar el sistema (CHGSBSD), habitualmente empezaríamos por asignar la suma del numero máximo de trabajos de cada cola más un numero n de trabajos, si vemos que es demasiado para el sistema, ir reduciendo el numero máximo de trabajos activos.

Cola de trabajos independiente

2009-05-15T08:00:00.001+02:00

A veces hemos tenido la necesidad de aislar ciertos tipos de trabajo para que se ejecuten en orden secuencial; como la cola de trabajos QBATCH (asignada al subsistema QBATCH), puede, por omisión, ejecutar varios trabajos simultáneamente, no podemos utilizar esa cola para ejecutar trabajos secuencialmente.

Para crear una cola de trabajos independiente y asignarla al subsistema QBATCH, para que ejecute trabajos de uno en uno seguiremos los siguientes pasos:

Crear una nueva cola de trabajos donde someteremos los trabajos que queramos ejecutar secuencialmente:
CRTJOBQ JOBQ(QGPL/QBATCH1X1) TEXT('Job queue for run one by one')
Asignar esa nueva cola de trabajos al subsistema QBATCH:
ADDJOBQE SBSD(QBATCH) JOBQ(QGPL/QBATCH1X1) MAXACT(1) SEQNBR(15)
El numero de secuencia (SEQNBR) sera el orden de cola que el subsistema utilizará para ejecutar los trabajos.
Puede ser necesario ampliar el numero máximo de trabajos que se ejecutan en el subsistema QBATCH, y que por omisión es *NOMAX. Para comprobarlo DSPSBSD QBATCH opción 1 y ver el numero máximo de trabajos en el subsistema. Para cambiarlo usar CHGSBSD SBSD(QSYS/QBATCH) MAXJOBS(jobs que existan + 1)
También podemos modificar las descripciones de trabajo, que creamos conveniente, para que se sometan siempre por esa cola de trabajos:
CHGJOBD JOBD(mylib/myjobd) JOBQ(QGPL/QBATCH1X1)

Cola de mensajes QSYSMSG

2009-05-04T17:28:00.011+02:00

El sistema operativo del AS400 tiene una función oculta y especial para enviar los mensajes que requieran alguna acción por parte del usuario (operador o administrador), a la cola de mensajes especial QSYSMSG. Esta cola de mensajes no existe al instalar el sistema operativo y debemos de crearla manualmente:

CRTMSGQ MSGQ(QSYS/QSYSMSG) TEXT ('Special system messages queue')

Con esto los mensajes de cierta gravedad se escribirán en la cola de mensajes QSYSMSG, ademas de en la cola QSYSOPR. Esto puede facilitarnos la monitorización de mensajes del sistema.

Podéis encontrar información sobre esta funcionalidad en el IBM Information Center

Controlar trabajos batch

2009-05-03T09:05:00.004+02:00

Para averiguar la duración de un trabajo batch, que no ha dejado rastro (joblog), podemos utilizar el histórico del sistema para ver cuando se arranco, cuando finalizo y con que código.

Para ello debemos utilizar el mandato DPSLOG, por ejemplo para ver la duración del trabajo MYJOB del usuario QUSER, del cual no sabemos el numero de trabajo, pero si que se debió ejecutar el día 30 de abril por la tarde:

DSPLOG PERIOD((120000 300409)) JOB(QUSER/MYJOB) MSGID(CPF1124 CPF1164)

Con esto obtendremos el siguiente resultado:El message id CPF1124 nos indica la hora de arranque del trabajo y el CPF1164 la hora de terminación y con que código; para ver el código hemos de situar el cursor sobre la línea del mensaje y pulsar F1, con ello podremos ver la siguiente pantalla:

Ahí podremos ver el código de terminación, en el ejemplo 0.

Si un trabajo tiene código de terminación 10, puede que haya terminado correctamente.
Si pulsamos Av.Pag. podremos ver la razón de todos los códigos de terminación.
Si pulsamos la tecla F6 imprimiremos este mensaje en nuestro el spool.
Si volvemos a ejecutar el mismo mandato DSPLOG, pero sin el parámetro MSGID, veremos todos los mensajes que el trabajo ha enviado al histórico del sistema.
Si pulsamos la tecla F9 sobre el mensaje podremos ver que programa ha grabado el mensaje (a veces toda ayuda es poca):

Tener en cuenta que el histórico del sistema se limpia automáticamente con las opciones de limpieza del sistema (GO CLEANUP), por omisión solo conserva los últimos 15 días.

Otra forma de controlar los trabajos es utilizar mi utilidad HSTJOBLOG.

Caja de busqueda en el blog

2009-04-29T17:56:00.007+02:00

He añadido una caja de Google en el blog para facilitaros la búsqueda de temas en el blog.

Someter trabajos batch

2009-04-28T08:58:00.000+02:00

Para entender como el sistema somete un trabajo, explicaré cual es el procedimiento básico que utiliza el OS400.Para someter un trabajo utilizamos el mandato SBMJOB, indicando en el parámetro CMD el programa, o mandato, que queremos ejecutar, grabando una entrada en la cola de trabajo:

Es conveniente indicar un nombre de trabajo (JOB) que nos ayude a controlarlo, ya que por omisión utilizara el valor *JOBD, o sea utilizara el nombre de la descripción de trabajo para todos los trabajos que sometamos sin nombre.
El trabajo ira a la cola de trabajo (JOBQ) que este especificada en el SBMJOB, por omisión tiene *JOBD que nos indica que cogerá el valor de la cola de trabajo especificada en la descripción de trabajo, indicada en el parámetro JOBD.
El parámetro JOBD nos indica la descripción de trabajo que utilizará, por omisión tiene el valor *USRPRF, este nos indica que cogerá el valor de la descripción de trabajo del usuario que esta sometiendo el trabajo. Esto se define en el perfil del usuario (DSPUSRPRF parámetro JOBD).
El valor del parámetro JOBD(*USRPRF) puede forzarse para tener otro valor, al usar el parámetro USER del SBMJOB (por omisión *CURRENT), que indica que usara otro usuario para ejecutar el trabajo, evidentemente hemos de estar autorizados al perfil de usuario a utilizar ya que puede suponer un agujero de seguridad.
Podemos definir la prioridad que tendrá nuestro trabajo en la cola de trabajos (JOBPTY) y/o en la cola de salida (OUTPTY). Por omisión utiliza el valor *JOBD recuperando este valor de la descripción de trabajo que habitualmente es 5. Podemos indicarle otro valor que puede ir de 1 (alta prioridad) a 9 (baja prioridad), de todas formas tenemos un limite que esta indicado en el parámetro PTYLMT de nuestro perfil de usuario y que por omisión es 3.
Con el parámetro OUTQ definimos a que cola de salida irán los listados que genere nuestro trabajo, por omisión es *CURRENT con lo que utiliza la cola de salida que tienen asignada el trabajo desde donde se ejecuta el SBMJOB.
Otro parámetro muy importante es INLLIBL (Initial library list) donde indicaremos en que bibliotecas y en que orden el sistema operativo debe buscar los objetos (programas, archivos, áreas de datos, etc..) que se utilicen en el trabajo. Por omisión tiene el valor *CURRENT y por tanto la lista de bibliotecas sera la misma que la del trabajo desde donde se ejecuta el SBMJOB. Otro valor que puede tener el parámetro INLLIBL, y muy recomendable utilizar, es *JOBD que utilizara la lista de bibliotecas definida en la descripción de trabajo que utilicemos para someter el trabajo.
El parámetro RTGDTA (Routing data) es importante para asignar los atributos de ejecución del trabajo, esta relacionado con las entradas de direccionamiento que explicaré en un próximo articulo.
Después vendrían los parámetros relacionados con el log del trabajo: LOG, LOGCLPGM, LOGOUTPUT, JOBMSGQMX. Todos ellos tienen por omisión *JOBD. Habitualmente para que un trabajo deje rastro para que podamos ver los que se ha ejecutado es utilizando los valores LOG(4 00 *SECLVL) LOGCLPGM(*YES).

Para el resto de parámetros y valores os recomiendo leer con más calma la ayuda del propio mandato SBMJOB (SBMJOB + F4+F1+F2, F14 para imprimirla) para entrar en más detalle.

Para mucha más información:
Gestión de Trabajos en el IBM iSeries InformationCenter
Manual de IBM iSeries Systems management and Work management

Intercambio archivos entre AS y PC

2009-03-20T17:31:00.004+01:00

En este documento se explican los tipos de intercambios de archivos más comunes entre AS400 y PC; deben servir solo como referencia y adaptar los parámetros según nuestras necesidades:

Archivos formato texto ("planos" de 1 solo campo):
De AS400 a PC, en un directorio ubicado en un servidor de archivos (por ejemplo):
CPYTOIMPF FROMFILE(mylib/myfile) TOSTMF('/QNTC/myserver/mysharedfolder/mytextfile.TXT') MBROPT(*REPLACE) STMFCODPAG(*PCASCII) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(*NONE)

Para generar ficheros sin caracter CR (retorno carro) y solo LF (final de linea):
CPYTOIMPF FROMFILE(mylib/myfile) TOSTMF('/home/temp/myascii.txt') MBROPT(*REPLACE) FROMCCSID(37) STMFCODPAG(*PCASCII) RCDDLM(*LF) DTAFMT(*DLM) STRDLM(*NONE) STRESCCHR(*NONE) RMVBLANK(*TRAILING)
FLDDLM('')

Ejemplo para subir un archivo plano de PC (desde un servidor) al AS400:

Primero averiguar la longitud del archivo TEXTO.TXT, por ejemplo en este caso 132.
Crear un archivo de destino en el AS400:
CRTPF FILE(MYLIB/TEXTO) RCDLEN(132)
Copiar el archivo:
CPYFRMIMPF FROMSTMF('/QNTC/myserver/mysharedfolder/mytextfile.TXT') TOFILE(MYLIB/TEXTO) MBROPT(*REPLACE) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(*NONE) RMVBLANK(*NONE) FLDDLM(*TAB)

Para convertir y copiar un archivo de AS400 a formato CSV (para Excel y/o Access) y dejarlo en la carpeta de un servidor de archivos (p.e. WinNT) puedes utilizar el mandato:

CPYTOIMPF FROMFILE(mylib/myfile) TOSTMF ('/QNTC/myserver/mysharedfolder/mycsvfile.CSV') MBROPT(*REPLACE) STMFCODPAG(*PCASCII) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(';')

Tener en cuenta que la ruta "/QNTC/myserver/mysharedfolder/" solo funciona si:

La carpeta compartida del servidor //myserver/mysharedfolder es accesible desde la red.
El servicio Netserver del AS400, esta correctamente configurado.
El usuario y la contraseña que lanza el mandato CPY???IMPF es igual en el AS400 y en el servidor de archivos.

Comprimir archivos en IFS

2009-03-06T11:00:00.001+01:00

Para comprimir un archivo ASCII ubicado en el IFS del AS400 podemos utilizar el comando jar en una sesión del shell de UNIX en el AS400.

Como hacerlo, pues ahí va un ejemplo:

Desde la línea de mandatos tecleamos STRQSH, o simplemente QSH.
En la pantalla de "QSH Command Entry" teclear:
jar -cfM /home/compress_folder/myfile.zip /home/myfolder/myfile1.txt

Si queremos comprimir todo el contenido de un directorio:

jar -cfM /home/compress_folder/mydirectory.zip /home/folder_to_compress

Si queremos comprimir varios archivos, dentro de un CL:

PGM
...
QSH('jar -cfM /home/compress_folder/myfile.zip /home/myfolder/myfile1.txt /home/myfiles/myfile2.csv')
...
ENDPGM

Take Control of DB2 for i Performance with V6R1 System i Navigator

2009-02-25T13:11:00.000+01:00

Articulo que hace referencia a como controlar el rendimiento de las aplicaciones de AS400 que usan SQL:

Take Control of DB2 for i Performance with V6R1 System i Navigator

y otro articulo relacionado:

Making the Best Use of V6 SQL OLAP Functions

Monitorizar F3 en mandato

2009-02-09T15:04:00.000+01:00

Como controlar si un usuario a salido pulsando F3 o F12 de la ejecución de un mandato en un programa CL interactivo.

Para ello solo hemos de monitorizar el mensaje CPF6801 en el programa, por ejemplo:

PGM
....
?DSPLOG                   
MONMSG MSGID(CPF6801) EXEC(GOTO END)
...
END:
RETURN
ENDPGM

Calcular tamaño objeto

2009-02-03T15:10:00.001+01:00

Para obtener el tamaño de un objeto de más de 10 Gbytes, con DSPOBJD a *OUTFILE, hay que realizar la siguiente operacion ODSIZU * ODBPUN, ya que el campo ODOBSZ esta definido 10,0 Packed y no admite objetos mayores.

Ejecutar comandos DOS desde AS400

2009-01-26T17:00:00.000+01:00

Para poder ejecutar un programa de pc desde un programa CL del AS400, hemos de ejecutar los mandatos STRPCO y STRPCCMD.

Podemos por ejemplo ejecutar un .BAT o un .CMD pasándole parámetros (solo de ida)

Un ejemplo para abrir la web de Google con el navegador Interner Explorer:
STRPCO
MONMSG MSGID(IWS4010)
STRPCCMD PCCMD('"C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE" www.google.com')

Otro ejemplo para ejecutar el programa c:\Myscripts\program1.BAT pasándole un parámetro:
DCL VAR(&PCCMD) TYPE(*CHAR) LEN(512)
DCL VAR(&VAR1) TYPE(*CHAR) LEN(256)
CHGVAR VAR(&VAR1) VALUE('VALOR1')
CHGVAR VAR(&PCCMD) VALUE('C:\Myscripts\program1.BAT' *BCAT &VAR1)
STRPCO
MONMSG MSGID(IWS4010)
STRPCCMD PCCMD(&PCCMD)

Despues deberiamos controlar la ejecucion del programa

Bibliotecas productos instalados

2009-01-16T15:00:00.001+01:00

Como averiguar en que bibliotecas están instalados los productos del sistema OS400.

Para ello podemos utilizar el mandato DSPSFWRSC con salida a pantalla, impresora o fichero, si ejecutamos DSPSFWRSC OUTPUT(*) nos aparecerá la siguiente pantalla:

Si pulsamos F11=Display libraries/releases se visualizará la columna "Library" con el nombre de la biblioteca del producto de la primera pantalla.

Esto nos puede servir cuando hagamos limpieza de bibliotecas y saber cuales corresponden a productos del limpieza, no todas las que empiezan por Q pueden ser del sistema.

También hemos de tener en cuenta que los productos, cada vez más, utilizan directorios del IFS.

QPFRADJ=0 ???

2009-01-09T16:39:00.005+01:00

Bueno, bueno, como he visto que mi tocayo Martín, de SIDRA400, se ha tomado la molestia de explicarnos, con más detalle el valor de sistema QPFRADJ, ya que yo lo daba por supuesto para no extenderme, os paso el enlace de su artículo para que podáis ampliar el conocimiento en el tema del ajuste de rendimiento del sistema.

QPFRADJ=0 ???

¡¡ Cuidado no entréis en un bucle de blogs !!

Corregido bug utilidad CPYJOBSPL

2009-01-08T13:37:00.005+01:00

Se ha corregido un pequeño bug cosmético de la utilidad CPYJOBSPL

Copiar archivos spool

Hitos históricos AS/400

2009-01-01T09:00:00.004+01:00

Hitos históricos del AS/400, iSeries, System i y Power Systems (extraído del boletín de Common Europe España):

1988: Junio 21: IBM anuncia el AS/400, la abreviatura de Application Server/400, que junto con más de 1000 paquetes de software es el anuncio con más aplicaciones simultáneas de la historia de los ordenadores. (En el momento en que el primer AS/400 se envió, más de 2500 aplicaciones estaban disponibles)

1989: Se anuncia el B70, el nuevo modelo de la gama alta junto con impresoras matriciales de alta velocidad para ser usadas con la familia AS/400

1990: La línea de AS/400 se amplía con 2 procesadores de bajo coste diseñados para pequeños negocios o departamentos para grandes empresas

1991: Se anuncia un nuevo modelo de punto de entrada AS/400 junto con la V2R1 de OS/400 por 12.000 $

1992: IBM envía su AS/400 número 200.000, un 9406 modelo E35 y se instala en una de las principales empresas de distribución de los Países Bajos: Heineken

1993: Un nuevo modelo F que proporciona hasta un 60% de potencia y ofrece una mejora en precio/rendimiento de un 26%

1994: IBM envía su AS/400 número 250.000 modelo F80 a la compañía Coca Cola Company en Bélgica

1994: IBM presenta la nueva generación de AS/400 llamada AS/400 Advanced Series

1995: Se anuncia el AS/400 Advanced Portable, una versión compacta y de bajo coste del AS/400

1995: IBM convierte el procesador del AS/400 de CISC a RISC

1996: La compañía lanza el AS/400 Advanced Entry system, el primero de ellos (y el número 400.000 de los AS/400 vendidos) es presentado en Rochester a Grez LeMond, el ganador por 3 veces del tour de Francia y además un pequeño empresario.

1996: El OS/400 (V3R2 y V3R7) se convierte en el primer sistema operativo que es certificado como Year 2000 ready por la ITAA (Information Technology Association of America)

1997: IBM anuncia la nueva familia de AS/400e servers para ayudar a las pequeñas empresas a aprovechar las ventajas de las oportunidades de negocio en Internet

1998: Se introduce la tecnología SOI (Silicon-on-insulator), marcando un avance fundamental en la manera de construir los chips.

1998: IBM entrega un AS/400 a un cliente cada 12 minutos de cada día laborable durante el año 1998.

1999: El AS/400 es el ordenador de carácter comercial multi usuario más popular con más de 700.000 sistemas instalados en 150 países.

1999: Se anuncia la V4R4 de OS/400 con más de 3,2 millones de nuevas líneas de código escritas principalmente para e-business

2000: El AS/400 cambia de nombre y se convierte en IBM eServer iSeries e IBM anuncia el primer servidor de aplicaciones Web en la familia eServer.

2000: IBM comienza el lanzamiento de la nueva línea de AS/400e con la primera producción mundial de microchips hechos de transistores SOI y cableado de cobre.

2001: World Access, un proveedor de servicios de telecomunicaciones, compra el sistema eServer iSeries más grande (un i840) para procesar facturas para más de 100 millones de llamadas telefónicas al día.

2002: IBM anuncia el microprocesador POWER4. El sistema i890 de 32 vías ejecutándose en V5R2 dobla la capacidad de proceso de la anterior línea de producto iSeries.

2003:Como parte de una amplísima transformación de la familia iSeries en más de una década, IBM anuncia el 825 y el 870 junto al 890 en la gama alta. Usados por más de 200.000 clientes alrededor del mundo, el IBM eServer iSeries es uno de los servidores más populares de la industria.

2004: IBM anuncia el eServer i5, los primeros sistemas en ser gestionados por los microprocesadores POWER5. También cambia el nombre de OS/400 a i5/OS y libera la V5R3.

2005: IBM anuncia la estrategia OnDemand y comienza a lanzar al mercado las herramientas de virtualización e integración.

2006: En Enero, la compañía saca al mercado la línea IBM System i5 con procesadores POWER5+ y la V5R4 de i5/OS pero después elimina el 5 del i5 comenzando la era System i.

2007: IBM anuncia los microprocesadores POWER6 y ofrece unos nuevos modelos System i 515 y 525 Express con el precio basado en número de usuarios.

2008: i5/OS se convierte en un sistema operativo soportado por las soluciones IBM BladeCenter

2008: El System i se unifica con el System p para convertirse en Power Systems. El nombre del sistema operativo cambia a IBM i

Feliz Navidad i 2009

2008-12-22T01:00:00.004+01:00

Memoria para trabajos batch

2008-12-16T20:15:00.008+01:00

En el articulo anterior se explicaba como arrancar los subsistemas QBATCH y QINTER cambiando el subsistema de control a QCTL. Doy por supuesto que tenemos el ajuste de rendimiento del sistema activado.

Por omisión el subsistema QBATCH corre en el pool de memoria *BASE, esta configuración mezcla trabajos de sistema con nuestros trabajos por lotes, que posiblemente tienen unas necesidades de ejecución muy diferentes.

¿Como podemos asignar una memoria especial para nuestros trabajos por lotes en el subsistema QBATCH?, pues es sencillo:

Debemos asignar memoria a un pool de memoria compartido, habitualmente para los trabajos del QBATCH se utiliza el *SHRPOOL1, calcular un tamaño mínimo para el pool (400 p.e. después se ajustara) y un nivel de actividad (numero trabajos activos al mismo tiempo en el pool, 10 p.e.) y ejecutar:
CHGSHRPOOL POOL(*SHRPOOL1) SIZE(400) ACTLVL(10) PAGING(*CALC) TEXT('Batch jobs pool')
Después añadir, al subsistema QBATCH, como segundo pool de memoria el *SHRPOOL1:
CHGSBSD SBSD(QBATCH) POOLS((2 *SHRPOOL1))
Una vez hecho, debemos cambiar el direccionamiento para que los trabajos que se sometan en este subsistema utilicen el segundo pool de memoria:
CHGRTGE SBSD(QSYS/QBATCH) SEQNBR(9999) POOLID(2)
A partir de este instante los trabajos que se sometan en el subsistema QBATCH utilizaran el pool de memoria *SHRPOOL1.
El ajuste automático de rendimiento cambiará el tamaño de ese pool y su nivel de actividad según las necesidades de los trabajos, de la disponibilidad de recursos y de los parámetros que le indiquemos en la gestión de pools (WRKSHRPOOL).

Para más información podemos consultar los artículos:
Memoria para subsistema
Asignar prioridad automáticamente

Subsistema de Control

2008-12-15T19:49:00.008+01:00

Nuestro sistema iSeries (AS400) viene con dos configuraciones estándar de subsistema de control para la gestión de trabajos.

Esta configuración se controla con el valor de sistema QCTLSBSD, podemos visualizarlo con DSPSYSVAL SYSVAL(QCTLSBSD).

En los nuevos sistemas viene por defecto como QBASE, en este caso solo arranca unos pocos subsistemas (QSYSWRK, QUSRWRK, QSERVER, QSPL) y la gestión de rendimiento es más difícil, ya que casi todos los trabajos corren en el mismo pool de memoria.

La otra configuración estándar (que viene de los tiempos del S/38) es utilizar el subsistema QCTL, para activarlo solo hemos de cambiar el valor del sistema QCTLSBSD con:
CHGSYSVAL SYSVAL(QCTLSBSD) VALUE('QCTL QSYS ')

Para que el cambio se active deberemos realizar IPL del sistema, por lo tanto deberemos planificar este cambio para cuando sea posible hacerlo.

Ahora cuando arranquemos el sistema tendremos el subsistema de control QCTL en lugar del QBASE. Ademas deberemos incluir en nuestro programa de inicio (valor de sistema QSTRUPGM) el arranque de los subsistemas QBATCH (para trabajos por lotes) y QINTER (para trabajos interactivos) si es que lo hemos modificado.

Ya de paso podemos activar el ajuste automático de rendimiento del sistema con:
CHGSYSVAL SYSVAL(QCTLSBSD) VALUE('2')
Este cambio indica al sistema que haga el ajuste de rendimiento en IPL y dinámicamente y entra en vigor inmediatamente.

Este ajuste incluye entre otros:
- Tamaño memoria
- Niveles de actividad
- Paginación

Para una información más detallada podemos consultar el documento Experience Report

Cambiar inicio de sesión

2008-12-02T01:08:00.022+01:00

Como cambiar la pantalla de inicio de sesión del AS400.

Primero hemos de tener en cuenta que:

El inicio de sesión se asocia a un subsistema, por tanto podemos tener, para algunos subsistemas, diferentes pantallas de inicio de sesión.
No es buena idea cambiar la pantalla del subsistema QCTL.
También deberíamos crear la nueva pantalla en una biblioteca del sistema, como la QGPL, para evitar problemas en caso de restaurar el sistema.

Una vez tengamos claro los puntos anteriores, podemos continuar con el procedimiento:

Crearemos la nueva pantalla tomando como base la del fuente ubicado en QGPL/QDDSSRC.QDSIGNON, la podemos copiar como MYSIGNON.
CPYSRCF FROMFILE(QGPL/QDDSSRC) TOFILE(QGPL/QDDSSRC) FROMMBR(QDSIGNON) TOMBR(MYSIGNON)
Editar el nuevo archivo de pantalla (tipo DSPF) con el PDM, o el SDA.
Si lo que queremos es añadir un texto tipo ASCII Art, puede que nos sea más fácil añadirla con el SDA.
Hemos de respetar todos los campos, si no queremos mostrarlos, los podemos configurar como ocultos, con la columna Use = H o con las palabras clave DSPATR(PR) y DSPATR(ND).
Lo más habitual es solo dejar los campos de entrada Usuario (USERID) y Contraseña (PASSWRD) y de salida con el nombre del Sistema, Subsistema y dispositivo (SYSNAME, SBSNAME, DEVNAME).
Una vez creada la nueva pantalla de inicio de sesión, podemos probarla creando un subsistema especial, ¿como hacerlo? ver la entrada publicada "Asignar prioridad automáticamente" para crear un subsistema SPECIAL.
CHGSBSD SBSD(QGPL/SPECIAL) SGNDSPF(QGPL/MYSIGNON)
Una vez comprobado el nuevo inicio de sesión funciona correctamente, ya podemos cambiar la configuración del subsistema QINTER:
CHGSBSD SBSD(QINTER) SGNDSPF(QGPL/MYSIGNON)
Una vez hecho esto debemos reiniciar el subsistema QINTER, si tenemos usuarios conectados deberemos buscar el momento adecuado para hacerlo.
Esto deberíamos hacerlo desde la consola del sistema:
ENDSBS SBS(QINTER) OPTION(*IMMED)
y a continuación:
STRSBS SBSD(QINTER)
Y ya tenemos nuestra nueva pantalla de signon.

Obtener listas objetos en IFS

2008-11-28T17:33:00.006+01:00

Como obtener listas de objetos en el Integrated File System del AS400.

Habitualmente sabemos navegar desde la pantalla verde con el mandato
WRKLNK OBJ('/') DETAIL(*EXTENDED) DSPOPT(*ALL) pero si desde un programa queremos obtener una lista de archivos del directorio '/home/temp' (por ejemplo) no tenemos un mandato para hacerlo directamente y hemos de volcarlo a spool y leer ese spool o utilizar una API del sistema.

Una solución sencilla, si esta instalado el entorno QSHELL (opción 30 del 5722SS1) , es ejecutar mandatos tipo UNIX, pongo algunos ejemplos de los que se puede conseguir:

Obtener contenido del directorio /home/temp (en el archivo MYLIB/LISTDIR):

QSH CMD('ls /home/temp/* >/qsys.lib/mylib.lib/listdir.file/listdir.mbr')

Obtener lista de directorios del sistema (atención puede tardar horas):

QSH CMD('find / -type d |grep -v "QSYS.LIB" |grep -v "QNTC">/qsys.lib/mylib.lib/listdir.file/listdir.mbr')

o también:

QSH CMD('ls -alR / |grep "/" |grep -v "l" |grep -v "QSYS.LIB">/qsys.lib/mylib.lib/listdir.file/listdir.mbr')

Prompt selectivo de mandato

2008-11-18T11:00:00.004+01:00

La función del prompt selectivo en los mandatos es útil en un programa CL interactivo. Con esta función podemos ahorrarnos algún paso de parámetro en el programa.

El prompt selectivo se utiliza insertando caracteres especiales delante de los parámetros de los mandatos, los valores permitidos son:

?? Muestra el prompt del parámetro y permite cambiarlo.
?* Muestra el prompt del parámetro pero no permite cambiarlo
?- Oculta el parámetro.
?< Muestra el prompt del parámetro y permite cambiarlo, pero el valor por omisión es el que le enviamos desde el programa.
?& Solo se muestra el prompt del parámetro si se pulsa F10 y permite cambiarlo.
?% Solo se muestra el prompt del parámetro si se pulsa F10, pero no permite cambiarlo.

Ademas si colocamos un ? delante del mandato nos modifica el comportamiento de los prompt selectivos:

blanco Muestra solo los parámetros con prompt selectivo, no permite F9.
? Muestra prompt del mandato y permite cambiar parámetros y pulsar F9.

Un ejemplo para ilustrar esta función, queremos crear un programa que restaure objetos desde un *SAVF, pero queremos dejar al usuario la elección de ciertos parámetros, de otros informarle de su valor y ocultar el resto aunque estén definidos, para ello usaremos el código siguiente:

RSTOBJ ??OBJ(*ALL) SAVLIB(LIBSAV) ?-DEV(*SAVF) OBJTYPE(*ALL) ?*SAVF(LIBSAVF/SAVF) ??RSTLIB(LIBSAV2)

Al ejecutar el programa obtendremos la siguiente pantalla:

De esta forma dejamos al usuario cambiar que objetos quiere restaurar y en que biblioteca, aunque le mostramos una por omisión y si la deja en blanco el prompt vuelve a mostrar el valor que le hemos pasado desde programa; también puede ver que archivo de salvar se utilizará, pero no el resto de parámetros, ni aun pulsando F10 o F9.

Veamos que ocurre si añadimos el carácter ? delante del mandato RSTOBJ, también añadimos ?- en el parámetro DEV :

? RSTOBJ ??OBJ(*ALL) SAVLIB(LIBSAV) ?-DEV(*SAVF) OBJTYPE(*ALL) ?*SAVF(LIBSAVF/SAVF) ??RSTLIB(LIBSAV2)

Ahora vemos el resto de parámetros obligatorios que no se mostraban antes, excepto DEV que tiene la opción de prompt ?-, y además podemos pulsar F10 para ver el resto de parámetros.

Para controlar el prompt de los parámetros opcionales se utiliza ?% y ?&, aunque puede complicarnos el programa ya que hay parámetros que pueden depender de si usamos otros.

Nota: Si usamos el prompt selectivo también debemos de incluir la siguiente instrucción por si nos pulsan F3=Salir o F12=Cancelar:
MONMSG MSGID(CPF6801) /* F3 o F12 */

Más información en iSeries Information Center

Asignar prioridad automáticamente

2008-11-02T22:00:00.003+01:00

Como asignar una prioridad automáticamente para ciertos trabajos, o aplicaciones.

Supongamos que tenemos unos trabajos que queremos que tengan cierto tipo de prioridad (alta o baja) en la ejecución, habitualmente se utilizan los parámetros RUNPTY y TIMESLICE, para ello habremos de crear una clase especial para nuestros trabajos y es recomendable también crear un subsistema especial para dichos trabajos.

El procedimiento a seguir para crear este entorno especial:

Crear la cola de trabajos asociada al subsistema:
CRTJOBQ JOBQ(QGPL/SPECIAL) TEXT('Job queue for specials jobs Subsystem')
Crear el subsistema:
CRTSBSD SBSD(QGPL/SPECIAL) POOLS((1 *BASE) (2 *SHRPOOL1)) MAXJOBS(*NOMAX) TEXT('Subsystem for specials jobs')
Con esto conseguimos que el trabajo, de tipo subsistema, se ejecute en el pool de memoria base y el resto de trabajos del subsistema se ejecutaran en el pool de memoria *SHRPOOL1.
Añadir la cola de trabajos al subsistema:
ADDJOBQE SBSD(QGPL/SPECIAL) JOBQ(QGPL/SPECIAL) MAXACT(*NOMAX) SEQNBR(10)
Poner *NOMAX, o el numero máximo de trabajos, que queremos que se ejecuten por esa cola, el numero de secuencia es importante por si tenemos más de una cola de trabajos.
Crear la nueva clase:
CRTCLS CLS(QGPL/SPECIAL) RUNPTY(25) TIMESLICE(10000) PURGE(*NO) TEXT('Class for subsystem of special jobs')
Asignar las entradas de direccionamiento para solo los trabajos batch que queramos usen la nueva clase:
ADDRTGE SBSD(QGPL/SPECIAL) SEQNBR(10) CMPVAL('SPECIAL') PGM(QCMD) CLS(QGPL/SPECIAL) POOLID(2)
Añadir entradas de direccionamiento para el resto de trabajos:
ADDRTGE SBSD(QGPL/SPECIAL) SEQNBR(9999) CMPVAL(*ANY) PGM(QCMD) CLS(*LIBL/QBATCH) POOLID(2)
Con estas dos entradas de direccionamiento conseguimos que:
Los trabajos que, en la descripción de trabajo, envían como direccionamiento el valor RTGDTA('SPECIAL') usaran la clase QGPL/SPECIAL que les asignará un RUNPTY de 25 y un TIMESLICE de 10.000.
El resto de trabajos usará la clase QGPL/QBATCH, que les asigna un RUNPTY de 50 y un TIMESLICE de 5.000.
En ambos casos los trabajos se ejecutaran por el POOLID 2, o sea en este caso en el *SHRPOOL1 (ver paso 5).
A continuación creamos una nueva descripción de trabajo, o modificar la que queramos usar, para que los trabajos se sometan por el nuevo subsistema:
CRTJOBD JOBD(QGPL/SPECIAL) JOBQ(QGPL/SPECIAL) TEXT('Job description for special jobs') RTGDTA('SPECIAL')
También podemos someterlos con SBMJOB, pero entonces habrá que acordarse de comprobar y modificar manualmente el parámetro RTGDTA en el mandato SBMJOB, en caso contrario usaran la clase por omisión asignada a *ANY.
Si además queremos usar el mismo subsistema para que se conecte alguna pantalla tendremos de:
Añadir el pool de memoria interactivo al subsistema:
CHGSBSD SBSD(QGPL/SPECIAL) POOLS((1 *BASE) (2 *SHRPOOL1) (3 *INTERACT))
Añadir una entrada de direccionamiento para los trabajos interactivos:
ADDRTGE SBSD(QGPL/SPECIAL) SEQNBR(20) CMPVAL('QCMDI') PGM(QCMD) CLS(*LIBL/QINTER) POOLID(3)
Añadir el nombre de dispositivo de pantalla que tendrá acceso al subsistema:
ADDWSE SBSD(QGPL/SPECIAL) WRKSTN(Device_name)
Con esto conseguimos que los trabajos interactivos se les asigne los valores de la clase QINTER y que son de RUNPTY 20 y un TIMESLICE de 2.000.
Además se ejecutaran en el pool de memoria para trabajos interactivos (*INTERACT), optimizando de esta forma el funcionamiento del ajuste automático de rendimiento del sistema:
Ahora solo nos queda:
Asignar memoria al pool compartido *SHRPOOL1, si no lo estamos usando (podemos comprobarlo con WRKSHRPOOL):
CHGSHRPOOL POOL(*SHRPOOL1) SIZE(256) ACTLVL(1)
Finalmente arrancar el nuevo subsistema:
STRSBS SBSD(QGPL/SPECIAL)
El tamaño del pool y el nivel de actividad se irán ajustando automáticamente si tenemos el ajuste de rendimiento del sistema activado:
DSPSYSVAL SYSVAL(QPFRADJ)

Nota: Si queremos deshacer la asignación de memoria en *SHRPOOL1 ejecutar el mandato CHGSHRPOOL POOL(*SHRPOOL1) SIZE(*NOSTG)

¿Como podemos controlar la memoria asignada a estos trabajos y de esta forma controlar el ajuste automático del sistema?, entonces habéis de leer la entrada Memoria para subsistema publicada anteriormente.

Sincronizar la hora del AS400

2008-10-10T12:03:00.019+02:00

Para ello utilizaremos el servicio SNTP (Simple Network Time Protocol), este servicio nos sincroniza la hora del equipo con la de un servidor de hora, que puede estar en nuestra red o en Internet.

En nuestro AS400 tenemos disponible este servicio desde la V5R2, y es funcional (o sea que cambia la hora del reloj automáticamente) a partir de la V5R4. Para configurar el servicio SNTP en el AS400 ejecutar el mandato CHGNTPA con los parámetros:
CHGNTPA RMTSYS('direccion_servidor_hora') AUTOSTART(*YES) POLLITV(60) MINADJ(100) MAXADJ(20) ACTLOG(*CHANGE)

Además debemos activar la opción de ajuste automático de la hora:
CHGSYSVAL SYSVAL(QTIMADJ) VALUE(QIBM_OS400_SNTP)

También debemos configurar nuestra zona horaria para ello ejecutar:
WRKSYSVAL SYSVAL(QTIMZON), el valor para Europa es QP0100CET4
Offset . . . . . : +02:00
Full name . . . : Central European Daylight Saving Time
Abbreviated name : CEST
Podemos pulsar F4 para vez las zonas disponibles.

Atención: Cuando realicemos este cambio, inmediatamente después comprobar la hora del sistema, no sea que se le ocurra ajustarse en ese momento al horario de verano/invierno.

Para arrancar el servicio de sincronización de hora la primera vez, después debería ser automático ya que en la configuración del servicio hemos indicado AUTOSTART(*YES) o sea que se arrancara con el sistema :

STRTCPSVR SERVER(*NTP)

Para detener el servicio ejecutar: ENDTCPSVR SERVER(*NTP)

Podemos consultar la actividad de este servicio buscando el mensaje TCP9105 en el log del sistema (DSPLOG MSGID(TCP9105)), el mensaje nos indica donde esta el log del servicio (uno por día), normalmente ubicado en el directorio /QIBM/USERDATA/OS400/TCPIP/NTP/

Nota: Revisar esta carpeta periódicamente, ya que se van acumulando los logs y no se vacían automáticamente.

Modificar menu PetSis

2008-10-07T22:45:00.015+02:00

Para modificar el menú de Petición de Sistema (tecla PetSis) hemos de cambiar el mensaje CPX2313 para modificar los mandatos que llama el sistema cuando se pulsa esta tecla.

La opción "1. Visualizar inicio de sesión para trabajo alternativo" no se puede modificar, o sea que la primera opción que se puede modificar es "2. Finalizar petición anterior " que corresponde al mandato ENDQRS del texto del mensaje.
El valor por omisión del mensaje se puede ver con el mandato:

DSPMSGD RANGE(CPX2313) MSGF(QSYS/QCPFMSG)

Por ejemplo, Como modificar la opción "3.Visualizar trabajo actual" para utilizar el comando WRKJOB, en lugar del DSPJOB, y de paso disponer de una línea de mandatos, pero solo según el tipo de usuario, ya que no queremos que ningún usuario normal tenga acceso a la línea de mandatos en mitad de una aplicación.

Para ello seguiremos el siguiente procedimiento:

Crearemos el programa CL DSPJOB2CL
Crearemos el mandato DSPJOB2 que llama al programa DSPJOB2CL
Este programa comprueba el tipo de usuario, si es *SECOFR o *PGMR o *SYSOPR ejecuta el mandato WRKJOB, en caso contrario ejecuta el mandato DSPJOB (como hasta ahora).
Finalmente cambiamos el texto de mensaje CPX2313 para que ejecute DSPJOB2 en lugar de DSPJOB: CHGMSGD MSGID(CPX2313) MSGF(QSYS/QCPFMSG) MSG('ENDRQS DSPJOB2 DSPMSG SNDMSG SIGNOFF DSPMSG DSCJOB DSPWSUSR ENDRDBRQS ')
¡¡ Respetar espacios en blanco en el cuerpo del mensaje!!

Notas:

El código de DSPJOB2 lo podemos bajar de aquí.
Si tenemos lenguajes secundarios instalados, deberemos realizar el mismo cambio para todas las bibliotecas QSYSnnnn.
Deberemos revisar este mensaje cada vez que actualicemos el sistema operativo, o que alguna ptf modifique el archivo de mensajes QCPFMSG.

Calculadora en ventana

2008-10-07T20:24:00.017+02:00

Puesta al día de la utilidad CALCUL que nos muestra, en una ventana en modo texto, una calculadora. La podemos incluir en nuestras aplicaciones de pantalla verde, cuando tenga sentido que la puedan utilizar, o desde la línea de mandatos.

La ayuda la tenemos pulsando la tecla F1.

El código de esta utilidad lo podemos bajar de aquí.

Memoria para subsistema

2008-10-02T23:15:00.006+02:00

Como reservar memoria y asignar una prioridad automáticamente para ciertos trabajos o aplicaciones en uno o más subsistemas utilizando la memoria compartida.

Supongamos que tenemos unos trabajos que queremos que tengan reservada cierta cantidad de memoria solo para ellos y cierto tipo de prioridad (alta o baja) en la ejecución (habitualmente los parámetros RUNPTY y TIMESLICE).

En esta entrada explicare como reservar cierta cantidad de memoria para un subsistema.

Crear un subsistema para ese tipo de trabajo es buena idea, así separamos el consumo de memoria y el ajuste automático del sistema trabaja mejor (QPFRADJ).
Doy por supuesto que tienes el ajuste automático del sistema activado (QPFRADJ 2 o 3)
Puedes asignarle a ese pool una cantidad de memoria, que puede ser variable o fija. Si la quieres siempre fija lo indicaras cuando creas el subsistema (CRTSBSD)
Para crear un pool de memoria haz WRKSHRPOOL y asigna memoria, por ejemplo, al *SHRPOOL2, habitualmente el *SHRPOOL1 se utiliza para trabajos en el subsistema QBATCH, aunque no viene definido por omisión en el sistema.
Después debes cambiar la descripción del nuevo subsistema para que utilice ese nuevo pool de memoria, normalmente yo recomiendo poner 2 pools el *BASE en primer lugar y *SHRPOOL2 en segundo lugar.
Después deberás crear nuevas clases (CRTCLS) para el nuevo subsistema, que utilicen el segundo pool de memoria del subsistema y asignarlas a las entradas de direccionamiento del mismo (CHGRGTE), esto lo explicare en otro howto.
Con esto conseguimos que el trabajo subsistema, corra en el pool *BASE y el resto de trabajos, dentro del subsistema, en el *SHRPOOL2.
Para el ajuste de memoria del *SHRPOOL2, haz WRKSHRPOOL y pulsa F11 (otra vista), en las columnas que ves, puedes definir que porcentaje de memoria mínimo y máximo quieres que se lleven los trabajos de ese pool, si ponemos el mismo porcentaje en min y max lo que conseguimos es dejar fijo el tamaño de la memoria utilizada por ese pool.
Esto creo que es mejor que asignar memoria fija al subsistema (paso 3) ya que en caso de equivocarnos solo hemos de cambiar el porcentaje y el ajuste auto del sistema hará el resto. De la otra forma hay que parar el subsistema.
¿Como calcular el tamaño de memoria que vas a necesitar?, pues es difícil, seguramente los trabajos están más tiempo esperando o leyendo disco, que utilizando memoria y CPU, pero si tiene que ver con la cantidad de trabajos que tenemos activos y en RUN en el subsistema. Mi recomendación es partir de un valor de tamaño de pool conocido, tirando a alto, y observar la paginación de ese pool de memoria (DSPSYSSTS) , si aparecen trabajos en estado INEL, indica que falta memoria en ese pool, ir añadiendo memoria al pool hasta que veamos que ya no aparecen trabajos en INEL u estado intermedios.
Una recomendacion, para hacer estos ajustes, es mejor que no lo hagas en tu hora punta (mas que nada para que no te lleguen llamadas de usuarios) y tambien es mejor desactivar, mientras haces la prueba, el ajuste automático del sistema (QPFRADJ = 0) ya que en caso contrario te puede distorsionar el resultado.
También debes saber que si tu proceso utiliza SQL el optimizador de SQL puede que decida crear un nuevo plan de acceso si ve que ha cambiado el tamaño del pool, eso no debería suponer un problema, pero en algunas instalaciones se traduce en un peor tiempo de respuesta de la aplicación, ya que reconstruye el plan de acceso demasiado a menudo.

Duración de un RCLSTG

2008-09-25T11:00:00.034+02:00

Como averiguar la duración del ultimo proceso de Reclaim Storage (RCLSTG) realizado en el sistema, para ello ejecutar el mandato:
DSPDTAARA DTAARA(QUSRSYS/QRCLSTG)

Tal como se ve en la imagen el ultimo RCLSTG se ejecuto desde las 05:45:15h hasta las 09:51:46 del 01/06/2008, por tanto el proceso duro 4h 6min. 31seg.

En el histórico del sistema se graba el mensaje CPC8208 "Proceso de RCLSTG terminado" que nos informa de la cantidad de objetos procesados y suprimidos.

Para imprimir el histórico del sistema con los mensajes de como ha ido:

DSPLOG PERIOD((hora_inicio fecha_inicio) (hora_fin fecha_fin)) OUTPUT(*PRTSECLVL) MSGID(CPC8208 CPF3120 CPC3308 CPF8240 CPF8262 CPF8260 CPFA914 CPI8202 CPI8A10 CPC8A21 CPC8A22)

Para ver el contenido de la biblioteca QRCL , donde van a parar los objetos recuperados por el RCLSTG, ejecuta el mandato:

DSPLIB LIB(QRCL)

Esto es conveniente porque se puede haber recuperado algún objeto de tamaño considerable y que seguramente se debería eliminar.

De paso recordar que se debería pasar un RCLSTG periódicamente o, cuando ha habido una caída del sistema, y es casi obligatorio pasarlo antes de la instalación de una nueva release del sistema operativo.

También tener en cuenta que a partir de la V5R4 (algunos antes) tenemos algunos mandatos para reclamar cosas sin tener el sistema restringido:

RCLDBXREF Reclaim DB Cross-Reference
RCLDLO Reclaim Document Lib Object
RCLLIB Reclaim Library
RCLLNK Reclaim Object Links
RCLOBJOWN Reclaim Objects by Owner
RCLSPLSTG Reclaim Spool Storage
RCLSTG Reclaim Storage

Cuenta iSeries gratuita

2008-09-10T16:01:00.004+02:00

Como no siempre disponemos de un sistema AS400, cuantas veces nos hemos quedado con las ganas de probar algo en un sistema que no fuera el nuestro, o cuando no estamos en nuestro trabajo, o simplemente por aprender cosas nuevas.

Pues bien existe la web de Innovative Systems que nos da esa posibilidad

Solo hemos de registrarnos y esperar que nos envíen el usuario y la contraseña para acceder a un sistema AS400 remoto a través de Internet.

Espero que os sirva de ayuda :o)

Nefarious Masqueraders

2008-09-03T20:31:00.009+02:00

Un articulo que llamo mi atención, hace tiempo, es el titulado "Nefarious Masqueraders" publicado en la web de The AS/400 School.

En él, se nos introduce en las técnicas para introducirse en un AS/400 y que nos puede servir, como administradores de sistemas, para ser conscientes de las vulnerabilidades del sistema y, de esta forma, poder tomar medidas para proteger mejor nuestros sistemas.

Traducción online del articulo

Lógicos en diferente biblioteca

2008-06-24T18:24:00.002+02:00

Una manera rápida de como averiguar qué archivos lógicos no están en la misma biblioteca que sus archivos físicos, es mediante la siguiente instrucción SQL, que accede al fichero QSYS/QADBFDEP :

SELECT DbFLib, DbFFil, DbFLDp, DbFFDp
FROM Qsys/QADbFDep
WHERE DbFLib <> DbFLDp
ORDER BY DbFLib, DbFFil, DbFLDp, DbFFDp

Una de las razones para controlar este tipo de situación es que, en caso de restauración de las bibliotecas, debe hacerse en el orden correcto, ya que sino podemos dejar de restaurar algún archivo lógico, y nos obligaría a realizar una segunda restauración con el parámetro *NEW.
Esto también se aplica a archivos con restricciones, aunque en este caso es recomendable no tener archivos dependientes en diferentes bibliotecas y evitemos, siempre que podamos, estas situaciones.

Por ejemplo, si restauramos desde las copias de seguridad, realizadas con *ALLUSR, las bibliotecas están salvadas en la cinta en orden alfabético, pero el archivo LIB1/INDEX1 no se restaurara, porque no encuentra el archivo físico FILE1, del que depende, ya que esta en la biblioteca LIB2 que aun no se ha restaurado.

Library File Type
LIB1 INDEX1 LF
LIB2 FILE1 PF

Gestionar receptores de diario

2008-06-19T12:21:00.002+02:00

Estrategias de como gestionar receptores de diario

El tema es complicado, ya que depende mucho de los requerimientos de la aplicación, de seguridad, de replicación, etc..., para poder aplicar una estrategia de gestión de los receptores de diario. Intentare explicar los casos que se me ocurren en nuestra estrategia, para que sirvan de ejemplo.

Dejo aparte la gestión de los receptores del propio sistema, que habitualmente se autogestionan en tiempo de IPL, si no vamos a realizar IPL en muchos tiempo puede que tengamos también que incluirlos en nuestra estrategia, no sin antes verificar y consultar con IBM, si fuese necesario, que impacto puede tener en el sistema.

Caso1: En los sistemas de producción los receptores de diario están gestionados por MIMIX (u otra herramienta de replicación) y se mantienen en linea unos días y después se eliminan automáticamente por el software de replicación y si se han salvado previamente a cinta.
Caso2: En los sistemas de producción que no tienen MIMIX, los receptores se van salvando a cinta y eliminando periódicamente (según el sistema).
Caso3: En los sistemas de desarrollo (que nunca tienen MIMIX) los receptores los elimina automáticamente el sistema, cuando ya no hay ningún ciclo de compromiso pendiente y aunque no estén salvados a cinta, excepto los de auditoria del sistema (QAUDJRN) que se eliminan una vez salvados a cinta.
Caso4: Poner la vuestra...

Formas de detectar si hay ciclos largos de commit abiertos:

Caso1: MIMIX detecta en que ciclo de commit estamos "encallados" y que nos retrasa la hora de aplicación de MIMIX, con la utilidad DSPJOBSEC averiguamos rápidamente que trabajo tiene el ciclo de commit abierto y podemos actuar en consecuencia.
Caso2: Podemos deducir que con el movimiento normal podemos generar, en una semana (p.e.) 10 receptores de diario, si detectamos que hay más receptores de lo habitual es posible que hayan ciclos de commit abiertos.
Caso3: Este es el más fácil, como mucho solo puede haber un receptor conectado al diario, ya que el resto el sistema y los va eliminando automáticamente, por tanto si vemos que hay más, es (casi) seguro que algún trabajo tiene un ciclo de commit abierto.

Causas de los ciclos de commit largos:

Programas que no hacen commit (mala programación), o se meten en un bucle.
Sentencias SQL. o QMQuery, sin ciclos de compromiso de larga ejecución; deberían evitarse o analizar si es posible lanzarlos con WITH NC (sin commit) aunque eso a veces no es posible si queremos tener consistencia en la base de datos.
A veces detectamos algún CPYF que tiene ciclos de commit (no recuerdo bien como fue).
Programadores que están debugando, abren un ciclo de commit, les casca el programa y van a por otra cosa, o hacen petición de sistema, o se van a comer, y el ciclo de commit se queda abierto hasta que no hacen signoff.
Otras ?? (que cada uno añada las suyas)

Como detectar "automáticamente" si hay ciclos de commit abiertos:

Estuve investigando usar el mandato WRKCMTDFN (a partir V5R4) pero de momento no puedo diferenciar los ciclos de commit abiertos con registros pendientes de los que no, aunque si se ve por pantalla con F11, a lo mejor dándole al "coco" mas tiempo....
De momento se nos ocurrió: Contar el numero de receptores de diario de cada diario.

DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*JRNRCV) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JRNRCV) OUTMBR(*FIRST *REPLACE)
Doy por supuesto que en una biblioteca no hay mas de un diario, que podría ser.
Deberemos omitir el diario de auditoria y los de sistema, habitualmente empiezan por Q* y en bibliotecas que también empiezan por Q*.

Otra estrategia seria hacer:

DSPOBJD OBJ(Mylib/Myjrn1) OBJTYPE(*JRNRCV) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JRNRCV) OUTMBR(*FIRST *REPLACE)
DSPOBJD OBJ(Mylib/Myjrn2) OBJTYPE(*JRNRCV) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JRNRCV) OUTMBR(*FIRST *ADD)
DSPOBJD OBJ(MylibX/MyjrnX) OBJTYPE(*JRNRCV) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JRNRCV) OUTMBR(*FIRST *ADD)
Después contamos los receptores de cada diario, o lo hacemos por cada biblioteca cada vez, en fin múltiples posibilidades según se adapte a nuestra estrategia.

Una vez sabemos que diario tiene un numero "anormal" de receptores, dejo para cada uno lo que es anormal, seguimos con:

Como detectar "automáticamente" que trabajo tiene un ciclo de commit abierto:

Volcamos el contenido del diario, de las entradas relacionadas con los ciclos de commit, a fichero (esto puede tardar):

DSPJRN JRN(Mylib/MyJrn) RCVRNG(*CURCHAIN) JRNCDE((C)) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPJRN)

Después ejecutamos la sentencia SQL siguiente (esto es la "madre del cordero" ¡¡ gracias Inma!!):

WITH aa AS (SELECT * FROM dspjrn WHERE joentt = 'SC'), bb AS
(SELECT * FROM dspjrn WHERE joentt <> 'SC') SELECT aa.joseqn,
aa.jodate, aa.jotime, aa.jonbr, aa.jouser, aa.jojob, aa.joccid from
aa LEFT EXCEPTION JOIN bb ON aa.joccid = bb.joccid

Esta SELECT nos devolverá la lista de trabajos con un ciclo de commit abierto, y la hora de del ciclo de commit, ya solo nos queda ir al trabajo a ver que pasa.

Espero que, al menos, os sirva como base para detectar esos trabajos que nos pueden fastidiar, ya que normalmente los ciclos de commit largos le sientan como una "patada" al OS/400, y ya no digo si hay que hacer un rollback.

Por poner un ejemplo: Un programador un viernes y en un sistema de desarrollo (que estan 24x7) hace un call a un programa que se mete en un bucle, con un ciclo de commit abierto, haciendo updates del mismo registro como un "poseso", se cae su sesión y como no puede volver a entrar, se marcha de fin de semana. El lunes se descubre que hay una sesión en RUN todo el tiempo, se hace un ENDJOB *IMMED, con millones de cambios comprometidos en el mismo ciclo de commit. El trabajo tarda como 2 horas en empezar a hacer el rollback y 2 días en terminarlo. A todo esto la ocupación en disco ha ido subiendo, porque el sistema no elimina los receptores de diario desconectados, y salvados, ya que hay un ciclo de commit con transacciones pendientes. En fin que tenemos maquinas potentes, que si no andamos con cuidado podemos cargarnos el sistema.

Porcentaje rollback realizado

2008-05-25T09:42:00.000+02:00

Procedimiento para ver el porcentaje de Rollback que ya ha realizado un trabajo:

Ejecutar mandato DSPJOB JOB(num_job/user_job/name_job)
Seleccionar opcion "16. Display commitment control status, if active"
Opcion "5=Display"
Pulsar "F6=Display resource status"
Pulsar AvPag.
Seleccionar opcion "1=Select" en el recurso "Journal"
Finalmente pulsar "F11=Display rollback status"

Restaurar archivos QHST

2008-05-05T18:28:00.000+02:00

Como restaurar los archivos históricos desde una cinta de SAVSYS, para ello seguir el siguiente procedimiento:

Cargar la cinta donde realizamos el SavSys
DSPTAP DEV(TAP01) DATA(*SAVRST)
Ir pulsando Intro hasta encontrar la secuencia donde están los archivos QHST.
Anotar numero secuencia y ID etiqueta archivo (p.e. Q5722SS1510310090)
Ejecutar RSTOBJ OBJ(QHST*) SAVLIB(QSYS) DEV(TAP01) OBJTYPE(*FILE) VOL(Q5722SS1510310090) SEQNBR(33)

Mejorar teclado emulacion 5250

2008-04-06T17:37:00.007+02:00

El IBM Client Access incluye el emulador de pantalla verde 5250 Personal Communications.

La configuración por omisión no incluye ciertas funciones que los usuarios de los sistemas operativos de ventanas encontramos a faltar, como son las teclas Inicio para ir al Inicio del Campo, Fin para ir al Fin del Campo, Ctrl+C para Copiar un texto seleccionado o Ctrl+V para Pegar un texto; Ctrl+X no tiene sentido en una emulación 5250.

Como hacer esta personalización de teclado de la emulación, pues seguir los siguientes pasos:

Bajaros el archivo as400_mejorado.kmp y lo guardais en la carpeta C:\Program Files\ibm\Client Access\Emulator\Private o donde os parezca mejor.
Desde la emulación de pantalla del Personal Communications, pulsais el icono o Edit, Preferences, Keyboard, Customize.
Despues File, Open y seleccionar el archivo de configuración de teclado que os habeis bajado.
A continuación salvar la nueva configuración.

A partir de ese momento ya podreis utilizar el teclado de la emulación de forma mas parecida a la que utilizais con un sistema operativo grafico de ventanas.

Esta configuración de teclado también convierte la tecla grande de Intro, como un Intro y no como Salida de Campo, esta la muevo a la tecla Ctrl de la derecha.

La clave de las claves

2008-04-02T20:17:00.003+02:00

La elección de un buena contraseña, la palabra clave que franquea el acceso a un ordenador, es esencial para salvaguardar la seguridad de los datos que contiene. Los expertos recomiendan las siguientes reglas básicas:

Una contraseña ha de ser sencilla. Desde luego, la clave TMXKQGSW resulta bastante segura frente a hackers que lo intentan al azar, pero es muy difícil de recordar.
Una contraseña no debe tener significado. Las palabras con significado son las más fáciles de reventar. Esto no excluye que sean sencillas de memorizar. Ejemplos: ZAZAMELI, PERPOLAS, RATOGARU.
Una contraseña hay que memorizarla, no apuntarla. Quien no se fíe demasiado de su memoria a largo plazo, puede apuntar su palabra clave, pero nunca de manera que un extraño pueda reconocerla como tal. Así, nunca se la ha de escribir en el listín telefónico bajo CLAVE, SECRETO u ORDENADOR. Es mejor garabatearla en la agenda junto al recordatorio del cumpleaños de la abuela. En ningún caso se debe dejar la nota escrita cerca del ordenador, bajo el teléfono o pinchada en el panel de corcho.
De vez en cuando conviene cambiar la contraseña. Por si acaso alguien no autorizado ya lo conoce pero todavía no se ha decidido a usarlo. Tampoco es preciso cambiarlo muy a menudo, podría causarnos molestas equivocaciones.
Una contraseña se teclea en privado. Al introducir la clave antes de comenzar una sesión de trabajo, hay que asegurarse de que nadie mire por encima del hombro. Las personas de confianza hacen honor a su nombre respetando la intimidad del propietario de la clave.
Ciertas palabras nunca han de servir de contraseña:

Nombres propios y apellidos.
Apodos. El propio, jamás, pero tampoco el del perro o el gato.
Palabras informáticas, como TEST, SYSTEM, CHECK, BYTE...
Fechas de cumpleaños.
Cadenas con método: ABCDEFGH, A1B2C3, QWERTY...
Palabras de moda: CHUNGO, GUAI, SUPER, TOTAL...
Nombres de la mitología, la literatura o ciencia-ficción: Zeus, Quijote, Spock, Frodo...
La palabra clave por antonomasia: (ábrete) SESAMO.

Articulo extraído de la revista "Muy Interesante", noviembre 1.989

De mayúsculas a minúsculas

2008-03-27T13:26:00.001+01:00

Como convertir un campo de mayúsculas a minúsculas o viceversa en un programa CL.

Para ello añadimos el siguiente código en nuestro programa, para convertir una variable de 5 caracteres de longitud, y utilizaremos la API QLGCNVCS.

DCL VAR(&VAR1) TYPE(*CHAR) LEN(5)
DCL VAR(&VAR2) TYPE(*CHAR) LEN(5)
DCL VAR(&VARLEN) TYPE(*CHAR) LEN(4) VALUE(X'00000005')
DCL VAR(&CASEU) TYPE(*CHAR) LEN(22) + VALUE(X'00000001000000000000000000000000000000000000')
DCL VAR(&CASEL) TYPE(*CHAR) LEN(22) + VALUE(X'00000001000000000000000100000000000000000000')
DCL VAR(&ERR) TYPE(*CHAR) LEN(4) VALUE(X'00000000')

De mayúsculas a minúsculas llamar a la API con el parámetro &CASEL:
CALL PGM(QLGCNVCS) PARM(&CASEL &VAR1 &VAR2 &VARLEN &ERR)

De minúsculas a mayúsculas llamar a la API con el parámetro &CASEU:
CALL PGM(QLGCNVCS) PARM(&CASEU &VAR1 &VAR2 &VARLEN &ERR)

Plantilla teclado IBM 3197

2008-03-10T13:22:00.004+01:00

Plantilla de teclado del terminal 5250 de IBM modelo 3197

A veces no recordamos como eran los terminales "tontos", aunque el IBM-3197 era de los "espabilados". Esta plantilla es la "chuleta" para acordarnos de las funciones que tenia incorporadas la ALU del terminal, como configurar la dirección twinaxial, tipo de terminal (pantalla, pantalla-pantalla, pantalla-impresora), o las macros, entre otras cosas.

Imprimir fuente en DIN A-4

2008-02-25T17:33:00.002+01:00

Como imprimir un miembro de un archivo de fuentes en formato DIN A-4 y doble cara (si nuestra impresora lo soporta):

Entrar al PDM con el mandato STRPDM
Seleccionar opción "9. Work with user-defined options"
Seleccionar archivo opciones, por omision QGPL/QAUOOPT(QAUOOPT) , pulsar Intro.
Pulsar F6=Create
Opción A4 (por ejemplo)
Introducir en la linea de mandatos:
OVRPRTF FILE(QPSUPRTF) PAGESIZE(102) LPI(9) OVRFLW(102) ALIGN(*YES) FONT(220) PRTQLTY(*DRAFT) PAGRTT(0) DUPLEX(*YES)
Pulsar Intro para guardar la nueva opción del PDM.

Como usar nueva opción A4:

Pulsar la opción A4 delante del miembro que queramos imprimir y después la opción 6=Print, si fuera necesario cambiar el listado a una cola de impresora de hojas.
A partir de pulsar la opción A4 todos los listados que pidamos en esa sesión, se imprimirán en ese formato. Con la opción DUPLEX(*YES) conseguimos imprimir por ambas caras si la impresora lo soporta.

Es posible se tenga que ajustar algún valor para que cuadre con la hoja de nuestra impresora.
Pero de todas formas el medio ambiente nos agradecera que ahorremos algunas hojas.

Cargar imagenes cd a AS400

2008-02-24T20:19:00.000+01:00

Como utilizar un cd en un AS400 que no tiene, o al que no podemos acceder, unidad cd cd-rom:

Seguir el siguiente procedimiento (solo funciona en AS400 a partir V5R2).

Colocar cd en un pc
Arrancar pgm para generar imágenes (UltraISO, Nero, etc...) y crear imagen ISO del cd (cd's) que queremos cargar en el AS400.
Copiar archivo iso generado al un directorio del AS400 (p.e. /images)
Crear catalogo de imágenes en el AS400: CRTIMGCLG IMGCLG(MY_SOFTWARE) DIR('/images/MY_SOFTWARE') CRTDIR(*YES) TEXT('My software V.xx for AS400')
Esto creara el directorio /images/MY_SOFTWARE y el objeto QUSRSYS/MY_SOFTWARE de tipo *IMGCLG
Cargar imagen del cd al catalogo de imagenes: ADDIMGCLGE IMGCLG(MY_SOFTWARE) FROMFILE('/images/My_image.iso') TEXT('My software V.xx for AS400')
Esto crea el archivo del ifs /images/MY_SOFTWARE/My_image.iso
Para comprobar si se ha cargado:WRKIMGCLGE IMGCLG(MY_SOFTWARE)
Crear dispositivo óptico virtual (por única vez): CRTDEVOPT DEVD(OPT90) RSRCNAME(*VRT) ONLINE(*NO) TEXT('cd-rom virtual')
Activar el dispositivo óptico virtual:VRYCFG CFGOBJ(OPT90) CFGTYPE(*DEV) STATUS(*ON)
Cargar el catalogo de imagenes (MY_SOFTWARE) al cd virtual (OPT90): LODIMGCLG IMGCLG(MY_SOFTWARE) DEV(OPT90) OPTION(*LOAD)
Operar como un cd cargado en dispositivo optico OPT90 y realizar las operaciones como habitualmente.
Al terminar descargar el catalogo de imagenes (MY_SOFTWARE) al cd virtual (OPT90): LODIMGCLG IMGCLG(MY_SOFTWARE) DEV(OPT90) OPTION(*UNLOAD)

Copiar archivos spool

2008-02-17T20:58:00.008+01:00

La utilidad CPYJOBSPL nos sirve para copiar todos los archivos de spool de un trabajo, del que conocemos su jobid (numero/usuario/nombre_trabajo), si es el trabajo actual podemos usar el símbolo *.
Si utilizamos la opción *SPL nos copiara los archivos de spool a nuestro spool, nos permite indicar un numero máximo de paginas a copiar.
Si usamos la opción *TEXT, nos convierte todos los archivos de spool a ficheros ASCII dentro de una carpeta del IFS que le indiquemos.

La utilidad la podéis bajar pulsando aquí.

Configurar SNA sobre TCP/IP

2008-01-31T19:55:00.004+01:00

Para configurar las comunicaciones SNA sobre TCPIP entre dos o más AS400 (iSeries) seguir el siguiente procedimiento en los sistemas a conectar:

Prerequisitos:
• TCPIP configurado correctamente.
• Subsistema QSNADS arrancado.
• Añadir usuarios al directorio (WRKDIRE).

Procedimiento, ejecutar en cada uno de los sistemas a conectar:
1. Activar el atributo de red "Permitir soporte AnyNet" con CHGNETA ALWANYNET(*YES), requiere IPL.
2. Añadir nombre al nombre de sistema principal el de 'nombre_sistema.appn.sna.ibm.com', utilizar el mandato CHGTCPHTE o CFGTCP, opción 10 y opción 2 en el sistema a modificar su entrada, de la tabla de sistema principales (HOSTS).
3. Crear el controlador APPC utilizando el mandato CRTCTLAPPC donde xxxxxxx es el nombre de sistema al que conectamos, en cada sistema origen utilizar el nombre del sistema destino.

CRTCTLAPPC CTLD(xxxxxxxx) LINKTYPE(*ANYNW) ONLINE(*YES) APPN(*YES) RMTNETID(*NETATR) RMTCPNAME(xxxxxxxxx) NODETYPE(*LENNODE) BEXROLE(*NETNODE) HPR(*YES) HPRPTHSWT(*NO) TMSGRPNBR(1) AUTOCRTDEV(*ALL) AUTODLTDEV(1440) USRDFN1(*LIND) USRDFN2(*LIND) USRDFN3(*LIND) TEXT('APPN sobre TCPIP para xxxxxxx') CMNRCYLMT(2 5) MSGQ(*SYSVAL)

4. Para crear el dispositivo APPC, y de paso probar la conexión, ejecutar STRPASTHR nombre_sistema, nos debería aparecer el inicio de sesión del sistema destino.

5. Para configurar el envío/recepción de archivos y spool con SNDNETF y/o SNDNETSPLF:
6. Ejecutar el mandato CFGDSTSRV "Configurar Servicios de Distribución".
7. Seleccionar la opción "1=Colas de distribución" y después pulsar "F6=Añadir cola de distribución"
8. Teclear en los campos Cola y Nombre ubicación remota el nombre del sistema destino:

9. Volver a paso 6 y seleccionar a continuación la opción "2=Tabla de direccionamiento", después pulsar "F6=Añadir entrada tabla de direccionamiento".
10. Teclear en los campos indicados el nombre de sistema de destino:

11. Si además queremos utilizar los mandatos SAVRST* entre sistemas debemos tener instalado el producto "OS/400 - ObjectConnect ", para V5R2 es 5722SS1- opción 22.

Blog d'utilitats per AS400

2008-01-01T23:00:00.003+01:00

Utilitats per a..., Utilidades para..., Tools for AS/400 iSeries

Link a mi antigua pagina web de Utilidades para AS/400