The following code results in the message "Additional EOR not set."
being displayed.
Any idea on what I'm doing wrong?
.
.
.
Condition-Code Is Intrinsic-Code.
.
.
.
01 W410-FCONTROL-PARAMETERS.
05 W410-FILENUM Pic S9(04) Comp.
05 W410-ITEMNUM Pic S9(04) Comp Value 25.
05 W410-ITEM Pic 9(004) Comp Value %47.
.
.
.
* Define single-quote as an additional end-of-record character.
Call Intrinsic "FCONTROL" Using W410-FILENUM,
W410-ITEMNUM,
W410-ITEM
End-Call
If Intrinsic-Code = 0 Then
Display "Additional EOR set."
Else
Display "Additional EOR not set."
End-If
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
(020) 8309 3604
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *