clc

 "ISREDIT MACRO "

  "ISREDIT (LINHA) = LINE .ZCSR"

  "ISREDIT (R C) = CURSOR"

     LIN = '#'STRIP(LINHA)

     RESULTADO = CC(LIN)

  "ISREDIT LINE_AFTER " R " = NOTELINE '" RESULTADO "'"


Comentários

Enviar um comentário

Mensagens populares deste blogue

Z#VEX

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

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