Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
PS comparision using SORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
vasudhask

New User


Joined: 08 Jul 2008
Posts: 4
Location: UK

PostPosted: Tue Jul 08, 2008 5:21 pm    Post subject: PS comparision using SORT
Reply with quote

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
View user's profile Send private message
References
PostPosted: Tue Jul 08, 2008 5:21 pm    Post subject: Re: PS comparision using SORT Reply with quote

Robert Sample

Active User


Joined: 06 Jun 2008
Posts: 290
Location: Atlanta, GA

PostPosted: Tue Jul 08, 2008 5:33 pm    Post subject:
Reply with quote

ISPF 3.13 can handle this if the parameters are set correctly. Use byte compare and listing type delta.
Back to top
View user's profile Send private message
vasudhask

New User


Joined: 08 Jul 2008
Posts: 4
Location: UK

PostPosted: Wed Jul 09, 2008 1:49 pm    Post subject:
Reply with quote

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
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 131
Location: trichy

PostPosted: Thu Jul 10, 2008 2:24 pm    Post subject: Reply to: PS comparision using SORT
Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1