En aquest mòdul, explorarem les operacions avançades de fitxers en el Llenguatge de Control (CL). Aquestes operacions són essencials per a la gestió eficient de dades i fitxers en sistemes AS/400. Aprendrem a utilitzar comandes avançades per manipular fitxers, incloent la creació, modificació, còpia, i eliminació de fitxers, així com la gestió de fitxers de dades.

Objectius del Mòdul

  • Comprendre les comandes avançades de gestió de fitxers en CL.
  • Aprendre a crear, modificar, copiar i eliminar fitxers.
  • Gestionar fitxers de dades de manera eficient.

  1. Creació de Fitxers

Comanda CRTFILE

La comanda CRTFILE (Create File) s'utilitza per crear un nou fitxer en el sistema. Aquesta comanda permet especificar diversos paràmetres per definir les característiques del fitxer.

Sintaxi:

CRTFILE FILE(NOMFITXER) RCDLEN(128) TEXT('Descripció del fitxer')

Exemple:

CRTFILE FILE(MYLIB/MYFILE) RCDLEN(128) TEXT('Fitxer de dades de clients')

En aquest exemple, es crea un fitxer anomenat MYFILE a la biblioteca MYLIB amb una longitud de registre de 128 caràcters i una descripció.

  1. Modificació de Fitxers

Comanda CHGFILE

La comanda CHGFILE (Change File) s'utilitza per modificar les propietats d'un fitxer existent.

Sintaxi:

CHGFILE FILE(NOMFITXER) RCDLEN(256) TEXT('Nova descripció del fitxer')

Exemple:

CHGFILE FILE(MYLIB/MYFILE) RCDLEN(256) TEXT('Fitxer de dades de clients actualitzat')

En aquest exemple, es modifica la longitud del registre del fitxer MYFILE a 256 caràcters i s'actualitza la descripció.

  1. Còpia de Fitxers

Comanda CPYF

La comanda CPYF (Copy File) s'utilitza per copiar dades d'un fitxer a un altre. Aquesta comanda és molt útil per fer còpies de seguretat o per duplicar fitxers amb dades similars.

Sintaxi:

CPYF FROMFILE(NOMFITXERORIG) TOFILE(NOMFITXERDEST) MBROPT(*REPLACE)

Exemple:

CPYF FROMFILE(MYLIB/MYFILE) TOFILE(MYLIB/MYFILECOPY) MBROPT(*REPLACE)

En aquest exemple, es copien les dades del fitxer MYFILE al fitxer MYFILECOPY dins de la mateixa biblioteca MYLIB.

  1. Eliminació de Fitxers

Comanda DLTF

La comanda DLTF (Delete File) s'utilitza per eliminar un fitxer del sistema.

Sintaxi:

DLTF FILE(NOMFITXER)

Exemple:

DLTF FILE(MYLIB/MYFILE)

En aquest exemple, s'elimina el fitxer MYFILE de la biblioteca MYLIB.

  1. Gestió de Fitxers de Dades

Comanda DSPFD

La comanda DSPFD (Display File Description) s'utilitza per mostrar la descripció d'un fitxer, incloent informació sobre els seus camps, índexs, i altres propietats.

Sintaxi:

DSPFD FILE(NOMFITXER) TYPE(*BASATR)

Exemple:

DSPFD FILE(MYLIB/MYFILE) TYPE(*BASATR)

En aquest exemple, es mostra la descripció bàsica del fitxer MYFILE a la biblioteca MYLIB.

Exercicis Pràctics

Exercici 1: Creació i Modificació de Fitxers

  1. Crea un fitxer anomenat ORDERS a la biblioteca MYLIB amb una longitud de registre de 100 caràcters i una descripció "Fitxer de comandes".
  2. Modifica la longitud del registre del fitxer ORDERS a 150 caràcters i actualitza la descripció a "Fitxer de comandes actualitzat".

Solució:

CRTFILE FILE(MYLIB/ORDERS) RCDLEN(100) TEXT('Fitxer de comandes')
CHGFILE FILE(MYLIB/ORDERS) RCDLEN(150) TEXT('Fitxer de comandes actualitzat')

Exercici 2: Còpia i Eliminació de Fitxers

  1. Copia el fitxer ORDERS a un nou fitxer anomenat ORDERS_BACKUP dins de la mateixa biblioteca MYLIB.
  2. Elimina el fitxer ORDERS_BACKUP.

Solució:

CPYF FROMFILE(MYLIB/ORDERS) TOFILE(MYLIB/ORDERS_BACKUP) MBROPT(*REPLACE)
DLTF FILE(MYLIB/ORDERS_BACKUP)

Resum

En aquest mòdul, hem après a utilitzar comandes avançades de gestió de fitxers en CL. Hem vist com crear, modificar, copiar i eliminar fitxers, així com gestionar fitxers de dades. Aquestes habilitats són essencials per a la gestió eficient de dades en sistemes AS/400. En el proper mòdul, explorarem la programació avançada de treballs.

© Copyright 2024. Tots els drets reservats