# Opérations sur les zones alphanumériques

## = Attribution

Attribue un champ alphanumérique, une valeur hexadécimale fixe ou une valeur nulle à un champ alphanumérique.

```
FieldR = Field1/Constant/Null
```

FieldR reçoit le contenu de Field1.

Sur AS/400 IBMi, si la nature alphanumérique de Field1 et FieldR est différente (CHAR et NCHAR), le contenu est automatiquement converti au format destinataire de FieldR.

```
O.DESCRIPTION = I.DESCR
O.DESCRIPTION(10:1) = ‘@’
O.DESCRIPTION(11:1) = X’09’
```

## LTRIM – Suppression des blancs à gauche (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Cette opération supprime les blancs à gauche dans une chaîne de caractères et place le résultat dans une autre chaîne.

```
LTRIM b.Field1/Constant TO b.Field2 
```

```
DCL W.Field_1 CHAR 15 
DCL W.Field_2 CHAR 15 
                
 W.Field_1 = ‘   TEST   ’
 LTRIM W.Field_1 TO W.Field_2
 TRACE W.field_2 
```

Trace "TEST"

## RTRIM – Suppression des blancs à droite (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Cette opération supprime les blancs à droite dans une chaîne de caractères et place le résultat dans une autre chaîne.

```
RTRIM b.Field1/Constant TO b.Field2 
```

```
DCL W.Field_1 CHAR 15 
DCL W.Field_2 CHAR 15 
                
  W.Field_1 = ‘   TEST   ’
  RTRIM W.Field_1 TO W.Field_2
  TRACE W.field_2      
```

Trace "TEST"

## TRIM – Suppression des blancs à gauche et à droite (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Cette opération supprime les blancs à gauche et à droite dans une chaîne de caractères et place le résultat dans une autre chaîne.

```
TRIM b.Field1/Constant TO b.Field2 
```

```
DCL W.Field_1 CHAR 15 
DCL W.Field_2 CHAR 15 
                
W.Field_1 = ‘   TEST   ’
TRIM W.Field_1 TO W.Field_2
TRACE W.field_2 
```

Trace "TEST"

## CONCAT – Concaténation (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Cette opération concatène le contenu de deux chaînes de caractères et place le résultat dans une troisième.

```
CONCAT b.Field1/Constant WITH b.Field2/Constant TO b.Field3 
```

```
DCL W.Field_1 CHAR 10 
DCL W.Field_2 CHAR 10 
DCL W.Field_3 CHAR 20 
                
 W.Field_1 = ‘   TEST   ’
 W.Field_2 = ‘   1234   ’
 CONCAT W.Field_1 WITH W.Field_2 TO W.Field_3
 TRACE W.field_3 
```

Trace "TEST 1234"

## LEN – Longueur d'une chaîne (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Envoie dans un champ numérique la longueur du contenu d'une chaîne de caractères.

```
LEN b.Field1/Constant TO b.Field2/N@n 
```

```
DCL W.Field_1 CHAR 10 
DCL W.Field_2 NUMERIC 5 
                
  W.Field_1 = ‘ TEST ’
  LEN W.Field_1 TO W.Field_2
  TRACE W.Field_2 
```

Trace "6"

## VAL – Conversion d'alpha à numérique (non AS/400 IBMi)

Disponible uniquement sur les sources ou cibles non AS/400 IBMi.

Place le résultat d'une conversion d'alpha à numérique dans un champ.

```
STR b.Field1/N@n TO b.Field2/N@n
```

```
DCL W.Field_1 CHAR 15 
DCL W.Field_2 NUMERIC 9,2 
                
  W.Field_1=‘   -15.2’
  VAL W.Field_1 TO W.Field_2
  TRACE W.field_2 
```

Trace -15.20