Re: Need help about an OCL

Hi!

Thanks for the tip in SEU. I didn't know it is possible to do that... Almost
all I learnt about S/36, I learnt it by myself because I'm too young (I'm
29) to know the "golden era" of the S/36...

Charles


"Pat Barber" <mboceanside@xxxxxxxxxxxxxxxx> a écrit
dans le message de news:44DC96D2.8080605@xxxxxxxxxxxxxxxxxxx

In english:

Records with no D in position 1

and

compare 17-24 of the input record is less than
whatever is in 31-38 of the LDA

and

Using the positions of 9 - 16 of the input record
compare them to the postions of 17-24 of the input
record. If they are not equal, include this record.

This condition is a "and" of the other two conditions,
so... they all conditions must be true for this record
to included in the sort.

This is first time I have seen one like this myself.

You can see all the fields in SEU by prompting on the
line in question and selecting SR as the record type.
When the formated record comes up in the prompt, you
can then use the help key to see all the correct paramters.



Charles St-Laurent wrote:

Hi!

I would like to understand the meaning of a line of a SORTA line.

There's

the complete command:

// LOAD #GSORT
// FILE NAME-INPUT,LABEL-SC_?L'1,2'?_AP,DISP-SHR
// FILE NAME-OUTPUT,LABEL-SC?L'1,2'?L1?WS?,RECORDS-?F'A,SC_?L'1,2'?_AP'?
// RUN
     HSORTA    27A        3        N
     I C   1   1NECD
     IAC  17  24LEC?L'31,8'?
     IAC   9  16NEF  17  24 <--------------- There's the line I'm not

sure

to understand
     FNC  29  36
     FNC   2   8
     FOC  17  24
     FOC  25  28
// END

I asked to a more experimented programmer at the office and he said that
it's the first time he sees this kind of syntax in a SORTA...

Can someone help me?

Charles

-- 
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.