Macros en TSO

Todo lo relacionado con TSO e ISPF.
Responder
byfed
Usuario
Usuario
Mensajes: 1
Registrado: 19 Abr 2017, 12:32
País: España
Ciudad: Torrelavega
Ocupación: Programador

Macros en TSO

Mensaje por byfed » 25 Sep 2017, 12:35

Buenas,

Soy muy novato en esto de TSO. Estoy siguiendo el manual de IBM http://publibz.boulder.ibm.com/epubs/pdf/ispzem90.pdf"Edit And Edit Macros" z/OS Version 1 Release 13.0 y seguí el ejemplo ISRDASH de la página 82, y conseguí hacerlo funcionar.

Eso sí, después de ejecutar en TSO Command la instrucción : ALTLIB ACT APPLICATION(CLIST) DATASET(DES.DEFPG3.CLIST)

Pero al ir a probar el siguiente ejemplo, copiado tal cual del manual siempre obtengo error en la primera instrucción.

Código: Seleccionar todo

ISREDIT MACRO
  SET &COUNT = 1                      /* START LOOP COUNTER */
  DO WHILE &COUNT <= 9                /* LOOP UP TO 9 TIMES */
    ISREDIT FIND TEST - #             /* SEARCH FOR TEST-# */
    SET &RETCODE = &LASTCC            /* SAVE THE FIND RETURN CODE */
    IF &RETCODE = 0 THEN              /* */ -
      DO                              /* IF THE STRING IS FOUND, */
        ISREDIT CHANGE # &COUNT       /* CHANGE # TO THE VALUE */
        SET &COUNT = &COUNT + 1       /* OF &COUNT, INCREMENT */
      END                             /* THE COUNTER BY ONE, AND */
    ELSE                              /* CONTINUE THE LOOP. */ -
      SET &COUNT = 10                 /* IF THE STRING IS NOT */
    END                               /* FOUND, SET THE COUNTER TO */
EXIT CODE (0)                         /* EXIT THE LOOP. */
El error que obtengo es:

Código: Seleccionar todo

,     9 +++ SET &COUNT = 1                      /* START LOOP COUNTER */
,IRX0034I Error running ISRTDATA, line 9: Logical value not 0 or 1,
,***,
¿Alguien me puede dar una pista de qué estoy haciendo mal?

Gracias.

Responder