Lab 04 — Objetos e Bibliotecas INTERMEDIÁRIO

Duração estimada: 45–60 min  |  Pré-requisito: Labs 01–03 concluídos

Objetivos

• Criar e gerenciar bibliotecas
• Copiar, mover e renomear objetos
• Gerenciar arquivos físicos e seus dados
• Criar e restaurar Save Files de backup

Exercício 4.1 — Criando Bibliotecas

1Crie a biblioteca de laboratório:

CRTLIB LIB(LAB04LIB) TYPE(*TEST) TEXT('Biblioteca lab 04 - Testes de objetos')

2Adicione à sua lista de trabalho:

ADDLIBLE LIB(LAB04LIB) POSITION(*FIRST)
DSPLIBL

Exercício 4.2 — Arquivos Físicos

3Copie um arquivo de QGPL para sua biblioteca:

CPYF FROMFILE(QGPL/QCLSRC) TOFILE(LAB04LIB/MEUCLSRC) CRTFILE(*YES) MBROPT(*REPLACE)

4Confirme a criação:

WRKOBJ OBJ(LAB04LIB/*ALL) OBJTYPE(*FILE)

5Exiba membros e registros:

DSPFD FILE(LAB04LIB/MEUCLSRC) TYPE(*MBR)
DSPPFM FILE(LAB04LIB/MEUCLSRC)

Exercício 4.3 — Data Areas

6Crie uma Data Area:

CRTDTAARA DTAARA(LAB04LIB/DTAATESTE) TYPE(*CHAR) LEN(50) VALUE('VALOR INICIAL DO LAB 04') TEXT('Data area de teste')

7Exiba, atualize e confirme:

DSPDTAARA DTAARA(LAB04LIB/DTAATESTE)
CHGDTAARA DTAARA(LAB04LIB/DTAATESTE) VALUE('VALOR ATUALIZADO 2024')
DSPDTAARA DTAARA(LAB04LIB/DTAATESTE)

8Renomeie o objeto:

RNMOBJ OBJ(LAB04LIB/DTAATESTE) OBJTYPE(*DTAARA) NEWOBJ(DTAALAB04)
WRKOBJ OBJ(LAB04LIB/*ALL) OBJTYPE(*DTAARA)

Exercício 4.4 — Copiando e Movendo

9Crie biblioteca destino:

CRTLIB LIB(LAB04DEST) TYPE(*TEST) TEXT('Biblioteca destino lab 04')

10Copie o arquivo:

CRTDUPOBJ OBJ(MEUCLSRC) FROMLIB(LAB04LIB) OBJTYPE(*FILE) TOLIB(LAB04DEST) NEWOBJ(CLSRC_COPIA)

11Mova a Data Area:

MOVOBJ OBJ(LAB04LIB/DTAALAB04) OBJTYPE(*DTAARA) TOLIB(LAB04DEST)
WRKOBJ OBJ(LAB04LIB/*ALL) OBJTYPE(*DTAARA)   /* Deve estar vazio */
WRKOBJ OBJ(LAB04DEST/*ALL) OBJTYPE(*DTAARA)  /* Deve aparecer aqui */

Exercício 4.5 — Backup e Restauração

12Crie Save File e execute o backup:

CRTSAVF FILE(LAB04LIB/BKPLAB04) TEXT('Backup biblioteca LAB04DEST')
SAVLIB LIB(LAB04DEST) DEV(*SAVF) SAVF(LAB04LIB/BKPLAB04)
DSPSAVF FILE(LAB04LIB/BKPLAB04)

📝 Quais objetos foram salvos?

13Restaure em nova biblioteca:

RSTLIB SAVLIB(LAB04DEST) DEV(*SAVF) SAVF(LAB04LIB/BKPLAB04) RSTLIB(LAB04REST)
DSPLIB LIB(LAB04REST)

Exercício 4.6 — Limpeza

14Exclua as bibliotecas de laboratório:

DLTLIB LIB(LAB04REST)
DLTLIB LIB(LAB04DEST)
DLTLIB LIB(LAB04LIB)
RMVLIBLE LIB(LAB04LIB)

✅ Checklist de Conclusão

• Criei bibliotecas com CRTLIB
• Copiei arquivos com CPYF e CRTDUPOBJ
• Criei e manipulei Data Area
• Renomeei objeto com RNMOBJ
• Movi objeto entre bibliotecas com MOVOBJ
• Fiz backup com CRTSAVF + SAVLIB
• Restaurei com RSTLIB
• Limpei bibliotecas de teste com DLTLIB