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

Si la valeur de retour est discontiguë de 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 pour le 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 champ2.

  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 l’Project de l' TI, utilisez la commande exporter du menu fichier . vous pouvez ensuite voir votre code dans 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