HP3000-L Archives

May 2006, Week 4

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:
Re: COBOL: how to move the value of an index pointer into a variable
From:
Bob Schlosser <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Thu, 25 May 2006 13:11:11 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (48 lines) 
Eben

Use the following statement:

	SET FDL-NUM TO FDL-INDEX.

Robert Schlosser
Global Business Systems
Premier Farnell plc
T 864 487-1362
E [log in to unmask]

-----Original Message-----
From: Eben Yong [mailto:[log in to unmask]]
Sent: Thursday, May 25, 2006 2:03 PM
To: [log in to unmask]
Subject: [HP3000-L] COBOL: how to move the value of an index pointer
into a variable


I have an index pointer, FDL-INDX, and say for example it is pointing to 
the second row in a given array, FDL-ARRAY.

I wish to move the value of FDL-INDX (presumably, the number 2), into a 
numeric variable, FDL-NUM PIC S9(4).  How do I do this?

Thx as always,
Eben Yong
Health Plan of San Mateo
[log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *


This message has been scanned for viruses by BlackSpider MailControl -
www.blackspider.com


https://www.mailcontrol.com/sr/wQw0zmjPoHdJTZGyOCrrhg==
AsFYAchRuCb486U30EybHWZMKGzlIDaRyeUrg8Q0+9DAK3ejeVZ+o40KQq0WCpJObzehhTPBfKWL
Ki2lncxhmcQ1ox50V9YlPV5MGZvd+pzug4FOjG9UqMBSYXzesT1BP+XK43Fa6t2kyUZvMepqkKRR
hgicEPndc6fxaNgotMhExsGfFrC  
Click on the link above to report this email as spam to BlackSpider.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2