Home Page for the TeradataForum
 

Archives of the TeradataForum

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


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


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

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>>
 
 
 
 
 
 
 
 
 
  
  Top Home Privacy Feedback  
 
 
Copyright for the TeradataForum (TDATA-L), Manta BlueSky    
Copyright 2016 - All Rights Reserved    
Last Modified: 27 Dec 2016