nat1108 caused by fetch return

, ,
1

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]

2

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.