Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : programming pearls - Good judgement comes from experience, and experience comes from bad judgement.

Google
 
Web mainframegurukul.com

Programmers Voted for below topics.      Please Vote for good Posts. Votes Salutes
Topic Title Votes Salutes
EJECT Verb in COBOL 21
Cobol Multiple Choice Questions By Shravan Wipro 16
what is index or subscript in cobol. please give me brief ex 14
jcl sort to add leading zeroes 13
SOC 7 abend - interview question 13
what is static or dynamic call in cobol 13
How to resolve soc7? 12
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 12
Infosys Training Program for freshers 10
HOW TO FIND LINKAGE LENGTH 10
VSAM File status 23 ,but records are present in the file 7
Changes in copybook 6
splitting of records using cobol 6
JOIN UNPAIRED,F1,F2,ONLY 6
Endevor 6
Difference Between XCTL and LINK 5
Frequently used commands in FileAid. 5
Interview questions - 3 years Exp - BOA, HCL and CTS 4
Various Locking mechanism for cursors and other SQL? 4
GDG interview question 4
Comparing two files 4
JCL return codes 4
COBOL Program performance tuning tips 4
JOIN UNPAIRED,F1,F2,ONLY 3 3
alphanumeric to numeric value padding with ZEROS in COBOL 3 3
How to Display COMP-3 value in report 3 3
JCL to Purge All Held output? 3
IKJ56500I COMMAND DSN NOT FOUND 3
S322 abend while sorting records 3
Call & Execute a COBOL-DB2 from a COBOL program? 3
compare two files using SORT 3
Submit a JCL thru Cobol - sysout=(INTRDR,*) 3
Comparing 2 files based on Acct number without using tables 3
Sort fields difference 3
Sending an Email from JCL with attachment 3
Control flow from one STEP to another 3
Recently faced mainframe cobol Interview Questions. 3
RESTART - Executing 2 and 3 rd step in 5 step jcl 3
sort two files with same sort condition 3
static and dynamic calls 3
What are the issues related with correlated subqueries? 3
restart question 3
Eliminate duplicate records in file 3
What is the difference between Copy and Include? 3
JCL SORT - Count number of records in a file 3
Regarding TSQ 3
What is the difference between SYNONYM and ALIAS? 2 2
How to copy only one record after sorting to SORTOUT. 2 2
What is the difference between Copy and Include? 2 2
Difference between sysprint, sysout 2 2
Various Locking mechanism for cursors and other SQL? 2 2
When you specify mutiple datasets in a JOBLIB or STEPLIB 2 2
Merging two files into one based on certain key fields: 2 2
what is index or subscript in cobol. please give me brief ex 2 2
static and dynamic calls 2 2
DB2 Certification Guidelines 2 2
Cobol Multiple Choice Questions By Shravan Wipro 2 2
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 2 2
JCL Errors 2 2
SOC 7 abend - interview question 1 1
PROCLIB 1 1
Why browse is substituted on big datasets? 1 1
Create a loop in a JCL 1 1
what is static or dynamic call in cobol 1 1
Frequently used commands in FileAid. 1 1
sort two files with same sort condition 1 1
NUMERIC condition checking on Alphanumeric value with spaces 1 1
Fetching RDW of a VB file in Easytrieve 1 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1 1
JCL SORT - Count number of records in a file 1 1
cics 1 1
how to copy multiple vsam files into a single flat file 1 1
Comparing two files 1 1
Difference between an Object Module and Load Module 1 1
CA7 scheduling 1 1
Difference Between XCTL and LINK 1 1
Regarding EXEC CICS ENQ / DEQ 1 1
Use of CHNG and PURGE ? 1 1
Ways to merge the parts of different rows in the single row. 1 1
Copy GDG to GDG (one to one). 1 1
How to write - 'Hello world' program through JCL 1 1
File STatus 41 1 1
CICS ABEND CODES 1 1
Display WITH NO ADVANCING 1 1
Interview questions - 3 years Exp - BOA, HCL and CTS 1 1
What are the valid DSORG values ? 1 1
EJECT Verb in COBOL 1 1
Merging Datasets with removing duplicates 1 1
pls give me answers these are may help for jobhunters.. 1 1
How to fetch and compare the system date in JCL 1 1
what is the diff btw jcl error, maxcc=12 or 8 and abend? 1 1
OVERRIDING A DD CARD IN JCL FOR A MULTIPLE PROC JOB 1 1
REXX Tools 1 1
JCL interview question answer Ebook 1 1
Infosys Training Program for freshers 1 1
Someone please explain this COMPUTE statement 1 1
JCL to run the DB2 Query - IKJEFT01 1 1
Help in Multiplcation of decimal constant 1 1
ICETOOL & DFSORT 1 1
Symbolic Parameters 1 1
JCL to interact with Oracle DB 1 1
How to resolve soc7? 22
JOIN UNPAIRED,F1,F2,ONLY 22
what is index or subscript in cobol. please give me brief ex 21
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 19
Frequently used commands in FileAid. 18
what is static or dynamic call in cobol 14
jcl sort to add leading zeroes 13
Cobol Multiple Choice Questions By Shravan Wipro 12
RESTART - Executing 2 and 3 rd step in 5 step jcl 12
SORT JCL - SORTING A VB FILE - INREC OUTREC PARSE BUILD 11
JCL SORT - Count number of records in a file 11
Joinkeys using ICETOOL 10
Interview questions - 3 years Exp - BOA, HCL and CTS 8
what is sync point in cics 8
Display WITH NO ADVANCING 8
How to concatenate records from two ps into one ps? 8
How do you make your BMS maps case sensitive? 7
Sending an Email from JCL with attachment 7
EJECT Verb in COBOL 7
SOC 7 abend - interview question 7
Various Locking mechanism for cursors and other SQL? 7
Difference Between XCTL and LINK 6
How to retrieve deleted dataset / pds in mainframe 6
What is the difference between Comp-5 and Comp in Cobol ?? 6
Control flow from one STEP to another 6
what is the step debug the online program to use xpediter 6
Recently faced mainframe cobol Interview Questions. 5
Replacing a larger string with smaller string 5
VSAM File status 23 ,but records are present in the file 5
GDG interview question 5
How to run only 2 steps out of 100 steps??? 5
what is the Length of DSN=.... 5
How to assign System Date/Time to a parameter in a JCL pgm? 5
Submit a JCL thru Cobol - sysout=(INTRDR,*) 5
How to compare two ps files having millions of records ? 5
abend code S000 U4038 5
Comparing 2 files based on Acct number without using tables 4
FILE-AID vs InSync 4
How to compile list a coolgen batch code using endeavor 4
In cics what is new copy.please give me a example. 4
Difference between an Object Module and Load Module 4
How we can access PDS and its Members thru COBOL ? 4
SORT INREC OUTREC OVERLAY - Adding sequential numbers 4
Mainframe Developer - Cognizant - Chennai 4
Sort fields difference 4
how to concatenate the datasets 4
static and dynamic calls 4
How to fetch and compare the system date in JCL 4
What is the function of //JCLLIB statement? 4
JCL to copy from DASD to TAPE 3
JCL-I need to FTP from MF to Local computer 3
difference between Omegamon and Mainview 3
What is MQ SERIES AND why it is used? 3
sort two files with same sort condition 3
PACKAGE VS PLAN ? 3
compile the cics,db2 or cobol program what next step- 3
What is the difference between Copy and Include? 3
Endevor 3
sign stored in Packed Decimal fields and Zoned Decimal field 3
Urgent Help needed !! 3
Editing a Copybook - How to? 3
How to write - 'Hello world' program through JCL 3
CA7 scheduling 3
DB2 query !! 3
Regarding TSQ 3
SQLCODE -811, why always 2nd row is fetched?? 3
Set Return Code using DFSORT 3
FOREIGN KEY 3
SYSTEM COMPLETION CODE=0C4 3
Problem with numeric field with sign in last digit 3
How to find record count of a mainframe dataset? 3
Reg DFSORT utility. 3
INFO about REGION parm 3
In SMS datasets, what is the function of the DD MGMTCLAS 3
To connect EBCDIC records to ASCII during write process 3
compare two files using SORT 3
How to read HEX file and convert it into decimal in REXX. 3
alphanumeric to numeric value padding with ZEROS in COBOL 3
How do you restart a proc from a particular step in jcl? 3
COMP-3 TO ALPHANUMERIC MOVE 3
Cobol question 3
How can a JES3 operator command be entered through the job 3
Merging Datasets with removing duplicates 3
NUMERIC to COMP-3 move 3
stored procedure in cobol 2
REXX Tools 2
DB2 PERFORMANCE TUNING TIPS 2
Converting file of RECFM=U to RECFM=FB 2
What is SSRANGE, NOSSRANGE ? 2
Replacing characters Using JCL 2
Eliminate duplicate records in file 2
DBXX NOT OPERATIONAL, RETRY COUNT IS ZERO 2
Comparing two files 2
How to Display COMP-3 value in report 2
COBOL TEST-3 WITH ANSWERS 2
What is a DBRM, PLAN ? 2
VERTICAL ARRAY IN CICS 2
CICS ABEND CODES 2
SOC1 abend 2
generating sequence number starting from 0100000000000000 2
Production Support 2
What is Static,Dynamic linking ? 2
How to send mail having some content of the file via jcl 2
how to calculate age 2
Replace special characters with spaces in a string 2
what s the difference between DB2 & ADB2? 2
IEBGENER - Emptying dataset. 2
Reformatting and calculating time and date values 2
Infosys Training Program for freshers 2
SQL Query using REXX 2
Mainframe jobs in Germany 2
Need to compare two files using sort in jcl 2
Sort and merge two files with a condition 2
What is auditing? 2
DB2 Certification Guidelines 2
Define/Create VSAM-E file 2
ICETOOL & DFSORT 2
Computer based tutorial on IMS DB/DC 2
help me in creating EXCEL document as OUTPUT FROM COBOL PROG 2
How to know the Primary and Foriegn keys? 2
to merge 2 records of the input file using SORT 2
How can i attach my sig? 2
What is the attribute byte? 2
Immediate Mainframe opening in CSC,Chennai 2
How to write a JCL using IEFBR14 2
A Really Nice One. Don't Miss the Moral. 2
To get the total record count of flat file..... 2
Redefine with occur clause 2
JCL - INCLUDE Condition - SORT INCLUDE COND 2
Executing n th step in a proc - JCL - IEBEDIT 2
Create files with matching and non matching records- SPLICE? 2
block size? 2
pls give me the answers for the following interview quesions 2
how to extract real time in easytrieve 2
To split matched and unmatched records into 2 files 2
To compare two files (SSN fields) 2
Create a loop in a JCL 2
PROCLIB 2
Mainframe PS to Excel and mail it. 2
Cobol Test 1 - Interview Questions 2
benefits with SYNC 2
DATACLAS 2
HOW TO CAPTURE JOBLOG THROUGH JCL 1
search the given PS file for a string 1
How do you code an instream data in a proc 1
Sending the user a message when job abends? 1
NUMERIC condition checking on Alphanumeric value with spaces 1
REXX tool needed to capture the JCL syntax errors 1
joins examples on multiple tables 1
Rexx/Clist to auto-build IEFBR14 for JCL 1
cics 1
"Merge" two files in a special way 1
file manager(unable to view/edit dataset) 1
SORT JCL to Split data using OUTFIL 1
Vaccination for Children 1
SE37 space abend 1
Easytrieve Job Input statement query 1
Compare 2 files and write O/P accordingly 1
equivalent file-manager command of file-aid command COPYBACK 1
Override 1
How to update records count in the header using JCL 1
difference between -805 and -818 sqlcode 1
Connect Direct to copy data from mainframe to desktop. 1
Pointers in Cobol 1
U4093 IMS Abend 1
writing 2 records for each qualifying input record. 1
Inserting NULL 1
COUNT of records based on distinct field value(ICETOOL/SORT) 1
PACKED DECIMAL TO NUMERIC USING EASYTRIEVE 1
Is it possible to get last modified date of PDS members... 1
Two files Matching Logic 1
Need to check count of file records and abend if >10. 1
Mainframe Jobs - Pune 1
Merging two files into one based on certain key fields: 1
how to describe a table in spufi 1
Difference between Ps and ESDS 1
Use of CHNG and PURGE ? 1
Ways to merge the parts of different rows in the single row. 1
How to copy specific members via fileaid 1
SYNCSORT trick 1
How to write a JCL using IEBCOMPR 1
SORT - Ifthen, when group question 1
types of cursors? 1
Sorting - SORT INREC OUTREC SUM FIELDS 1
How to Separate Odd or Even numbers using DFSORT 1
CICS Tutorial 1
S0C6 Abend while Opening a DB2 Cursor in a DB2-PLI Proram 1
Help required for a sort step. 1
Corresponding statement 1
What is length in sysin dd? 1
What is the difference between CS and RR isolation levels? 1
Tool to practice COBOL Programs 1
Question about Files matching logic 1
Using IDCAMs how to check whether file empty or not 1
CA-7 1
Moving cursor to next field in ISPF dialog 1
maxcc=1 1
JCL to run the DB2 Query - IKJEFT01 1
VSAM File status 34 1
Merged file to remove duplicate so order is not affected 1
Comapare Two Records in the same File 1
Merging of two files with non-unique keys. 1
how to merge two flat files in append manner 1
CODE THAT WAIT X MINUTES BEFORE EXECUTE A STEP 1
using Index other than subscript 1
Compare to files - write the count of matching - Easytrieve 1
Can we take XDC of the production job run? 1
how to deal with the below scenario using iebgener 1
user abend in easytrieve 1
Hai to All 1
SORT assistance for setting up RC 1
How to FTP a dataset from my mainframe to personal Folder 1
EVALUATE Statement in Easytrieve 1
What is the difference between SYNONYM and ALIAS? 1
too many tables join 1
How to convert a decimal valuie to hexadecimal using sort 1
JCL Interpreter :?: 1
conversion by using SORT 1
EASYTRIEVE 1
How can you override/nullify Condition code (COND) in jcl? 1
need to check a GDG generation is present in catalog or not 1
Technical diff between Microfocus cobol and Mainframe Cobol 1
How to write sort card? 1
Endevor 1
Name the macros to be used to define MAP, MAPSET, FIELD 1
Comparing Date with current date 1
SORT verb - help 1
Masking some fields in a dataset using JCL 1
how to insert new column in already existing vsam file 1
How to compile codes in changeman through tool in mainframe. 1
Find and Replace using DFSORT 1
Generate list of batch jobs in jobtrac using jcl 1
SYSUDUMP and SYSABEND 1
Mainframe Refresher eBook 1
Disabling CICS 1
Can any one let me know how to resolve +100,-803,-811 1
IBM Mainframe certification courses and exam 1
How to use both lower and upper case letters in cobol? 1
is the answer correct?? 1
Comp-3 variables to Comp variables. 1
retrieving deleted GDG version 1
Production Support 1
executing java program thru JCL 1
Reset Condition Code. 1
Problems associated with each type of interview question 1
HOW TO FIND LINKAGE LENGTH 1
what is the diff btw jcl error, maxcc=12 or 8 and abend? 1
a Sub-Query and a Correlated Sub-Query 1
How can i delete records form a VSAM file. 1
BMC Load REPLACE option 1
Intertest tool help 1
Mainframe Developer Requirement - Coimbatore 1
PACKMODE ON/OFF 1
What is use of redefine with real time example? 1
Compile error (Cobol using copy book) 1
Stop Run in both called and calling programs !!! 1
COBOL Program performance tuning tips 1
Man of the year 1
compare 2 files with different LRECL 1
User abend 4038 1
Endevor tutorial 1
JCL return codes 1
resource unavailable..table is not accessible 1
SQL Code -913 1
88 Level default value 1
I need to FTP from MF to UNIX 1
How to handle the null indiactor 1
what is INTRDR ( Internal Read) in JCL ? 1
Using Pointers in a CICS-COBOL program 1
How to copy only one record after sorting to SORTOUT. 1
is multiple STOP RUN are valid? 1
please clear my doubt 1
Simple JCL Tutorial & IBM Tutorials Manuals Pdf Tutor 1
Need sort to compare 2 datasets 1
JCL Error S878 1
What is the difference between CANCEL and INITIAL statement 1
Help regarding Career in Vision Plus, Mainframe 1
S322 abend while sorting records 1
EZT+ Date manipulation - How do I subtract 30 days sysdate 1
How to convert Julian date format into yyyymmdd date format? 1
Can any one let me know how to resolve +100,-805,-803. 1
QSAM 1
Reg: DDIO file in XPED 1
File STatus 41 1
what is STOP RUN OR GOBACK OR EXIT PROGRAM 1
Restart logic (Checkpoint logic) 1
Requirement in INAUTIX - CHENNAI Exp - 3 to 6 Years 1
Difference between physical and symbolic map 1
DB2 COMMIT?? 1
PL/I program - PROC OPTION various attributes 1
Converting Easytrev to EZTPA00 1
What is the difference between Static and Dynamic Binding? 1
I am beginer in db2 , why r using bind ,plan & packge? 1
COBOL MOVE CORRESPONDING DOUBT 1
Delete a column from a file 1
DFSORT - JOINKEYS 1
File-Aid Batch accessing copybook 1
How to check the return code of PROC 1
Copy of Fixed Length file into Variable Length File 1
how to download table data with out extra ? for null values 1
create a table in such a way that Delete cannot be used? 1
To get Volume Serial Number for Uncatalog Dataset 1
Call & Execute a COBOL-DB2 from a COBOL program? 1
UDS2000 utility program 1
Omitt records from sort but still include them in output 1
To match and remove duplicate records from two files. 1
make a output file from two input files on certain condition 1
In jcl please help me. 1
Appending data to a PDS using REXX 1
CA-7 standby 1
HOW TO INCREASE DATASET SPACE 1
JCL to Purge All Held output? 1
To delete a segment in an IMS DB & create XREF using INS 1
What are the contents of a DCLGEN? 1
XREF Creation 1
why include can't be used in procedure division? 1
What is DCLGEN ? 1
EDIT a STRING 1
Multiple Conditions to Copy a File 1
searching for a special character through sort 1
Join on keys and replace when matched 1
Access DB2 region using rexx 1
Regarding Restart card in JCL 1
Is it possible to add timestamp in the Header Record? 1
Inserting a Delimiter 1
utility IKJEFT1B 1
LEFT OUTER JOIN IN COBOL VSE ENVIRONMENT 1
delete a record in ps file. 1
Getting Error while using ICEMAN tool 1
Dynamic name allocation to a file 1
hai 1
How do you retrieve the data from a nullable column? 1
DFHAC2016 - Trans XXXX cannot run because program XXX is Not 1
Array setup 1
Copying GDG 1
PARM PARAMETER 1
DFSORT Sorting a pack decimal field. 1
SORTCARD help 1
How to delete PDS member alone thru a jcl 1
link-edit error 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1
Capgemini Mainframe opportunity 1
how to split files which has header and trailor 1
Difference between internal sort and external sort 1
How to use XREF.. 1
Icetool- Splicing : More than one compare key 1
DB2 checkpoint-restart doubts 1
sort the input file excluding the trailer record 1
Ezyedit selsection panel 1
Add Header and Trailer record also display the recod Count 1
LINKING of Sub-Program 1
Comapare Two Records in the same File
Goto page 1, 2  Next
 
Post new topic   This topic is locked: you cannot edit posts or make replies.    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities
  View previous topic :: View next topic  
Author Message
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Apr 29, 2011 10:47 am    Post subject: Comapare Two Records in the same File Reply with quote

Code:
S.no   Name   dept   salary   dept
1      Raul   Real   2000     S&F
2      Raul   ACM    1000     R&D
3      Raul   ACM    1000     K&P


I have to read the first recoed and comapre fields in it with the fields in the second record.
When ever there is a mis match i have have to write it to the output recoed and set a indicator.


For example, When i comapre the first record with second in the above example, field dept in record
one is different from record 2

The output should be like

Code:
S.no   Name   NewTeam OldTeam OldSal   NewSal NewDept Old Dept

1      Raul    real     ACM


Again start comparing, if salary field in record1 is not = to salary field in record2, again write a
output record.

Code:
S.no   Name   NewTeam OldTeam   NewSal   OldSal NewDept OldDept
1      Raul                     2000     1000

Again start comparing, if Dept field in record1 is not = to Dept field in record2, again write a
output record.

Code:
S.no   Name   Newteam Oldteam   NewSal   NewSal   NewDept   Olddept
1   Raul                                              S&F   R&D


Thanks,
Raul
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sat Apr 30, 2011 3:17 am    Post subject: Reply with quote

It's not really clear to me what you want.

Do you only want to compare record 1 and record 2, or do you also want to compare other records, e.g. record 2 and record 3?

Do you want one output file with all of the indicator records or do you want a separate output file for each type of indicator record (3 indicators)? What do you want to do if a field from record 1 matches the field from record 2 (e.g. the dept fields match) - not write any output record?

Please show a better example of your input records and the expected output including compares on more than just record 1 and 2 if you need that, and matching and non-matching fields. Give the RECFM and LRECL of your input file. Give the starting position, length and format of each relevant field.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Jun 22, 2011 1:29 pm    Post subject: Reply with quote

Dear Frank,

Sorry to confuse you... PLease find the example below

Code:
Merged File:         
            
Custid   Name   email    Salary   date
111   Sandeep   gmail   60000   14-May-11
111   Sandeep   yahoo   60000   01-May-11
111   Sandeep   gmail   60000   01-Mar-11
111   Sandeep   gmail   60000   01-Feb-11
111   Sandeep   gmail   60000   01-Jan-11
222   Raul      gmail   60000   01-Jan-11


In the above file if you look at the 3rd ,4th and 5th records, they are same execpt date. So i want to delete the 4th & 5th record.

Code:
ExpectedOutput:
Merged            
            
Custid   Name   email    Salary   date
111   Sandeep   gmail   60000   14-May-11
111   Sandeep   yahoo   60000   01-May-11
111   Sandeep   gmail   60000   01-Mar-11
222   Raul      gmail   60000   01-Jan-11


The RECFM is FB and LRECL is 300 for both input/output files.
Length of all the feilds is 10.

Regards,
Ravi
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Jun 22, 2011 9:37 pm    Post subject: Reply with quote

Quote:
In the above file if you look at the 3rd ,4th and 5th records, they are same execpt date. So i want to delete the 4th & 5th record.


The first record is also the same, so do you really want to delete the 3rd, 4th and 5th records? You could do that with these control statements:

Code:

  OPTION EQUALS                         
  SORT FIELDS=(1,40,CH,A)               
  SUM FIELDS=NONE                       


Note that if the input records were actually already in sorted order, you could use MERGE and SUM instead of SORT and SUM.

Or do you really want to do the deletes using the original unsorted order of the input records as your example implies?

Please explain what you really want to do more carefully.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Jun 23, 2011 11:23 am    Post subject: Reply with quote

Yes the input records were actually already in sorted order.

And i dont want to delete the 3rd record. I just want to delete the 4th and 5th records. Because I am trying to capture the changes done to the Customer details.

In the first record it is Gmail , and in the 2nd it is Yahoo, so there is a change. And the third record it is again gmail and it is also a change.So i want those records that got changes. But 4th and 5th are same as 3rd . so I want to delete them.

At a time i should compare only two records.
eg: 1 & 2 (Not same keep it) , 2 & 3(Not same keep it) , 3 & 4(same delete it) , 3 & 5 (same delete it).

PLease let me know if i am not clear.

Regards,
Ravi.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Jun 23, 2011 8:02 pm    Post subject: Reply with quote

Quote:
Yes the input records were actually already in sorted order.


The input records you show ARE NOT in sorted order by the first four fields. Sorted order would be:

Code:

111       Sandeep   gmail     60000     14-May-11       
111       Sandeep   gmail     60000     01-Mar-11       
111       Sandeep   gmail     60000     01-Feb-11       
111       Sandeep   gmail     60000     01-Jan-11       
111       Sandeep   yahoo     60000     01-May-11       
222       Raul      gmail     60000     01-Jan-11       


I'm going to assume that what you really want is to keep the records in their original unsorted order and remove duplicates. Here's a DFSORT job that will give you the output you showed for the input you showed. I don't know if that's actually what you want since I don't know if your example illustrates all of the possibilities. If it doesn't give you what you want for some set of records, show the input and expected output and explain the rules for getting from input to output.

Code:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file (FB/300)
//SORTOUT DD DSN=...  output file (FB/300)
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    BUILD=(1,300),
    SECTIONS=(1,40,
      HEADER3=(1,300))
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Jul 01, 2011 10:11 am    Post subject: Reply with quote

Code:
Input:
Custid Name     email    Salary    date
111    Frank    gmail     60000    20110514
111    Frank    yahoo     60000    20110501
111    Frank    gmail     60000    20110301
111    Frank    gmail     60000    20110201
111    Frank    gmail     60000    20110101
222    Raul     gmail     60000    20110101

Output:
Custid Name     email    Salary    date
111    Frank    gmail     60000    20110514
111    Frank    yahoo     60000    20110501
111    Frank    gmail     60000    20110301
222    Raul     gmail     60000    20110101

The data in the above file is unloaded from the Maintenance table of customers.
Every month this table is updated with the current values.
IN addition to that if there are any changes made , are also written to the table.

So Frank have a total of 5 Records. But his 4th & 5th records are same as the 3rd one.
So when ever i compare two records, if all the coloums match execpt DATE, then delete that record.

If any two comsecutive records are same execpt date, then delete that record (duplicate).

Eg:
Record-1 is not equal to Record-2 ---- Write to output.
Record-2 is not equal to Record-3 ---- Write to output.
Record-3 is equal to Record-4 & Record5 (only date is different) ---- Delete Record4 & Record5

If we do the normal sort and remove duplicates, even the 3rd Record wil l be deleted, but i want the
3rd Record of Frank. As it is the initial value (gmail).

Hope its clear now....PLease let me know if it is not clear.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sat Jul 02, 2011 1:16 am    Post subject: Reply with quote

Here's a DFSORT job that will do what you asked for:

Code:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file (FB/300)
//SORTOUT DD DSN=...  output file (FB/300)
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    SECTIONS=(1,40,
      HEADER3=(1,300))
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
-1 votes
Not an useful post
Greate Post!! Salute Author
1 salutes

PostPosted: Tue Jul 05, 2011 4:21 pm    Post subject: Reply with quote

Dear Frank,

Thanks a lot, i am able to get the desired output.

Frank a column in the output file is blank, and i want to fill it with a unique number, like 1 , 2 3

Code:
Input               
Custid   Name   Unique No   email    Salary    date 
111      Frank              gmail   60000    20110514 
111      Frank              yahoo   60000    20110501 
111      Frank              gmail   60000    20110301 
222      Raul               gmail   60000    20110101

Output               
Custid   Name   Unique No   email    Salary    date 
111      Frank    1          gmail   60000    20110514 
111      Frank    2          yahoo   60000    20110501 
111      Frank    3          gmail   60000    20110301 
222      Raul     4          gmail   60000    20110101


Can you please help me out?
Files are FixedBlock and Lrec= 80. each feild length is 10.

Regards,
Ravi
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Tue Jul 05, 2011 11:05 pm    Post subject: Reply with quote

I can't tell from your example where you want the sequence number to start, how long you want it to be or what format you want it in. But you can just OVERLAY a sequence number where you want it using DFSORT statements like this:

Code:

  OPTION COPY                     
  INREC OVERLAY=(21:SEQNUM,5,ZD)   



Adjust the starting position, length and format (FS if you want to suppress leading blanks) as needed.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Jul 06, 2011 9:36 am    Post subject: Reply with quote

Terrific, it's working as i need........ Thanks a lot frank.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Jul 13, 2011 10:45 am    Post subject: Reply with quote

Hi Frank,

i am removed duplicates as below.

Code:
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file (FB/300)
//SORTOUT DD DSN=...  output file (FB/300)
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    SECTIONS=(1,40,
      HEADER3=(1,300))
/*

But now i have two file's. I need to first merge them in to single file and then remove duplicates as above. Can i add the merge step in the above job? how?

Raul
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Jul 13, 2011 10:27 pm    Post subject: Reply with quote

I have no idea what you're asking for.

You need to start over and give a clear description of what you're trying to do with a good example of input records and expected output records.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
raulravi
Member


Joined: 18 Apr 2011
Posts: 47
Location: India

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Jul 14, 2011 11:33 am    Post subject: Reply with quote

I Have a three files.


Code:
File1:
custid   Name   email   club
1        Ravi   gmail    real
1        Ravi   yahoo    real
2        kiran  gmail   fcb
2        kiran  gmail   fcb
3        arun   yahoo    manu
4        raja   rediff   fcb


Code:
File2:
Email Id   Code
Gmail      1111G
Yahoo      2222Y
Rediff     3333R
inbox      4444I



Code:
File3:
club   Code
real   aaa1
fcb    bbb2
manu   ccc3


I want to replace the Email & Club column's with respective codes.

Code:
Output file:
 output file         
         
custid   Name   email   club
1        Ravi   1111G   aaa1
1        Ravi   2222Y   aaa1
2        kiran  1111G   bbb2
2        kiran  1111G   bbb2
3        arun   2222Y   ccc3
4        raja   3333R   bbb2


How can i do that this replacement?

Raul
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Frank Yaeger
Moderator


Joined: 18 Feb 2006
Posts: 812
Location: San Jose, CA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Jul 15, 2011 12:53 am    Post subject: Reply with quote

Here's a DFSORT/ICETOOL job for your new requirement. I assumed your input files all had RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.

Code:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN1 DD *
1       ravi    gmail   real
1       ravi    yahoo   real
2       kiran   gmail   fcb
2       kiran   gmail   fcb
3       arun    yahoo   manu
4       raja    rediff  fcb
//IN2 DD *
gmail           1111G
yahoo           2222Y
rediff          3333R
inbox           4444I
//IN3 DD *
real    aaa1
fcb     bbb2
manu    ccc3
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY JKFROM TO(T1) USING(CTL1)
SORT JKFROM TO(OUT) USING(CTL2)
//CTL1CNTL DD *
  JOINKEYS F1=IN1,FIELDS=(17,6,A)
  JOINKEYS F2=IN2,FIELDS=(1,6,A)
  REFORMAT FIELDS=(F1:1,16,F2:17,6,F1:23,58)
  OPTION COPY
//CTL2CNTL DD *
  JOINKEYS F1=T1,FIELDS=(25,4,A)
  JOINKEYS F2=IN3,FIELDS=(1,4,A)
  REFORMAT FIELDS=(F1:1,24,F2:9,4,F1:29,52)
  SORT FIELDS=(1,1,ZD,A),EQUALS
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   This topic is locked: you cannot edit posts or make replies.    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities All times are GMT + 5 Hours
Goto page 1, 2  Next
Page 1 of 2



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts What are all the COBOL compilers available? 6 Sweetu 14509 Mon Feb 01, 2016 10:48 pm
academyindia4 View latest post
No new posts Reg: Different operating systems in mainframes 2 156138 6684 Mon Feb 01, 2016 1:35 am
academyindia4 View latest post
No new posts compare 2 files with different LRECL 13 nina 17008 Mon Feb 01, 2016 1:34 am
academyindia4 View latest post
No new posts Different forms of Case -when (loop handling) in Eazytrieve 3 Avani 10273 Mon Feb 01, 2016 1:34 am
academyindia4 View latest post
No new posts Copy records for matching key appearing at different places. 4 rangab 7157 Tue Feb 03, 2009 11:36 pm
rangab View latest post
 


Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-5784.html