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  */

Comentários

Mensagens populares deste blogue

CC

Z#SQLCOD