Archives of the TeradataForum

Message Posted: Thu, 24 Apr 2003 @ 12:27:55 GMT

	<Prev	Next>		<<First	<Prev	Next>	Last>>

Quikjob (now known as VISION:Report) is a very handy utility for MVS. Documentation is at

www.support.ca.com...

If you have it installed at your shop, you can probably find someone who knows it. For detecting an empty file, the code would look something like this:

EQU RC             VAL46-49
EQU ABEND_CODE     VAL67-70
*
*----- TEST FOR AN EMPTY FILE
*
    GET INF ATEND 500
*-- AT THIS POINT, WE DO HAVE A RECORD, SO THE FILE IS NOT EMPTY.
    GOTO EOJ
*-- HERE THERE IS NO RECORD, SO THE FILE IS EMPTY.
500 MOVE C'0008'  TO RC
    GOTO EOJ
    END

	<Prev	Next>		<<First	<Prev	Next>	Last>>