Instruction COBOL INSPECT

BoTTom |    Changer de couleur
 
 
                                     I N S P E C T 
 
 
 
 
 ############################################################################ 
 ##                                                                        ## 
 ##  Cet ordre donne la possibilité d'explorer une variable dans le but de ## 
 ##  connaître l'existence, et l'occurence d'une chaine de caractères ou   ## 
 ##  d'effectuer le remplacement de celle-ci.                              ## 
 ##                                                                        ## 
 ##   Examinons d'abord la possibilité d'explorer.                         ## 
 ############################################################################ 
Soit ZONE-TEST contenant "AABAbbACABA"

|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  TALLYING COMPTEUR  FOR  CHARACTERS.  0002.00 0003.00 0004.00 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Après exécution, la variable numérique COMPTEUR, contiendra le nombre ##   ##  de caractères contenus dans la variable ZONE-TEST, soit 11.           ##   ##                                                                        ##   ##                                                                        ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  TALLYING COMPTEUR  FOR ALL CHAINE. 0002.00                                               0003.00 0004.00 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Il est également possible de compter le nombre de fois qu'une chaine  ##   ##  particulière de caractères existe dans la variable ZONE-TEST.         ##   ##                                                                        ##   ##  Si CHAINE contient "A" : 6  (rappel "AABAbbACABA")                    ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  TALLYING COMPTEUR  FOR   0002.00                                                     LEADING   CHAINE.  0003.00                                                     0004.00 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Possibilité aussi de compter le nombre de fois qu'une chaine de       ##   ##  caractères se trouve au début de la variable ZONE-TEST.               ##   ##                                                                        ##   ##  Si CHAINE contient "A" : 2  (rappel "AABAbbACABA")                    ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  TALLYING COMPTEUR  FOR   0002.00                                                     ALL   CHAINE   0003.00                                                     0004.00                               BEFORE INITIAL LIMITE.  0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Seules les chaines de caractères se trouvant avant la chaine LIMITE   ##   ##  seront prises en compte.    ##   ##                ##   ##  SI CHAINE = "A" et LIMITE = "C" : 4 (rappel "AABAbbACABA")            ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  TALLYING COMPTEUR  FOR   0002.00                                                     ALL    CHAINE   0003.00                                                0004.00                               AFTER INITIAL LIMITE.  0005.00                                0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Seule la partie gauche de ce découpage était pris en compte. Il est   ##   ##  possible de tenir compte de la partie droite en utilisant AFTER.      ##   ##                                                                        ##   ##  SI CHAINE = "A" et LIMITE = "C" : 2 (rappel "AABAbbACABA")            ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****
0001.00             INSPECT ZONE-TEST  REPLACING  CHARACTERS  BY CARACT.  0002.00 0003.00 0004.00 0005.00 0006.00 0007.00 0008.00 0009.00 0010.00 0011.00 0012.00  ############################################################################   ##                                                                        ##   ##  Voyons maintenant la possibilité qui consiste à remplacer une chaine  ##   ##  de caractères.                                                        ##   ##                                                                        ##   ##  (chaque caractère est remplacé par CARACT)                            ##   ############################################################################   


|    Changer de couleur
        ****DEBUT DES DONNEES****

0001.00             INSPECT ZONE-TEST  REPLACING 
0002.00                                         ALL CHAINE  BY REMP. 
0003.00
0004.00
0005.00
0006.00
0007.00
0008.00
0009.00
0010.00
0011.00
0012.00
 ############################################################################ 
 ##                                                                        ## 
 ##  Si le remplacement à effectuer n'est à opérer que sur une certaine    ## 
 ##  chaine de caractères, la syntaxe suivante est à utiliser.             ## 
 ##                                                                        ## 
 ##  SI CHAINE = "A" et REMP = "#" : ##B#bb#C#B# (rappel "AABAbbACABA")    ## 
 ############################################################################ 
 


|    Changer de couleur
        ****DEBUT DES DONNEES****

0001.00             INSPECT ZONE-TEST  REPLACING  
0002.00                                    LEADING  CHAINE  BY REMP. 
0003.00                                        
0004.00
0005.00
0006.00
0007.00
0008.00
0009.00
0010.00
0011.00
0012.00
 ############################################################################ 
 ##                                                                        ## 
 ##  Comme pour l'exploration de la zone, seules les chaines de caractères ## 
 ##  se trouvant en-tête de la variable peuvent être remplacées.           ## 
 ##                                                                        ## 
 ##  SI CHAINE = "A" et REMP = "#" : ##BAbbACABA (rappel "AABAbbACABA")    ## 
 ############################################################################ 
 


|    Changer de couleur
        ****DEBUT DES DONNEES****

0001.00             INSPECT ZONE-TEST  REPLACING  
0002.00                                       FIRST CHAINE  BY REMP. 
0003.00                                         
0004.00                                         
0005.00
0006.00
0007.00
0008.00
0009.00
0010.00
0011.00
0012.00
 ############################################################################ 
 ##                                                                        ## 
 ##  Il est également possible de ne considérer que la 1ère chaine de      ## 
 ##  caractères se trouvant dans la variable.                              ## 
 ##                                                                        ## 
 ##  SI CHAINE = "A" et REMP = "#" : #ABAbbACABA (rappel "AABAbbACABA")    ## 
 ############################################################################ 
 


|    Changer de couleur
        ****DEBUT DES DONNEES****

0001.00             INSPECT ZONE-TEST  REPLACING  CHARACTERS  BY CARACT  
0002.00                                         ALL CHAINE-DEPART  BY CHAIN-REMP  
0003.00                                         LEADING 
0004.00                                         FIRST 
0005.00                               BEFORE INITIAL LIMITE. 
0006.00                               AFTER 
0007.00
0008.00
0009.00
0010.00
0011.00
0012.00
 ############################################################################ 
 ##                                                                        ## 
 ##  Ces 4 façons de procéder peuvent limiter à une position caractère     ## 
 ##  dans la variable ZONE-TEST.Cette limite est identique à celle pouvant ## 
 ##  être utilisée dans l'exploration.                                     ## 
 ##                                                                        ## 
 ############################################################################ 
 





©AF400