Installation des programmes

• Le script d’installation est proposé en document joint au format ZIP. Extraire le fichier suffixé par XML et le sauvegarder dans un répertoire de votre IFS.
• Utilisez l’outil d’installation XML2SRC (voir 421, pour installer l’outil ou consulter le mode opératoire d’une installation).

Limitations

• Votre AS400 doit être en V5R4.

Notez bien

• Le site XDOCS400.COM fournit des programmes à  titre d’exemples et n’assure pas de hotline ou de garantie dessus.
• Toutefois, si vous avez des soucis pour les installer, ou les utiliser, contactez l’auteur de l’article via le formulaire ad’hoc du site xdocs400 pour une aide ponctuelle.

Fonctionnement des commandes SAVF_PF et PF_SAVF

• SAVF_PF copie un fichier savf dans un membre de fichier physique
• PF_SAVF copie un fichier savf dans un membre de fichier physique
• Possibilité d’écraser le SAVF ou le membre du PF s’ils existent déjà .

Pourquoi cet outil

• Cet outil a été créé pour un besoin pratique de suivi de versions :
  • Création d’un fichier Physique pour une application donnée, le fichier CLIENT pour l’application de getsion des clients par exemple.
  • Ajout d’un membre dans le fichier CLIENT, pour chaque SAVF concernant cette application.
  • Et bien sur, pouvoir récupérer un des membres pour régénérer le SAVF correspondant, ou l’envoyer via FTP sur un autre AS400.
• L’outil utilise deux procédures REXX générées dans QTEMP pour effectuer les copies du SAVF ver le PF et inversement. Une idée glanée sur la toile.
• Comportement de la commande SAVF_PF :
  • Si le SAVF n’existe pas (Bib&SAVF), aucune action
  • Si la bib du pf n’existe pas, aucune action
  • Si le fichier n’existe pas, création du fichier et du membre
  • Si le fichier existe mais pas le membre, création du membre
  • Si le fichier / membre existe et que la confirmation de création a été indiquée, supression puis création du membre.
  • Pas de gestion de log pour tous les cas ou aucune action.
• Comportement de la commande PF_SAVF :
  • Si la bib+fichier+membre n’existe pas, aucune action
  • Si la bib du savf n’existe pas, aucune action
  • Si le savf n’existe pas, création du savf
  • Si le savf existe et que la confirmation de création a été indiquée, supression puis recréation du savf.
  • Pas de gestion de log pour tous les cas ou aucune action.

Utilisation

exécution en ligne de commande, copie d’un membre de PF vers un SAVF

PF_SAVF BIBSAVF(MYPTF_SAVF)
SAVF(CLIENT_001)
BIBFICH(MYPTF_PF)
FICH(CLIENT)
MEMBRE(CLIENT_001)
DESCRIPT('Savf CLIENT version 001')
CREER(O)


exécution en ligne de commande, copie d’un SAVF vers un membre de PF

SAVF_PF BIBSAVF(MYPTF_SAVF)
SAVF(CLIENT_001)
BIBFICH(MYPTF_PF)
FICH(CLIENT)
MEMBRE(CLIENT_001)
DESCRIPT('CLIENT version 001')
CREER(O)