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
 

 

Functions of insync commands used in JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
JJXANTONY

New User


Joined: 12 Mar 2010
Posts: 3
Location: Chennai

PostPosted: Fri Mar 12, 2010 3:38 pm    Post subject: Functions of insync commands used in JCL
Reply with quote

Could you give me the result of the following INSYNC commands used in JCL:

FUNCTION=COMPARE
INDD1=#INDD1
INDD2=#INDD2
RDW=OFF
LINESPERPAGE=065
PRINTHORIZ=YES
MASK=(96,15)
KEYNC=(1,5) [/b]

In the INSYNC step of JCL, 2 input files are given and 6 output files are written in output.
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Mar 12, 2010 9:17 pm    Post subject:
Reply with quote

Hello and welcome to the forum,

Suggest you post the complete jcl. . .
Back to top
View user's profile Send private message
JJXANTONY

New User


Joined: 12 Mar 2010
Posts: 3
Location: Chennai

PostPosted: Sat Mar 13, 2010 12:36 pm    Post subject: JCL which executes the above INSYNC command:
Reply with quote

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=*                             
//*
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts Invoking CA 7 commands through REXX kenshin CLIST & REXX 10 Fri Aug 12, 2016 9:33 pm
No new posts Execute multiple DB2 Load commands in... faizm DB2 4 Wed Aug 03, 2016 12:53 pm
No new posts Regd Date Functions in Syncsort muralikrishnan_new SYNCSORT 2 Fri Jul 01, 2016 8:21 pm


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