Priyanka Pyne
New User
Joined: 09 Feb 2008 Posts: 95 Location: India
|
|
|
|
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=©.,
$$FILEM LANG=COBOL,
$$FILEM SKIPOLD=0,
$$FILEM CMPOLD=ALL,
$$FILEM TCNEW=©.,
$$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? |
|
Ed Goodman
Active Member
Joined: 08 Jun 2011 Posts: 556 Location: USA
|
|
|
|
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. |
|