Modifying only the last record using Syncsort

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

I need to delete a single record. So here is the description of the prob.

The PDS member contains more than 50,000 records, it's not fixed it can vary..but the dataset will contain huge number of records.

The data format is as below

{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$

now my requirement is after the member is created for the last record I need to delete the $ (ONLY THE LAST ONE ) using SYNCSORT.

enrico-sorichetti · Posted: Wed Apr 29, 2009 5:06 pm

Your post is very confusing...

are You dealing with a PDS ( partitioned dataset ) , or a PS

are You deleting a record, or are You simply reformatting the last record

the proper way to ask is to simply describe the problem/requirement
without specifying the tool

asking to do something with some <TOOL> implies that You have the competence
to evaluate the <TOOLS> available and make the <BEST> choice,
and You wouldn' t need to ask for help

please describe better Your requirements

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

Sorry mistyped its a PS

Requirement:- I have created a Natural program for some BATCH PROCESSING.It reads a adabas file and writes a PS(Workfile).Now at the end of each record i have put $ as a seperator.Now this seperator will be written at the last record as well.
Since i do not want to do the changes to remove the last records $ seperator..because its called from other applications as well which needs a $ seperator at thier end.

So now i need to work this on the JCL.So what i need to do is to remove the $ seperator from the last record.

for example..my Program will write the records in below format in a workfile (PS)

{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$
{4: ABCDREKKKKKLLL -}..$

so for the last record i need to delete the $ seperator.

Please help

Thanks in ADVANCE

dick scherrer · Posted: Wed Apr 29, 2009 9:01 pm

Hello,

Rather than waste a full pass of the data to "undo" the last delimiter, you could simply change the create program to write "one record behind".

Write the record with the $ ony when you know there is another. When the input is exausted, write the last record without the $.

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

That is what i mentioned earlier........i do not do the modifications in the module due to its multiple usage..and some other limitations

Please advice how we can do this using an JCL step.

dick scherrer · Posted: Wed Apr 29, 2009 11:48 pm

Hello,

CICS Guy · Posted: Thu Apr 30, 2009 12:10 am

Unless WHEN=LAST has been added to Syncsort/tool, I can only see a two pass sort with sequence numbers.
Possibly a copy pass to a DD DUMMY that generates a control input to another copy pass with sequence number that the IFTHEN can work on the last record.

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

can anyone help me on this please ??

maheshvamsi · New User Joined: 22 Mar 2008 Posts: 39 Location: bangalore

HI,

ibmmainframes.com/viewtopic.php?t=26257&start=0&postdays=0&postorder=asc&highlight=remove+trailer

try using the solution given in the post, I tried it using synsort. It was working.

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

dick scherrer · Posted: Thu Apr 30, 2009 1:47 pm

Do not double post - the duplicate has been deleted.

If you had gone ahead and modified/written the code yesterday, you would be done now. . .

d

CICS Guy · Posted: Thu Apr 30, 2009 2:11 pm

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

what changes i wll require to do for my requirement in the below JCL code

expat · Posted: Thu Apr 30, 2009 4:35 pm

What happened when you tried it for yourself ?

CICS Guy · Posted: Thu Apr 30, 2009 5:24 pm

beruoist · New User Joined: 14 Nov 2007 Posts: 70 Location: mumbai

CICS Guy · Posted: Thu Apr 30, 2009 8:17 pm

dick scherrer · Posted: Thu Apr 30, 2009 10:41 pm

Still "fritterin'" away time to implement something that requires a complete copy of the entire file. . .

Gee, just like is done on the Winboxes that have so many performance problems. . .

Rather pathetic - but probably good for cpu and dasd sales. . .

d