MVSFORUMS.com

Thanks Kolusu.

I meant same as the solution you have given in one step. Similarly can we have without join keys since the input file is too big.

I think my statement was not clear.

And you are a pro Kolusu, I ...

Thanks a lot Kolusu. My bad I forgot to mention the file length. But this was good.

Just that, my input file is a volume file having around 50-60 million recs. So is there any way we can achieve th ...

Hi Team,

I have query related to sort card.
We have one input file having different record types as below.

##header1
##file name
01 abc type 0011
02 dataline1
03 dataline2
10end of file ...

Hi Kolusu,

I made some changes in the positions that's why it wasn't working for me. This code is working.

Thanks a lot for your guidance, I learn a lot from here.

Thanks & Regards,
Sris ...

I am able to do it in two steps.

First Step: Replacing the 10th position with first field.
Second step using the output of first step and checking for the spaces in the position 40, if not spaces ...

Hi Kolusu,

Thank you for the solution.

Condition:
Replace the records starting from position 10 with first field of File1 and if records starting from position 40 is not spaces than replace wi ...

Hi Kolusu,

Thats right.

First '05' record of File2 should be mapped with first record of File1. Rest all the records(other than'05') should be written as it is(in the same order) in the output ...

Hi Team,

I have a requirement where we have two input files having field1 of 19 bytes and field2 of 19 bytes again. Another file(File2) having some data.

For all the records starting with '05' i ...

Hi Kolusu,

With DFSORT its quite easy.

I am working on an automation in REXX where we are converting the PROD JCLs into TEST JCLs. So we are taking the existing prod jcl as input and creating a ...

I am reading the output file which is a PDS member and writing the records into output pds member which we are creating in the REXX itself and doing some processing.
Here, I want to read the input f ...

Hi Kolusu,

I appreciate the explanation. I tried this with both packed and zoned decimal. Before posting this query in this forum, I already tried moving the variable to PIC -------------.99. which ...

Hi Kolusu,

Thanks for the reply. I tried it, but the decimal places are varying. Also for the negative number this is showing positive sign.
For ex, for 00000000005907P,
output : +59077.00
exp ...

Hi Team,

I need to convert packed decimal to signed numeric decimal number in my COBOL program.
I am receiving the amount field from input file as packed decimal s9(13)v9(2) which gets displayed i ...

Sure Kolusu. That's what I am doing right now. I thought may be we can do something within the card itself.
Thanks for your time and confirmation.

Regards,
Srishti