Archives of the TeradataForum
Message Posted: Thu, 24 Apr 2003 @ 12:27:55 GMT
| Subj: || || Re: Mload processing of empty files on MVS |
| From: || || Geoffrey Rommel |
Quikjob (now known as VISION:Report) is a very handy utility for MVS. Documentation is at
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.
*-- HERE THERE IS NO RECORD, SO THE FILE IS EMPTY.
500 MOVE C'0008' TO RC