REXX comment recuperer les lignes d'une commande TSO

The OUTTRAP function does not trap all lines of command output from all TSO/E commands.

Comment recuperer donc les lines resultats du commande TSO puique l' outtrap ne le permet pas
Concretement je passe la commande dans un Rexx
TSO LG $SYSTEME

et je voudrais recuperer le resultat dans un tableau

qui me renvoit
INFORMATION FOR GROUP $SYSTEME
SUPERIOR GROUP=SYS1 OWNER=SYS1 CREATED=09.040
NO INSTALLATION DATA
NO MODEL DATA SET
TERMUACC
NO SUBGROUPS
USER(S)= ACCESS= ACCESS COUNT= UNIVERSAL ACCESS=
P723286 USE 000363 NONE
CONNECT ATTRIBUTES=NONE
REVOKE DATE=NONE RESUME DATE=NONE

Exemple sur commande


Arg grid
x= Outtrap("lg.",'*',"noconcat")

ADDRESS "TSO" "Lg "grid
If (rc ^= 0) Then Do
rmess001= lg.1
say lg.1
return
End
max_num= (lg.0 + 1)
x= 1 ; User.0=0 ; User.="" ; ix=0 ;
Do ivv=1 to Max_num
If Substr(lg.x,21,3) = 'USE' Then
Do
IX=Ix+1
User.ix = Substr(lg.x,7,7)
Say user.ix
End
x= x + 1
End
Return

Un OUTTRAP sur une commande LISTGROUP comme d'ailleurs sur toute commande prévue dans le TSO HELP fonctionne sans problème.
Cela étant, il y a quelques manques dans ce rexx. Un OUTTRAP('OFF') pour réactiver l'affichage immédiatement après le LISTGROUP et la gestion de l'index ligne avec lequel on travaille ne va pas au plus simple. Quelque chose comme ceci serait plus lisible et fiable:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

/* REXX */ Parse upper Arg grid . x = outtrap("lg.","*") address TSO 'LG' grid x= outtrap("OFF") if RC > 0 then do say lg.1 exit RC end Do x = 1 to lg.0 /* boucle sur lignes */ If Word(lg.x,2) ^= 'USE' then iterate say 'USER :' If Word(lg.x,1) end Drop lg. /* libération tableau en mémoire */ /* ..... suite ......... */ Exit

---