No subject

Mon, 24 Aug 1998 20:55:57 -0400

This is a multi-part message in MIME format.

------=_NextPart_000_0044_01BDCFA1.97AA3300
Content-Type: multipart/alternative;
	boundary="----=_NextPart_001_0045_01BDCFA1.97ABB9A0"

------=_NextPart_001_0045_01BDCFA1.97ABB9A0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Sam,=20

Try this,  I've written a small QTP (on VMS) that creates two somewhat =
useless subfiles....but i access one, then link to the other

on your system....replace the file called "user-loc" with the smallest =
RMS/RDB file you have.   This should let you know if your system is set =
up right and will show you how the linkage works.

Good luck

Michel

------=_NextPart_001_0045_01BDCFA1.97ABB9A0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">

Sam, 

Try this,  I've written a small QTP (on VMS) that creates two =
somewhat=20
useless subfiles....but i access one, then link to the other

on your system....replace the file called "user-loc" with =
the=20
smallest RMS/RDB file you have.   This should let you know if =
your=20
system is set up right and will show you how the linkage works.

Good luck

Michel

------=_NextPart_001_0045_01BDCFA1.97ABB9A0--

------=_NextPart_000_0044_01BDCFA1.97AA3300
Content-Type: text/plain;
	name="test.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="test.txt"

cancel clear

run job

request one

access user-loc

temp index1 num*3
  item index1 count
define def-index1 char*3 = ascii(index1)

temp index2 num*3
  item index2 count
define def-index2 char*3 = ascii(index2)

define def_logon_name char*12 = logonid
define def_sysdate date = sysdate

subfile test1 keep include def_logon_name, def-index1                   &
        index test1-key primary ascending segment def-index1

subfile test2 keep include def_sysdate, def-index2                      &
        index test2-key primary ascending segment def-index2

request two

access *test1 link def-index1 viaindex test2-key to *test2

subfile test3 include def_logon_name of test1, def_sysdate of test2

------=_NextPart_000_0044_01BDCFA1.97AA3300--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.