IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Creating comparison tool


IBM Mainframe Forums -> IBM Tools
Post new topic   Reply to topic
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
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

Global Moderator


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

PostPosted: Wed Aug 10, 2011 10:46 pm
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IBM Tools

 


Similar Topics
Topic Forum Replies
No new posts Creating Unix Directory using COBOL i... COBOL Programming 2
No new posts Error while running web tool kit REXX... CLIST & REXX 5
No new posts Creating Report using SORT DFSORT/ICETOOL 7
No new posts Mass JCL release via IDZ tool(eclipse... CA Products 1
No new posts Creating CSV file from Variable recs ... DFSORT/ICETOOL 11
Search our Forums:

Back to Top