Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

NAT3041 - Natural run time error - Help needed

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries
View previous topic :: :: View next topic  
Author Message
Arunprasad.k

New User


Joined: 04 Jan 2008
Posts: 7
Location: Chennai, India

PostPosted: Thu Jan 24, 2008 8:48 pm    Post subject: NAT3041 - Natural run time error - Help needed
Reply with quote

Experts,

I am reading a ADABAS file with a view defined. Here is the simple program I have written.

Code:
DEFINE DATA                                                             
 LOCAL                                                                 
01 AR_VEHICHLES-VIEW VIEW OF VEHICLES                                   
   02 WHOLESALE-SALE-DATA (1:20)                                       
    03  DEALER-ORDER-NUMBER                                             
    03  DEALER-ORDER-TYPE                                               
   02 NMC-MODEL-SERIAL (N11.0)                                         
   02 VIN-PREFIX (A11)                                                 
01 #I  (N2)                                                             
END-DEFINE                                                             
*                                                                       
RD1. READ (40) AR_VEHICHLES-VIEW                                       
  FOR #I=1 TO 20                                                       
   IF SUBSTR(DEALER-ORDER-NUMBER(#I),1,1) = 'F'                         
      DISPLAY VIN-PREFIX 1X NMC-MODEL-SERIAL 4X DEALER-ORDER-NUMBER(#I)
   END-IF                                                               
  END-FOR                                                               
END-READ                                                               
END   


When I check this code (giving CHECk in command line), it shows no errors. But when I run this code (by giving RUN in command line) it gives me the following error.

Quote:
NAT3041 Error detected in format buffer. DB/FNR 233/6


Line of error:

Code:
RD1. READ (40) AR_VEHICHLES-VIEW



PS: I searched this forum with the key word NAT3041 and could not found any hits. Since I am new to Natural, I could not think of some other key words.
Back to top
View user's profile Send private message

Arunprasad.k

New User


Joined: 04 Jan 2008
Posts: 7
Location: Chennai, India

PostPosted: Thu Jan 24, 2008 9:55 pm    Post subject: Reply to: NAT3041 - Natural run time error - Help needed
Reply with quote

Sorry guys, the problem is resolved!!

Reason: The ADABAS file is not present in that region (or Library. Not sure regarding the terms).

I was under an assumption that when a VIEW (of Vehicles file) is present then the FILE should also be present in that region.

Thank you all.
Arun.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 25, 2008 12:27 am    Post subject:
Reply with quote

You're welcome icon_smile.gif

Thank you for posting what you found.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Jan 25, 2008 3:25 am    Post subject:
Reply with quote

A little explanation:

Although NATURAL is an interpreted language, it still generate some kind of object-like-module that is created when you CATALOG, STOW or CATALL.

Within this module, NATURAL keep track of files and their origin. If a view was specified, and that view came from a DDM that contains an FNR and DBID, then NATURAL imbed their values into this "module".

Then, when executing the module, NATURAL is looking for these specific FNR and DBID (in your case: 233/6).

There are several solution for this issue.
First direction is to use DBID=0 in the DDM.
The other direction is to use logical files table, and point the DBID/FNR to other numbers at run time (there are at least 3 ways to achieve this).


O.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Java & MQSeries All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us