Appending previous record SEQNUM value to current record

selvamsrinivasan85 · New User Joined: 09 Aug 2010 Posts: 31 Location: Chennai

Hi all,

I want to append the SEQNUM value of previous record to current record.
Corresponding position of current record will have value as Spaces.

How to achieve using SORT?. Any clue would be better.

Sample Input :

ABC ID1 2001-08-25 XXXXX 0000001
ABC ID1 2005-04-30 YYYYYY 0000002
ABC ID2 1987-08-25 123456 0000003
ABC ID2 2003-04-25 123456
ABC ID2 2011-09-21 123789 0000004
ABC ID3 2005-04-30 FFFFFFF 0000005
DEF ID3 2005-04-30 FFFFFFF

Sample Output required:
ABC ID1 2001-08-25 XXXXX 0000001
ABC ID1 2005-04-30 YYYYYY 0000002
ABC ID2 1987-08-25 123456 0000003
ABC ID2 2003-04-25 123456 0000003
ABC ID2 2011-09-21 123789 0000004
ABC ID3 2005-04-30 FFFFFFF 0000005
DEF ID3 2005-04-30 FFFFFFF 0000005

Thanks.

Bill Woodger · Posted: Fri Oct 16, 2015 2:48 pm

You use IFTHEN=(WHEN=GROUP with your sequence not being blank and RECORDS=2, PUSH your sequence to an extension of the record.

Then use IFTHEN=(WHEN=(logicalexpression) to identify spaces in the seqnum, and use OVERLAY to put the extended sequence number in place of the spaces.

Return the record to it's original size. If you get that working, post the code please.

selvamsrinivasan85 · New User Joined: 09 Aug 2010 Posts: 31 Location: Chennai

Thanks Bill.

I got the desired output.

ABC ID1 2001-08-25 XXXXX 0000001
ABC ID1 2005-04-30 YYYYYY 0000002
ABC ID2 1987-08-25 123456 0000003
ABC ID2 2003-04-25 123456 0000003
ABC ID2 2011-09-21 123789 0000004
ABC ID3 2005-04-30 FFFFFFF 0000005
DEF ID3 2005-04-30 FFFFFFF 0000005

Below is the corresponding sort card used.

//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(38,7,CH,NE,C' '),
PUSH=(81:38,7,SEQ=1)),
IFTHEN=(WHEN=(38,7,CH,EQ,C' '),OVERLAY=(38:81,7))
//*

Bill,

I am achieving this output using three sort steps.

On first step, I am generating Seqnum based on Key values and used RESTART to start the Sequencing, if key value changes.
On second step, I am re-sequencing and moving spaces.
On final step, I am appending the previous record sequence num.

Can this be written in a single sort step?.

Code:
//SORTIN DD *
ABC ID1 2001-08-25 XXXXX
ABC ID1 2005-04-30 YYYYYY
ABC ID2 1987-08-25 123456
ABC ID2 2011-09-21 123789
ABC ID2 2003-04-25 123456
ABC ID3 2005-04-30 FFFFFFF
DEF ID3 2005-04-30 FFFFFFF
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,7,CH,A,9,10,CH,A)
OUTREC OVERLAY=(1:1,30,50,7,SEQNUM,7,ZD,START=1,INCR=1,RESTART=(20,7))
/*
//*
//STEP0002 EXEC PGM=SORT
//SORTIN DD *
ABC ID1 2001-08-25 XXXXX 0000001
ABC ID1 2005-04-30 YYYYYY 0000001
ABC ID2 1987-08-25 123456 0000001
ABC ID2 2003-04-25 123456 0000002
ABC ID2 2011-09-21 123789 0000001
ABC ID3 2005-04-30 FFFFFFF 0000001
DEF ID3 2005-04-30 FFFFFFF 0000002
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(38,7,CH,EQ,C'0000001'),
OVERLAY=(38:SEQNUM,7,ZD,START=1,INCR=1)),
IFTHEN=(WHEN=(38,7,CH,NE,C'0000001'),
OVERLAY=(38:C' '))
/*
//STEP0003 EXEC PGM=SORT
//SORTIN DD *
ABC ID1 2001-08-25 XXXXX 0000001
ABC ID1 2005-04-30 YYYYYY 0000002
ABC ID2 1987-08-25 123456 0000003
ABC ID2 2003-04-25 123456
ABC ID2 2011-09-21 123789 0000004
ABC ID3 2005-04-30 FFFFFFF 0000005
DEF ID3 2005-04-30 FFFFFFF
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(38,7,CH,NE,C' '),
PUSH=(81:38,7,SEQ=1)),
IFTHEN=(WHEN=(38,7,CH,EQ,C' '),OVERLAY=(38:81,7))
//*

Bill Woodger · Posted: Fri Oct 16, 2015 4:26 pm

Just quickly, the entire thing can be done in one step using IFTHEN=(WHEN=GROUP and PUSH an ID= for the length of your field. ID is a sequence number across groups, SEQ is a sequence number within a group.

You have to decide what your key is. You are SORTing on one key, but only using the low-order part of the key. This gives you a potential for "false hits" were two different high-order keys are different but consecutive, and the low-order keys are equal.

selvamsrinivasan85 · New User Joined: 09 Aug 2010 Posts: 31 Location: Chennai

Bill,

I can able to generate Sequence number, if i explicitly mention the keyvalue in the SORT Card. But my keyvalue can be anything, other than Spaces.

Code:
//SYSIN DD *
SORT FIELDS=(1,7,CH,A,9,10,CH,A,20,7,CH,A)
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(20,7,CH,EQ,C'FFFFFFF'),
PUSH=(81:ID=7)),
IFTHEN=(WHEN=(40,7,CH,EQ,C' '),OVERLAY=(40:81,7))
/*

Output:

ABC ID1 2001-08-25 XXXXX
ABC ID1 2005-04-30 YYYYYY
ABC ID2 1987-08-25 123456
ABC ID2 2003-04-25 123456
ABC ID2 2011-09-21 123789
ABC ID3 2005-04-30 FFFFFFF 0000001
DEF ID3 2005-04-30 FFFFFFF 0000002

Since we don't have DFSORT installed, I couldn't able to use KEYBEGIN keyword.

selvamsrinivasan85 · New User Joined: 09 Aug 2010 Posts: 31 Location: Chennai

Bill,

I checked the below post and i tried using it. It worked perfectly.

http://ibmmainframes.com/about60165.html

Code:

Bill Woodger · Posted: Mon Oct 19, 2015 5:47 pm

The IFOUTLEN will have already set the record-length to 80, so when INREC is complete only the original 80 bytes are present, and you don't need the OUTFIL with BUILD.