Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Possible to Set Indicator on a Record When Value Changes?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Katharine Allen

New User


Joined: 01 Jun 2010
Posts: 8
Location: NY, NY

PostPosted: Sat Jun 19, 2010 1:51 am    Post subject: Possible to Set Indicator on a Record When Value Changes?
Reply with quote

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
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 19, 2010 2:14 am    Post subject:
Reply with quote

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?
Back to top
View user's profile Send private message
Katharine Allen

New User


Joined: 01 Jun 2010
Posts: 8
Location: NY, NY

PostPosted: Sat Jun 19, 2010 2:28 am    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 19, 2010 7:31 am    Post subject:
Reply with quote

Hello,

I believe you might modify the code in the last reply of this topic to do what you want:
http://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 . . .
Back to top
View user's profile Send private message
Katharine Allen

New User


Joined: 01 Jun 2010
Posts: 8
Location: NY, NY

PostPosted: Tue Jun 22, 2010 12:57 am    Post subject: Reply to: Possible to Set Indicator on a Record When Value C
Reply with quote

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
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jun 22, 2010 1:01 am    Post subject:
Reply with quote

Hi Katie,

You're welcome icon_smile.gif

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 . . .
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us