FND

/*                                               2011/2012  MCSERRA  */
/* REXX                                                              */
/*                                             NAO ALTERAR POR FAVOR */
/*
     MACRO EDIT - PESQUISA STRING NA POSICAO DO CURSOR.
                  + SE CURSOR NA PRIMEIRA POSICAO DA STRING: PESQUISA
                    A PRIMEIRA OCORRENCIA DA STRING NO ELEMENTO EM
                    EDICAO.
                  + SE CURSOR NA SEGUNDA METADE DA STRING: PESQUISA
                    A PROXIMA OCORRENCIA DA STRING NO ELEMENTO EM
                    EDICAO.
                  + SE CURSOR NA PRIMEIRA METADE DA STRING, EXCEPTO
                    NA PRIMEIRA POSICAO: PESQUISA A ANTERIOR
                    OCORRENCIA DA STRING NO ELEMENTO EM EDICAO

     TECLA DE FUNCAO RECOMENDADA: PF17  [SHIFT+PF05]
*/
/********************************************************************/
  "ISREDIT MACRO"
/*                                                                  */
     "ISPEXEC CONTROL ERRORS RETURN"
/*--------------------------------------------------------------------*/
     "ISREDIT (ROW,COL) = CURSOR"
     "ISREDIT (LINHA) = LINE " ROW
     "ISREDIT LABEL " ROW " = .XF 0 "
     CND = 0
     DO N = COL TO 1 BY -1  UNTIL CND > 0
        AUX = SUBSTR(LINHA, N , 1)
        MOCHE = 0
        IF AUX = "'" | AUX = " " | AUX = ":" THEN MOCHE = 1
        IF AUX = '"' | AUX = "." | AUX = "(" THEN MOCHE = 1
        IF MOCHE = 1 THEN
        DO
           CND = N + 1
           LINHA = SUBSTR(LINHA, CND)
        END
     END
     VAUX = CND
     NAUX = 73 - CND
     IF CND > 0 THEN CND = 0
     DO N = 1 TO NAUX UNTIL CND > 0
        AUX = SUBSTR(LINHA, N , 1)
        MOCHE = 0
        IF AUX = " " | AUX = "'" | AUX = '"' THEN MOCHE = 1
        IF AUX = "(" | AUX = ")" | AUX = "." THEN MOCHE = 1
        IF AUX = ":"                         THEN MOCHE = 1
        IF MOCHE = 1 THEN
        DO
           CND = N - 1
           LINHA = SUBSTR(LINHA, 1, CND)
        END
     END
     MEM = STRIP(LINHA)
     LMEM = LENGTH(MEM)
     VLA = COL - VAUX
     ZAUX = VAUX + LMEM
     VLB = ZAUX - COL
     IF VLA > VLB THEN
     DO
        ZAUX = ZAUX + 1
        "ISREDIT CURSOR = (ROW,ZAUX)"
        "ISREDIT FIND "MEM" NEXT"
     END
     ELSE
        IF VLA = 0 THEN "ISREDIT FIND "MEM" ALL"
        ELSE
        DO
           VAUX = VAUX - 2
           "ISREDIT CURSOR = (ROW,VAUX)"
           "ISREDIT FIND "MEM" PREV"
        END

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