DFSORT + Prepare output file using input file values

CyberKannan · New User Joined: 08 Feb 2008 Posts: 5 Location: Chennai

Hi All

My requirement is below:

Prepare an output file based on the values from input file fields.

The last field in output file is a Group Field which consists of 20 positions. If the input record contains 0001, the first position will be 1 and the remaining 19 positions will be dots.

Input File:

XXX-XX-XXXX X 0001
XXX-XX-XXXX X 0002
XXX-XX-XXXX X 0020

Output File:

XXX-XX-XXXX X 1...................
XXX-XX-XXXX X .1..................
XXX-XX-XXXX X ...................1

Can anyone help me out in doing this requirement in DFSORT?

Thanks
Kannan

CICS Guy · Posted: Fri May 09, 2008 5:01 pm Post subject:

Something like 20 IFTHEN Builds?
Have you looked at the manual?

CyberKannan · New User Joined: 08 Feb 2008 Posts: 5 Location: Chennai

Hi

Am able to do that with 20 IFTHEN like using following SORT card.

Sort card:

CICS Guy · Posted: Fri May 09, 2008 5:16 pm Post subject:

Sharp solution, cleaner than the one I was thinking of.....
Are you inferring that there will be more than just the 20 positions?
Maybe Frank or Kolusu will come up with something.....

Frank Yaeger · Posted: Fri May 09, 2008 10:14 pm Post subject:

CyberKannan · New User Joined: 08 Feb 2008 Posts: 5 Location: Chennai

Frank actually, I mean to generate dynamically the sort card with one or two lines. Because if we see the sort card, the sort card contains

IFTHEN=(WHEN=(11,4,CH,EQ,C'0001'),OVERLAY=(15:1C'1'))

Here, I thought it is possible to make the overlay position(In the above line it is 15) dynamically. It is always value of field from position 11 to 4 plus 14. So I thought there might some other thing which I can do, to make it dynamically. But It seems, not.

Also it would be helpful if you can help me in similar requirement. Actually that is my actual requirement.

I want to generate a output file like the following from the input file given below:

Output File:

11111111111..................
222222222.111................
333333333..1111..............

Input File

1111111110001
1111111110002

2222222220002
2222222220003
2222222220004

3333333330003
3333333330004
3333333330005
3333333330006

I mean, the first 9 bytes are Key and I want to generate a bit map kind of thing using the values given in field position 10-13. If the same key has two rows with values 2 and 3, then I want to generate a single row with the key value and bitmap like .11.................

Hope I made myself clear about my requirement. Please let me know whether it is possible using DFSORT, so that I can avoid writing one COBOL program for this kind of requirement.

Thanks a Ton,

Frank Yaeger · Posted: Sat May 10, 2008 2:06 am Post subject:

CyberKannan · New User Joined: 08 Feb 2008 Posts: 5 Location: Chennai

Thanks Frank.

Thanks

Skolusu

cyberkannan,

The following DFSORT JCL will give you the desired results

Frank Yaeger · Posted: Mon May 12, 2008 10:30 pm Post subject:

Kannan,

Kolusu has a different interpretation of what you want then I did. Hopefully, he's right about what you want. If not, then please be more specific about what exactly you want to be "dynamic".

CyberKannan · New User Joined: 08 Feb 2008 Posts: 5 Location: Chennai

Kolusu,

Thanks a Ton. Amazing logic :-). I would like to know that my requirement has been solved using this sort card. Thanks Again.

Frank,

The sort card solved my requirement perfectly. Actually By Dynamic I mean, instead of writing 20 different IFTHEN, is there any possibility to have one IFTHEN which solves the same purpose.

Let me explain clearly about what I meant by "Dynamic".