Différence entre versions

Version du 3 juin 2019 à 15:05

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é AS/400, 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'AS/400
Modifier le CL de remplacement spécifique Comment ?
Ajouter la commande MAPRTVNFO dans le traitement du spool Comment ?

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 MAP400 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'AS/400 : 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
Remetter 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

@@ Ligne 1 : / Ligne 1 : @@
 <translate>
+<!--T:1-->
 '''Description'''
+<!--T:2-->
 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.
+<!--T:3-->
 '''Principe'''
+<!--T:4-->
 Dans Designer, utiliser dans la maquette, une zone de type remplacement spécifique.
+<!--T:5-->
 Coté AS/400, 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.
+<!--T:6-->
 '''Procédure'''
+<!--T:7-->
 *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'AS/400
@@ Ligne 20 : / Ligne 27 : @@
+<!--T:8-->
 '''Conseils'''
+<!--T:9-->
 Modifier le CL de remplacement spécifique:
+<!--T:10-->
 Sur une ligne de commande taper STRPDM
 Choisissez l'option 3 Gestion des Membres
@@ Ligne 33 : / Ligne 43 : @@
 Ajouter dans le corps du programme (attention à l'endroit où vous l'ajouter) :
-       IF         COND(%SST(&ZONNAM 1 4) *EQ 'DATE') THEN(DO)
+       <!--T:11-->
+IF         COND(%SST(&ZONNAM 1 4) *EQ 'DATE') THEN(DO)
        RTVDTAARA DTAARA(QTEMP/DATE (1 10)) RTNVAR(&DATE)
        CHGVAR     VAR(&STRVAL) VALUE(&DATE)
@@ Ligne 41 : / Ligne 52 : @@
+<!--T:12-->
 *Attention : '''DATE''' signalé en gras correspond au nom de la zone Mapping
 *Sauvegarder, quitter et re-compiler le membre MAP_SPECIF
+<!--T:13-->
 Ajouter la commande MAPRTVNFO dans le traitement du spool
+<!--T:14-->
 Modification d'une action du robot :
+<!--T:15-->
 *Choisir l'option 14 du menu Mapping de l'AS/400 : Menu d'exploitation
 *Choisir l'option 2 Gérer les Actions et lignes de commande / Action
@@ Ligne 56 : / Ligne 71 : @@
+<!--T:16-->
 [[File:Maprtvnfo.PNG|738x738px|alt=|centré|sans_cadre]]
+<!--T:17-->
 *Valider puis créer une nouvelle ligne de commande : F6
 *Remetter ici la même ligne de commande qui vous permettez de remapper le spool : MAPCPYSPLF...
+<!--T:18-->
 Remarque :
+<!--T:19-->
 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 :
+<!--T:20-->
 '''Déclaration des variables :'''
+<!--T:21-->
 DCL        VAR(&HEURE  ) TYPE(*CHAR) LEN(6)
+<!--T:22-->
 DCL        VAR(&HH     ) TYPE(*CHAR) LEN(2)
+<!--T:23-->
 DCL        VAR(&MM     ) TYPE(*CHAR) LEN(2)
+<!--T:24-->
 DCL        VAR(&SS     ) TYPE(*CHAR) LEN(2)
+<!--T:25-->
 DCL        VAR(&SEP    ) TYPE(*CHAR) LEN(1)
+<!--T:26-->
 ''' Partie de programme à ajouter'''
-         IF         COND(%SST(&ZONNAM 1 4) *EQ 'TIME') THEN(DO)
+         <!--T:27-->
+IF         COND(%SST(&ZONNAM 1 4) *EQ 'TIME') THEN(DO)
          RTVDTAARA DTAARA(QTEMP/TIME (1 6)) RTNVAR(&HEURE)
          CHGVAR &HH (%SST(&HEURE 1 2))