JJXANTONY
New User
Joined: 12 Mar 2010 Posts: 3 Location: Chennai
|
|
|
|
Dick,
Please find below the JCL step which executes the INSYNC commands:
Code: |
//R060 EXEC PGM=INSYNC,COND=(0,NE)
//#LOG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//#PRINT DD DSN=&P..TPS045DP.R060.INSYNC.PNS,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(400,(26953,4043),RLSE),
// DCB=(RECFM=FB,LRECL=400)
//#CMPISRT DD DSN=&P..TPS045DP.R060.PNS.INSERTS,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#CMPDLET DD DSN=&P..TPS045DP.R060.PNS.DELETES,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#CMPCHG1 DD DSN=&P..TPS045DP.R060.PNS.CHANGE1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#CMPCHG2 DD DSN=&P..TPS045DP.R060.PNS.CMPCHG2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#CMPMAT1 DD DSN=&P..TPS045DP.R060.PNS.MATCH1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#CMPMAT2 DD DSN=&P..TPS045DP.R060.PNS.MATCH2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// AVGREC=K,
// STORCLAS=PERM,
// SPACE=(117,(30591,4589),RLSE),
// DCB=(RECFM=FB,LRECL=117)
//#INDD1 DD DSN=&P..TPS045DP.R020.TPSBRKS.PNS,
// DISP=SHR
//#INDD2 DD DSN=&P..TPS045DP.R040.OLBPNS.SORTOUT,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=A
//#PARM DD *
FUNCTION=COMPARE
INDD1=#INDD1
INDD2=#INDD2
RDW=OFF
LINESPERPAGE=065
PRINTHORIZ=YES
MASK=(96,15)
KEYNC=(1,1,
3,9,
28,1,
30,10,
40,10,
50,19,
69,3,
73,19,
92,4)
/*
//CEEDUMP DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//* |
|
|