Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to compares code(program) which is in different PDS ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Thu Jun 02, 2011 5:17 pm    Post subject: How to compares code(program) which is in different PDS ?
Reply with quote

Hi ,
I want to compare program which is in different PDS.by using 3.13 SuperC option we can compare. but my requirement is to compare the code from coloumn 7 to 72 only.please help me
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Thu Jun 02, 2011 5:24 pm    Post subject:
Reply with quote

Why not use the ISPF help facility, which is quite extensive? Hint: look at CMPCOLM.
Back to top
View user's profile Send private message
chandracdac

New User


Joined: 15 Jun 2007
Posts: 88
Location: bangalore

PostPosted: Mon Jun 06, 2011 12:01 pm    Post subject: Reply to: How to compares code(program) which is in differe
Reply with quote

You can use the edit statements in 3.13 . Goto options tab in 3.13 and select edit statements and follow the instructions written over there.

Thanks,
Chandra.
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Mon Jun 06, 2011 12:40 pm    Post subject:
Reply with quote

Thanks a lot!!! Option is working fine..i need a rexx utility in that i need give input PDS names and Program name , utility should compare 7 to 72 only...





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

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jun 06, 2011 1:40 pm    Post subject:
Reply with quote

Why REXX when the functionality already exists using 3.13
Back to top
View user's profile Send private message
chandracdac

New User


Joined: 15 Jun 2007
Posts: 88
Location: bangalore

PostPosted: Mon Jun 06, 2011 1:49 pm    Post subject: Reply to: How to compares code(program) which is in differe
Reply with quote

Yes why do we need REXX code for comparison. If you want to re use the code by changing the datasets only then just do the same thing as batch job( i mean submit 3.13 as batch job).

Thanks,
Chandra
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Mon Jun 06, 2011 2:00 pm    Post subject:
Reply with quote

Ok
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jun 06, 2011 2:35 pm    Post subject:
Reply with quote

for crying out loud!
Code:

Listing DSN  . . . . 'TTGI.BRENHOD.SUP315.COBOL'
Process Options  . .ANYC

Statements Dsn . . . 'TTGI.BRENHOD.SRCHPARM(CMPCOLS)'
Update DSN . . . . .


in the statements dsn line, enter a pds member name (or ps file) which has the
cmpcols, (as well as any other statements you want). here is a partial list,
PF1 in 3.13 and enter and then 8 and enter (twice)
Code:

Line-Compare:
     CHNGV    CMPCOLM  CMPCOLMN CMPCOLMO CMPLINE  CMPSECT  COLHEAD
     DPLINE   DPLINEC  LNCT     LSTCOLM  NCHGT    NEXCLUDE NFOCUS   NTITLE
     NY2AGE   NY2C     NY2D     NY2P     NY2Z     OCHGT    OEXCLUDE OFOCUS
     OTITLE   OY2AGE   OY2C     OY2D     OY2P     OY2Z     REVREF
     SELECT   SLIST    Y2PAST   ".*"     "*"
Word-Compare:
     CHNGV    CMPCOLM  CMPCOLMN CMPCOLMO CMPLINE  DPLINE
     DPLINEC  LNCT     NCHGT    NTITLE   OCHGT    OTITLE   REVREF
     SELECT   SLIST    ".*"     "*"
Byte-Compare:                       File-Compare:
     CHNGV    CMPBOFS  LNCT              LNCT     NEXCLUDE NFOCUS
     NTITLE   OTITLE                     NTITLE   OEXCLUDE OFOCUS   OTITLE
     SELECT   SLIST    ".*"     "*"      SELECT   SLIST    ".*"     "*"



there is also the process option input area, where you enter the options.
Found by PF1, enter, 7 and enter (twice)
Code:


 1 Line-Compare:
     ALLMEMS ANYC    APNDLST APNDUPD CKPACKL CNPML   COBOL   COVSUM  DLMDUP
     DLREFM  DPACMT  DPADCMT DPBLKCL DPCBCMT DPCPCMT DPFTCMT DPMACMT DPPLCMT
     DPPSCMT FMVLNS  GWCBL   LOCS    LONGLN  MIXED   NARROW  NOPRTCC NOSEQ
     NOSUMS  REFMOVR SEQ     UPDCMS8 UPDCNTL UPDLDEL UPDMVS8 UPDPDEL UPDREV
     UPDREV2 UPDSEQ0 UPDSUMO WIDE    Y2DTONLY
 2 Word-Compare:
     ALLMEMS ANYC    APNDLST APNDUPD CKPACKL COBOL   COVSUM
     DPACMT  DPADCMT DPBLKCL DPCBCMT DPCPCMT DPFTCMT DPMACMT DPPLCMT DPPSCMT
     GWCBL   LOCS    MIXED   NOPRTCC NOSEQ   NOSUMS  SEQ
     UPDCNTL UPDREV  UPDREV2 UPDSUMO XWDCMP
 3 Byte-Compare:                         4 File-Compare:
     ALLMEMS APNDLST APNDUPD COVSUM          ALLMEMS APNDLST COVSUM  FMSTOP
     NOPRTCC NOSUMS  LOCS                    LMCSFC  LOCS    NOPRTCC
     UPDCNTL UPDSUMO



I often use ANYC because I work with idiots that sometimes write code in all caps, and then decide to use CamelScript,
which makes comparing files/source code a real pain in the butt.

LEARN ABOUT YOUR TOOLS
this is the second stupid comment about writing rexx tools,
to do something that is already available.
Back to top
View user's profile Send private message
valyk

Active User


Joined: 16 Apr 2008
Posts: 104
Location: South Carolina

PostPosted: Mon Jun 06, 2011 9:14 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
because I work with idiots


Made me icon_lol.gif
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 641
Location: Whitby, ON, Canada

PostPosted: Mon Jun 06, 2011 10:15 pm    Post subject:
Reply with quote

You can also use the ISPF Edit COMPARE subcommand.

I use it all the time when I want to merge changes from another version of the program I am working on.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us