Archives of the TeradataForum

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

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

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