CALL QUSCRTUS +
('EXEMPLE QGPL ' /* User Space : nom et bibliothèque */ +
'EXEMPLE ' /* EXTENDED ATTRIBUTE */ +
X'0000012C' /* taille en hexa de l' User Space */ +
' ' /* valeur d'initialisation */ +
'*CHANGE ' /* autorisation */ +
'Exemple QUSLMBR User Space ') /* description */
Liste des membres commençant par ‘CPTA’ du fichier QCLSRC de la bibliothèque SOURCES, en utilisant le format MBRL0200.
CALL QUSLMBR +
('EXEMPLE QGPL ' /* User Space : nom et bibliothèque */+
'MBRL0200' /* Format de l'API */ +
'QCLSRC SOURCES ' /* Fichier et bibliothèque */ +
'CPTA* ' /* nom des membres */ +
'1') /* remplace le contenu de l'User Space */