VEX

/*                                               2011/2012  MCSERRA  */
/* ----------------------------------------------------------------- */
/*  MODULO DE OUTRA FUNCAO.                                          */
/*                                                                   */
/*  MODULO DE PESQUISSA DE ELEMENTO PARA EDIT\VIEW PELAS MACROS      */
/*  REXX 'VW', 'VWM' E 'ED' .                                        */
/*                                                                   */
/*  PODE ACRESCENTAR NOVO DATASET A LISTA DE PESQUISA DSNPDS.NN      */
/*       INCREMENTANDO O VALOR DO TOTALIZADOR TOTPDS.                */
/*                                                                   */
/*  POR FAVOR NAO ALTERAR O REXX CODE.                               */
/*                                                                   */
/* ----------------------------------------------------------------- */
PARSE ARG TIPO MEM
  CALL INICIO
/*********************************************************************/
/*                                                                   */
/* ATENCAO: AO ACRESCENTAR MAIS UM DATASET, NAO ESQUECER ACTUALIZAR  */
/* O TOTALIZADOR TOTPDS                                              */
/*     NOTA: "PMEM" E SEMPRE NECESSARIO.                             */
/*           "USER" CORRESPONDE AO PREFIXO DO UTILIZADOR             */
/*                                                                   */
/*********************************************************************/
  DSNPDS.1  = "'ENDV.TESTES.DV.COPY"PMEM"'"
  DSNPDS.2  = "'ENDV.TESTES.QL.COPY"PMEM"'"
  DSNPDS.3  = "'ENDV.PRODUCAO.EM.COPY"PMEM"'"
  DSNPDS.4  = "'ENDV.PRODUCAO.PR.COPY"PMEM"'"
  DSNPDS.5  = "'DES.CCS.SOURCECM"PMEM"'"
  DSNPDS.6  = "'DES.CCS.SOURCE"PMEM"'"
  DSNPDS.7  = "'DES.CCS.CPYCM"PMEM"'"
  DSNPDS.8  = "'DES.CCS.COPY"PMEM"'"
  DSNPDS.9  = "'DES.CCS.JCLCM"PMEM"'"
  DSNPDS.10 = "'DES.CCS.JCL"PMEM"'"
  DSNPDS.11 = "'DES.CCS.DB2CM"PMEM"'"
  DSNPDS.12 = "'DES.CCS.DB2"PMEM"'"
  DSNPDS.13 = "'DES.CCS.EXEC"PMEM"'"
  DSNPDS.14 = "'"USER".SOURCE.LIB"PMEM"'"
  DSNPDS.15 = "'"USER".LIB.SOURCE"PMEM"'"
  DSNPDS.16 = "'DES.TCC.SOURCE"PMEM"'"
  DSNPDS.17 = "'DES.DWHDW.SOURCE"PMEM"'"
  DSNPDS.18 = "'DES.DWHDW.JCL"PMEM"'"
  TOTPDS  = 18
/*                                                                   */
/*********************************************************************/
/*                                                                   */
/*  POR FAVOR NAO ALTERAR NADA DAQUI PARA BAIXO                      */
/*                                                                   */
/*********************************************************************/
  CALL ABREDSN
RETURN
/*                                                                   */
INICIO:
/*                                                                  */
  TIPO = STRIP(TIPO)
  MEM  = STRIP(MEM)
  UPPER TIPO
  UPPER MEM
/*                                                                  */
   USER = USERID()
   USER = STRIP(USER)
   IF MEM = "" THEN
      PMEM= ""
   ELSE
      PMEM = "("MEM")"
/*                                                                  */
RETURN
/*------------------------------------------------------------------*/
ABREDSN:
/*                                                                  */
  "ISPEXEC CONTROL ERRORS RETURN"
  DO LDS = 1 TO TOTPDS
     STDSN = SYSDSN(DSNPDS.LDS)
     IF STDSN = "OK" THEN
        DO
           IF TIPO = 'E' THEN
              "ISPEXEC EDIT DATASET("DSNPDS.LDS")"
           ELSE
              "ISPEXEC VIEW DATASET("DSNPDS.LDS")"
           IF RC > 8 THEN
              DO
                 ZEDSMSG = 'DATASET COM ERRO'
                 ZEDLMSG = 'DATASET COM ERRO: ' DSNPDS.LDS ': ' RC
              END
           ELSE
              DO
                 ZEDSMSG = '** OK **'
                 ZEDLMSG = ''
              END
           "ISPEXEC SETMSG MSG(ISRZ001)"
           RETURN
        END
  END
  ZEDSMSG = STDSN
  ZEDLMSG = STDSN ': ' MEM
  "ISPEXEC SETMSG MSG(ISRZ001)"
RETURN
/*------------------------------------------------------------------*/
/*                                               2011/2012  MCSERRA  */

Comentários

Enviar um comentário

Mensagens populares deste blogue

CC

 /*REXX*/ /**********************************************************************/ /*  CALCULADORA                                            MARCO SERRA*/ /*  TSO CC 4*3+3*5        ( = 27 )                                    */ /**********************************************************************/  ARG NUMEXP  "ISPEXEC CONTROL ERRORS RETURN"    DBG = 'N'    IF DBG = 'S' THEN SAY 'COMEÇOU O FESTIVAL'    NUMEXP = STRIP(NUMEXP)    FC=SUBSTR(NUMEXP,1,1)    IF FC = '#' THEN NUMEXP = SUBSTR(NUMEXP,2,) /*                                                        ...
Ler mais

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 /*        ...
Ler mais

Z#SQLCOD

+100 Row not found or end of cursor -102 String constant is too long -117 values to INSERT not match number of columns -180 Bad data in Date/Time/Timestamp -181 Bad data in Date/Time/Timestamp -199 Illegal use of the specified keyword. -204 Object not defined to DB2 -205 Column name not in specified table -206 Column does not exist in any table in the SELECT -216 Diferent number of expressions on Comparison sides +222 Trying to fetch a row that fell through a DELETE hole +223 Trying to fetch a row that fell through an UPDATE hole -224 FETCH cannot make an INSENSITIVE cursor SENSITIVE -229 Locale specified in a SET LOCALE statement not found. +231 FETCH BEFORE or AFTER not on a valid row +304 Value out of range cannot be assigned to host variable. -305 Null indicator needed -311 Varchar, insert or update. -LEN field not set. -482 he procedure returned no locators -501 Cursor not open on FETCH -502 Opening cursor that is already open -503 Updating column which needs to be specified in...
Ler mais