Dans la sous-routine Main1 en J, nous obtenons l'en-tête au début de l'espace utilisateur : cela nous renseigne sur les données chargées dans l'espace. J'ai séparé cela dans une sous-routine différente, GetSpcHdr, pour faciliter le couper/coller du code dans d'autres programmes. Je me prémunis aussi contre le renvoi d'entrées (c'est-à -dire,
Sous-routine Main1
qu’il n’existe pas d’objets programme dans la bibliothèque). Notez également
la présence d’une boucle do qui
s’indexe au travers du nombre d’entrées
pour extraire les enregistrements
de données.
En K, la sous-routine GetHpcHdr
emploie l’API QUSRTVUS définie dans
le prototype UsrSpcEnt (en section E).
Notons que l’en-tête démarre à la position
1 pour la longueur du format
d’en-tête prédéfini Qush0100. Cela
renvoie dans le format Qush0100
(entre d’autres données) le point de
départ de la liste dans Qusold (OLD =
Offset to List Data), la longueur de
l’entrée Qussee (cette valeur devrait
correspondre à la longueur de la
structure de données OBJL0400) et
Qusnbrle (le nombre d’entrées de la
liste). Comme nous réutilisons cette
structure de données, ces trois champs sont sauvegardés comme
champs de travail. Voyons maintenant
la sous-routine GetSpcDtl.
Téléchargez gratuitement cette ressource
*** SMART DSI *** VERSION NUMÉRIQUE
Découvrez SMART DSI, la nouvelle revue du Décideur IT en version numérique. Analyses et dossiers experts pour les acteurs de la transformation numérique de l'entreprise, Gagnez en compétences et expertise IT Professionnelle avec le contenu éditorial premium de SMART DSI.
Les articles les plus consultés
A travers cette chaîne
A travers ITPro
