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/techbases/vision/report/vision-rep_docs.html

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>>