MVSFORUMS.com

[Darren]

Hi ,
I have a requirement ,from an existing sort card ( this is present in a PDS), i need to extract a string of data.
The input file structure looks like this:
------------------------------------------------------------------
SORT FIELDS=COPY
OMIT COND=(089,007,CH,EQ,C'A00009D',
OR,089,007,CH,EQ,C'A20034F',
OR,089,007,CH,EQ,C'A20153B',
OR,089,007,CH,EQ,C'A20631B',
OR,089,007,CH,EQ,C'A22369A',
OR,089,007,CH,EQ,C'A23002J',
OR,089,007,CH,EQ,C'A23928I',
OR,089,007,CH,EQ,C'A25153G')

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

From the above rows of data the following output needs to be generated:
A00009D
A20034F
A20153B
A20631B
A22369A
A23002J
A23928I
A25153G

The problem here is, there is no fixed position where the data in input file will start.

In our shop we are using only sort and older version of Synctool.

Can any one help me to get the required output using sort.

[Brian]

Darren,

Have you tried the substring option with sort.

[Darren]

Hi Brain,

The values in input file can change.
I need to take the value of Character string which starts with 'A'.

If I have a value something like this

(089,007,CH,EQ,C'A123456',
OR,089,007,CH,EQ,C'DDDDDDD',
OR,089,007,CH,EQ,C'EEEEEEE')

Then the output file should have A123456 only.

[bprasanna]

Hi Darren,
try the below INCLUDE condition.I modifed the Brien's solution a little bit.

Brian's solution:

INCLUDE COND=(1,80,ss,eq,C'A25153G')


change the above include condition to
INCLUDE COND=(1,80,ss,eq,x'123')

see the hex format of C and change the above 1 to hexvalue of C,
see the hex format of ' and change the above 2 to hexvalue of ',
see the hex format of A and change the above 3 to hexvalue of A.

[Dibakar]

I think Darren has a different requirement.

What I understand that the string is present in every record - so 'INCLUDE COND' is not required.

Now he wants to extract the string - i would write a program to do this.

[Darren]

Thanks bprasanna and Dibakar

Using the 'INCLUDE COND' I can get the all records having "C'A" at any position in the string.

Where as my requirement is to get the output file in particular format:

A00009D
A20034F
A20153B
A20631B
A22369A
A23002J
A23928I
A25153G

[Phantom]

Darren,

It would be helpful if you could provide us clear information. From your first post I understand that you know the values to Include/Omit.

[Darren]

Hi Phantom,

The first post for this has the input and the expected output file.
For your reference I am posting the input and output again.
The input file is a sort card of another job.

Input file :
------------------------------------------------------------------
SORT FIELDS=COPY
OMIT COND=(089,007,CH,EQ,C'A00009D',
OR,089,007,CH,EQ,C'A20034F',
OR,089,007,CH,EQ,C'A20153B',
OR,089,007,CH,EQ,C'A20631B',
OR,089,007,CH,EQ,C'A22369A',
OR,089,007,CH,EQ,C'A23002J',
OR,089,007,CH,EQ,C'A23928I',
OR,089,007,CH,EQ,C'A25153G')

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

Required Output file :

A00009D
A20034F
A20153B
A20631B
A22369A
A23002J
A23928I
A25153G

[Phantom]

Darren,

With Syncsort, I don't see any direct way to accomplish this. I'm thinking of using CHANGE operator in SORT but even that would be complex in this case. I'm not sure if there is a better way to solve this. Probably someone else can help you out.

Thanks,
Phantom