Home Page for the TeradataForum
 

Archives of the TeradataForum

Message Posted: Thu, 22 Aug 2002 @ 12:52:16 GMT


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


Subj:   COBOL-INMOD (Mainframe)
 
From:   Anomy Anom

<-- Anonymously Posted: Thursday, August 22, 2002 07:55 -->

Question on INMOD:

I'am writing a COBOL INMOD for a TPUMP script. The INMOD has to read a input file sequentially, process every record and pass to TPUMP. The INMOD is failing when it gets a RETURN-CODE 1 from TPUMP.

The code looks like

  IF  WS09-RETURN-CODE EQUAL 0
           DISPLAY 'WS09-RETURN-CODE = 0'
           PERFORM S1000-OPEN-FILES
           PERFORM S2000-READ-RECORDS
           GOBACK
  ELSE
  IF  WS09-RETURN-CODE EQUAL 1
           DISPLAY 'WS09-RETURN-CODE = 1'
           PERFORM S2000-READ-RECORDS
           GOBACK

The READ statement fails with File-Status-Code of 47 (Meaning trying to READ a file not open).

Any advise will be appreciated.

Thanks & Regards



     
  <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