HP3000-L Archives

October 2005, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
FCONTROL 25 not working.
From:
Robert Mills <[log in to unmask]>
Reply To:
Robert Mills <[log in to unmask]>
Date:
Mon, 3 Oct 2005 14:32:04 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines) 
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 *

ATOM RSS1 RSS2