CICS Cours

CICS – SEND MAP

La commande SEND MAP envoie les données de sortie formatées à un terminal. Il est également utilisé pour envoyer la map au terminal central à partir du programme d’application.

Syntaxe:

Vous trouverez ci-dessous la syntaxe de la commande CICS SEND MAP.

EXEC CICS SEND
   MAP('nom-map')
   MAPSET('nom-mapset')
   [FROM(zone-donnee)]
   [LENGTH(valeur-donnee)]
   [DATAONLY]
   [MAPONLY]
   [FREEKB]
   [FRSET]
   [ERASE/ERASEAUP]
   [CURSOR]
END-EXEC.

Voyons les paramètres utilisés dans la commande SEND MAP.

  • MAP(‘nom-map’)
    Spécifie le nom de la carte à utiliser.
  • MAPSET(‘nom-mapset’)
    Spécifie le nom du mapset à utiliser. Il est nécessaire sauf si le nom de l’ensemble de maps est le même que le nom de la map
  • FROM(zone-donnee)
    Spécifie la zone de données contenant les données à traiter.
  • LENGTH(valeur-donnee)
    Spécifie la longueur des données à formater en tant que valeur binaire de demi-mot. Si la zone de données qui envoie la map est plus longue que les données à mapper, LENGTH doit être spécifié.
  • MAPONLY
    Spécifie que seules les données par défaut de la carte doivent être écrites.
  • DATAONLY
    Spécifie que seules les données du programme d’application doivent être écrites (c’est-à-dire que seules les données de votre programme sont envoyées à l’écran). Toutes les données ou tous les attributs par défaut de la map sont ignorés.
  • FREEKB
    Le clavier doit être déverrouillé après l’écriture des données à l’écran. Si FREEKB n’est pas ajouté, le clavier reste verrouillé.
  • FRSET
    Flag Reset désactive la balise de données modifiée (MDT) dans l’octet d’attribut pour tous les champs de l’écran avant que ce que vous envoyez y soit placé.
  • ERASE
    Ceci est utilisé pour effacer la map à l’écran lors de l’envoi d’une map.
  • ERASEAUP
    Ceci est utilisé pour effacer la valeur précédente sur l’écran lors de l’envoi de données uniquement.
  • CURSOR
    Ceci est utilisé pour positionner le curseur sur l’écran. Le curseur est défini en déplaçant -1 sur la partie L du champ, puis en envoyant la map.

Exemple:

L’exemple suivant vous montre comment envoyer la map uniquement à l’écran.

EXEC CICS
    SEND MAP('nom-map')
         MAPSET('nom-mapset')
         FROM(MAPNOMO)
         ERASE
END-EXEC.

L’exemple suivant vous montre comment envoyer des données uniquement à l’écran à partir de la variable ‘MAPNOMO’.

EXEC CICS
    SEND MAP('nom-map')
         MAPSET('nom-mapset')
         FROM(MAPNOMO)
         DATAONLY
END-EXEC.