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. */
Código: Seleccionar todo
, 9 +++ SET &COUNT = 1 /* START LOOP COUNTER */
,IRX0034I Error running ISRTDATA, line 9: Logical value not 0 or 1,
,***,
Gracias.