|
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Paragraphe d'utilisation
DECLARATION
Syntaxe
DS Id SuiteZonesDS [*POS_OCTET | *POS_CARACTERE]
DS Id *REF_MLD(EntitéIndJon)
Description
Cet ordre permet de déclarer une structure de données (Data Structure) de nom Id, composée d'une suite de zones DS. La position de début et le type de la zone peuvent être indiqués.
Pour les zones numériques, le type détermine si la zone est packée (P), binaire sur 4 octets (B) ou étendue (par défaut).
Gestion des positions de début de zone en génération AS/400 Unicode : *POS_OCTET et *POS_CARACTERE
Lorsqu'une position de début est renseignée, *POS_OCTET permet d'indiquer que la position est considérée en octets, tandis que *POS_CARACTERE considère la position en caractères. Si cette option n'est pas précisée, la position traitée est ajustée pour conserver le même alignement par rapport aux sous-zones que lors d'une génération non unicode.
Remarques :
Attention aux utilisations de position si la DS est manipulée sur une partie serveur AS/400 en génération Unicode.
Cette option n'est autorisée que si une position de début de zone est indiquée dans la déclaration de la DS.
Cette option n'a de sens qu'en génération AS400 Unicode. Sur les autres plates-formes, cette option est ignorée.
Les 2 options *POS_OCTET et *POS_CARACTERE ne sont pas autorisées ensemble.
Cliquez ici pour l'explication de l'élément SuiteZonesDS.
On peut faire référence à toutes les zones d'une entité, d'un index ou d'une jonction, en utilisant le mot-clé *REF_MLD suivi du nom d'une entité, d'un index ou d'une jonction.
Remarques :
- Lorsque la déclaration de la DS se trouve dans un bloc de déclaration locale (dans une procédure, une rupture...), il faut que toutes ses zones soient déclarées dans le même bloc de déclaration locale.
- Lorsque la déclaration de la DS se trouve dans un bloc serveur, il faut que toutes ses zones appartiennent au même serveur.
Par exemple
DS DataStruc1 CodeSociet CodeArticle
DS DataStruc2 CodeSociet,1 CodeArticle,5 CodeFam
DS DataStruc3 CodeSociet,B CodeArticle,P CodeFam
DS DataStruc4 CodeSociet,1B CodeArticle,5P CodeFam
DS DataStruc5 CodeSociet,P CodeArticle,5B CodeFam,10
DS DataStruc6 *REF_MLD(ARTICLE)