Módulo 05 — Bibliotecas e Objetos INTERMEDIÁRIO
Criação, cópia, movimentação e gerenciamento de objetos e bibliotecas no AS/400.
5.1 Bibliotecas
WRKLIB /* Listar bibliotecas */
WRKLIB LIB(MEU*) /* Filtrar por prefixo */
DSPLIB LIB(MEUALIB) /* Ver conteúdo da biblioteca */
CRTLIB LIB(MEUALIB) TYPE(*PROD) TEXT('Biblioteca de producao')
DLTLIB LIB(MEUALIB) /* ⚠ Exclui TUDO dentro dela */
⚠ CUIDADO:
DLTLIB exclui a biblioteca e todo seu conteúdo sem confirmação individual!5.2 Tipos de Objetos
| Tipo | Descrição |
|---|---|
*FILE | Arquivo (dados, fonte, display, printer) |
*PGM | Programa compilado |
*LIB | Biblioteca |
*DTAARA | Data Area |
*DTAQ | Data Queue |
*JOBD | Job Description |
*OUTQ | Output Queue (fila de spool) |
*MSGQ | Message Queue |
*CMD | Comando |
*USRPRF | User Profile |
5.3 Gerenciamento de Objetos
WRKOBJ OBJ(MEUALIB/*ALL) /* Listar objetos */ WRKOBJ OBJ(MEUALIB/*ALL) OBJTYPE(*FILE) /* Filtrar por tipo */ DSPOBJD OBJ(MEUALIB/MEUOBJ) OBJTYPE(*FILE) /* Detalhar objeto */ RNMOBJ OBJ(MEUALIB/VELHONOME) OBJTYPE(*FILE) NEWOBJ(NOVONOME) MOVOBJ OBJ(MEUALIB/MEUOBJ) OBJTYPE(*FILE) TOLIB(OUTRALIB) CRTDUPOBJ OBJ(MEUOBJ) FROMLIB(ORIGEM) OBJTYPE(*FILE) TOLIB(DESTINO) NEWOBJ(COPIA001) DLTOBJ OBJ(MEUALIB/MEUOBJ) OBJTYPE(*FILE)
5.4 Arquivos Físicos
DSPFD FILE(MEUALIB/MEUARQ) /* Ver estrutura (campos) */ DSPPFM FILE(MEUALIB/MEUARQ) /* Ver registros */ CPYF FROMFILE(MEUALIB/ORIGEM) TOFILE(MEUALIB/DESTINO) MBROPT(*REPLACE) CRTFILE(*YES) CLRPFM FILE(MEUALIB/MEUARQ) /* ⚠ Apaga TODOS os registros */ RGZPFM FILE(MEUALIB/MEUARQ) /* Reorganizar e recuperar espaço */
5.5 Lista de Bibliotecas do Usuário
DSPLIBL /* Ver lista atual */ ADDLIBLE LIB(MEUALIB) /* Adicionar à lista */ RMVLIBLE LIB(MEUALIB) /* Remover da lista */ CHGCURLIB CURLIB(MEUALIB) /* Definir biblioteca corrente */ EDTLIBL /* Editor interativo da lista */
5.6 IFS — Integrated File System
| Caminho | Descrição |
|---|---|
/ | Raiz do IFS |
/QSYS.LIB | Acesso às bibliotecas via IFS |
/home | Diretórios home dos usuários |
/tmp | Arquivos temporários |
WRKLNK OBJ('/home/joao') /* Listar arquivos no IFS */
MKDIR DIR('/home/joao/projetos') /* Criar diretório */
CPYFRMSTMF FROMSTMF('/home/joao/dados.csv') TOMBR('/QSYS.LIB/MEUALIB.LIB/MEUARQ.FILE/MBR1.MBR') MBROPT(*REPLACE)
CPYTOSTMF FROMMBR('/QSYS.LIB/MEUALIB.LIB/MEUARQ.FILE/MBR1.MBR') TOSTMF('/home/joao/export.csv') STMFOPT(*REPLACE)
5.7 Verificação de Disco
WRKDSKSTS /* Status dos ASPs / uso de disco */ WRKCFGSTS CFGTYPE(*DEV) CFGD(DSK*) /* Listar discos configurados */