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
 

 

ABENDED S000 U0016 CN(INTERNAL)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
narendrabade

New User


Joined: 27 Jan 2011
Posts: 6
Location: Pune

PostPosted: Tue Apr 23, 2013 8:52 pm    Post subject: ABENDED S000 U0016 CN(INTERNAL)
Reply with quote

My requirement is : Compare records in file1 and file2 with column position from 12 to 25 and Write all records which are ONLY present in File1 and not in FILE2.


I ran below 2 Jobs but getting Job abend ABENDED S000 U0016 CN(INTERNAL) . I referred and go through earlier post about same abend, but nothing helped me.

I write below JCL to get non duplicates from input file.

Code:
//TNLNSB2  JOB 0000,'NDV SCAN',CLASS=D,MSGCLASS=U,NOTIFY=TNLNSB     
//STEP004 EXEC PGM=ICETOOL                                         
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//SYSPRINT DD SYSOUT=*                                             
//SYSOUT   DD SYSOUT=*                                             
//SORTIN   DD DSN=TNL.OUTPUT.OUT3,DISP=SHR                         
//         DD DSN=TNL.LV1A.CR.CRLIST.LOADFILE.DT0422,DISP=SHR       
//NODUPES  DD DSN=TNL.OUTPUT.OUT4,DISP=SHR                         
//TOOLIN   DD *                                                     
 SELECT FROM(SORTIN) TO(NODUPES) -                                 
 ON(12,14,CH) NODUPS                                               
/*                                                                 
//                                                                 


in DFSMSG : below got populated.

Code:
PARMLIST :                                                                   
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=SORTIN,SORTOUT=NODUPES,DYNALLOC,C
MP=CLC,NOVLSHRT,EQUALS                                                       
SORT FIELDS=(00012,0014,CH,A)                                                 
MODS E35=(SYNCT$35,4096,,N)                                                   
WER428I  CALLER-PROVIDED IDENTIFIER IS "0001"                                 
WER276B  SYSDIAG= 477547, 4795652, 4795652, 5381250                           
WER164B  24,596K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,           
WER164B     0 BYTES RESERVE REQUESTED, 992K BYTES USED                       
WER146B  32K BYTES OF EMERGENCY SPACE ALLOCATED                               
WER108I  SORTIN   : RECFM=FB   ; LRECL=   143; BLKSIZE= 27885                 
WER110I  NODUPES  : RECFM=FB   ; LRECL=   143; BLKSIZE= 27885                 
WER171A  CONCAT DS, LRECLS NE OR RECFMS DIFF     
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000     
******************************* BOTTOM OF DATA ****

Please let me know if I need to paste anything?

As above JCL is not workinhg, I tried other way. I know, above JCL will not help me what I wanted but i am concerned with Job abend.

2. Below Job is just used to select records from F1 and not F2

Code:
//TNLNSB3  JOB 0000,'NDV SCAN',CLASS=D,MSGCLASS=U,NOTIFY=TNLNSB     
//JK3      EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SORTJNF1 DD DSN=TNL.LV1A.CR.MERGED.TRIGGER.SORTED.DT0419,DISP=SHR
//SORTJNF2 DD DSN=TNL.LV1A.CR.MERGED.TRIGGER.G0001.DT0420,DISP=SHR 
//SORTOUT DD DSN=TNL.OUTPUT.OUT1,DISP=SHR                           
//SYSIN DD *                                                       
 JOINKEYS F1=IN1,FIELDS=(12,14,A)                                   
 JOINKEYS F2=IN2,FIELDS=(12,14,A)                                   
 JOIN UNPAIRED,F1,ONLY                                             
 SORT FIELDS=COPY                                                   
/*                                                                 

I got the same abend with below information in sysout:

Code:
SYSIN :                                       
 JOINKEYS F1=IN1,FIELDS=(12,14,A)             
          *                                   
 JOINKEYS F2=IN2,FIELDS=(12,14,A)             
          *                                   
 JOIN UNPAIRED,F1,ONLY                         
 SORT FIELDS=COPY                             
WER268A  JOINKEYS STATEMENT: SYNTAX ERROR     
WER268A  JOINKEYS STATEMENT: SYNTAX ERROR     
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000 



Please help me in this..

Code'd
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7997
Location: Bellevue, IA

PostPosted: Tue Apr 23, 2013 9:03 pm    Post subject:
Reply with quote

Quote:
WER171A CONCAT DS, LRECLS NE OR RECFMS DIFF
Here is your root problem. Your concatenated SORTIN data sets do not have the same LRECL, or one is FB and one is VB.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7307

PostPosted: Tue Apr 23, 2013 9:56 pm    Post subject: Reply to: ABENDED S000 U0016 CN(INTERNAL)
Reply with quote

Please use the Code tags.

You don't have the "same" abend in the second JOB.

You have a Syntax error. Check the JOINKEYS syntax for SyncSort (examples in this forum).
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Apr 23, 2013 11:01 pm    Post subject:
Reply with quote

As Bill has correctly suggested, try this:
Code:
//SYSIN DD *                                                       
 JOINKEYS FILE=F1,FIELDS=(12,14,A)                                   
 JOINKEYS FILE=F2,FIELDS=(12,14,A)                                   
 JOIN UNPAIRED,F1,ONLY                                             
 SORT FIELDS=COPY                                                   
/*

For second Job you already have a hint from Robert.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Getting soc4 on internal table in cobol abdulrafi COBOL Programming 13 Fri May 06, 2016 3:39 pm
No new posts IMS - DB2 ABEND=S000 U3042 vicky10001 IMS DB/DC 3 Tue Dec 29, 2015 8:51 pm
No new posts Skipping a record from Internal SORT Keanehelp COBOL Programming 4 Tue Jul 28, 2015 9:15 pm
No new posts Fastload abended with S222 chetanambi CA Products 5 Sun Jun 14, 2015 10:02 am
This topic is locked: you cannot edit posts or make replies. How to Compare two values in an inter... ritnihi COBOL Programming 6 Wed Jun 10, 2015 11:49 am


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