IBM Mainframe Forum

by **ibmmf4u** » Wed Jul 25, 2012 11:45 pm

Hi Everyone,

My requirement goes this way. I would like to fill in the spaces with the records present with in a file. Below mentioned is an example of the same.

Input file:-

Select all

00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED

The first 8 positions are of key fields. If there were spaces in the first 8 positions then we need to compare the key fields of before and next lines where the space exists and if they are same then we need to replace those spaces with the key fields. In the above input file the keyfields which were present above and below the spaces (which mean whose first 8 positions are spaces) are of same and the spaces should be replaced by the key field as shown in the below output file.

Output file:-

Select all

00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
00001234 ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
00004567 TYPE3
00004567 DESC ENDED

Can someone please provide me the sort card in achieving the same.

Thanks in advance!!!

by **dick scherrer** » Thu Jul 26, 2012 1:38 am

Hello,

You mention looking at the before and after records to determine how to fill the spaces in the key.

What should happen if the keys on either side of the spaces are not equal?

Select all

00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00008798 DESC ENDED

by **BillyBoyo** » Thu Jul 26, 2012 6:01 am

And are consecutive records with blank keys possible?

Without consecutives:

On OUTFIL

With no KEYBEGIN on WHEN=GROUP, you can use a sequence number with RESTART for the key, then WHEN=GROUP with BEGIN = sequence = 1. Push the key.

WHEN=GROUP begin = key = blank, Push the pushed key and the entire record with blank.

WHEN=(logexp, pushed record key is blank, check pushed pushed key to current key. If equal, BUILD two output records using / (slash operator).

I have no Syncsort, so can't try it out. Try it in parts, to check it is working out before doing the whole thing.

by **ibmmf4u** » Thu Jul 26, 2012 5:49 pm

Hi Bill,

Thanks a lot . I tried coding per your instructions but got stuck.I initially went with when=group option and then to generate a seq-number but it gave me a syntax error. I later tried with when=init option coded as below .( I didn't went through that part of log exp where the last statement you specified.). I got bit confused and not sure if i had followed your instructions correctly. Please help me with some sort of example if i did go wrong.

Pasted below is the piece of code:-

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=INIT,BUILD=(1,60,SEQNUM,8,ZD,RESTART=(1,8))),
IFTHEN=(WHEN=GROUP,BEGIN=(61,8,CH,EQ,C'00000001'),PUSH=(1:1,8)),
IFTHEN=(WHEN=GROUP,BEGIN=(1,8,CH,EQ,C' '),PUSH=(1:1,60))
/*

Output which i got:-

Select all

00001234 ERROR1 TYPE OF ERROR 00000001
00001234 ERROR ABOUT 00000002
00001234 TYPE2 00000003
ERROR FIELD 00000001
ERROR FIELD 00000001
ERROR FIELD 00000002
ERROR FIELD 00000001
ERROR FIELD 00000002
TYPE3 00000001
TYPE3 00000001

Kindly request you to provide me some sort of pseudo code and guide me in achieving the same!!!

Thanks in advance!!!

Hi Dick,

If the keys on either side of the spaces are not equal then we are just leaving it there as the blank spaces.

Thanks!!!

by **BillyBoyo** » Thu Jul 26, 2012 7:44 pm

I suggest you "break it down". Do the sequence number addition first. Just that. SORTOUT to SYSOUT and look at what is produced.

Now, bear in mind that you are PUSHing over the original data. In this particular case, because we need multiple copies of the key for the comparison, that won't work. Also, when you PUSH the whole data line over itself, that also won't work, as we need the "original" line with the blank key to write out and the line after it.

So, after the sequence number, change your WHEN=GROUP to PUSH after the current end of the record (after the sequence number). Run that. Look at and understand.

Then do the PUSH of the blank key-line and the already PUSHed key.

Then when you are happy with all that, you have to identify when you know you want to replace the space key. You check the key which has been pushed twice, against the key on the current record, and put that value in the blank on the PUSHED whole record.

Then you'll need to output two lines. We'll get to that once you've got this far. This is not trivial, so it is worth spending the time on to fully understand it, and how it may help you to develop solutions in the future.

by **Alissa Margulies** » Fri Jul 27, 2012 1:02 am

Hello IBMMF4U,

Here is a Syncsort solution that should produce the desired output:

Select all

//SORT1 EXEC PGM=SORT
//SORTIN DD *
00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(17,5,CH,EQ,C'ERROR'),PUSH=(1:1,8))
SORT FIELDS=COPY
/*

Please let us know if you continue to encounter difficulties.

by **ibmmf4u** » Fri Jul 27, 2012 11:51 pm

Hi Bill,

Thanks a lot. I went per your instructions and coded it stepwise and pasting here the output of each and every step which i did.But i got bit confused while

Then do the PUSH of the blank key-line and the already PUSHed key.

.I got stuck over there from which position do we need to PUSH am sorry for troubling you a lot but nothing is coming. Please Kindly help me.

Pasted below are the code and its output at each step mentioned by you.

I suggest you "break it down". Do the sequence number addition first. Just that. SORTOUT to SYSOUT and look at what is produced.

Source Code:-

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=INIT,BUILD=(1,60,SEQNUM,8,ZD,RESTART=(1,8)))
/*

Output:-

Select all

00001234 ERROR1 TYPE OF ERROR 00000001
00001234 ERROR ABOUT 00000002
00001234 TYPE2 00000003
ERROR FIELD 00000001
00001234 ERROR DESCRIPTION 00000001
00001234 DESC ENDED 00000002
00004567 ERROR2 TYPE OF ERROR 00000001
00004567 ERROR NAME 00000002
TYPE3 00000001
00004567 DESC ENDED 00000001

So, after the sequence number, change your WHEN=GROUP to PUSH after the current end of the record (after the sequence number). Run that. Look at and understand.

Source code:-

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=INIT,BUILD=(1,60,SEQNUM,8,ZD,RESTART=(1,8))),
IFTHEN=(WHEN=GROUP,BEGIN=(61,8,CH,EQ,C'00000001'),PUSH=(71:1,8))
/*

Output:-

Select all

00001234 ERROR1 TYPE OF ERROR 00000001 00001234
00001234 ERROR ABOUT 00000002 00001234
00001234 TYPE2 00000003 00001234
ERROR FIELD 00000001
00001234 ERROR DESCRIPTION 00000001 00001234
00001234 DESC ENDED 00000002 00001234
00004567 ERROR2 TYPE OF ERROR 00000001 00004567
00004567 ERROR NAME 00000002 00004567
TYPE3 00000001
00004567 DESC ENDED 00000001 00004567

Then do the PUSH of the blank key-line and the already PUSHed key.

Then when you are happy with all that, you have to identify when you know you want to replace the space key. You check the key which has been pushed twice, against the key on the current record, and put that value in the blank on the PUSHED whole record.

Source code:-

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 ERROR2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=INIT,BUILD=(1,60,SEQNUM,8,ZD,RESTART=(1,8))),
IFTHEN=(WHEN=GROUP,BEGIN=(61,8,CH,EQ,C'00000001'),PUSH=(71:1,8)),

Output:-

Select all

00001234 ERROR1 TYPE OF ERROR 00000001 00001234
00001234 ERROR ABOUT 00000002 00001234
00001234 TYPE2 00000003 00001234
ERROR FIELD 00000001 ERROR FIELD
00001234 ERROR DESCRIPTION 00000001 ERROR FIELD
00001234 DESC ENDED 00000002 ERROR FIELD
00004567 ERROR2 TYPE OF ERROR 00000001 ERROR FIELD
00004567 ERROR NAME 00000002 ERROR FIELD
TYPE3 00000001 TYPE3
00004567 DESC ENDED 00000001 TYPE3

The above output which you look went out to the next line as the code tag accepts 80bytes

I am not sure if I have misunderstood completely . Please Kindly me help me out !!!!

by **ibmmf4u** » Fri Jul 27, 2012 11:59 pm

Hi Alissa,

The code which you have given is working fine but the input file doesn't contains ERROR from 17 till 21 potions it may keep on varying by the time.

Below mentioned is an sample input file .

Input file:-

Select all

00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 TYPEN2 TYPE OF ERROR
00004567 ERROR NAME
TYPE3
00004567 DESC ENDED
00006789 TESTMSGNUMBER3 ERROR DESCRIPTION
DESC OF TEST MESSAGE
00006789 TYPE OF ERROR MESSAGE
00006789 TESTNUMBER

Output file:-

Select all

00001234 ERROR1 TYPE OF ERROR
00001234 ERROR ABOUT
00001234 TYPE2
00001234 ERROR FIELD
00001234 ERROR DESCRIPTION
00001234 DESC ENDED
00004567 TYPEN2 TYPE OF ERROR
00004567 ERROR NAME
00004567 TYPE3
00004567 DESC ENDED
00006789 TESTMSGNUMBER3 ERROR DESCRIPTION
00006789 DESC OF TEST MESSAGE
00006789 TYPE OF ERROR MESSAGE
00006789 TESTNUMBER

Kindly help me out!!!

by **BillyBoyo** » Sat Jul 28, 2012 12:07 am

You still need an example where you have KEY1, blanks, KEY2, as you have said that can exit.

by **ibmmf4u** » Sat Jul 28, 2012 6:45 pm

Yes Bill. My apologies i forgot to mention the third control card which lead to the output specified in 3rd scenario. Below mentioned is the control statement which i used to get the output.

Then do the PUSH of the blank key-line and the already PUSHed key.

Then when you are happy with all that, you have to identify when you know you want to replace the space key. You check the key which has been pushed twice, against the key on the current record, and put that value in the blank on the PUSHED whole record.

Control card:-

Select all

IFTHEN=(WHEN=GROUP,BEGIN=(1,8,CH,EQ,C' '),PUSH=(71:71,8,80:1,60))

Entire code till the third scenario:-

Select all

SORT FIELDS=COPY
OUTFIL IFTHEN=(WHEN=INIT,BUILD=(1,60,SEQNUM,8,ZD,RESTART=(1,8))),
IFTHEN=(WHEN=GROUP,BEGIN=(61,8,CH,EQ,C'00000001'),PUSH=(71:1,8)),
IFTHEN=(WHEN=GROUP,BEGIN=(1,8,CH,EQ,C' '),PUSH=(71:71,8,80:1,60))

I am not pretty much sure that if i had intrepreted your third statement exactly .(As when and where to push to entire blanked-line and pushed key , i mean the positions.)

Yes Bill some sort of example may help me in kindly going through the last scenario specified.

Please kindly help me out!!!!

IBM Mainframe Forum

Filling in records instead of spaces!!!

Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!

Re: Filling in records instead of spaces!!!