Existe um comando TSO escrito em Rexx ou Clist que pode determinar quem fez um conjunto de dados?

Question

Preciso escrever um exec ou clist rexx para identificar quem inseriu um conjunto de dados e exibir uma mensagem amigável de usuário em um aplicativo de diálogo ISPF. Devido a problemas de configuração do sistema, o comando %whohas não está disponível. No entanto, eu também sei que o próprio ISPF (opção 3.4) possui ganchos proprietários no mainframe ZOS para exibir as informações de recursos de que eu preciso - para que a informação possa ser obtida. Infelizmente, não sei como acessar esses dados de fora do ISPF 3.4 usando um EXEC ou CLIST REXX. Alguma sugestão?

Answer 1

Isso acabou sendo uma correção muito simples. Nada chique. Se o Clist usa o controle noflush, ele não abortará quando a alocação de um conjunto de dados falhar. Também temos um produto instalado chamado Tsoplus que formará uma mensagem para o terminal que identifica quem alocou um conjunto de dados quando a alocação falhar. Ao desligar a descarga e depois soltar a mensagem do Tsoplus, pude extrair as informações de que precisava.

Answer 2

Na primeira leitura, pensei que seria uma coisa bastante simples de se desenterrar. Não bem!

Sob ISPF, você pode obter um painel para exibir que está segurando um conjunto de dados digitando o seguinte na linha de comando:

TSO ISrddn ENQ 'DataSet-Name'

O comando isrddn está documentado em:http://publibz.boulder.ibm.com/cgi-bin/bookmgr/frameset/ispzug50/g.0?action=matches&request=isrddn&type=fuzzy&shelf=ispzpm50&dt=2006062102939

A invocação do ISRDDN é possível em um programa REXX, mas não sei como capturar a saída em uma variável STEM, onde você pode analisá -la e emitir uma mensagem. Não consegui encontrar uma interface de linha de comando para ISRDDN que permita a captura da saída.

Há outra utilização em:http://www.sillysot.com/mvs/index.htm?queryenq.htmIsso afirma fazer isso também, nunca tentei, portanto, não posso comentar mais sobre ele.

Eu pesquisei sua pergunta no Google e parece que várias pessoas usaram o comando MVS

D grs, res = (*, dsname)

para determinar quem está segurando um conjunto de dados. No entanto, isso requer acesso ao console, por isso não seria apropriado para a maioria dos usuários. Se o acesso ao console for permitido, você poderá iniciar uma sessão de console em Rexx e capturar a saída com bastante facilidade, consulte: http://www.redbooks.ibm.com/redbooks/pdfs/sg244626.pdf.

Um local final para pesquisar seria as fitas da TCC (freeware para mainframes IBM). Aqui você pode encontrar várias implementações do comando WHOHAS ISPF.

Desculpe, mas este é o melhor que posso fazer.