Discussion :

[cosso11]

Bonjour, je souhaite via un rexx ou un jcl connaitre le pourcentage d'utilisation du spool, obtenier la réponse en sortie sur l'écran ou dans un fichier en output
Je vous remercie

ci-dessous la réponse en passant la commande dans System Log
$DQ
$HASP644 1 OUT AC90
$HASP643 1 PPU ECOLE ANY
$HASP643 858 PPU LOCAL ANY
$HASP643 9 PPU PRODOR ANY
$HASP643 13 PPU PRODAM ANY
$HASP646 31.7918 PERCENT SPOOL UTILIZATION

[bernard59139]

en faisant ULOG (sans split d'écran) , tu devrais avoir les réponses.

[xfanx]

Bonjour,

en rexx tu peux aussi le faire ainsi :

passage de la commande

address tso
"consprof soldisplay(no)"
address tso
"console activate"
x=outtrap('titi.')
address tso
"console syscmd($DQ,cc,status)"
rc=getmsg('lgn.','SOL',,,5)

resultat dans lgn.x
avec lgn.0 pour le nombre de lignes retournées

sans oublier de réactiver la console après
x=outtrap('off')
address tso
"consprof soldisplay(yes)"
address tso
"console deactivate"

[cosso11]

Bonjour, Parfait !!! je vous remercie

[cosso11]

Merci
Lorsque je demande la valeur de lgn.0, il me donne 1 et dans le "do i=1 to lgn.0": il me donne : $HASP644 1 OUT AC90
il me donne tout de même toutes les infos et celle-ci avant la demande du "do"
Comment pourrais je récuperer les autres infos afin de traper le message : $HASP646 29.4434 PERCENT SPOOL UTILIZATION et éventuellement d'agir , m'envoyer un message avec le résultat?
La ligne qui m'interresse n'est pas une lgn.x !!
merci

[bernard59139]

peut-être mettre un time dans le getmsg, par défaut c'est 0 (zéro) seconde.

[xfanx]

désolée, il y avait un bug dans mon exemple, en fait la fonction GetMSG ne revoie pas tout ne une seule fois, il faut donc ajouter une boucle
je viens d'essayer ce rexx ça marche mieux
mes excuses
/*REXX*/
ADDRESS TSO
"CONSPROF SOLDISPLAY(NO)"
ADDRESS TSO
"CONSOLE ACTIVATE"
X=OUTTRAP('TITI.')
ADDRESS TSO
"CONSOLE SYSCMD($DQ)"
RC=GETMSG('LGN.','SOL',,,5)
DO UNTIL RC <> 0
DO X = 1 TO LGN.0
SAY '>>>' LGN.X
END
RC=GETMSG('LGN.','SOL',,,5)
END
X=OUTTRAP('OFF')
ADDRESS TSO
"CONSPROF SOLDISPLAY(YES)"
ADDRESS TSO
"CONSOLE DEACTIVATE"

[cosso11]

Merci beaucoup
ca fonctionne ! c'est tout à fait ce que je voulais
Merci

[bernard59139]

en retard, une autre facon de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
/* rexx */                          
rc=isfcalls('ON')                   
ADDRESS SDSF "ISFSLASH $DQ"         
rc=isfcalls('OFF') 
do i=1 to ISFULOG.0
  say ISFULOG.i
  end