ED
/* 2011/2012 MCSERRA */
/* ----------------------------------------------------------------- */
/* NAO ALTERAR POR FAVOR */
/* ED
TSO/ISPF COMMAND - EDITA ELEMENTO POR PESQUISA NUM CONJUNTO DE
DATASETS PREDEFINIDOS (NO ELEMENTO VEX)
SINTAX:
TSO ED <ELEMENTO>
EXEMPLO: TSO ED DOW0501
*/
/* ----------------------------------------------------------------- */
PARSE ARG MEM
MEM = STRIP(MEM)
UPPER MEM
CALL VEX 'E' MEM
EXIT
/* 2011/2012 MCSERRA */
/* ----------------------------------------------------------------- */
/* NAO ALTERAR POR FAVOR */
/* ED
TSO/ISPF COMMAND - EDITA ELEMENTO POR PESQUISA NUM CONJUNTO DE
DATASETS PREDEFINIDOS (NO ELEMENTO VEX)
SINTAX:
TSO ED <ELEMENTO>
EXEMPLO: TSO ED DOW0501
*/
/* ----------------------------------------------------------------- */
PARSE ARG MEM
MEM = STRIP(MEM)
UPPER MEM
CALL VEX 'E' MEM
EXIT
/* 2011/2012 MCSERRA */
Comentários
Enviar um comentário