VW

/*                                               2011/2012  MCSERRA  */
/* ----------------------------------------------------------------- */
/*                                             NAO ALTERAR POR FAVOR */
/* VW
     TSO/ISPF COMMAND - VIEW ELEMENTO POR PESQUISA NUM CONJUNTO DE
                        DATASETS PREDEFINIDOS (NO ELEMENTO VEX)
     SINTAX:
        TSO VW <ELEMENTO>
        EXEMPLO:  TSO VW DOW0501
*/
/* ----------------------------------------------------------------- */
PARSE ARG MEM
  MEM = STRIP(MEM)
  UPPER MEM
  CALL VEX 'V' MEM
EXIT
/*                                               2011/2012  MCSERRA  */

Comentários

Mensagens populares deste blogue

CC

ED

Z#SQLCOD