IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
 

PS comparision using SORT

THIS IS AN ARCHIVE FORUM: CLICK HERE TO GO TO THE ORIGINAL TOPIC

 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> DFSORT/ICETOOL
View previous topic :: View next topic  
Author Message
vasudhask



Joined: 08 Jul 2008
Posts: 4
Location: UK
Posted: Tue Jul 08, 2008 5:21 pm    Post subject: PS comparision using SORT  
I want to compare two PS datasets of LRECL 1000 and get byte-by-byte differences in the output file. I need an output file with differences for all 1000 characters. Can this be handled through SORT?

Thanks,
Back to top  
Robert Sample



Joined: 06 Jun 2008
Posts: 943
Location: Atlanta, GA
Posted: Tue Jul 08, 2008 5:33 pm    Post subject:  
ISPF 3.13 can handle this if the parameters are set correctly. Use byte compare and listing type delta.
Back to top  
vasudhask



Joined: 08 Jul 2008
Posts: 4
Location: UK
Posted: Wed Jul 09, 2008 1:49 pm    Post subject:  
Robert, Thanks for your suggestion. We have already tried with these parameters. But the result we got was file with just first 80 characters of the record (output PS of LRECL 80). What I am looking for is output should be of same LRECL as that of input.
Back to top  
karthikr44



Joined: 25 Aug 2007
Posts: 172
Location: Chennai
Posted: Thu Jul 10, 2008 2:24 pm    Post subject: Reply to: PS comparision using SORT  
Hi,

If you have File Master in your shop they try the below JCL,


Code:
//* POSITION SELETS THE THE ROW FROM 1 TO 72 FOR PROCESSING     
//JSTP0010 EXEC PGM=CAWABATC                                     
//SYSPRINT DD SYSOUT=*                                           
//SYSLIST DD SYSOUT=*                                           
//SYSUT1  DD DSN=DEV2.CART.TO.DASD.PROC1(CMDCPD21),DISP=SHR     
//SYSUT1N DD DSN=DEV2.CART.TO.DASD.PROC(CMDCPD21),DISP=SHR       
//SYSIN DD *                                                     
  COMPARE POSITION(1,72)                                         
/*                                                               


Output i got is
Code:
2----+----3----+----4----+----5----+----6----+----7----+----
 ENCODING="UTF-8"?><IMS:SHOWINVOICE XMLNS:OA="HTTP:/       
 ENCODING="UTF-8"?>.<IMS:SHOWINVOICE XMLNS:OA="HTTP:/       
                   ***************************** ****       
                                                           
                                                           


It indicate the changes as *.

Regards
R KARTHIK
Back to top  
 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> DFSORT/ICETOOL
Page 1 of 1
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM