TSOREXX

/*                                               2011/2024  MCS      */ /* REXX                                                              */ /*                                             NAO ALTERAR POR FAVOR */ /* ----------------------------------------------------------------- */ /* VWM      MACRO EDIT - VIEW ELEMENTO POR PESQUISA NUM CONJUNTO DE                   DATASETS PREDEFINIDOS, COM BASE NA POSICAO                   DO CURSOR            ...

 /*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,) /*                                                        ...

 "ISREDIT MACRO "   "ISREDIT (LINHA) = LINE .ZCSR"   "ISREDIT (R C) = CURSOR"      LIN = '#'STRIP(LINHA)      RESULTADO = CC(LIN)   "ISREDIT LINE_AFTER " R " = NOTELINE '" RESULTADO "'"