Need help in sort jcl

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Could some one help me please?

I have input like this

dick scherrer · Posted: Tue Aug 25, 2009 8:58 pm

Hello,

First - learn to to use the "Code" tag. This preserves alignment and improves readability.

Post the rules for getting to the output from the input.

Mention the relevant data positions as well as the recfm and lrecl of the files.

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Sorry for not giving full details in my previous post

Input file properties
FB,LRECL=80

Output file properties
FB, LRECL=86

In input file 29th position to 39th position (inclusive of 29th position to 39th positions ) if “CCCCCCCCCCC” presents then in output file from 35th position to next 6 bytes needs to be filled with CTEST1

In input file 29th position to 39th position (inclusive of 29th position to 39th positions ) if “MMMMMMMMMMM” presents then in output file from 35th position to next 6 bytes needs to be filled with MTEST1

In input file 29th position to 39th position (inclusive of 29th position to 39th positions ) if “QQQQQQQQQQQ” presents then in output file from 35th position to next 6 bytes needs to be filled with QTEST1

So on……

dick scherrer · Posted: Tue Aug 25, 2009 10:00 pm

Hello,

The sample data appears to have the CCC, MMM, beginning in pos 19

Far better to be accurate rather than fast

Frank Yaeger · Posted: Tue Aug 25, 2009 10:35 pm

vicharapusrinu,

You can use a DFSORT job like the following to do what you asked for. I assumed you actually had the targets in 19-29 and used input records that matched that assumption.

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Frank Yaeger,

Thanks a lot for your response,

I have got one more requirement

If “CCCCCCCCCCC” is not appear from 19th position to 29th position then 6 spaces need to be moved to instead of CTEST1
...............
So on……….

please help me out

Escapa · Posted: Wed Aug 26, 2009 4:22 pm

isn't it is happening currently by code given by Frank?

I am able to see SPACES when 19th to 29th position value is “AAAAAAAAAAA”

Frank Yaeger · Posted: Wed Aug 26, 2009 9:06 pm

Frank Yaeger · Posted: Wed Aug 26, 2009 9:27 pm

I'm making the assumption that you have blanks in the records at the location where CTEST1 etc goes.

If, in fact, you have something else in those positions and want to overlay it with blanks, show an example of your input records and expected output records and I'll show you how to do what you want.

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Frank Yaeger,

Thanks a lot for your support

Here is my input and expected out put

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Frank Yaeger/ All,

Could some one help me please?

My requirement is to insert some text in between of file

Input file LRECL = 498
Output file LRECL = 503

If in input file from 1st position to 10th position if it founds MMMMMMMMMM then in out put file TESTM should appear from 21st position and rest of input record should start from 26th position (no over writing of data)

AND

If in input file from 1st position to 10th position if it NOT founds MMMMMMMMMM then in out put file 5 SPACES should appear from 21st position and rest of input record should start from 26th position(no over writing of data)

Input and expected output lay outs are in above post…

Could some one help me please?

Frank Yaeger · Posted: Thu Aug 27, 2009 9:50 pm

Be patient. I'm in California - I just got to work. If you want faster help, explain your requirements more clearly in your first post.

You might also try to figure things out yourself (I assume that's what you're being paid for). I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000080

Here's a DFSORT job for your new requirement:

vicharapusrinu · New User Joined: 04 Dec 2006 Posts: 63 Location: Hyderabad

Frank Yaeger,

Thanks a lot for help, it is working fine.

I will go through document "z/OS DFSORT: Getting Started".