Comment accéder à caractère unique à partir d'une chaîne en COBOL?

Comment accéder à un caractère particulier dans une chaîne de caractères en langage COBOL?

Par exemple, si une chaîne est "travail", j'ai accès à un personnage dit " w " dans la chaîne et de le stocker dans un personnage. J'ai besoin de la correspondance de caractère, et non pas la position du personnage.

Par exemple en c, nous prenons les mesures suivantes pour extraire un i-ième caractère dans une chaîne,

    char data[5] = "work";                                                             
    char temp;                                                                        
    temp = data[3];

temp aura la valeur 'k'

Maintenant j'ai besoin de la même COBOL.

nous montrer le code de la Procédure-la Division des Données et de la Division.
Quand vous dites caractère particulier, entendez-vous la position d'un caractère ou de caractère correspondant? En d'autres termes, si la chaîne est "travail" voulez-vous "w" pour retourner 1, ou voulez-vous 1 de retour "w"?

InformationsquelleAutor RAM | 2013-05-08

cobol

7

La première chose à comprendre est que le tableau des indices en partant de zéro en C et 1 basé en COBOL.

Prochaine COBOL et C ont très différentes façons de représenter des chaînes de caractères. En C, une chaîne de caractères est généralement stocké
comme un tableau de caractères, la fin de la chaîne est généralement représenté à l'aide d'un zéro binaire (null \0). COBOL
dispose pas d'une telle convention. Les chaînes de caractères sont stockées dans les données nominatives les éléments d'une longueur spécifiée. Ces éléments sont généralement
déclarée sous le TRAVAIL de STOCKAGE et ont une Clause de l'IMAGE associée de type " X " (il y en a plusieurs autres
les possibilités pour l'IMAGE de clauses, mais " X " représente n'importe quel type de caractère). Par exemple:
```
01    MY-VARIABLE   PIC X(20).
```
La mémoire de Travail variable appelée MA-VARIABLE est déclarée comme 20 caractères de long. Il peut être attribué une valeur
dans la PROCÉDURE de DIVISION comme suit.
```
MOVE 'work' TO MY-VARIABLE
```
Vous pouvez ensuite accéder aux différents personnages de cette chaîne (ou de sous-chaînes) en utilisant une technique connue sous le nom
référence modification:
```
DISPLAY MY-VARIABLE(3:1)
```
affichera le troisième caractère de MA VARIABLE (1 à base d'indexation), qui est "r". Le premier nombre entre parenthèses ci-dessus (3)
indique le décalage à partir du début de la variable, le deuxième nombre est le nombre de caractères à partir de cette position (1).

Il y a d'autres méthodes, telles que la REDÉFINIT, d'où MA VARIABLE pourrait être redéfini comme un tableau de 20 1 caractère cellules. Cette
est un peu obsolète mécanisme je voudrais donc encourager les à l'aide de la modification d'accéder à des parties de chaînes de caractères.

InformationsquelleAutor NealB
3

Re-répondu. En dépit de la mention "chaîne", je pense que vous parlez de ce qui pourrait être appelé un "champ", un morceau de données.
```
01  a-piece-of-data.
    05  first-two-bytes-of-data PIC XX.
    05  third-byte-of-data      PIC X.
    05  fourth-byte-of-data     PIC X.
```
un-morceau-de-données est un "élément de groupe", qui est de quatre octets de long. Les "subalternes" définitions de vous permettre d'accéder aux différents octets dans les quatre octets.

Il peut être fait de cette façon:
```
01  a-piece-of-data             PIC X(4).
01  FILLER REDEFINES a-piece-of-data.
    05  first-two-bytes-of-data PIC XX.
    05  third-byte-of-data      PIC X.
    05  fourth-byte-of-data     PIC X.
```
Il peut être fait avec "subscripting":
```
01  a-piece-of-data.
    05  FILLER OCCURS 4 TIMES.
        10  a-byte-in-the-piece-of-data PIC X.
```
Maintenant,
```
a-byte-in-the-piece-of-data ( 3 )
```
références le troisième octet de données.

La subscripting peut être fait avec un littéral, comme illustré, ou de données-nom (nom et de stockage que vous avez défini de la façon normale, doit être numérique, le mieux être binaire) ou un nom d'index (à l'aide de INDEXÉES PAR, qui permet de définir le nom, mais le compilateur définit le stockage).

Il peut également être fait avec la référence de modification, comme NealB a montré.

Pour moi, le choix se résume souvent à "qui est la plus claire pour la personne suivante le long?".
```
01  WHAREHOUSE-REF.
    05  WHAREHOUSE-CODE    PIC XX.
        88  WHAREHOUSE-HAS-LIFT VALUE "LN" "CV".
    05  WHAREHOUSE-FLOOR   PIC X.
        88  WHAREHOUSE-UPPER-FLOOR VALUE "1" "2".
    05  WHAREHOUSE-BAY     PIC X.

01  W-LIFT-USAGE           PIC X.
    88  W-LIFT-USAGE-NONE  VALUE ZERO.

IF WHAREHOUSE-HAS-LIFT 
AND WHAREHOUSE-UPPER-FLOOR
    MOVE WHAREHOUSE-FLOOR TO W-LIFT-USAGE
ELSE
    SET W-LIFT-USAGE-NONE TO TRUE
END-IF
PERFORM CALC-ROBOT-TIME-TO-BAY
```
Qui est la même que (ou est-il?, vous pouvez toujours vérifier dans un manuel à chaque fois):
```
01  VAR1 PIC X(4).
01  VAR2 PIC X.

IF VAR1 (1:2) = "LN" OR "CV"
AND VAR1 (3:1) = "1" OR "2"
    MOVE VAR1 (3:1) TO VAR2 (1:1) 
ELSE
    MOVE ZERO TO VAR2 (1:1)
END-IF
PERFORM CALC-ROUTINE THROUGH CALC-ROUTINE-EXIT
```
PS. Je sais que sur VAR2, mais dans mon expérience, c'est la façon dont beaucoup de gens sans expérience qui utilisent de référence-modification de code. Vous verrez également VAR2 (1:), tandis qu'une plaine VAR2 est tout ce qui est nécessaire. Oui, les noms choisis sont le type de noms qui semblent aller de pair avec référence-modification et aucune expérience.
- SET W-ASCENSEUR-UTILISATION-AUCUN, À VRAI signifie exactement DÉPLACER ZÉRO À VAR2 (1:1)? et pourquoi faut-il (1:1) après VAR2? puis-je utiliser DÉPLACER ZÉRO À VAR2 seulement?
- Oui, exactement, mais à l'aide de l'ENSEMBLE de l'état-nom en fait de 100% exactement certain de ce qui se passe. L' (1:1) pour un PIC X de longueur est, bien sûr, inutile, mais depuis, strictement, toutes les références de modification est inutile, ne vous attendez pas de ne pas le voir. Quelqu'un qui utilise la référence-la modification ne va pas l'utiliser de la meilleure façon, sont-ils? Donc, VAR (1:1) pour un octet, VAR (1:7) pour sept octets, et puis quelqu'un modifie le champ à huit octets de long, et ce qui se passe...?
InformationsquelleAutor Bill Woodger

Vous devez vous connecter pour publier un commentaire.