Programmation sur l'AS400

La programmation de l'AS400 repose sur les DDS -Data Description Specifications- pour tout ce qui concerne les fichiers et sur le langage RPG pour les traitements.

L'environnement de développement et d'autres langages sont abordés dans un document de Présentation de l'AS400.

Accès rapide: types de fichiers, dictionnaire, bases SEU, fichiers de données écrans, états

Sommaire

Partie 1 - Base de données

Différents types de fichiers

Un fichier AS400 reçoit, stocke et/ou transforme des données selon un format spécifique, qu'il s'agisse d'un fichier de données, un fichier écran ou un fichier imprimante.

Un format définit un ensemble de champs ou zones, qui peuvent être spécifiées explicitement ou en référence à d'autres zones appartenant éventuellement à d'autres fichiers. Le nommage doit être homogène dans une application ou sur un site, et un dictionnaire peut être établi, sous la forme d'un fichier décrivant toutes les zones connues et non destiné à contenir des données.

La terminologie base de données parle de tables, lignes ou tuples, et colonnes.
La terminologie AS400 décrit des fichiers, des enregistrements caractérisés par leur format, et découpés en zones ou champs.

Fichiers physiques

Un fichier physique décrit le format de ses données, lesquelles sont contenues dans un membre (éventuellement plusieurs).

Le format est unique et décrit les zones des enregistrements. Les programmes RPG (ou autres) qui utilisent le fichier contrôlent le niveau du format lors de son ouverture, longue clé alphabétique calculée lors de la compilation du fichier en fonction des caractéristiques des champs (types et longueurs). Ce contrôle peut être neutralisé pour le fichier par CHGPF LVLCHK(*NO), mais un programme ne peut pas ouvrir un fichier à description externe si le nom du format ne correspond pas à celui attendu.

Un source de fichier physique spécifie

le nom des zones qui le composent
leur type
leur taille
un texte descriptif et des entete de colonnes optionnels
d'autres éléments optionnels d'édition et de gestion
une liste optionnelle des champs clés.

Si des clés sont sont décrites dans le fichier physique, il doit s'agir des identifiants principaux et uniques pour l'accès au fichier

Fichiers logiques

Un fichier logique de contient pas de données mais décrit un accès avec vue et index sur un ou plusieurs fichiers physiques. La gestion du contenu du fichier logique est entièrement assurée par le système et aucune intervention n'est nécessaire (ni même possible).

Dans le cas le plus standard, le logique possède un seul format qui porte le nom de celui du fichier physique de référence et définit un index secondaire sous forme d'une simple liste de clés. Dans ce cas, les champs du format ne doivent pas être spécifiés.

Si le nom du format n'est pas celui du fichier physique, ou si plusieurs fichiers physiques sont référencés par jointure, la liste des champs doit être établie en référence aux physiques.

Les champs peuvent être renommés et réorganisés, des sélections et jointures sont possibles. Plusieurs formats peuvent être définis, avec des zones distinctes mais nécessairement des clés communes.

Fichiers imprimantes

Un fichier imprimante à description externe est composé d'un ensemble de formats qui décrivent chacun une bande imprimable avec

des constantes
des variables
des informations de positionnement et de saut
éventuellement des éléments graphiques (codes barres ou autres), à utiliser avec les imprimantes qui le permettent (IPDS).

Fichiers écrans

Un fichier écran est découpé en formats non recouvrants qui décrivent chacun une bande d'affichage. Un format de type particulier (sous fichier) permet de gérer assez simplement les listes avec défilement.

Dictionnaire de données

Un dictionnaire de données est un fichier non destiné à contenir des données, et spécifiant tous les champs significatifs d'une application.

Normalisation des noms de zones

L'objectif de toute normalisation devrait être d'éviter toute réflexion inutile, de favoriser la mémorisation et de limiter les possibilités d'erreur et de confusion. Les normes décrites dans ce document constituent une approche possible, mais toute autre norme plus simple, plus mnémotechnique ou plus sûre doit leur être substituée. Un autre problème classique est la sur normalisation: toute norme dont il est possible de se passer sans dommage doit être abandonnée.

Le langage RPG et d'autres outils nécessitent des noms de zones de 6 caractères maximum, même si les noms de champs de fichiers peuvent aller jusqu'à 10 caractères. La pratique montre que la notation la plus commode consiste en un préfixe de 2 caractères suivi d'un suffixe de 4 caractères

2 caractères permettent d'identifier le fichier, le format ou l'usage du champ (zone de travail ou de cumul par exemple)
4 caractères sont suffisants pour un nom de champ mémorisable, sans offrir trop de possibilités.

L'usage direct de 6 caractères nécessite des renommages, rend plus difficile la mémorisation et entraine des risques de confusion.

Avec un nommage direct à 6 caractères, un code client CODCLI devra être renommé CODCL$ ou CODCL1 ou de toute autre manière nécessitant un minimum de réflexion, et dans tous les cas peu mémorisable.
Un nommage 2+4 définit
- CLCCLI pour le champ du fichier client (CL est le préfixe pour le fichier client)
- F1CCLI pour le premier format d'écran,
- R1CCLI pour zone de référence en gestion de rupture,
- K1CCLI pour utilisation en champ clé primaire
La normalisation des préfixes rend le nommage automatique et significatif, et dispense d'avoir à réfléchir: MOVE F1CCLI CLCCLI affecte une zone écran vers une zone fichier.

Le programmes RPG n'acceptent pas que des fichiers et des formats portent le même nom une convention commode consiste en

noms de fichiers physiques non suffixés, -ou éventuellement suffixés par P-
noms de formats suffixés par F, -ou éventuellement par R pour Record-
noms de fichiers logiques suffixés séquenciellement, 1 à 9 puis aphabétique si nécessaire.

Fichiers sources

Les fichiers sources sont des fichiers base de données multimembres obéissant à un format spécifique et manipulables par de nombreux outils dédiés, dont les éditeurs de sources.

Les conventions d'apellation des fichiers sources sont issues de l'évolution de la gamme IBM, S36 puis S38, à la fin du précédent millénaire.

Systèmes 36:

QS36PRC contenait les procédures 36, équivalent interprété du CL
QS36SRC contenait les autres source programmes et écrans (pas de base de données sur cette machine)

Sur le système 38, l'outil de développement est le menu programmeur qui identifie les sources selon le fichier les contenant, sans utiliser le typage des membres.

QRPGSRC contient les programmes RPG
QDDSSRC contient les sources fichiers écrans et base de données
QCLSRC contient les sources CL
QCBLSRC contient les sources COBOL
etc.

Ces conventions ne sont plus nécessaires mais sont souvent respectées sur AS400. Le nommage suivant est plus adapté à PDM, mais n'est en aucune manière impératif

QPGMSRC sources de programmes, écrans et commandes
QDDSSRC sources base de données
QTXTSRC fichiers textes divers
QRPGSRCLE sources RPGLE, qui nécessitent une longueur d'enregistrement supérieure aux sources programme classiques

Saisie d'un dictionnaire de données

Utiliser un dictionnaire de données ou pas dépend des conventions de développement d'un site. Le nommage est plus homogène mais les sources de fichiers plus difficiles à lire et à maintenir.

Un dictionnaire est un fichier simple, sans clé et sans données. Un classement des zones par ordre alphabétique facilite sa gestion. Un programme de génération et de gestion de dictionnaire peut être développé sans difficulté.
Forme d'un dictionnaire
```
      A*.........T.NAME++++++RLen++TDpB......Functions+++++++++++++++++++++++++++
      A*--------------------------------------------------
      A* DICO: Exemple de dictionnaire de données
      A*
      A*--------------------------------------------------
      A* Description du Format
      A          R DICOF
      A* Description des zones
      A            ADR1          30A         COLHDG('Adresse 1')
      A* Les entete de colonnes sont exploités par les outils de maquettage
      A* et doivent être compatibles avec la taille du champ
      A* Le texte est repris par les outils gérant les fichiers
      A* et doit être aussi explicite que possible
      A            CSEX           1A         COLHDG('Sex' '1/2')
      A                                      TEXT('Code sexe 1=Masc. 2=Feminin') 
      A            ETAT           1A         COLHDG('Code' 'Etat')
      A                                      TEXT('Etat enreg. 1=actif *=supprimé') 
      A* Par défaut, les nombres sont codés en condensé (packé),
      A* ce qui convient aux nombres qui sont réellement des nombres.
      A* Les nombres servant de codes doivent être codés en étendu ou en alpha
      A            MTHT          15P2        COLHDG('Montant HT')
      A                                      TEXT('Montant total Hors Taxes')
      A            MTTC          15 2        COLHDG('Montant TTC')
      A                                      TEXT('Montant total TTC')
      A            NCOM           6S0        COLHDG('Numéro' 'Commande')
      A                                      TEXT('Numéro de commande')
      A            CCLI           6A         COLHDG('Code' 'Client')  
```
Saisie simple sous SEU

La saisie peut être directe ou en utilisant le guide de saisi par F4.
Ecran SEU avec guides de saisie
```
Colonnes  . . :    1  80                                Edition                        
SEU==>_____________________________________________________________        
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions+++++++++++++++++++++++++++
        **************  Début des données  **********************************************
0001.00      A          R DICOF                                                        
0002.00      A            CCLI          6                                               
        ***************  Fin des données  ***********************************************

Type d'invite . .   PF      Numéro de séquence  .  0002.00         
                                                                   
Type                                    Type      Nombre de        
nom        Nom         Réf    Longueur  donnée    décimales   Usage
 _       CCLI______     _      ____6      _          __         _
Fonctions                                                          
____________________________________
```
Les fonctions utilisées en définition de fichiers (hors définitions d'accès) constituent une sous partie de celles utilisées pour les fichiers écran. Les informations de saisie fournies par les aides SEU sont parfois partielles, et des guides en ligne très détaillés peuvent être obtenus en utilisant le maquetteur d'état SDA et ses écrans de définitions de mots clé.

Type de nom - première colonne T

blanc
nom de zone

R
nom de format d'enregistrement

K
spécification de zone clé, sous forme de liste en fin de source faisant référence à des zones déjà décrites

Nom - colonne Name
Nom du format et des champs (4 caractères au plus si norme 2+4). Dans le cas d'un dictionnaire, le nom de format est sans importance, mais peut respecter la convention usuelle suffixant le nom du fichier par F ou R.
Référence - colonne R

blanc
définition autonome

R
zone définie en référence à une autre zone en association avec la fonction REFFLD

Longueur - colonne Len
Nombre de caraxtères ou de chiffres (décimales incluses) pour la zone. RPG III ne traite pas facilement les chaines longues (plus de 128 caractères), et ne sait pas traiter les nombres de plus de 15 chiffres ou en virgule flottante.
- Caractère - de 1 à 32766 octets
- Longueur variable - de 1 à 32740 octets pour les données de type caractère, et de 1 à 32739 octets pour les zones acceptant les valeurs nulles
- Binaire - de 1 à 9 chiffres
- Décimal étendu - de 1 à 31 chiffres
- Décimal condensé - de 1 à 31 chiffres
- Virgule flottante - de 1 à 9 chiffres en simple précision et de 1 à 17 chiffres en double précision
- Hexadécimal - de 1 à 32766 octets.
Type de données - seconde colonne T

P

type décimal condensé, qui est traditionnellement le type numérique de base. Chaque nombre est codé sur un demi octet sous sa valeur hexadécimale avec un demi octet pour le signe, et le contenu directement lisible en hexadécimal. La longueur du champ est (Nombre de chiffres + 1)/2.
Les montants sont souvent gérés en packé avec pour les applications multidevises 0 ou 2 décimales et une gestion des saisies spécifique utilisant des champs alpha avec positionnement de la virgule ou du point décimal paramétré.

S

type décimal étendu, chaque nombre est codé sous sa valeur caractère, sauf l'octet le plus à droite qui est porteur du signe (si négatif).

B

type binaire, peu utilisé.

F

type virgule flottante, non géré en RPG III.

A

type caractère alphanumérique

L

type date, non gérées en RPG III. Le mode de gestion des dates dépend des sites et des logiciels, chacun développant des modules spécifiques avec stockage au format ISO (alpha), européen (numérique), sous forme de champs séparés, en nombre de jours par rapport à une date de référence, ou d'autres variantes.

T

type heures, non gérées en RPG III.

Z

horodatage, non géré en RPG III.

H

type Hexadécimal.

J, E, H, O, G

types DBCS (Double Byte Character Set) : normalement inutilisé.

Nombre de décimales - colonne Dp
de 0 à 31, à renseigner pour les nombres seulement
Usage - colonne B
à laisser à blanc pour les fichiers de données
Fonctions de base pour dictionnaire - colonne Functions

Les fonctions 'pour référence uniquement' ne sont pas utilisées au niveau fichiers de données mais seulement par les écrans ou états faisant référence à ces zones.
COLHDG

Définition d'en-têtes de colonne, utilisés par les outils de gestion de la base de données.

EDTCDE
Spécifie un code d'édition (pour référence uniquement).
```
 Code d'édition       Non signé   CR   66-  -66
 Point et montants nuls     1     A     J    N    
 Points                     2     B     K    O
 Montants nuls              3     C     L    P
 Pas de points ni nuls      4     D     M    Q
 Définis par utilisateur   5-9
 Dates                      Y
 Suppr des zéros à gauche   Z
```
EDTWRD
Spécifie un mot d'édition (pour référence uniquement) sous la forme d'une chaine de caractères entre apostrophes:
- les blancs représentent des chiffres
- "&" représente un blanc
- "0" représente le premier chiffre à laisser à blanc en cas de valeur nulle
- "-" représente le signe négatif
- tout autre caractère est affiché ou imprimé tel quel
Exemple: EDTWRD(' . 0, -') ou EDTWRD(' : : ')
TEXT

Spécifie une description de l'enregistrement ou de la zone. Par défaut, une description est générée par concaténation des entetes de colonne. Le texte descriptif est utilisé par les outils de gestion de fichiers et son absence est pénalisante.
Codification de source fichier sous SEU

Fichier Physique

Les principaux mots clé sont ceux du dictionnaire, auxquels s'ajoutent de nombreux autres, beaucoup plus rarement utilisés. Si un dictionnaire est utilisé, les autres fichiers y font référence.
Exemple de fichier physique simple
```
      A*.........T.NAME++++++RLen++TDpB......Functions+++++++++++++++++++++++++++
      A*--------------------------------------------------
      A* CLIENT: Fichier clients
      A*
      A*--------------------------------------------------
      A                                      REF(DICO)
      A                                      UNIQUE
      A          R CLIENTF                   TEXT('Fichier Clients')
      A*
      A            CLCCLI       R            REFFLD(CCLI)
      A            CLNOM        R            REFFLD(NOM)
      A            CLADR1       R            REFFLD(ADR1)
      A            CLCSEX       R            REFFLD(CSEX)
      A            CLETAT       R            REFFLD(ETAT)
      A*
      A          K CLCCLI
      A            CCLI           6A         COLHDG('Code' 'Client')  
```
Ce fichier exemple définit une clé unique et quelques zones.

Fonctions de fichier physique niveau Fichier

CCSID

L'ID codé de jeu de caractères indique le numéro de page de la table de conversion de caractères. Le CCSID est par défaut défini au niveau des valeurs systèmes et enregistré pour chaque fichier au moment de la compilation. Lors d'échange entre machines de langues différentes, des tables de conversion permettent la lecture de fichiers d'autres CCSID. Si les tables ne sont pas disponible, le fichier n'est pas directement par les outils et langages évolués, mais les fonctions de bas niveau restent utilisable -CPYF FMTOPT(*NOCHK) par exemple-.
Le CCSID est une donnée technique liée à la machine et le coder en dur au niveau d'un fichier n'est partiquement jamais fait.

REF

Indique le nom du fichier dans lequel les zones référencées seront recherchées par défaut.

UNIQUE

Indique que les clés en double ne sont pas admises. En général, ce mot clé doit être spécifié au niveau de l'index principal du fichier (souvent au niveau du fichier physique) et ne doit pas être spécifié pour les index secondaires

Fonctions de fichier physique niveau Format

FORMAT

Partage les descriptions de zones avec un format d'enregistrement existant.

Fonctions de fichier physique niveau Zone

Attention: les fonctions réalisant des contrôles de validité sur la valeur des zones peuvent se révéler d'un usage dangereux et sont déconseillées. Les contrôles dans les programmes de saisie faisant référence à des contenus de tables sont nettement préférables, d'autant plus qu'ils établissent en général un lien avec un libellé explicitant le code saisi.

ALIAS

Attribue un nom de remplacement à la zone.

ALWNULL

Autorise l'utilisation de valeurs nulles dans la zone. Généralement inutilisé.

CHECK

Définit un contrôle de validité (pour référence uniquement).

CHKMSGID

Indique le message qui s'affichera lorsque le contrôle de validité aura détecté une erreur (pour référence uniquement).

CMP ou COMP

Fournit une valeur de comparaison (pour référence uniquement).

DATFMT

Décrit le format d'une zone DATE.

DATSEP

Décrit le séparateur utilisé dans la zone DATE formatée.

DFT

Définit une valeur par défaut pour la zone.

FLTPCN

Précision d'une zone à virgule flottante.

RANGE

Fournit une fourchette de valeurs correctes (pour référence uniquement). La définition de contrôle de saisie sous cette forme est déconseillée.

REFFLD

Spécifie la zone référencée servant de modèle de description.

REFSHIFT

Indique le positionnement clavier majuscules/minuscules (pour référence uniquement).

TIMFMT

Décrit le format d'une zone TIME.

TIMSEP

Décrit le séparateur utilisé dans la zone TIME formatée.

VALUES

Fournit une liste de valeurs correctes (pour référence uniquement). La définition de contrôle de saisie sous cette forme est déconseillée.

VARLEN

Définit une zone de longueur variable.

Fonctions de fichier physique niveau définition de clés

ABSVAL

Classe les enregistrements en utilisant la valeur absolue de la clé.

ALTSEQ

Classe les enregistrements en utilisant une table de remplacement contenant la séquence de classement. Généralement inutilisé.

DESCEND

Définit un ordre de tri décroissant sur la clé.

DIGIT

Définit un ordre de tri utilisant uniquement la partie numérique de la clé.

FCFO

Classe les clés en double selon le principe premier modifié, premier sorti.

FIFO

Classe les clés en double selon le principe premier entré, premier sorti.

LIFO

Classe les clés en double selon le principe dernier entré, premier sorti.

NOALTSEQ

Indique qu'aucune séquence de classement utilisée en remplacement ne doit être prise en compte.

SIGNED

Définit un ordre de tri fonction du signe de la clé.

UNSIGNED

Définit un ordre de tri n'utilisant pas le signe de la clé.

ZONE

Définit un ordre de tri utilisant uniquement la partie zone de la clé.

Fichier Logique

Exemple de fichier logique classique

Les fichiers logiques définissent des index utilisés explicitement par les langages classiques et implicitement par les accès de type SQL, et doivent rester simples.
Exemple de fichier logique
```
      A*.........T.NAME++++++RLen++TDpB......Functions+++++++++++++++++++++++++++
      A*--------------------------------------------------
      A* CLIENT1: clients actif par nom
      A*
      A*--------------------------------------------------
      A                                      PFILE(CLIENT)
      A          R CLIENTF                   TEXT('Clients actifs par Nom')
      A*
      A          K CLNOM        R            
      A          S CLETAT       R            COMP(NE '*')
```
Exemple de fichier logique Joint

Les fichiers joints sont complexes et peu compatibles avec une approche relationnelle. Leur usage n'est pas recommandé.

Les fichiers logiques joints n'autorisent en génaral pas les mises à jour.
Exemple de fichier logique joint
```
      A*.........T.NAME++++++RLen++TDpB......Functions+++++++++++++++++++++++++++
      A          R FICJ1                     JFILE(FIC1 FIC2)
      A          J                           JOIN(1 2)
      A                                      JFLD(F1BBBB F2BBBB)
      A            F1AAAA                    JREF(1)
      A            F1BBBB
      A            F2CCCC                    JREF(2)
      A          K F1AAAA 
```
Ce fichier joint fusionne des données de deux physiques en rapprochant les enregistrement par la zone BBBB nommée F1BBBB dans le premier fichier et F2BBBB dans le second.

JREF permet de distinguer le fichier d'origine si des zones sont présentes dans les deux fichiers, ce qui n'arrive pas quand la norme de nommage 2+4 est respectée.

colonne Type Nom pour jointure et sélection

J

Spécification de jointure (logiques joints seulement)

S

Spécification de sélection d'enregistrement

O

Spécification d'omission d'enregistrement

colonne Nom pour fichiers logiques

Nom de format d'enregistrement, de zone à inclure dans le format, de zone clé ou de zone à prendre en compte pour sélection ou omission.

colonne Usage

Cette colonne doit généralement être laissée à blanc. Les fichiers joints permettent de définir la valeur N pour des zones à n'utiliser ni en entrée ni en sortie. La valeur I permet de définir une zone en entrée seulement, son usage n'est pas recommandé.

Fonctions de fichier logique niveau Fichier

DYNSLT

Spécification un traitement dynamique des tests de sélection, ce qui dispense le système de maintenir un index spécifique si les acccès peuvent s'appuyer sur des clés existantes.

JDFTVAL

Attribution de valeurs par défaut aux zones du fichier secondaire si la jointure n'aboutit pas

JDUPSEQ

zone permettant de classer les enregistrements si la jointure génère des doublons

REFACCPTH

Spécifie le chemin d'accès issu d'un autre fichier servant de référence.

Fonctions de fichier logique niveau Format

PFILE

Fichier physique servant de base à un fichier logique non joint

JFILE

Liste de fichiers physiques servant de base à un fichier logique joint

JFLD

Paire de zones utilisées pour une jointure

JOINF

Paire de fichiers joints par une jointure

Fonctions de fichier logique niveau Zone

CONCAT

Définit une zone comme la concaténation de deux ou plusieurs zones

JREF

Précise le fichier physique d'où vient la zone

RENAME

Spécifie la zone du fichier physique renommée pour le logique

SST

Définit une zone comme sous-chaîne d'une zone du fichier physique

TRNTBL

Spécifie une table de conversion pour les données d'une zone

Fonctions liées aux sélections / omissions

Conditions

Les fonctions de comparaison pour les sélections - omossions sont celles des controles de validité de zones.

ALL

Dernière fonction d'une série de sélections - omissions.

Fichier Ecran

Les écrans sont maquettés sous SDA, ou copiés depuis un écran, puis leur source est adapté, avec retours itératifs vers le maquetteur.

Maquette d'écran simple et source associé
Ecran SDA simple
```
                       Gestion des clients                     DD/DD/DD


     Code Client . . . . BBB
     Nom . . . . . . . . BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

     Sexe. . . . . . . . B     OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO  


   F3=Fin   F4=Invite   F6=Validation
```
Au code sexe est associé un libellé de table standard avec recherche possible par F4.
Les couleurs conventionnelles et les touches de fonctions standard spécifiées par SAA sont utilisées.
Source d'écran simple
```
      AAN01N02N03T.NAME++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
      A                                      DSPSIZ(24 80 *DS3)
      A                                      REF(DICO)
      A                                      PRINT
      A                                      CA03(03)
      A                                      CF04(04)
      A          R F1
      A                                  1 20'Gestion des clients'
      A                                      DSPATR(HI)
      A                                  1 70DATE
      A                                      EDTCDE(Y)
      A                                      COLOR(BLU)
      A                                  4  5'Code Client . . . .'
      A            F1CCLI    R        B  4 25REFFLD(CCLI)
      A  41                                  DSPATR(PC RI)
      A                                  5  5'Nom . . . . . . . .'
      A            F1NOM     R        B  5 25REFFLD(NOM)
      A  42                                  DSPATR(PC RI)
      A                                  7  5'Sexe. . . . . . . .'
      A            F1CSEX    R        B  7 25REFFLD(CSEX)
      A  43                                  DSPATR(PC RI)
      A            L1CSEX    R        O  7 31REFFLD(TLIB)
      A                                 23 10'F3=Fin'
      A                                      COLOR(BLU)
      A                                 23 25'F4=Invite'
      A                                      COLOR(BLU)
      A                                 23 40'F6=Validation'
      A                                      COLOR(BLU)
```
Des indicateurs d'erreurs sont systématiquement affectés aux zones en saisie avec positionnement du curseur et inversion d'image en cas d'erreur. En programmation, il est possible qu'aucun contrôle ne soit réalisé sur la zone NOM, et il est possible que la saisie soit rendue obligatoire. Dans le premier cas, l'indicateur associé n'est pas utilisé, dans le second, il est présent et n'a pas à être ajouté en cas de changement de mode de contrôle.

Il est possible de rattacher directement des messages d'erreur aux champs de saisie, mais cette approche manque de souplesse et est fortement déconseillée.

Commentaires et suite condition - colonne A

A

Suite And pour les lignes avec indicateurs de condition

O

Suite Or pour les lignes avec indicateurs de condition

*

Ligne de commentaire

Indicateurs de condition - colonne N01N02N03N04

Les indicateurs permettent de conditionner la présence d'un champ et ses attributs d'affichage. Leur non normalisation rend les écrans et programmes associés difficiles à lire et le débogage aléatoire.

colonne Type Nom

R

définition de format d'enregistrement

H

spécification d'aide, peu utilisée.

blanc

définition de zone ou d'attributs

colonne Usage

O ou blanc

zone en sortie

I

zone en entrée seulement. Ne doit pas être utilisé, choisir B pour ce cas

B

zone en entrée-sortie, utilisé pour les zones de saisie

H

zone cachée, non affichée. Utile pour les sous-fichiers.

M

zone message, en sortie, rarement utilisé.

P

zone de programme-à-système

colonne Ligne - colonne Lin

Ligne d'affichage, ou première ligne pour un sous fichier

colonne Colonne - colonne Pos

colonne d'affichage du début de la zone

Fonctions de fichier écran niveau Fichier ou Format

ALARM

Emet un signal sonore lors de l'affichage de l'enregistrement.

ALTHELP

Indique une touche de commande de remplacement pour la touche AIDE.
ALTNAME

Attribue un nom de remplacement à l'enregistrement.
ALTPAGEDWN

Indique une touche de commande de remplacement pour la touche PAGE SUIVANTE.
ALTPAGEUP

Indique une touche de commande de remplacement pour la touche PAGE PRECEDENTE.
ALWGPH

Admet l'affichage de caractères graphiques et alphanumériques.
ALWROL

Indique que le programme peut faire défiler des données dans une fenêtre.
ASSUME

Considère que, par défaut, l'enregistrement est déjà affiché à l'écran lorsque le fichier est ouvert.

BLINK

Fait clignoter le curseur lors de l'affichage de l'enregistrement.
CAnn

Indique que la touche de fonction indiquée (sans transmission des champs au programme peut être utilisée.
CFnn

Indique que la touche de fonction indiquée peut être utilisée.
CHANGE

Indique toute modification apportée aux données figurant dans la zone ou l'enregistrement
CLEAR

Indique que la touche EFFAC peut être utilisée
CLRL

Efface à l'écran le nombre de lignes indiquées
CSRINPONLY

Indique que le curseur se place uniquement à des positions admettant des entrées
CSRLOC

Indique la position du curseur lors de l'affichage de l'enregistrement
DSPMOD

Indique le mode d'affichage à utiliser pour afficher l'enregistrement (24x80 ou 26x132)
DSPRL

Permet l'affichage de droite à gauche des enregistrements
DSPSIZ

Indique les tailles d'écran permettant d'afficher les enregistrements
DUP

Indique que la touche REPRO peut être utilisée.
ERASE

Efface les formats d'enregistrement indiqués à l'écran
ERASEINP

Efface les zones d'entrée non protégées à l'écran
FRCDTA

Affiche un format d'enregistrement sans attendre l'opération suivante
GETRETAIN

Conserve les zones d'entrée à l'écran après une opération d'entrée
HELP

Indique que la touche AIDE peut être utilisée.
HOME

Indique que la touche POS1 peut être utilisée.
INDARA

Positionne les indicateurs d'option et de réponse dans une mémoire tampon distincte.
INDTXT

Associe une description à un indicateur
INVITE

Demande à l'unité d'envoyer des données qui seront lues ultérieurement
INZINP

Initialise les zones d'entrée/sortie sans afficher l'enregistrement
INZRCD

Commande l'écriture d'un format d'enregistrement à l'écran avant une opération d'entrée
KEEP

Indique que l'enregistrement doit être maintenu à l'écran après la fermeture d'un fichier
LOCK

Maintient le clavier verrouillé après une opération de sortie
LOGINP

Envoie, dans l'historique des travaux, le contenu de la mémoire tampon d'entrée relative au format d'enregistrement
LOGOUT

Envoie, dans l'historique des travaux, le contenu de la mémoire tampon de sortie relative au format d'enregistrement
MDTOFF

Met hors fonction les indicateurs MDT pour toutes les zones de l'écran.
MSGALARM

Indique que le système émet un signal sonore lorsque le mot clé ERRMSG, ERRMSGID, SFLMSG ou SFLMSGID est actif dans l'enregistrement affiché, ou lorsqu'une erreur de contrôle de validité est détectée
MSGLOC

Indique le numéro de ligne utilisé comme ligne message.
OPENPRT

Maintient le fichier imprimante associé à la touche IMPR ouvert.
OVERLAY

Affiche l'enregistrement sans effacer l'écran au préalable.
PAGEDOWN

Indique que la touche de défilement de page suivante peut être utilisée
PAGEUP

Indique que la touche de défilement de page précédente peut être utilisée
PASSRCD

Indique un format d'enregistrement qui sera utilisé avec des données non structurées.
PRINT

Indique que la touche IMPR peut être utilisée
PROTECT

Indique que l'utilisateur ne peut pas entrer de données dans les zones de l'écran.
PUTOVR

Admet la substitution d'attributs d'affichage ou de contenu de données.

PUTRETAIN

Maintient les données à l'écran lorsque l'enregistrement est réaffiché.

RMVWDW

Enlève toutes les fenêtres existantes à l'écran avant d'afficher cet enregistrement

ROLLDOWN

Indique que la touche de défilement de page précédente peut être utilisée

ROLLUP

Indique que la touche de défilement de page suivante peut être utilisée

RTNCSRLOC

Renvoie la position du curseur à un programme d'application

RTNDTA

Renvoie les mêmes données que celles obtenues lors de la précédente opération d'entrée

SETOF ou SETOFF

Met hors fonction un indicateur de réponse lors d'une opération d'entrée

RETCMDKEY

Maintient en mémoire les touches de commande actives dans l'enregistrement précédent

RETKEY

Maintient en mémoire les touches de fonction actives dans l'enregistrement précédent

RETLCKSTS

Maintient en mémoire le verrouillage du clavier pour l'opération d'entrée suivante

UNLOCK

Déverrouille le clavier après une opération d'entrée

USRDFN

Indique que le format d'enregistrement est un flot de données défini par l'utilisateur

USRDSPMGT

Indique que le traitement compatible IBM 36 sera effectué

USRRSTDSP

Indique que l'affichage sera géré par l'application

VLDCMDKEY

Met en fonction un indicateur de réponse pour signaler qu'une touche de commande a été utilisée

Fonctions liées à l'aide

HLPARA

Indique la zone rectangulaire destinée à une spécification d'aide
HLPBDY

Limite l'aide développée en découpant la liste d'aide.
HLPCLR

Efface la liste des spécifications d'aide actives
HLPCMDKEY

Indique que les touches de commande sont renvoyées au programme à partir de l'aide
HLPDOC

Associe l'affichage d'un document constituant le texte d'aide
HLPEXCLD

Indique que l'aide en ligne associée à cette rubrique ne doit pas apparaître comme une aide étendue
HLPFULL

Indique que le texte d'aide se rapportant au groupe de panneaux d'aide doit s'afficher en mode plein écran.
HLPID

Indique l'identificateur de la constante à utiliser dans l'aide de niveau zone
HLPPNLGRP

Indique l'objet de groupe de panneaux UIM contenant les informations d'aide
HLPRCD

Indique l'affichage d'un format d'enregistrement constituant le texte d'aide
HLPRTN

Renvoie le contrôle au programme après l'utilisation de la touche AIDE
HLPSCHIDX

Active la fonction de recherche d'informations lorsque vous appuyez sur la touche F11 à partir d'un écran d'aide ou lorsque vous indiquez l'objet de recherche à utiliser
HLPSEQ

Ordonne à l'écran les formats d'enregistrement constituant le texte d'aide
HLPTITLE

Définit le titre par défaut affiché sur un écran d'aide en mode plein écran lorsqu'aucun titre n'a été indiqué dans le source du groupe de panneaux d'aide.

Fonctions de fichier écran niveau Zone

ALIAS

Attribue un nom de remplacement à la zone.

AUTO

Equivaut au mot clé CHECK dans les cas suivants : AUTO(RA): CHECK(ER), AUTO(RAB): CHECK(RB), AUTO(RAZ): CHECK(RZ).
BLANKS

Indique lors d'une opération d'entrée si la zone d'entrée est à blanc
BLKFOLD

Effectue un renvoi à la ligne après le dernier espace situé avant la fin de la ligne.
CHECK(AB)

Admet les espaces dans le contrôle de validité.
CHECK(ER)

Traite une entrée apparaissant à la dernière position de la zone comme si la touche ENTREE avait été utilisée.
CHECK(FE)

Demande à l'utilisateur d'appuyer sur la touche FIN ZONE pour quitter la zone.
CHECK(LC)

Admet l'entrée de lettres minuscules dans la zone
CHECK(ME)

Demande à l'utilisateur d'entrer des données dans la zone
CHECK(MF)

Demande à l'utilisateur d'entrer des données dans chacune des positions de la zone
CHECK(M10)

Exécute le contrôle de validité modulo 10 sur les données en entrée
CHECK(M11)

Exécute le contrôle de validité modulo 11 sur les données en entrée
CHECK(RB)

Cadre la zone à droite et la remplit, le cas échéant de blancs
CHECK(RL)

Déplace le curseur de la droite vers la gauche dans les zones alphanumériques
CHECK(RLTB)

Déplace le curseur de la droite vers la gauche et du haut vers le bas
CHECK(RZ)

Cadre la zone à droite et la remplit, le cas échéant avec des zéros.
CHECK(VN)

Vérifie que l'entrée est un nom simplifié correct.
CHECK(VNE)

Vérifie que l'entrée est un nom avec extension correct.
CHGINPDFT(BL)

Indique qu'une zone d'entrée doit clignoter
CHGINPDFT(CS)

Affiche des séparateurs de colonne entre chacune des positions de la zone
CHGINPDFT(FE)

Demande à l'utilisateur d'appuyer sur la touche FIN ZONE pour quitter la zone.
CHGINPDFT(HI)

Affiche la zone en surbrillance
CHGINPDFT(LC)

Admet l'entrée de lettres minuscules dans la zone
CHGINPDFT(ME)

Demande à l'utilisateur d'entrer des données dans la zone
CHGINPDFT(MF)

Demande à l'utilisateur d'entrer des données dans chacune des positions de la zone
CHGINPDFT(RI)

Affiche une zone d'entrée en vidéo inverse
CHGINPDFT(UL)

Indique qu'une zone d'entrée doit être soulignée
CHKMSGID

Indique un message à afficher lorsqu'une erreur est détectée lors du contrôle de validité.
CHOICE

Indique les options dont vous disposez dans une zone à choix unique ou à choix multiples
CHRID

Indique que la zone doit être affichée au moyen d'un jeu de caractères de remplacement.
CNTFLD

Identifie une zone comme zone d'entrée continue
COLOR

Indique la couleur de la zone à l'affichage
CMP ou COMP

Produit une règle de comparaison permettant de valider les données entrées dans la zone.
DATE(*JOB/*SYS) (*Y/*YY)

La valeur *JOB indique que la date du travail en cours est affichée. Si aucun paramètre n'est spécifié, *JOB est utilisé. *SYS indique que la date système en cours est affichée. *Y indique qu'une valeur à 2 chiffres sera utilisée pour représenter l'année dans le format de date désigné par l'attribut de travail DATFMT. Si *YY est indiqué, une valeur de 4 chiffres sera utilisée pour représenter l'année dans le format de date désigné par l'attribut de travail DATFMT. Si aucun paramètre n'est spécifié, *Y est utilisé par défaut
DATFMT

Permet d'indiquer le format d'une zone de date. Le mot-clé est admis uniquement pour les zones de date (donnée de type L
DATSEP

Permet d'indiquer le séparateur qui permet de distinguer l'année, le mois et le jour. Les valeurs admises sont la barre oblique (/), le tiret (-), le point (.), la virgule (,) et le blanc ( ).
DFT

Attribue une valeur par défaut à la zone
DFTVAL

Indique une valeur par défaut utilisée lors de la première opération de sortie
DLTCHK

Indique qu'une zone référencée ne doit pas être soumise au contrôle de validité
DLTEDT

Indique qu'une zone référencée ne doit pas être éditée
DSPATR(BL)

Fait clignoter la zone (à éviter
DSPATR(CS)

Affiche des séparateurs de colonne entre chacune des positions de la zone
DSPATR(HI)

Affiche la zone en surbrillance
DSPATR(MDT)

Met en fonction l'indicateur (Modified Data Tag) MDT de la zone
DSPATR(ND)

Indique que les données de la zone ne doivent pas être affichées
DSPATR(OID)

Admet une entrée provenant d'un lecteur de bande magnétique
DSPATR(PC)

Place le curseur sur le premier caractère de la zone.
DSPATR(PR)

Indique qu'un utilisateur ne peut pas saisir de données dans la zone
DSPATR(zone programme à système)

Indique que la zone nommée doit être définie dans le format d'enregistrement comme une zone alphanumérique (A en position 35), d'une longueur de deux caractères, avec une utilisation P (P en position 38). Le programme utilise cette zone pour définir l'attribut d'affichage de la zone à laquelle s'applique le mot clé DSPATR
DSPATR(RI)

Affiche la zone en vidéo inverse
DSPATR(SP)

Indique que la zone peut être sélectionnée à l'aide d'un photostyle.
DSPATR(UL)

Indique que la zone doit être soulignée
EDTCDE

Indique un code d'édition permettant d'éditer une zone numérique
EDTMSK

Place un masque d'édition sur une zone numérique éditée
EDTWRD

Indique un mot d'édition permettant d'éditer une zone numérique
ENTFLDATR

Modifie l'attribut de début d'une zone quand le curseur entre dans cette zone.
ERRMSG

Indique l'affichage d'un texte lorsqu'une erreur se produit
ERRMSGID

Indique l'affichage d'un message lorsqu'une erreur se produit
ERRSFL

Affiche des messages d'erreur à l'aide d'un sous-fichier de messages
FLDCSRPRG

Indique le nom de la zone de destination du curseur quand vous quittez la zone en cours
FLTFIXDEC

Affiche un nombre en virgule flottante dans une notation décimale fixe
FLTPCN

Indique la précision d'une zone à virgule flottante
MSGCON

Indique un message contenant le texte d'une zone constante.
MSGID

Indique un message contenant le texte d'une zone nommée
NOCCSID

Indique que la conversion CCSID de la zone n'est pas effectuée.
OVRATR

Substitue les attributs d'affichage d'une zone de l'écran.
OVRDTA

Substitue le contenu des données d'une zone de l'écran.
RANGE

Indique une fourchette de valeurs correctes pour le contrôle de validité.

REF

Indique le nom d'un fichier contenant des zones référencées

REFFLD

Copie la description de zone provenant de la zone référencée

MLTCHCFLD

Identifie une zone comme zone à choix multiples
SNGCHCFLD

Indique une zone à choix unique

SYSNAME

Affiche le nom du système en cours

TEXT

Fournit une description de l'enregistrement ou de la zone

TIME

Affiche l'heure système en cours

USER

Affiche le nom de profil utilisateur du travail en cours

VALUES

Fournit une liste de valeurs correctes pour le contrôle de validité

WRDWRAP

Protège contre les coupures de mots entre deux lignes d'une zone ou entre deux segments d'une même zone d'entrée.

Fonctions de sous fichier

SFL

Indique que le format d'enregistrement est un sous-fichier

SFLCHCCTL

Vérifie la disponibilité des options d'une liste de sélection

SFLCLR

Met à blanc le sous-fichier de tous les enregistrements

SFLCSRPRG

Indique que le curseur doit se positionner dans l'enregistrement de sous-fichier suivant et non dans la zone suivante de l'enregistrement de sous-fichier en cours

SFLCSRRRN

Renvoie le numéro d'enregistrement relatif du sous-fichier sur lequel est positionné le curseur

SFLCTL

Indique que le format d'enregistrement est un format de contrôle du sous-fichier

SFLDLT

Supprime un sous-fichier actif

SFLDROP

Indique la touche CA ou CF qui peut être utilisée pour la troncature ou le renvoi à la ligne des enregistrements de sous-fichier

SFLDSP

Affiche les enregistrements d'un sous-fichier

SFLDSPCTL

Affiche les zones dans le format de contrôle du sous-fichier

SFLEND

Affiche par défaut un signe plus (+) pour indiquer qu'il existe d'autres enregistrements dans le sous-fichier. Entrez *MORE pour afficher du texte (A suivre.. ou Fin), ou *SCRBAR pour afficher une barre de défilement

SFLENTER

Indique que la touche ENTREE sert de touche de défilement et précise la touche de commande à utiliser à la place de la touche ENTREE

SFLFOLD

Indique la touche CA ou CF qui est utilisée pour le renvoi à la ligne ou la troncature des enregistrements de sous-fichier

SFLINZ

Initialise tous les enregistrements dans un sous-fichier

SFLLIN

Indique que le sous-fichier est horizontal et précise le nombre d'espaces affichés entre les enregistrements du sous-fichier

SFLMLTCHC

Définit un sous-fichier en tant que liste à choix multiples

SFLMODE

Renvoie à une application un indicateur de troncature ou de renvoi à la ligne du sous-fichier

SFLNXTCHG

Modifie l'enregistrement de sous-fichier de façon qu'il soit lu lors d'une opération de recherche/modification

SFLPAG

Indique le nombre d'enregistrements de sous-fichier à afficher à l'écran

SFLRCDNBR

Indique la page de l'enregistrement de sous-fichier qui doit être affichée. Précisez CURSOR pour positionner le curseur dans la première zone d'entrée, ou *TOP pour placer le sous-enregistrement au début de la page

SFLRNA

Indique qu'il faut initialiser un sous-fichier ne contenant aucun enregistrement actif

SFLROLVAL

Indique le nombre d'enregistrements à faire défiler lorsque la touche de défilement est utilisée

SFLRTNSEL

Indique comment les enregistrements de sous-fichier contenus dans une liste de sélection sont renvoyés à l'application

SFLSCROLL

Indique l'enregistrement situé au début du sous-fichier lorsque le contrôle est rendu à l'application.

SFLSIZ

Indique le nombre d'enregistrements contenus dans le sous-fichier. Vous pouvez ce nombre en tant que zone programme-à-système

SFLSNGCHC

Définit un sous-fichier en tant que liste de sélection à choix unique

SLNO

Indique le numéro de la première ligne de l'enregistrement

Fonctions de sous fichier de message

SFLMSG

Indique l'affichage d'un texte lorsqu'une erreur se produit

SFLMSGID

Indique l'affichage d'un message lorsqu'une erreur se produit

SFLMSGKEY

Indique la clé de référence de messages utilisée pour un sous-fichier de messages

SFLMSGRCD

Indique que le format d'enregistrement est un sous-fichier de messages

SFLPGMQ

Indique la file d'attente de messages du programme utilisée pour créer un sous-fichier de messages

Fonctions de fenêtrage et de menu

WDWBORDER

Indique la couleur, les attributs d'affichage et les caractères à utiliser pour configurer le cadre de la fenêtre

WDWTITLE

Imbrique le texte dans la bordure du haut ou du bas de la fenêtre

WINDOW

Indique que le format d'enregistrement en cours de définition devra être affiché à l'aide d'une fenêtre

CHCACCEL

Indique le raccourci clavier ou une variable contenant le raccourci qui apparaît à droite de chaque option.
CHCAVAIL

Indique les attributs de couleur et d'affichage utilisés quand une option est disponible
CHCCTL

Contrôle la disponibilité des options proposées dans une zone de sélection
CHCSLT

Indique les attributs de couleur et d'affichage utilisés quand une option est sélectionnée
CHCUNAVAIL

Indique les attributs de couleur et d'affichage utilisés quand une option n'est pas disponible.
MNUBAR

Indique un format de barre de menus
MNUBARCHC

Définit les options d'une barre de menus et le menu déroulant associé à chaque option
MNUBARDSP

Affiche une barre de menus
MNUBARSEP

Indique la couleur, l'attribut d'affichage et les caractères à utiliser dans un séparateur de barre de menus
MNUBARSW

Définit une touche de retour à la barre de menus
MNUCNL

Définit une touche d'annulation pour une barre de menus ou un menu déroulant
MOUBTN

Associe les indicateurs Attention à des événements liés à un dispositif de pointage
PSHBTNCHC

Définit l'option associée à un bouton de fonction
PSHBTNFLD

Définit une zone comme bouton de fonction
PULLDOWN

Indique un menu déroulant.

Exemple de source écran normalisé

Un écran classique comporte un bandeau titre, des zones en saisie, une liste de sélection et une ligne de messages. Une bonne partie de ces composants peut être totalement standardisée.

Cet écran est une illustration technique. Dans la réalité, la plupart des listes ne permettent pas une mise à jour pleine page et demandent de passer par des écrans de saisie détaillée. Dans certains cas la saisie pleine page présente un intérêt évident, comme ce qu'on peut voir derrière les guichets Darty, justifiant une programmation plus complexe.
Maquette d'écran
```
   GESCOM              Gestion des Commandes                        DD/DD/DD
   OOOOOOOOOO                                                       TT:TT:TT

     Client. . . . . . . BBBBBB   OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
     Numéro de commande. 999999
 
     1=Sélectionner  2=Gérer   4=Supprimer   5=Afficher

   Sel   Article   Quantité  Commentaire                     Montant
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
    X    BBBBBBBB    999     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB  999.999,99 
                                                               A suivre...

   F3=Fin   F4=Invite   F6=Valider   F12=Retour   F23=Supprimer
```
Le source décrit les éléments non visibles, en particulier le sous fichier de messages.
Source d'écran simple
```
      AAN01N02N03T.NAME++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
      A                                      DSPSIZ(24 80 *DS3)
      A                                      REF(DICO)
      A                                      PRINT
      A                                      CA03(03)
      A                                      CF04(04)
      A                                      CF06(06)
      A                                      CF12(12)
      A                                      CF23(23)
      A* Sous fichier de message standardisé, à reprendre tel quel
      A          R MSGS                      SFL
      A                                      SFLMSGRCD(24)
      A            MSGKEY                    SFLMSGKEY
      A            PGMNAM                    SFLPGMQ
      A* Format de controle message standardisé, à reprendre tel quel
      A                                      SFLSIZ(2)
      A                                      SFLPAG(1)
      A                                      OVERLAY
      A                                      SFLDSP
      A                                      SFLDSPCTL
      A                                      SFLINZ
      A N34                                  SFLEND
      A            PGMNAM                    SFLPGMQ
      A* Format haut d'écran
      A*    RTNCSRLOC envoie au programme des informations sur la position du curseur
      A*    CSRLOC permet au programme de fixer explicitement la position du curseur  
      A          R F1
      A                                      RTNCSRLOC(&F1FMTC &F1ZONC &F1POSC)
      A                                      CSRLOC(F1LIG &F1COL)
      A            F1LIG          3S 0H 
      A            F1COL          3S 0H 
      A            F1FMTC        10   H 
      A            F1ZONC        10   H 
      A            F1POSC         4S 0H
      A                                  1  4'GESCOM'
      A                                      COLOR(BLU)
      A                                  1 20'Gestion des Commandes'
      A                                  1 70DATE
      A                                      EDTCDE(Y)
      A                                      COLOR(BLU)
      A            WS            10   O  2  4COLOR(BLU)   
      A                                      DSPATR(HI)
      A                                  2 70TIME
      A                                      COLOR(BLU)
      A                                  4  5'Client. . . . . . .'
      A            F1CCLI    R        B  4 25REFFLD(CCLI)
      A  41                                  DSPATR(PC RI)
      A            F1NOM     R        O  4 35REFFLD(NOM)
      A                                  5  5'Numéro de commande.'
      A            F1NCOM    R        B  5 25REFFLD(NCOM)
      A  42                                  DSPATR(PC RI)
      A                                  7 13'1=Sélectionner'
      A                                      COLOR(BLU)
      A                                  7 30'2=Gérer'
      A                                      COLOR(BLU)
      A                                  7 41'4=Supprimer'
      A                                      COLOR(BLU)
      A                                  7 56'5=Afficher'
      A                                      COLOR(BLU)
      A                                  9  4'Sel'
      A                                      DSPATR(HI)
      A                                  9 10'Article'
      A                                      DSPATR(HI)
      A                                  9 24'Quantité'
      A                                      DSPATR(HI)
      A                                  9 32'Commentaire'
      A                                      DSPATR(HI)
      A                                  9 65'Montant' 
      A                                      DSPATR(HI)
      A* Sous fichier pour liste des articles
      A          R F1S                       SFL
      A  31                                  SFLNXTCHG
      A            S1SEL             1A  B 10  5   
      A  51                                  DSPATR(PC RI)
      A            S1CART    R           B 10 10REFFLD(CART)
      A  52                                  DSPATR(PC RI)
      A            S1QTAR    R           B 10 24REFFLD(QTE)
      A  53                                  DSPATR(PC RI)
      A            S1COMT    R           B 10 32REFFLD(COMT)
      A  54                                  DSPATR(PC RI)
      A            S1MNTL    R           B 10 65REFFLD(MNT)
      A  55                                  DSPATR(PC RI)

      A* Format de controle pour liste des articles
      A          R F1C                       SFLCTL(F1S)
      A N32                                  ROLLUP(35)
      A                                      OVERLAY
      A  31                                  SFLDSP
      A  32                                  SFLDSPCTL
      A  34                                  SFLCLR
      A  33                                  SFLEND
      A                                      SFLSIZ(10)
      A                                      SFLPAG(9)
      A            RNB1              4  0H   SFLRCDNBR               
      A                                 23  3'F3=Fin'
      A                                      COLOR(BLU)
      A                                 23 14'F4=Invite'
      A                                      COLOR(BLU)
      A                                 23 26'F6=Validation'
      A                                      COLOR(BLU)
      A                                 23 38'F12=Retour'
      A                                      COLOR(BLU)
      A                                 23 52'F23=Supprimer'
      A                                      COLOR(BLU)
```
L'utilisation de fonctions de contrôle et de cadrage sont fortement déconseillées, à l'exception de CHECK(LC) pour autoriser la saisie en minuscules.

Fichier Imprimante

Une liste des fonctions imprimante permet de se faire une idée de ce qui est possible. Certaines fonctions nécessitent une imprimante IPDS (Intelligent Printer Data Stream). Passer par RLU pour obtenir une information plus complète et des guides de saisie.

Fonctions d'impression

ALIAS

Attribue un nom de remplacement à la zone

BARCODE

Imprime la zone en un code à barres défini par l'utilisateur

BLKFOLD

Effectue le renvoi à la ligne sur le dernier espace situé avant la fin de la ligne

BOX

Imprime un rectangle

CDEFNT

Indique la police codée à utiliser pour imprimer une ou plusieurs zones constantes ou nommées, ou des zones d'un enregistrement

CHRID

Indique que la zone doit être imprimée à l'aide d'un jeu de caractères de remplacement

CHRSIZ

Augmente la largeur ou la hauteur des caractères contenus dans un enregistrement ou dans une zone

COLOR

Indique la couleur de la zone à l'impression

CPI

Indique le nombre de caractères par pouce

CVTDTA

Convertit des données alphanumériques en données de type hexadécimal

DATE(*JOB/*SYS) (*Y/*YY)

La valeur *JOB indique que la date du travail en cours est imprimée. Si aucun paramètre n'est spécifié, la valeur *JOB est utilisée. *SYS indique que la date système en cours est imprimée. *Y indique qu'une valeur à deux chiffres sera utilisée pour représenter l'année dans le format de date désigné par l'attribut de travail DATFMT. Si le paramètre *YY est indiqué, une valeur à 4 chiffres est utilisée pour représenter l'année dans le format de date désigné par l'attribut de travail DATFMT. Si aucun paramètre n'est indiqué, *Y est utilisé par défaut

DATFMT

Permet d'indiquer le format d'une zone de date. Le mot-clé est admis uniquement pour les zones de date (donnée de type L)

DATSEP

Permet d'indiquer le séparateur qui permet de distinguer l'année, le mois et le jour. Les valeurs admises sont la barre oblique "/", le tiret "-", le point ".", la virgule "," et le blanc " "

DFNCHR

Définit des caractères spéciaux

DFT

Imprime une constante ou une valeur hexadécimale

DLTEDT

Indique qu'une zone référencée ne doit pas être éditée

DRAWER

Indique le tiroir alimentation contenant papier ou enveloppes

EDTCDE

Indique un code d'édition permettant d'éditer une zone numérique

EDTWRD

Indique un mot d'édition permettant d'éditer une zone numérique

ENDPAGE

Ejecte la page en cours après impression de l'enregistrement en cours

FLTFIXDEC

Imprime un nombre en virgule flottante dans une notation décimale fixe

FLTPCN

Indique la précision d'une zone à virgule flottante

FNTCHRSET

Indique la police à utiliser pour l'impression d'une zone constante ou nommée au sein d'un enregistrement

FONT

Indique la police utilisée pour imprimer un enregistrement ou une zone

GDF

Imprime un fichier de donnés graphiques (GDF)

HIGHLIGHT

Imprime la zone en caractères gras

INDARA

Place les indicateurs d'option dans une mémoire tampon distincte

INDTXT

Associe une description à un indicateur

LINE

Imprime une ligne verticale ou horizontale

LPI

Indique le nombre de lignes par pouce

MSGCON

Copie la valeur d'une zone constante depuis le message indiqué

OVERLAY

Imprime un segment de recouvrement

PAGNBR

Imprime le numéro de page

PAGRTT

Permet une rotation du texte sur la page

PAGSEG

Imprime un segment de page

POSITION

Définit la position d'une zone constante nommée figurant sur la page

PRTQLTY

Indique la qualité d'impression

REF

Indique le nom d'un fichier contenant des zones référencées

REFFLD

Copie la description de zone provenant de la zone référencée

SKIPA

Saute au numéro de ligne indiqué après l'impression

SKIPB

Saute au numéro de ligne indiqué avant l'impression

SPACEA

Espace le nombre de lignes indiqué après l'impression

SPACEB

Espace le nombre de lignes indiqué avant l'impression

TEXT

Fournit une description de l'enregistrement ou de la zone

TIME

Imprime l'heure système en cours

TIMFMT

Pour spécifier le format d'une zone heure. Le mot-clé est admis uniquement pour les zones heure (données de type T

TIMSEP

Permet d'indiquer le séparateur qui distingue l'heure, les minutes et les secondes. Les valeurs admises sont les deux points ":", la virgule "." et le blanc " "

TRNSPY

Indique que tout point de code est transparent

TXTRTT

Permet la rotation de la zone

UNDERLINE

Indique que la zone doit être soulignée.

Patrick Larreya, 1993-2001.
Sommaire

Programmation sur l'AS400

Partie 1 - Base de données

Différents types de fichiers

Fichiers physiques

Fichiers logiques

Fichiers imprimantes

Fichiers écrans

Dictionnaire de données

Normalisation des noms de zones

Fichiers sources

Saisie d'un dictionnaire de données

Saisie simple sous SEU

Type de nom - première colonne T

Nom - colonne Name

Référence - colonne R

Longueur - colonne Len

Type de données - seconde colonne T

Nombre de décimales - colonne Dp

Usage - colonne B

Fonctions de base pour dictionnaire - colonne Functions

Codification de source fichier sous SEU

Fichier Physique

Fonctions de fichier physique niveau Fichier

Fonctions de fichier physique niveau Format

Fonctions de fichier physique niveau Zone

Fonctions de fichier physique niveau définition de clés

Fichier Logique

Exemple de fichier logique classique

Exemple de fichier logique Joint

colonne Type Nom pour jointure et sélection

colonne Nom pour fichiers logiques

colonne Usage

Fonctions de fichier logique niveau Fichier

Fonctions de fichier logique niveau Format

Fonctions de fichier logique niveau Zone

Fonctions liées aux sélections / omissions

Fichier Ecran

Maquette d'écran simple et source associé

Commentaires et suite condition - colonne A

Indicateurs de condition - colonne N01N02N03N04

colonne Type Nom

colonne Usage

colonne Ligne - colonne Lin

colonne Colonne - colonne Pos

Fonctions de fichier écran niveau Fichier ou Format

Fonctions liées à l'aide

Fonctions de fichier écran niveau Zone

Fonctions de sous fichier

Fonctions de sous fichier de message

Fonctions de fenêtrage et de menu

Exemple de source écran normalisé

Fichier Imprimante

Fonctions d'impression

Type de nom - première colonne `T`

Nom - colonne `Name`

Référence - colonne `R`

Longueur - colonne `Len`

Type de données - seconde colonne `T`

Nombre de décimales - colonne `Dp`

Usage - colonne `B`

Fonctions de base pour dictionnaire - colonne `Functions`

Commentaires et suite condition - colonne `A`

Indicateurs de condition - colonne `N01N02N03N04`

colonne Ligne - colonne `Lin`

colonne Colonne - colonne `Pos`