Il faut :
Décocher la case "Pagination dynamique" pour la vue *1, ou mettre 1 dans le type de pagination (sur Adélia/400).
Ne pas indiquer de fichier guide pour le chargement.
Créer une vue 01 (par exemple), qui a comme provenance fichier : *1.
Cette vue est en mise à jour avec création d'enregistrements.
Son accès se fait par clé, avec WRAN01 comme clé.
Le mot directeur de cette vue est, par exemple, LIGNE_SF1.
Créer éventuellement une vue pour travailler sur le fichier à visualiser (mise à jour, etc.).
Au niveau du prototypage, déclarer la variable :
zone = WRAN01 MD = WRAN01 Lg = 4 Déc = 0 Réfer. = *NODEF
Saisir dans le paragraphe INITIALISATION :
*********************** |
|
INITIALISATION aa |
aa = n° de transaction |
*********************** |
|
EFFACER 1 |
Initialisation du sous-fichier |
*IN08 = '0' |
|
lire le premier enregistrement du fichier |
|
TANT_QUE condition de lecture vérifiée |
|
zones écran = zones fichier |
Remplace l'ordre PRESENTER |
*DEL01 = *DEL01 + 1 |
) remplace |
WRAN01 = *DEL01 |
) l'ordre |
CREER LIGNE_SF1 |
) MAJ_SFL |
lire enregistrement suivant du fichier |
|
REFAIRE |
|
*IN07 = '1' |
) efface le "+" de continuation |
WRAN01 = 1 |
) permet l'affichage à la 1ère page |
Du fait que le sous-fichier est géré en statique, il ne faut pas :
Ecrire les instructions de pagination dynamique dans le paragraphe TRANSACTION :
(En effet, la pagination est prise en charge par le système.)
SI *PAGAV
PAGINER_AVANT
FIN
Mots réservés utilisés
WRAN01
est la variable générée par Adélia pour la gestion du mot-clé SFLRCDNBR (numéro du format de contrôle de sous-fichier).
*DEL01
est le mot réservé Adélia qui contient le nombre total d'enregistrements chargés dans le sous-fichier.
*IN07
est l'indicateur associé à l'utilisation du mot-clé SFLEND (caractère de suite) pour le sous-fichier *1. Cet indicateur est défini dans les standards de génération.
*IN08
est l'indicateur associé à l'utilisation du mot-clé SFLNXTCHG. Cet indicateur est à 0 afin que les lignes créées ne soient actives que dans le cas où elles ont été modifiées.
Cliquez ici pour l'explication détaillée des mots réservés.