Possible to Set Indicator on a Record When Value Changes?

Katharine Allen · New User Joined: 01 Jun 2010 Posts: 8 Location: NY, NY

I have a set of records that contain a "sack number" that will be the same for a number of records, and then the number will increment by 1. I.e. recs 1 through 400 may contain a binary 1 in cols 82 through 85, while recs 401 through 800 will contain a binary 2. The number of records for any one "sack number" will vary depending on the requirements.

I need to pass this file into a software package (Dialogue) and have it set a 1-byte position in a 2D barcode to '1' when the first record with the newly incremented "sack number" is encountered, otherwise the byte needs to be off ('0'). I am having trouble getting this working in the package. Can Sort set up a new field with '1' or '0' on the records (there's room) to pass to the package, or should I write a COBOL program to do it (not my favorite option)?

Thanks,
Katie

dick scherrer · Posted: Sat Jun 19, 2010 2:14 am

Hello and welcome to the forum,

If you post some sample input data and the output you want form that sample input data someone will have suggestions.

You don't need "full" records, only enough to show the relevant fields. Also, full volume is not needed. If a sack really holds 400, make the sample with only 10. SHow a few sacks of input and the output you want.

Which sort product is used on your system?

Katharine Allen · New User Joined: 01 Jun 2010 Posts: 8 Location: NY, NY

We are using SYNCSORT FOR Z/OS 1.2.2.3R

Actual records are 1170 bytes in length.

xxxx0001xxx
xxxx0001xxx
xxxx0001xxx
xxxx0001xxx
xxxx0001xxx
xxxx0002xxx
xxxx0002xxx
xxxx0002xxx
xxxx0002xxx
xxxx0003xxx
xxxx0003xxx

Would like to overlay a '1' or a '0' in unused existing area of record:
xxxx0001xxx1
xxxx0001xxx0
xxxx0001xxx0
xxxx0001xxx0
xxxx0001xxx0
xxxx0002xxx1
xxxx0002xxx0
xxxx0002xxx0
xxxx0002xxx0
xxxx0003xxx1
xxxx0003xxx0

Thanks

dick scherrer · Posted: Sat Jun 19, 2010 7:31 am

Hello,

I believe you might modify the code in the last reply of this topic to do what you want:
ibmmainframes.com/viewtopic.php?t=40764

Change the positions to fit your records and overlay a one when seqnum is 1 and a zero when seqnum is anything else. You would also want EQUALS to keep the records within a key in the same order as the input.

Unfortunately, i don't have a way to test this . . .

Katharine Allen · New User Joined: 01 Jun 2010 Posts: 8 Location: NY, NY

I have spent some time with it but have been unable to get it to work. The problem seems to be in the OUTREC process.

Meanwhile I am still working with someone else on getting the package to handle this - as it should. And, just in case, I have coded a program to do the manipulation.

If we fail in getting the package to solve this, I will return to the SORT option.

Thanks for showing me that there may be a way around coding a new program.

Katie

dick scherrer · Posted: Tue Jun 22, 2010 1:01 am

Hi Katie,

You're welcome

If you post what you have coded so far and the problem(s), someone may be able offer suggestions. We do have Alissa (from Syncsort) who provides lots of solutions . . .