Partager via

FILLER pour une zone de sortie non contiguë et une valeur de retour

  • Article

Si la valeur de retour est décantigue par rapport à la zone de sortie, vous devez calculer et spécifier manuellement le remplissage entre la valeur de retour et la zone de sortie.

L’exemple suivant montre le calcul du remplissage à partir du COBOL d’origine qui va dans l’Assistant Importation (les nombres d’octets à droite sont ajoutés en tant qu’illustration) :

01  OUTPUT-AREA.  
           05  SELECTED-OUTPUT-AREA.  
               10  FIELD1                       PIC S9(4)       COMP.     [2 Bytes]  
               10  FIELD2                       PIC S9(9)       COMP.     [4 Bytes]  
           05  DISCONTIG-UNSELECTED-AREA.  
               10  NOTSELECTED                  PIC X(10).                 [10 Bytes]  
               10  ALSO-NOTSELECTED             PIC S9(9)       COMP.     [4 Bytes]  
           05  RETVAL                           PIC S9(9)       COMP.     [4 Bytes]

Dans ce cas, étant donné que la valeur de retour suit la zone de sortie, le remplissage doit être ajouté au dernier paramètre de sortie. Pour ce faire, procédez comme suit.

  1. Déverrouillez la méthode .

  2. Dans le volet d’informations, cliquez sur FIELD2.

  3. Dans le menu Fichier , cliquez sur Propriétés, puis sur l’onglet Définition COBOL .

  4. Dans la zone À partir de l’hôte , tapez 14 comme remplissage de fin.

  5. Cliquez sur OK.

    Pour vérifier votre code modifié, dans PROJET TI, utilisez la commande Exporter dans le menu Fichier . Vous pouvez ensuite voir votre code dans le Bloc-notes.

    Voici la sortie avec le remplissage ajouté :

01  DISCONTIGCBL-OUTPUT-AREA.  
    05  LL                               PIC S9(4) COMP.         OUTPUT     [2 Bytes]  
    05  ZZ                               PIC S9(4) COMP.         OUTPUT     [2 Bytes]  
    05  FIELD1                           PIC S9(4) COMP.         OUTPUT     [2 Bytes]  
    05  FIELD2                           PIC S9(9) COMP.         OUTPUT     [4 Bytes]  
  
    05  RETVAL                           PIC S9(9) COMP.         OUTPUT     [4 Bytes]

Voir aussi

Caractère de remplissage