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.