Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SYNCSORT - Packed decimal comaprison between 2 files

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

New User


Joined: 06 Mar 2009
Posts: 13
Location: chennai

PostPosted: Wed Jun 16, 2010 3:59 pm    Post subject: SYNCSORT - Packed decimal comaprison between 2 files
Reply with quote

Hi all,

I have 2 files that needs to be compared.

File1
RECFM = F and record length 403. Field to be compared is PD and starts in Pos 8 and of 6 bytes length

File2
RECFM = FB and record length 76. Field to be compared is PD and starts in Pos 1 and of 6 bytes length

My shop has only syncsort and I coded the following JCl,


Code:
//SORTCMP1 EXEC PGM=SORT
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT   DD  SYSOUT=*
//SORTJNF1 DD  DSN=MOP.IV100.V.INV.CONTROL.C,DISP=SHR
//SORTJNF2 DD  DSN=ISAAT.TEST.ACCOUNT.NO,DISP=SHR
//SORTOUT  DD  DSN=ISAAT.IV100.V.INV.CONTROL.C.MATCH,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=403)
//SYSIN    DD  *
  JOINKEYS FILE=F1,FIELDS=(8,6,A)
  JOINKEYS FILE=F2,FIELDS=(1,6,A)
  REFORMAT FIELDS=(F1:1,403,F2:1,76)
  INCLUDE COND=(8,6,PD,EQ,404,6,PD)
  SORT FIELDS=COPY
/*

The output contains no matching records. Actually there should be some matching records. Do I need to convert both PD field in both the files to ZD and do the comparision. Is PD comparision supported in SYNCSORT or else I code a Ezytrieve program for this?

Awaiting your help.

Thanks
Aravind
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Jun 16, 2010 4:04 pm    Post subject:
Reply with quote

What is the RECFM of your files, fixed or variable?
Back to top
View user's profile Send private message
Aravind_mf

New User


Joined: 06 Mar 2009
Posts: 13
Location: chennai

PostPosted: Wed Jun 16, 2010 4:06 pm    Post subject:
Reply with quote

File 1 is FIXED and File2 is FB.
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 Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm
No new posts Copy selected columns from 2 input fi... Poha Eater DFSORT/ICETOOL 3 Thu Nov 02, 2017 3:43 pm
No new posts Finding difference between two PS fil... Vignesh Sid SYNCSORT 5 Mon Oct 30, 2017 1:13 pm
No new posts NDM 300 files from mainframe to linux shreya19 All Other Mainframe Topics 2 Thu Oct 26, 2017 11:40 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us