Many thanks for your reply.
In answer to your questions: my REINPUT statement does have an error message, but does not have the MARK option.
I have been able to reproduce the problem using the simple NATURAL program listed below. (Full disclosure: I am an experienced CICS COBOL programmer, but my knowledge of NATURAL is limited to what I have read in the manuals).
0010 DEFINE DATA
0030 1 #PARTNUMBER (A06) INIT <"000000">
0040 1 #PARTNAME (A20)
0070 RP1. REPEAT
0090 INPUT (AD=MT)
0100 "GREG1" /
0110 "Part Number:" #PARTNUMBER /
0120 "Part Name :" #PARTNAME
0140 DECIDE FOR FIRST CONDITION
0150 WHEN #PARTNUMBER = '.'
0160 ESCAPE BOTTOM (RP1.)
0170 WHEN #PARTNUMBER = '000001'
0180 MOVE 'WINDSCREEN' TO #PARTNAME
0190 WHEN #PARTNUMBER = '000002'
0200 MOVE 'HEADLIGHT' TO #PARTNAME
0210 WHEN #PARTNUMBER = '000003'
0220 MOVE 'HUBCAP' TO #PARTNAME
0230 WHEN NONE
0240 MOVE '**UNKNOWN**' TO #PARTNAME
0250 REINPUT 'Part number not found.'
I have used the Link3270 Bridge successfully in the past with other (non-NATURAL) applications that send partial screen updates. The problem in this case is that my bridge program never gets to see the partial screen update stream, because NATURAL refuses to send it.
I can’t see a way to try out your suggestion of issuing the REINPUT command without an error message - it appears to be a compulsory syntax element of the command.
I am going to investigate the tracing facilities of NATURAL to try to obtain more information about the error.
Thanks again for taking an interest in my problem,