Gestion del Sistema

WRKSYSVAL                           Lista todos los system values
WRKSYSVAL SYSVAL(QSECURITY)         Ir directo a un valor
DSPSYSVAL SYSVAL(QMAXSIGN)          Ver el valor actual
CHGSYSVAL SYSVAL(QMAXSIGN) VALUE('5')  Cambiar un valor
WRKSYSVAL *SEC                       Filtrar por categoria seguridad
WRKSYSVAL *ALC                       Filtrar por categoria allocation

-- Ver todos los system values de seguridad
SELECT SYSTEM_VALUE_NAME, CURRENT_NUMERIC_VALUE,
       CURRENT_CHARACTER_VALUE
FROM QSYS2.SYSTEM_VALUE_INFO
WHERE SYSTEM_VALUE_NAME LIKE 'QSEC%'
   OR SYSTEM_VALUE_NAME LIKE 'QPWD%'
   OR SYSTEM_VALUE_NAME LIKE 'QMAX%'
ORDER BY SYSTEM_VALUE_NAME;

-- Ver un valor especifico
SELECT CURRENT_NUMERIC_VALUE
FROM QSYS2.SYSTEM_VALUE_INFO
WHERE SYSTEM_VALUE_NAME = 'QSECURITY';

DSPPTF                              Ver PTFs aplicadas al sistema
DSPPTF LICPGM(5770SS1) SELECT(*ALL) Ver PTFs del SO base
WRKPTFGRP                           Ver grupos de PTFs instalados
DSPPTF PTFID(SI99999)               Ver detalle de una PTF especifica

LODPTF DEV(OPTVRT01) PTFID(SI99999)   Cargar PTF desde medio
APYPTF LICPGM(5770SS1) APY(*TEMP)     Aplicar temporalmente
APYPTF LICPGM(5770SS1) APY(*PERM)     Aplicar permanentemente

RMVPTF LICPGM(5770SS1) PTFID(SI99999) Quitar una PTF temporal
SNDPTFORD PTFID(SI99999)              Pedir PTF a IBM (requiere contrato)

-- Ver PTFs aplicadas al sistema base
SELECT PTF_IDENTIFIER, PTF_IPL_ACTION,
       PTF_STATUS_MESSAGE, PTF_LOADED_STATUS
FROM QSYS2.PTF_INFO
WHERE PTF_PRODUCT_ID = '5770SS1'
ORDER BY PTF_IDENTIFIER DESC
FETCH FIRST 20 ROWS ONLY;

-- Ver grupos de PTFs y su nivel
SELECT PTF_GROUP_NAME, PTF_GROUP_LEVEL,
       PTF_GROUP_STATUS
FROM QSYS2.GROUP_PTF_INFO
ORDER BY PTF_GROUP_NAME;

PWRDWNSYS OPTION(*IMMED) RESTART(*YES)    Reiniciar inmediatamente
PWRDWNSYS OPTION(*CNTRLD) DELAY(300)       Apagado controlado (5 min)
PWRDWNSYS OPTION(*CNTRLD) DELAY(600) RESTART(*YES)  Reinicio controlado

DSPSYSVAL SYSVAL(QIPLTYPE)           Ver tipo de IPL configurado
CHGSYSVAL SYSVAL(QIPLTYPE) VALUE('1')  Configurar IPL desatendido
DSPSYSVAL SYSVAL(QIPLDATTIM)         Ver fecha/hora programada de IPL

CHGSYSVAL SYSVAL(QIPLDATTIM) VALUE('03/15/26 23:00:00')  Programar IPL

WRKSYSSTS                           Estado general del sistema
WRKACTJOB SBS(QINTER)               Solo trabajos interactivos
WRKACTJOB SBS(QBATCH)               Solo trabajos batch
WRKACTJOB JOB(QZDASOINIT)           Trabajos de SQL (ODBC/JDBC)
WRKSYSACT                            Actividad en tiempo real

DSPMSG QSYSOPR                      Ver mensajes del operador
DSPLOG LOG(QHST)                    Ver log historico del sistema

-- Estado del sistema (equivale a WRKSYSSTS)
SELECT TOTAL_JOBS, ACTIVE_JOBS_IN_SYSTEM,
       CURRENT_CPU_CAPACITY,
       SYSTEM_ASP_USED, TOTAL_AUXILIARY_STORAGE
FROM QSYS2.SYSTEM_STATUS;

-- Trabajos activos con mas consumo de CPU
SELECT JOB_NAME, AUTHORIZATION_NAME, SUBSYSTEM,
       ELAPSED_CPU_PERCENTAGE, FUNCTION_TYPE, FUNCTION
FROM QSYS2.ACTIVE_JOB_INFO
WHERE ELAPSED_CPU_PERCENTAGE > 0
ORDER BY ELAPSED_CPU_PERCENTAGE DESC
FETCH FIRST 15 ROWS ONLY;

-- Subsistemas activos
SELECT SUBSYSTEM_DESCRIPTION_LIBRARY,
       SUBSYSTEM_DESCRIPTION, STATUS,
       CURRENT_ACTIVE_JOBS, MAXIMUM_ACTIVE_JOBS
FROM QSYS2.ACTIVE_SUBSYSTEM_INFO;

WRKSYSSTS                            Ver pools y su uso de memoria
WRKSHRPOOL                           Ver/modificar shared memory pools
CHGSYSVAL SYSVAL(QPFRADJ) VALUE('2')  Activar ajuste automatico (recomendado)
CHGSYSVAL SYSVAL(QPFRADJ) VALUE('3')  Ajuste automatico + notificacion

WRKDSKSTS                            Ver estado de todas las unidades
WRKASPBRM                            Gestion de ASPs con BRMS
DSPASPSTS ASP(1)                     Estado del ASP del sistema

RCLSTG *SELECT                       Reclamar storage no utilizado
RGZPFM FILE(MILIB/CLIENTES)          Reorganizar archivo fisico (defrag)
DSPLIB LIB(MILIB)                    Ver tamanio de una biblioteca

-- Uso del ASP del sistema
SELECT SYSTEM_ASP_USED AS porcentaje_usado,
       TOTAL_AUXILIARY_STORAGE AS total_gb
FROM QSYS2.SYSTEM_STATUS;

-- Tamanio de bibliotecas
SELECT OBJNAME AS biblioteca,
       OBJSIZE / 1024 / 1024 AS tamano_mb
FROM TABLE(QSYS2.OBJECT_STATISTICS('QSYS', '*LIB'))
ORDER BY OBJSIZE DESC
FETCH FIRST 20 ROWS ONLY;

-- Archivos mas grandes del sistema
SELECT OBJNAME, OBJLIB,
       OBJSIZE / 1024 / 1024 AS tamano_mb,
       NUMBER_ROWS
FROM TABLE(QSYS2.OBJECT_STATISTICS('*ALL', '*FILE'))
ORDER BY OBJSIZE DESC
FETCH FIRST 20 ROWS ONLY;

WRKJOBSCDE                           Ver/gestionar trabajos programados
ADDJOBSCDE JOB(BKPNOCHE)            Agregar un trabajo programado
  CMD(CALL PGM(MILIB/BKPNOCHE))
  FRQ(*WEEKLY)
  SCDDATE(*NONE)
  SCDDAY(*MON *TUE *WED *THU *FRI)
  SCDTIME('230000')

ADDJOBSCDE JOB(RPTMENSUAL)          Reporte mensual
  CMD(CALL PGM(MILIB/RPTMENSUAL))
  FRQ(*MONTHLY)
  SCDDATE(*MONTHSTR)
  SCDTIME('060000')

RMVJOBSCDE JOB(BKPNOCHE)            Eliminar un trabajo programado
CHGJOBSCDE JOB(BKPNOCHE) STATUS(*HLD)  Poner en hold (pausar)