OPALE - 10.0 - Utilisation
Récupérer en critère d'archivage la date du spool d'origine
Description
Pour archiver des spools en récupérant en critère d'archivage la date de création du spool d'origine et non pas uniquement celle d'archivage.
Principe
Dans Designer, utiliser dans la maquette, une zone de type remplacement spécifique.
Coté IBM i, utiliser la commande MAPRTVNFO qui permet de récupérer les informations Date et Heure d'un spool. Vous modifierez le CL de remplacement spécifique, pour récupérer ces informations temporelles dans la zone du Mapping et changerez le type de la zone en type Archive.
Procédure
- Ajouter dans la maquette une zone de type remplacement spécifique (nommée par exemple DATE).
- Générer le mapping et l'importer sur l'IBM i
- Modifier le CL de remplacement spécifique (voir la procédure ci dessous)
- Ajouter la commande
MAPRTVNFO
dans le traitement du spool (voir la procédure ci dessous)
Conseils
Modifier le CL de remplacement spécifique:
- Sur une ligne de commande taper
STRPDM
- Choisissez l'option 3 Gestion des Membres
- Sélectionnez le fichier QSPECIF de Opale
- Copier le membre MAPSPECIF sous un autre nom (ex MAPSPEC_S)
- Taper 2 (Editer) devant le membre MAP_SPECIF
- Déclarer les variables de travail comme suit :
DCL VAR(&DATE) TYPE(*CHAR) LEN(10)
- Ajouter dans le corps du programme (attention à l'endroit où vous l'ajouter) :
IF COND(%SST(&ZONNAM 1 4) *EQ 'DATE') THEN(DO) RTVDTAARA DTAARA(QTEMP/DATE (1 10)) RTNVAR(&DATE) CHGVAR VAR(&STRVAL) VALUE(&DATE) CHGVAR VAR(%BIN(&STRLEN)) VALUE(9) GOTO FIN ENDDO
- Attention : DATE signalé en gras correspond au nom de la zone Mapping
- Sauvegarder, quitter et re-compiler le membre MAP_SPECIF
Ajouter la commande MAPRTVNFO
dans le traitement du spool
Modification d'une action du robot :
- Choisir l'option 14 du menu Mapping de l'IBM i : Menu d'exploitation
- Choisir l'option 2 Gérer les Actions et lignes de commande / Action
- Taper F6 Création d'une nouvelle action et nommer la nouvelle action (ex: DATEMAP)
- 5 (Lignes de commande) devant la nouvelle action
- Taper F6 Création puis
MAPRTVNFO
et F4 - Remplir les paramètres comme suit :
- Valider puis créer une nouvelle ligne de commande : F6
- Remettez ici la même ligne de commande qui vous permettez de remapper le spool :
MAPCPYSPLF
...
Remarque :
Pour récupérer l'heure du spool, procéder de la même manière, avec une autre zone de type remplacement spécifique (ex : TIME) et une modification du CL MAP_SPECIF de la manière suivante :
Déclaration des variables :
DCL VAR(&HEURE) TYPE(*CHAR) LEN(6) DCL VAR(&HH ) TYPE(*CHAR) LEN(2) DCL VAR(&MM ) TYPE(*CHAR) LEN(2) DCL VAR(&SS ) TYPE(*CHAR) LEN(2) DCL VAR(&SEP ) TYPE(*CHAR) LEN(1)
Partie de programme à ajouter
IF COND(%SST(&ZONNAM 1 4) *EQ 'TIME') THEN(DO) RTVDTAARA DTAARA(QTEMP/TIME (1 6)) RTNVAR(&HEURE) CHGVAR &HH (%SST(&HEURE 1 2)) CHGVAR &MM (%SST(&HEURE 3 2)) CHGVAR &SS (%SST(&HEURE 5 2)) CHGVAR VAR(&STRVAL) VALUE(&HH *CAT &SEP *CAT &MM + *CAT &SEP *CAT &SS) CHGVAR VAR(%BIN(&STRLEN)) VALUE(8) GOTO FIN ENDDO