agradeceré me desasnen con el problema que estoy teniendo con un sort al querer combinar OVERLAY con SQZ
.En base a una lista de miembros obtenidos con LISTDS necesito armar sintaxis de DELETE.
Para esto definí lo siguiente:
-------------------------------------------------------------------------------
//SYMNAMES DD *
Name,'ÑOPIM.VP0%%INST.RUN'
/*
...
...
...
//SYSIN DD *
OPTION SKIPREC=9
OMIT COND=(1,1,CH,NE,C' ')
SORT FIELDS=COPY
OUTREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,
BUILD=(C' DELETE ',Name,C'(',3,8,C')')),
IFTHEN=(WHEN=INIT,
OVERLAY=(9:9,72,SQZ=(SHIFT=LEFT)))
/*
-------------------------------------------------------------------------------
El fichero de entrada del sort (salida obtenida del LISTDS) contendría, p.e.:
-------------------------------------------------------------------------------
IKJ56644I NO VALID TSO USERID, DEFAULT USER ATTRIBUTES USED
READY
LISTDS ÑOPIM.VP0INT.RUN MEMBERS
ÑOPIM.VP0INT.RUN
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
AR902F
--MEMBERS--
AM5GBKJ
APDAILY
APDAILY2
APU040
APU510
ARCONVBJ
-------------------------------------------------------------------------------
Al ejecutar el sort obtengo el error:
OUTREC IFOUTLEN=80,IFTHEN=(WHEN=INIT,BUILD=(C' DELETE ',C'ÑOPIM.VP0INT*
.RUN',C'(',3,8,C')')),IFTHEN=(WHEN=INIT,OVERLAY=(9:9,72*
SQZ=(SHIFT=LEFT)))
$
ICE006A 0 OPERAND DEFINER ERROR
-------------------------------------------------------------------------------
A pesar de buscar la solución en los manuales no encuentro el error de codificación, es mas, reemplazo SQZ por TRAN=UTOL para comprobar si estoy definiendo algo mal antes y funciona bien, el error solo existe cuando combino OVERLAY con SQZ, y según el manual, y variados ejemplos que encontré debiera soportarlo.
DESDE YA MIL GRACIAS, sobre todo por lo que he aprendido leyendo en estos foros
.