At 08:52 AM 10/17/2000 -0700, Eben Yong wrote:
>Hello,
>
>I am looking over a COBOL program that uses the intrinsics, GETDSEG, DMOVIN
>and DMOVOUT.  According to the intrinsics reference guide, usage of these
>intrinsics in NM degrades program performance.  Being fairly new to COBOL
>(first started programming in COBOL in 1996), I am curious as to the
>advantages, if any, of using these intrinsics in a COBOL program.  Any
>feedback from e3000 COBOL programmers would be much appreciated.  Thanks.
>
>Eben Yong
>Health Plan of San Mateo

The advantage WAS that it allowed you to acquire more than a single 16bit
addressable memory area on a classic hp3000.  On a modern MPE/iX system, we
have 32bit (or better) addressing and this challenge is usually solved by
simply defining larger WORKING-STORAGE areas.

It is true that using extra data segments causes some slowdown in
performance although I am not sure that you would normally notice it.

If this program(s) is a central part of your regular processing and you
have the luxury of developer time available, you should consider
eliminating the extra data segment usage.  Also, if you are doing some work
on the code, you might consider making the change as part of a clean-up
process.



Brian Duncombe  [log in to unmask]  http://www.triolet.com
voice: 1-877-TRIOLET (874-6538) (905)632-2773 fax: (905) 632-8704
"Inside every large program is a small one struggling to get out"
C.A.R. Hoare