Db2 for i

-- Crear una tabla (equivale a CRTPF)
CREATE TABLE MILIB.CLIENTES (
  ID         INTEGER GENERATED ALWAYS AS IDENTITY,
  NOMBRE     VARCHAR(100) NOT NULL,
  EMAIL      VARCHAR(200),
  ESTADO     CHAR(1) DEFAULT 'A',
  SALDO      DECIMAL(11,2) DEFAULT 0,
  CREADO     TIMESTAMP DEFAULT CURRENT_TIMESTAMP
);

-- Agregar índice (equivale a CRTLF con clave)
CREATE INDEX MILIB.CLI_EMAIL ON MILIB.CLIENTES (EMAIL);

-- Consultas básicas
SELECT * FROM MILIB.CLIENTES WHERE ESTADO = 'A';

-- Insertar
INSERT INTO MILIB.CLIENTES (NOMBRE, EMAIL)
VALUES ('Fernando Secchi', 'fernando@sinaptrix.com');

-- Actualizar
UPDATE MILIB.CLIENTES SET ESTADO = 'I' WHERE ID = 5;

-- IBM i soporta la notación con barra también
SELECT * FROM MILIB/CLIENTES WHERE ESTADO = 'A';

-- Common Table Expressions (CTEs)
WITH activos AS (
  SELECT * FROM MILIB.CLIENTES WHERE ESTADO = 'A'
)
SELECT COUNT(*), SUM(SALDO) FROM activos;

-- Window functions
SELECT NOMBRE, SALDO,
       RANK() OVER (ORDER BY SALDO DESC) AS ranking
FROM MILIB.CLIENTES;

-- MERGE (upsert)
MERGE INTO MILIB.CLIENTES AS t
USING (VALUES ('nuevo@email.com', 'Nuevo')) AS s(EMAIL, NOMBRE)
ON t.EMAIL = s.EMAIL
WHEN MATCHED THEN UPDATE SET NOMBRE = s.NOMBRE
WHEN NOT MATCHED THEN INSERT (EMAIL, NOMBRE) VALUES (s.EMAIL, s.NOMBRE);

CRTJRNRCV JRNRCV(MILIB/MIRCV0001)          Crear receptor
CRTJRN JRN(MILIB/MIJRN) JRNRCV(MILIB/MIRCV0001)  Crear journal
STRJRNPF FILE(MILIB/CLIENTES) JRN(MILIB/MIJRN)    Iniciar journaling
ENDJRNPF FILE(MILIB/CLIENTES) JRN(MILIB/MIJRN)    Detener journaling
DSPJRN JRN(MILIB/MIJRN)                   Ver entradas del journal

-- Ver trabajos activos (equivale a WRKACTJOB)
SELECT JOB_NAME, JOB_TYPE, JOB_STATUS, CPU_TIME
FROM QSYS2.ACTIVE_JOB_INFO
WHERE JOB_STATUS = 'RUN';

-- Ver tablas de una biblioteca
SELECT TABLE_NAME, TABLE_TYPE, ROW_COUNT
FROM QSYS2.SYSTABLES
WHERE TABLE_SCHEMA = 'MILIB';

-- Ver columnas de una tabla
SELECT COLUMN_NAME, DATA_TYPE, LENGTH, NUMERIC_SCALE
FROM QSYS2.SYSCOLUMNS
WHERE TABLE_SCHEMA = 'MILIB' AND TABLE_NAME = 'CLIENTES';

-- Ver el job log actual
SELECT MESSAGE_ID, MESSAGE_TYPE, MESSAGE_TEXT
FROM QSYS2.JOBLOG_INFO
ORDER BY ORDINAL_POSITION DESC
FETCH FIRST 20 ROWS ONLY;

-- Uso de disco por biblioteca
SELECT SCHEMA_NAME, SYSTEM_SCHEMA_NAME,
       JOURNAL_NAME, NUMBER_TABLES
FROM QSYS2.SYSSCHEMAS
WHERE SCHEMA_NAME LIKE 'MI%';

jdbc:as400://MI_SERVIDOR;naming=sql;libraries=MILIB;prompt=false