Overlay the different record using sort card

Venkata Ramayya · Posted: Mon Jul 13, 2009 9:48 pm

Hi,

Can we overlay in the different record using sort card? For example my file contains the data as below

=COLS> ----+----1----+----2----+----3----+----4----+----5
****** ***************************** Top of Data ********
000001 1
000002
000003
000004
000005
000006
000007
000008
000009
000010 123456789101

If the 000001 record has '1 ' I would like to add 'REPORT' in the 000009 record like below
=COLS> ----+----1----+----2----+----3----+----4----+----5
****** ***************************** Top of Data ********
000001 1
000002
000003
000004
000005
000006
000007
000008
000009 REPORT
000010 123456789101

Thanks
Venkat

rgupta71 · Posted: Mon Jul 13, 2009 10:05 pm

Hi, Venkata

Can u please explain your requirement in detail.

Suppose my i/p is
000001 1
000002
000003 1
000004
000005
000006 1
000007
000008
000009
000010 123456789101

What is the expected output?

Skolusu · Posted: Mon Jul 13, 2009 10:07 pm

Venkata Ramayya,

The following DFSORT JCL will give you the desired results. I assumed that your input is FB recfm and lrecl of 80 bytes

rgupta71 · Posted: Mon Jul 13, 2009 10:15 pm

Hi, Kolusu

I don't think this is the geralised way. What if I have more then 10 records.
This will work only for the example mentioned.

Please let me know if I am wrong.

Thanks And Regards
Rahul Gupta

Skolusu · Posted: Mon Jul 13, 2009 10:25 pm

enrico-sorichetti · Posted: Mon Jul 13, 2009 10:28 pm

Venkata Ramayya · Posted: Tue Jul 14, 2009 12:04 am

Thanks for the reply.

I would like to understand this

IFTHEN=(WHEN=GROUP,BEGIN=(1,6,ZD,EQ,1,AND,8,1,ZD,EQ,1),

Skolusu, can you please explain me?

I assume you understand that 000001,000002...000009 are record number when the file is in view mode. Actual record starts from '1'

'1 ' indicates the begining of the record and 8th record should have text 'REPORT'.

Please let me know if I confuse.

Thanks
Venkat

Venkata Ramayya · Posted: Tue Jul 14, 2009 7:10 pm

Can any one respond to this?

I would like to understand this statement -

IFTHEN=(WHEN=GROUP,BEGIN=(1,6,ZD,EQ,1,AND,8,1,ZD,EQ,1),
PUSH=(81:8,1),RECORDS=9),

I am having issues when I customize this for my requirement.

Please help me.

Thanks
Venkat

Skolusu · Posted: Tue Jul 14, 2009 8:33 pm

venkat ramayya,

*sigh*. why do you want to paste line numbers as part of input data? I am not even sure as to what the requirement is. I don't want to guess.

For explanation of the GROUP statement check the User Guide for DFSORT PTF UK90013

Use [URL] BBCode for External Links

Frank Yaeger · Posted: Tue Jul 14, 2009 8:43 pm

Venkat,

If you want help with this, show a good example of your input records and what you expect for output. If you have more than one group of records that start with '1' and need 'REPORT', show that in your example. If you have only one group, say so. Explain the "rules" for getting from input to output. Give the RECFM and LRECL of the input file. Give the starting position, length and format of each relevant field.

Venkata Ramayya · Posted: Tue Jul 14, 2009 9:16 pm

Hi Frank,

Attached file has the input and output format. The Lrecl of input and output files are 133 FBA.

Please let me know if you have any questions.

Thanks
Venkat

Skolusu · Posted: Tue Jul 14, 2009 9:20 pm

Venkata Ramayya,

Did you even bother to read frank's post? Answer all the questions of frank.

Frank Yaeger · Posted: Tue Jul 14, 2009 9:23 pm

That input and output shows ONE group of records. Is that all you have?

The "rules" you gave are "If the 000001 record has '1 ' I would like to add 'REPORT' in the 000009 record". What do you want to do if the 000001 record does not have '1'? Can any other record have '1'? Would that affect the expected output at all?

Douglas Wilder · Posted: Tue Jul 14, 2009 9:30 pm

Venkata Ramayya · Posted: Tue Jul 14, 2009 9:41 pm

The '1' indicates the begining of the each record. The every 8th record after 1(ie, 9th record including 1st record) should have 'Report' from 11th column. Let me know still you have any questions.

Thanks
Venkat

Skolusu · Posted: Tue Jul 14, 2009 9:52 pm

venkat ramayya,

Use the following DFSORT job

Venkata Ramayya · Posted: Tue Jul 14, 2009 11:07 pm

Kolusu,

I am getting syntax error

SYSIN :
SORT FIELDS=COPY
INREC IFOUTLEN=133,
IFTHEN=(WHEN=GROUP,BEGIN=(1,1,ZD,EQ,1),PUSH=(134:SEQ=8),RECORDS=9),
*
IFTHEN=(WHEN=(134,8,ZD,EQ,9),OVERLAY=(11:C'REPORT'))
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

Frank Yaeger · Posted: Tue Jul 14, 2009 11:20 pm

Kolusu's job works fine with DFSORT. The WER messages indicate you're using Syncsort, not DFSORT.

Why did you post in the DFSORT Forum when you're using Syncsort? You should have posted in the JCL Forum.

Kolusu and I are DFSORT developers. DFSORT and Syncsort are competitive products. We're happy to answer questions on DFSORT and DFSORT's ICETOOL, but we don't answer questions on Syncsort.

Venkata Ramayya · Posted: Tue Jul 14, 2009 11:30 pm

I appologize for it. Recently the product got changed from DF to SYNC in our work palce. I did not think about that and posted. Sorry again.

Thanks for your responses.