As before, thanks a lot, Frank, for this very nice trick to obtain
un Abend in this example.
Regards
angel luis domínguez
bbva-spain
------------------------------------------------------------
From: [EMAIL PROTECTED]
angel luis dominguez wrote:
>As far as I now, DEBUG ABEND is to instruct DFSORT while called under
ICETOOL.
>
Yes, that's correct.
>As an example, I want to obtain directly an ABEND in the following
>example
instead a RC.
>
>
>//PASO10 EXEC PGM=ICETOOL
>//TOOLMSG DD SYSOUT=*
>//DFSMSG DD SYSOUT=*
>//FICHERO DD DSN=SYS1.PARMLIB(PROG00),DISP=SHR
>//TOOLIN DD *
> MODE CONTINUE
> COUNT FROM(FICHERO) LOWER(10) RC4
>/*
No, there's no option to get an ABEND for this case instead of a RC4. (You
could get cc=12 by removing RC4, but not an ABEND.)
Not sure if this will help, but you could use this job to give you an ABEND
when the number of records is less than 10 or a cc=12 otherwise.
//PASO10 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FICHERO DD DSN=SYS1.PARMLIB(PROG00),DISP=SHR
//TOOLIN DD *
MODE STOP
COUNT FROM(FICHERO) HIGHER(9)
COPY FROM(FICHERO) USING(CTL1)
/*
//CTL1CNTL DD *
DEBUG ABEND
/*
Frank Yaeger - DFSORT Team (IBM)
====================================================================
........................... DISCLAIMER .............................
This message and its attachments are intended exclusively for the
named addressee. If you receive this message in error, please
immediately delete it from your system and notify the sender. You
may not use this message or any part of it for any purpose.
The message may contain information that is confidential or
protected by law, and any opinions expressed are those of the
individual sender. Internet e-mail guarantees neither the
confidentiality nor the proper receipt of the message sent.
If the addressee of this message does not consent to the use
of internet e-mail, please inform us inmmediately.
====================================================================
......................... AVISO LEGAL ............................
La presente comunicación y sus anexos tiene como destinatario la
persona a la que va dirigida, por lo que si usted lo recibe
por error debe notificarlo al remitente y eliminarlo de su
sistema, no pudiendo utilizarlo, total o parcialmente, para
ningún fin. Su contenido puede tener información confidencial o
protegida legalmente y únicamente expresa la opinión del
remitente. El uso del correo electrónico vía internet no
permite asegurar ni la confidencialidad de los mensajes
ni su correcta recepción. En el caso de que el
destinatario no consintiera la utilización del correo electrónico,
deberá ponerlo en nuestro conocimiento inmediatamente.
====================================================================
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
