MVSFORUMS.com

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

Hi Kolusu,

Thanks for your reply.

But I need if at 20th position we have 'A' than do not right anything, create an empty file. Whereas, File B is fine, trailer should be written to it for the g ...

Hi Kolusu,

Adding to my previous query. Could you please help me by suggesting that in case in my File A there is no record(empty file created) than no record should be written into the file. As of ...

Okay understood.

Thanks alot Kolusu for such a clear explanation. This helps a lot in building the understanding.

Hi Team,

I have one requirement, we have one input file (FB, LRECL-200) where we have amounts with signed bytes defined as PIC S9(11)V9(2), sign is stored in the last bit. In the file we can see th ...