Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
Mariraj

New User

Joined: 09 Jul 2007
Posts: 59
Location: Chennai

Posted: Mon May 05, 2008 2:42 pm    Post subject: Selecting some records based on few fields.

I have a file which contains 36 million records.

Sample records are shown below.

 Code: 100ABCDE2007022299999999 100ABCDE2007090499999999 101ABCDE2007091299999999 101ABCDE2007091220080715

Out of the above four records i need to select only the 3rd record.

As you can see the first 16 digits of this record is equal to the next record and the next 8 digits are different. So i want only such records whose first 16 digits are equal to the first 16 digits of next record and last 8 digits are not equal to the last 8 digits of the next record.

Please let me know how to achieve this using SORT.

rajatbagga

Active User

Joined: 11 Mar 2007
Posts: 195
Location: india

Posted: Mon May 05, 2008 6:08 pm    Post subject:

hello Mariraj,

I had understood your requrement then you can use the below JCL. if this does not works then please let us know with some examples with more then one record in the output:

 Code: //VZM1CKKN JOB (3GAHF3,R),                                            //         'RAJAT TEST',CLASS=X,MSGCLASS=Y,NOTIFY=&SYSUID              //S1      EXEC PGM=ICETOOL                                            //TOOLMSG  DD SYSOUT=*                                                //DFSMSG   DD SYSOUT=*                                                //*                                                                    //IN1      DD *                                                        100ABCDE2007022299999999                                              100ABCDE2007090499999999                                              101ABCDE2007091299999999                                              101ABCDE2007091220080715                                              /*                                                                    //T1       DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)    //OUT      DD SYSOUT=*                                                //TOOLIN   DD *                                                            SELECT FROM(IN1) TO(T1) ON(1,16,CH) FIRST                              SELECT FROM(T1) TO(OUT) ON(17,8,CH) LAST                          /*
Skolusu

Senior Member

Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

Posted: Mon May 05, 2008 11:34 pm    Post subject:

Mariraj,

Do you always have just 2 records for every key on the first 16 bytes or can you have more than that? if you have more than 2 keys how do u compare ? Also what is the LRECL and RECFM of the input dataset?

rajatbagga,

Your JCL will NOT give you the desired results as u are considering only FIRST of every record which would eliminate the 2nd record to be checked and your next select is only checking for the 8 bytes on ALL records. It should be checking based on the KEY in the first 16 bytes.

Try running your job with the following Data. Change the 1st record

 Code: 100ABCDE2007022277777777 100ABCDE2007090499999999 101ABCDE2007091299999999 101ABCDE2007091220080715

and you will see that you got 2 records in the output.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 3 Fri Mar 23, 2018 10:54 am Query to compare 2 values of 1 column... Poha Eater DB2 13 Fri Mar 09, 2018 10:45 am Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm how to add the amount for duplicate r... SRUTHI DRAVIDAMANI COBOL Programming 6 Wed Feb 21, 2018 7:21 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us