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
 

 

Creating comparison tool

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Wed Aug 10, 2011 10:38 pm    Post subject: Creating comparison tool
Reply with quote

Hi,

I am trying to create mainframe a tool which will compare two files. User can mention the file name and the layout through the panel which I have already designed.
I have created a Skel jcl where these file names are getting substituted and a compare job is getting submitted. I am using file manager utility to compare the files.
Now, the problem I am facing is I want to do a key comparison and I am not sure how to give the key field,position, length in my batch job.
Code:
//FILEMGR  EXEC PGM=FMNMAIN
//STEPLIB  DD DISP=SHR,DSN=SYS1.FILEMNGR.SFMNMOD1                 
//         DD DISP=SHR,DSN=SYSC090.COBOLZOS.PROD.SIGYCOMP         
//*FMNCOB  DD DUMMY     Uncomment to force use of FM COBOL Compiler
//SYSPRINT DD SYSOUT=*                                             
//FMNTSPRT DD SYSOUT=*                                             
//SYSTERM  DD SYSOUT=*                                             
//SYSIN    DD *                                                   
$$FILEM DSCMP TYPE=FORMATTED,                                     
$$FILEM PACK=UNPACK,                                               
$$FILEM SYNCH=KEYED,                                               
$$FILEM LIST=LONG,                                                 
$$FILEM WIDE=YES,                                                 
$$FILEM IGNLEN=YES,                                               
$$FILEM EXCLUDE=(,,MATCHED,),                                     
$$FILEM NUMDIFF=ALL,                                               
$$FILEM DSNOLD=&FILE1.,                                           
$$FILEM TCOLD=&COPY.,                               
$$FILEM LANG=COBOL,                                 
$$FILEM SKIPOLD=0,                                 
$$FILEM CMPOLD=ALL,                                 
$$FILEM TCNEW=&COPY.,                               
$$FILEM SKIPNEW=0,                                 
$$FILEM CMPNEW=ALL,                                 
$$FILEM DSNNEW=&FILE2.                             
/*                                                 
//FMINSOUT DD DSN=ORD.&USERNME..TEST.INSERTED.T,   
//         DISP=(,CATLG,DELETE),                   
//         SPACE=(TRK,(1,1),RLSE),                 
//         DCB=(MODELDCB,DSORG=PS,RECFM=FB,LRECL=80)
//FMDELOUT DD DSN=ORD.&USERNME..TEST.DELETED.T,     
//         DISP=(,CATLG,DELETE),                   
//         SPACE=(TRK,(1,1),RLSE),                 
/         DCB=(MODELDCB,DSORG=PS,RECFM=FB,LRECL=80)
/FMNCHOUT DD DSN=ORD.&USERNME..TEST.CHANGED.T,     
/         DISP=(,CATLG,DELETE),                   
/         SPACE=(TRK,(1,1),RLSE),                 
/         DCB=(MODELDCB,DSORG=PS,RECFM=FB,LRECL=80)


Can anyone help me out?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Wed Aug 10, 2011 10:46 pm    Post subject: Reply to: Creating comparison tool
Reply with quote

Is this a File Manager question, or is it a question about the content of your ISPF Skeleton member?
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Wed Aug 10, 2011 11:07 pm    Post subject: Reply to: Creating comparison tool
Reply with quote

Yes. Actually I am confused about the JCL structure. I code till this part and am not sure where and how to mention the key position and length for the key comparison.
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Thu Aug 11, 2011 12:51 am    Post subject:
Reply with quote

On mine, when I let FM make the JCL for me, it added these fields:

$$FILEM KEYLOCOLD=136,
$$FILEM KEYLOCNEW=136,
$$FILEM KEYLEN=12,
$$FILEM KEYTYPE=CHAR,

This was for a variable length file, and the positions do NOT include the RDW.
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Thu Aug 11, 2011 3:07 am    Post subject:
Reply with quote

Thanks Ed. It helped.
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 -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need info on EIBCPOSN value in IBM FA... subratarec CICS 11 Wed Jul 12, 2017 3:45 pm
No new posts CICS NEW SIT PARAMETERS CICS BEHAVIOR... Kyle Carroll CICS 0 Fri Nov 04, 2016 11:55 pm
No new posts Interface from Mainframe to Confluenc... hblun CLIST & REXX 4 Tue Sep 20, 2016 5:47 pm
No new posts Creating an 'Enter' event with IMS MF... dileep chirasani Java & MQSeries 1 Sat Aug 06, 2016 2:23 am
No new posts Creating a dynamic sort card in JCL u... ChitraChhabra DFSORT/ICETOOL 4 Wed Aug 03, 2016 6:15 pm


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