COBOL SUBSITRING

COBOL SUBSTRING est une caractéristique puissante du langage de programmation COBOL qui permet aux programmeurs d'extraire facilement des parties spécifiques d'une chaîne de données. Cette sous-chaîne peut être utilisée pour effectuer diverses opérations telles que la manipulation des chaînes, la correspondance des modèles, les calculs et l'analyse des données. COBOL SUBSÉRITAGE peut être utilisé pour rendre les programmes plus efficaces, flexibles et maintenables. COBOL SUBSTRING est une fonction intégrée du langage COBOL et est utilisée pour extraire une sous-chaîne d'une chaîne donnée.

Que fait la fonction substral dans COBOL?

COBOL propose la fonction substr pour extraire une partie d'une chaîne en fournissant la chaîne source, la position de départ et la longueur de la sous-chaîne souhaitée. Cette fonctionnalité permet une gestion efficace des données de chaîne dans la programmation COBOL.

La fonction substrt extrait une partie d'une chaîne à partir du nème caractère et avec une longueur spécifiée par l'utilisateur. Si la sous-chaîne extrait est d'une longueur moindre que celle spécifiée, elle est rembourrée avec le caractère souhaité.

Si la valeur de n dépasse la longueur de la chaîne d'entrée, le résultat obtenu à partir de la fonction substr se compose de caractères de pad.

Si vous ne fournissez pas de valeur pour la longueur, la fonction renvoie le reste de la chaîne à partir de la position de départ. Par défaut, le caractère de pad utilisé est un blanc.

Syntaxe:

Substr (source-str, start-position, substr-len)

La corde source est la chaîne à partir de laquelle vous souhaitez extraire la sous-chaîne. La «position de démarrage» est l'indice de départ de la sous-chaîne dans le «Source-Str». Et «substr-len» est la longueur de la sous-chaîne que vous souhaitez extraire.

Exemple de programmation 1:

Division d'identification.
Programme de programme. Substrat-exemple.
Division des données.
Section de stockage de travail.
01 Pic de chaîne source x (20) Valeur «Hello World».
01 Pic à chaîne finale X (5).
Division des procédures.
Logique principale.
Chaîne Source-String délimitée par "dans la chaîne finale.
Affichage de la chaîne finale: 'String final.
Stop run.

Sortir:

Papan @ Ubuntu: ~ / Desktop $ cobc -xjf 1.cbl
Chaîne finale: Bonjour

Explication:

Dans ce programme, nous définissons une chaîne source de longueur 20 et une chaîne finale de longueur 5. Nous initialisons la chaîne source avec la valeur «Hello World». Nous utilisons ensuite la fonction de chaîne pour extraire le premier mot, «Bonjour», à partir de la chaîne source et la stockons dans la chaîne finale. Nous affichons ensuite la chaîne finale à l'aide de l'instruction d'affichage.

Exemple de programmation 2:

Division d'identification.
Programme de programme. Sous-chaînes.
Division des données.
Section de stockage de travail.
01 Source-String Pic x (20) Valeur 'ABCDE'.
01 SUBSTRING-LEN PIC 9 (2) Valeur 1.
01 PIC-INDEX DE START 9 (2) Valeur 1.
01 PIC INDEX FIN 9 (2).
01 Pic sous-chaîne X (20).
Division des procédures.
Logique principale.
Effectuer des sous-chaînes variables à partir de 1 par 1
Jusqu'à substring-len> 20
Effectuer un indice de démarrage variable de 1 par 1
Jusqu'à démarrer-index + substring-len - 1> 20
Calculer end-index = start-index + substring-len - 1
String source-string (start-index: substring-Len)
Délimité par la taille dans la sous-chaîne
Afficher 'Suctering:' Sous-chaîne
Termes finaux
Termes finaux
Stop run.

Sortir:

Papan @ Ubuntu: ~ / Desktop / CBL $ COBC -XJF 2.cbl
Substrat: ABCDE
Substrat: bcde
Substrat: cde
Substrat: DE
Substrat: e

Explication:

Ce programme génère toutes les sous-chaînes possibles d'une chaîne de source donnée en utilisant deux boucles imbriquées pour parcourir toutes les longueurs de sous-chaîne possibles et les positions de départ. Il stocke la chaîne source et la longueur de sous-chaîne dans la chaîne source et la sous-chaîne-Len, respectivement. Ensuite, il utilise l'index de démarrage et l'indice final pour garder une trace des positions de démarrage et de fin actuelles. Le programme extrait ensuite la sous-chaîne actuelle à l'aide de l'instruction String et de la fonction de sous-chaîne, et l'affiche à l'aide de l'instruction Affichage.

Exemple de programmation 3:

Division d'identification.
Programme de programme. Programme initial.
Division des données.
Section de stockage de travail.
01 WS-Full-Name Pic x (30) Valeur «Subash Chandra Bose».
01 WS-First-Name Pic X (10).
01 WS-MIDDLE-NAME PIC X (10).
01 WS-SURNAME PIC X (10).
01 ws-dot pic x valeur '.'.
Division des procédures.
Logique principale.
Affichage «Nom de l'entrée:« Ws-Full-Name.
Calculer ws-first-name = fonction substring (ws-full-name, 1, index (ws-full-name, ") - 1).
Calculer ws-middle-name = fonction substring (ws-upl-name, index (ws-upl-name, ") + 1, index (ws-upl-name,", index (ws-ull-name, ") + 1) - Index (Ws-Full-Name, ") - 1).
Calculer ws-dame = fonction substring (ws-full-name, index (ws-full-name, ", dernier index (ws-full-name,")) + 1).
Affichage 'Sortie:' WS-First-Name (1: 1) WS-DOT WS-MIDDLE-NAME (1: 1) WS-DOT WS-SURNAME.
Stop run.

Sortir:

Papan @ Ubuntu: ~ / Desktop / CBL $ COBC -XJF 3.cbl
Nom de l'entrée: Subash Chandra Bose
LES SORTIES.C. Bose

Explication:

Dans ce programme, la variable WS-Full-Name détient le nom complet de la personne. Le nom WS-First-Name, WS-Middle-Name et WS-Surnom Variables détiennent respectivement le prénom, le deuxième prénom et le nom de famille de la personne,. Les fonctions d'index et de dernier indice sont utilisées pour trouver les positions des premier et dernier espaces de la variable WS-Full-Name. Ensuite, nous imprimons les initiales du premier et du deuxième prénom, suivi du nom de famille, séparé par une période.

Conclusion

Nous avons exploré la fonction substr dans COBOL et avons fourni quelques exemples sur la façon de l'utiliser dans des applications pratiques. La fonction substr est une fonctionnalité utile dans les applications commerciales où les données doivent souvent être manipulées ou transformées. Avec la fonction substr, les programmeurs peuvent facilement extraire les sous-chaînes de plus grandes chaînes et les utiliser pour un traitement ultérieur. Espérons que cet article a fourni une introduction utile à la fonction substr dans COBOL et a correctement démontré certains de ses exemples pratiques.