Módulo 07 — Subsistemas INTERMEDIÁRIO
Controle de subsistemas, pools de memória e procedimentos de IPL no AS/400.
7.1 Subsistemas Padrão
| Subsistema | Função |
|---|---|
QCTL | Subsistema de controle (primeiro a iniciar) |
QINTER | Jobs interativos (sessões de usuário) |
QBATCH | Jobs batch (lote) |
QSPL | Controle de spool / impressão |
QSYSWRK | Trabalhos do sistema operacional |
QSERVER | Serviços de servidor (FTP etc.) |
QUSRWRK | Trabalhos de comunicação do usuário |
7.2 Monitoramento
WRKSBS /* Listar subsistemas ativos */ WRKACTJOB SBS(*ALL) /* Todos os jobs por subsistema */ DSPSBSD SBSD(QINTER) /* Detalhar subsistema */
7.3 Controle de Subsistemas
STRSBS SBSD(QBATCH) /* Iniciar subsistema */ ENDSBS SBS(QBATCH) OPTION(*CNTRLD) DELAY(300) /* Encerrar (seguro) */ ENDSBS SBS(QBATCH) OPTION(*IMMED) /* ⚠ Forçar encerramento */
⚠ CRÍTICO:
ENDSBS SBS(*ALL) encerra TODOS os subsistemas — use apenas para manutenção programada (IPL)!
ENDSBS SBS(*ALL) OPTION(*CNTRLD) DELAY(600)
7.4 Criando Subsistema Customizado
CRTSBSD SBSD(MEUSUBSIS) POOLS((1 *BASE)) TEXT('Subsistema producao customizado')
ADDJOBQE SBSD(MEUSUBSIS) JOBQ(MEUJOBQ) SEQNBR(10) MAXACT(*NOMAX)
ADDRTGE SBSD(MEUSUBSIS) SEQNBR(10) CMPVAL(*ANY) PGM(QSYS/QCMD) CLS(*SBSD)
7.5 IPL — Initial Program Load
DSPSYSVAL SYSVAL(QIPLTYPE) /* Ver tipo do próximo IPL */ CHGIPLA IPLTIME(02:00:00) IPLDAT(*MON) /* Agendar IPL automático */
⚠ O comando abaixo reinicia o sistema. Confirme com toda a equipe antes de executar!
PWRDWNSYS OPTION(*CNTRLD) DELAY(600) RESTART(*YES) IPLSRC(*PANEL)
Verificar histórico de IPLs
DSPLOG LOG(QHST)
7.6 Pools de Memória
WRKSYSSTS /* Ver uso de memória por pool */ CHGSHRPOOL POOL(*INTER) SIZE(200000) ACTLVL(40) /* Ajustar pool */
Se DB faults/s acima de 10–15 persistentemente, o sistema está com falta de memória.