Good Morning All,

It is my desire to contribute in what ever ways I can to the computing community and one of the ways is to provide insight into techniques which are useful.

Added to my web site at www.mind-set.com is a COBOL Internal Sort with an overview, the source, and a sample run at:

     http://www.mind-set.com/hp3000/html/pages/COBSRT.htm

COBSRT illustrates
        1) An internal Table Sort;
2) Left justification of data;
3) Right justification, high order zero fill for numbers;
4) Use of program within program;
5) Use of pure COBOL for processing Control-Y interupts;
6) Use of WHO intrinsic;
7) Use of GETINFO intrinsic;
8) Translation to upper case (for key processing);
9) DISPLAY eliminating trailing spaces.

From the above list, it should be clear that though the code is compact, it has more to offer than just an internal sort.

The program makes use of parsing without using any subscripts (the only use for subscripts in this program is to access the table).

This is useful if you are looking for sample code to do it. (And I've found that you don't need it until you need it, then you REALLY need it!)

It is also a background to the other applications and code I will be including shortly (and set your calendars, not your clocks!).

-----------------------------

A reminder: The preferred method to get to the hp3000 pages on my web site at www.mind-set.com is to go to the main page and click on LINKS (http://www.mind-set.com/html/pages/links.htm).
The reason is that the hp3000 pages may be relocated to another ISP at any time, and I would like to preserve continuity for you all.
This weekend, HAL will disappear from the main page at www.mind-set.com and the reference to the HP / IBM Technical Site on "What's New" will be removed.
And the HP Logo Graphic on "LINKS" will be fixed.

Regards,
Douglas Becker