Add value To a particular Filed in the Record

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Hi All.....

I have an Input file which contains records containing policy information...... and one of the fields in the record is the date field of character 7.....

I now need to add 18000000 to all the dates field whose position in the record is known....

For Ex..

I/P File

NARAIBM2081221JCLFORUM
NARAIBM2091121IMSFORUM

now the date field starts at location 8 and the value is 2081221
i have to add 18000000 to this value to make it 20081221 before writing it to the o/p file and in the same way 2091121 becomes 20091121

NARAIBM20081221JCLFORUM
NARAIBM20091121IMSFORUM

could you please let me know how to accomplish this....

Bill Woodger · Posted: Thu Aug 25, 2011 5:09 pm

So really you have to insert a "0" at a specific position, by which I mean also shifting everything after where you want the new zero to be, one byte to the right?

Recfm/lrecl for input and output, please.

Escapa · Posted: Thu Aug 25, 2011 5:13 pm

Below DFSORT step will give you desired output...

Assuming your input is 22 byte FB and so Output as 23 byte....

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Escapa · Posted: Thu Aug 25, 2011 6:40 pm

Show us input used and SYSOUT of the execution (use code tags)

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Escapa · Posted: Thu Aug 25, 2011 7:03 pm

You don't have DFSORT at your shop. You have SYNCSORT.

Solution I provided is for DFSORT (with default ZDPRINT option)

I am not sure if how to specify this option in case of SYNCSORT.

For DFSORT you need to use OPTION ZDPRINT if in case your default is NZDPRINT.

Escapa · Posted: Thu Aug 25, 2011 7:11 pm

I did bit of search on JCL part of forum.. So I could see that OPTION ZDPRINT can be specified for SYNCSORT too
ibmmainframes.com/post-77855.html
So try below

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

ohhh ok.... thank u escapa....

i might have to write a cobol program if no option is available in syncsort....

Bill Woodger · Posted: Thu Aug 25, 2011 7:12 pm

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Bill Woodger · Posted: Thu Aug 25, 2011 8:05 pm

Can you give us input and output for say, 10 records, and at least 40 characters around your date, and a HEX display if you have non-display data in any positions in that part of the file.

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

@ Bill - Please find the details below.

Input

Columns b/w 10-17 and 36-42 are the date fields

ridgewalker58 · New User Joined: 26 Sep 2008 Posts: 51 Location: New York

How about trying a Simple solution that I have used -- OLD TIME IEBGENER

My input record is 80 bytes long -- but the length can be changed to
fit the size of the incoming record.

IEBGENER:
1. moves the first 8 bytes to the first 8 bytes of the o/p record
2. moves one ZERO to position 9 of the output record
3. moves the rest of the record to the output record starting at
position 10

//IEBGEN1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
NARAIBM2081221JCLFORUM
NARAIBM2091121IMSFORUM
//SYSUT2 DD SYSOUT=*,
// DCB=(LRECL=080,BLKSIZE=0,RECFM=FB,DSORG=PS)
//SYSIN DD *
GENERATE MAXFLDS=30,MAXLITS=30
RECORD FIELD=(8,1,,1),FIELD=(1,'0',,9),FIELD=(71,09,,10)

======== PRODUCES ========

NARAIBM20081221JCLFORUM
NARAIBM20091121IMSFORUM

Arun Raj · Posted: Thu Aug 25, 2011 9:13 pm

narasimha.g,

Changing the TO=ZD to TO=ZDF should solve your problem.

Frank Yaeger · Posted: Thu Aug 25, 2011 11:32 pm

Bill Woodger · Posted: Fri Aug 26, 2011 3:38 am

narasimha.g,

You are getting a "signed" value after your addition. Ie, the sign-half-byte (left part of the final byte) is getting set to "C", whereas you would prefer to see it as an "F", an "unsigned" value.

I don't have a SYNCSORT manual. You'll have to look at numeric types in your manual, and see how to define an unsigned field, instead of using ZD.

Now that I see you have two dates, remember to add another byte to your output Lrecl :-)

Ridgewalker's solution would work for you if you could get the condition in, first digit of date is "1", insert "9" after "1". First digit of date is "2", insert "0".

You can also do it that way in the SORT. If you do, I'd hope that you cover the "unexepected" when it is neither 1 nor 2 :-)

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Thanks all for the suggestions....

I couldn get the desired o/p using Syncsort and hence had to write cobol program (which i hate to)......

Bill Woodger · Posted: Fri Aug 26, 2011 2:49 pm

I don't understand. This is twice now this week. You post a question, people are helping you out, a solution (or several) is possibile, then you give up and write a Cobol program. Which you don't like. Your skills say "pli", so why not that?

If you next ask a question, would you prefer us to say "how about writing a Cobol program"? Just so we know.

Escapa · Posted: Fri Aug 26, 2011 2:59 pm

narasimha.g · New User Joined: 10 Sep 2009 Posts: 68 Location: Liverpool

Bill Woodger · Posted: Fri Aug 26, 2011 7:00 pm

I think enrico has dealt with your IMS load question. It is not generally a good thing to solicit answers here. Where people have time/skills they provide replies at their own choice.

My IMS skills are almost limited to being able to spell it.

With this SyncSort question, you have two routes: check that TO=ZD is getting you a signed value (C), not unsigned (F) and find how to get an unsigned value; do the IFTHEN stuff for 1, 2, other for each of your dates, inserting 9, 0, TBD respectively.

enrico-sorichetti · Posted: Fri Aug 26, 2011 7:04 pm