TSOREXX

/*"ALTLIB RESET" */ /*"ALTLIB ACTIVATE APPLICATION(EXEC) DATASET('XZ0861.REXX.EXEC')" */ /*"ALLOCATE DD(SYSEXEC) DATASET('XZ0861.REXX.EXEC') SHR"          */ /*"EXECUTIL SEARCHDD(YES)"                                        */ /*"ALLOC FILE(SYSEXEC) DATASET('XZ0861.REXX.EXEC') SHR REUSE"     */ /******************************************************************/ /* REXX                                            */ ADDRESS TSO   DTSTRX  = 'XZ0861.REXX.EXEC'   "ISPEXEC CONTROL ERRORS RETURN" /*"FREE F(SYSEXEC)" */   "ALTLIB ACTIVATE APPLICATION(EXEC) DATASET("DTSTRX")" /*"ALLOC F(SYSEXEC) DA("DTSTRX") SHR NOHOLD"                      */ EXIT

/*                                               2011/2012  MCSERRA  */ /* REXX                                                              */ /* ----------------------------------------------------------------- */ /*                                                                   */ /* VWM                                                               */ /*      ...

/*                                               2011/2012  MCSERRA  */ /* ----------------------------------------------------------------- */ /*  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.              ...

+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...

/*                                               2011/2012  MCSERRA  */ /* ----------------------------------------------------------------- */ /* SQL                                                               */ /*                                                                   */ /*   TSO/ISPF COMMAND - DESCRICAO SUMARIA DE SQLCODES                */ /*                                    ...

/*                                               2011/2012  MCSERRA  */ /* ----------------------------------------------------------------- */ /* SETUP                                                             */ /*                                                                   */ /* EXECUTE A MACRO SETUP NO INICIO DE CADA SESSAO PARA PERMITIR O    */ /* ACESSO AS RESTANTES MACROS DESTE INDICE.                          */ /* E´ SUGERIDO QUE A MACRO SETUP SEJA C...

/*                                               2011/2012  MCSERRA  */ /* REXX                                                              */ /* ----------------------------------------------------------------- */ /*                                                                   */ /* PIC                                                               */ /*      ...

/*                                               2011/2015  MCSERRA  */ /* REXX                                                              */ /* ----------------------------------------------------------------- */ /*                                                                   */ 00001200 /* LENS                                                              */ 00001200 /*  ...

/*                                               2011/2012  MCSERRA  */ /* REXX                                                              */ /* ----------------------------------------------------------------- */ /* LEN                                                               */ 00001200 /*                                                                   */ 00001200 /* ...

/*                                               2011/2015  MCSERRA  */ /* ----------------------------------------------------------------- */ /* SETUP    (TSO/ISPF)  - ALOCA A LIVRARIA DE REXX'S AO SISEXEC.     */ /* HLP      (TSO/ISPF)  - LISTA E RESUMO EXOLICATIVO DE MACROS       */ /* LEN      (MACRO EDIT)- Nº CARACTERES ENTRE DUAS PLICAS       (CSR)*/ /* LENS     (MACRO EDIT)- Nº CARACTERES DE UMA PALAVRA          (CSR)*/ /* PIC      (MACRO EDIT)- CALC. TAMAN. DE UMA ESTRUTURA DE VARIAVEIS */ /* FND      (MACRO EDIT)- PESQUISA STRING NA POSICAO DO CURSOR  (CSR)*/ /* VW       (TSO/ISPF)  - VIEW ELEMENTO (POR PESQUISA)          ...