Re: Sorting a program described file

Hi Booth
I don't know if the following might help
http://www.mcpressonline.com/tips-techniques/sql/techtip-accessing-packed-data-in-flat-files.html


Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

midrange-l-bounces@xxxxxxxxxxxx wrote on 12/24/2008 12:46:35 PM:

I went back and looked at my source. sheeeshhh... I had already done
this back in 2003. But I had never made it work because I couldn't
figure out how to substring a packed field.

The program described file has columns 28-31 as packed, 2 decimals.
That is 7/2, right?
What is the SST? SST(field 28 4) doesn't seem right and I am not
even sure how to test it.


Trevor Perry wrote:

Booth,

Construct a LF over your S36 file. Create the fields you need in the

LF, and

then sort with those..
Trevor

P.S. The term is brain-fart. Not that yours has been running flat for

years,

but.. :-)


On 12/24/08 10:43 AM, "Booth Martin" <booth@xxxxxxxxxxxx> wrote:

This may be a brain flat.

I have a Sys/36 environment program described file (QS36F) with no
index. I want to order the file for processing by field 1, field 3,

and

field 2 (not contiguous, not in order). Until now it has been done

with

a #gsort in OCL, and works fine.

I would like to not use OCL. Any ideas?

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

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.0/1861 - Release Date:

12/22/2008 11:23 AM

--
---------------------------------
Booth Martin
http://www.Martinvt.com
---------------------------------

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.