# nat1108 caused by fetch return

**URL:** <https://techcommunity.softwareag.com/t/nat1108-caused-by-fetch-return/94769>\
**Category:** Forum\
**Tags:** Adabas-Natural, Adabas, Adabas-Code-Samples\
**Created:** [September 21, 2010, 6:11pm UTC](https://techcommunity.softwareag.com/t/nat1108-caused-by-fetch-return/94769 "2010-09-21T18:11:04Z")\
**Posts on this page:** 3\
**Page:** 1

<div class="post-metadata">

**Author:** ![khathutshelo](https://avatars.discourse-cdn.com/v4/letter/k/85e7bf/32.png) [@khathutshelo](https://techcommunity.softwareag.com/u/khathutshelo)\
**Post date:** [September 21, 2010, 6:11pm UTC](https://techcommunity.softwareag.com/t/nat1108-caused-by-fetch-return/94769/1 "2010-09-21T18:11:04Z")

</div>

define data local  
1 #name (a25/10)  
1 #choice (a1/10)  
1 #error (l)  
end-define  
\*  
repeat  
input using map ‘map1’ #choice(_) #name(_)

perform check-mark

if #error-found= true  
reinput #message mark _#choice(#j) /_ nat1108  
end-if  
escape bottom  
end-repeat

* * *

define subroutine check-mark

* * *

for #j 1 to 10  
reset #error-found  
if #name(#j) ne ’ ’  
fetch return ‘prog2’  
if #error ne ’ ’  
#error-found := true  
escape routine  
end-if  
end-for  
end-subroutine

/\*Is the anyway to avoid this error except to change program ‘Prog2’ to be subprogram and use CALLNAT  
[/code]

---

<div class="post-metadata">

**Author:** ![Matthias1](https://avatars.discourse-cdn.com/v4/letter/m/9fc348/32.png) [@Matthias1](https://techcommunity.softwareag.com/u/Matthias1)\
**Post date:** [September 21, 2010, 8:40pm UTC](https://techcommunity.softwareag.com/t/nat1108-caused-by-fetch-return/94769/2 "2010-09-21T20:40:11Z")

</div>

> [@khathutshelo](#):
>
> /\*Is the anyway to avoid this error except to change program ‘Prog2’ to be subprogram and use CALLNAT

Changing Prog2 into a subprogram won’t help.

I guess Prog2 contains INPUT or WRITE statements. If you comment out these statements, NAT1108 will disappear.

---

<div class="post-metadata">

**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\
**Post date:** [April 2, 2021, 2:59pm UTC](https://techcommunity.softwareag.com/t/nat1108-caused-by-fetch-return/94769/3 "2021-04-02T14:59:07Z")

</div>