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
 

 

JoinKeys problem - ICE043A

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Tue Jun 16, 2015 5:33 pm    Post subject: JoinKeys problem - ICE043A
Reply with quote

Hi,

Im running this step
Code:
//UNMATCH  EXEC PGM=SORT                                     
//SYSOUT   DD SYSOUT=*                                       
//IN1      DD DISP=SHR,DSN=XXXXXXXX.FILE1
//IN2      DD DISP=SHR,DSN=XXXXXXXX.FILE2       
//SORTOUT  DD DSN=XXXXXXXX.FILE3,               
//            DISP=(NEW,CATLG,DELETE),                       
//            UNIT=DISK,SPACE=(CYL,(1,1),RLSE),               
//            DCB=(DSORG=PS,RECFM=FB,LRECL=200)               
//SYSIN    DD *                                               
  JOINKEYS F1=IN1,FIELDS=(15,23,A)                           
  JOINKEYS F2=IN2,FIELDS=(15,23,A)                           
  JOIN UNPAIRED,ONLY                           
  OUTFIL BUILD=(1,200)       
  OPTION COPY                                                 

but having an abend of
Code:
ICE043A 6 INVALID DATA SET ATTRIBUTES: SORTOUT  RECFM   - REASON CODE IS 03


I search what the meaning of the abend in this link

and it tells this:
Input data sets have mixed fixed length and
variable length record formats, or mixed valid and
invalid record formats. Examples: Concatenated
SORTIN data sets have RECFM=FB and
RECFM=VB. The SORTIN01 data set has
RECFM=V and the SORTIN02 data set has
RECFM=FB. Concatenated SORTIN data sets have
RECFM=VB and RECFM=U.

here's the info of the two inputs:

Code:
General Data                           Current Allocation               
 Management class . . : XXXXX           Allocated cylinders : 1         
 Storage class  . . . : XXXXX           Allocated extents . : 1         
  Volume serial . . . : XXXXXX                                         
  Device type . . . . : 3390                                           
 Data class . . . . . : **None**                                       
  Organization  . . . : PS             Current Utilization             
  Record format . . . : FB              Used cylinders  . . : 1         
  Record length . . . : 200             Used extents  . . . : 1         
  Block size  . . . . : 27800                                           
  1st extent cylinders: 1                                               
  Secondary cylinders : 1              Dates                           
  Data set name type  :                 Creation date . . . : 2015/06/16
  SMS Compressible. . : NO              Referenced date . . : 2015/06/16
                                        Expiration date . . : ***None***


Code:
General Data                           Current Allocation               
 Management class . . : XXXXX           Allocated cylinders : 1         
 Storage class  . . . : XXXXX           Allocated extents . : 1         
  Volume serial . . . : XXXXXX                                         
  Device type . . . . : 3390                                           
 Data class . . . . . : **None**                                       
  Organization  . . . : PS             Current Utilization             
  Record format . . . : FB              Used cylinders  . . : 1         
  Record length . . . : 200             Used extents  . . . : 1         
  Block size  . . . . : 27800                                           
  1st extent cylinders: 1                                               
  Secondary cylinders : 1              Dates                           
  Data set name type  :                 Creation date . . . : 2015/06/16
  SMS Compressible. . : NO              Referenced date . . : 2015/06/16
                                        Expiration date . . : ***None***


both the inputs are FB, and my output is FB, but the abend tells that im using a wrong RECFM,
i tried removing the RECFM and it completed successfully but the output becomes VB.
I expected it still to be FB.
Im glad if someone can clarify this.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Tue Jun 16, 2015 5:48 pm    Post subject: Reply to: JoinKeys problem - ICE043A
Reply with quote

You need to post the sysout from the step as well.
Back to top
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Tue Jun 16, 2015 6:11 pm    Post subject:
Reply with quote

ohh yes, that's what I forgot to put.
here it is.

SYSOUT
Code:
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                               
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN1      - SEE JNF1JMSG MESSAGES               
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN2      - SEE JNF2JMSG MESSAGES               
ICE419I 0 JOINED RECORDS: TYPE=V, LENGTH=204                                                 
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5                                       
ICE805I 1 JOBNAME: XXXXXXXX , STEPNAME: UNMATCH                                               
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                   
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                               
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE       
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:36 ON TUE JUN 16, 2015 - 
            JOINKEYS F1=IN1,FIELDS=(15,23,A)                                                 
            JOINKEYS F2=IN2,FIELDS=(15,23,A)                                                 
            JOIN UNPAIRED,ONLY                                                               
            OUTFIL BUILD=(1,200)                                                             
            OPTION COPY                                                                       
ICE043A 9 INVALID DATA SET ATTRIBUTES: SORTOUT  RECFM   - REASON CODE IS 13                   
ICE751I 0 C5-I12416 C6-K90026 C7-K94453 C8-K94453 E9-K60824 E7-I12416                         
ICE052I 3 END OF DFSORT           


JNF1MSG
Code:
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                                             
ICE751I 0 C5-I12416 C6-K90026 C7-K94453 C8-K94453 E4-K58148 C9-BASE   E5-K80744 E6-K94453 E7-I12416
ICE417I 0 THIS IS THE JOINKEYS F1 SUBTASK FOR IN1                                                 
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                                   
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE             
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:36 ON TUE JUN 16, 2015 -       
          SORT  FORMAT=BI,FIELDS=(15,23,A)                                                         
          RECORD TYPE=F                                                                           
          DEBUG NOABEND,ESTAE                                                                     
          OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF1,MSG*                 
                         DDN=JNF1JMSG,SORTIN=IN1                                                   
ICE805I 0 JOBNAME: XXXXXXXX , STEPNAME: UNMATCH                                                   
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                       
ICE410A 0 JOINKEYS APPLICATION TERMINATED - SEE SYSOUT   MESSAGES                                 
ICE052I 3 END OF DFSORT 


JNF2MSG
Code:
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                                               
ICE751I 0 C5-I12416 C6-K90026 C7-K94453 C8-K94453 E4-K58148 C9-BASE   E5-K80744 E6-K94453 E7-I12416
ICE417I 0 THIS IS THE JOINKEYS F2 SUBTASK FOR IN2                                                 
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                                   
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE             
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:36 ON TUE JUN 16, 2015 -       
          SORT  FORMAT=BI,FIELDS=(15,23,A)                                                         
          RECORD TYPE=F                                                                           
          DEBUG NOABEND,ESTAE                                                                     
          OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*                 
                         DDN=JNF2JMSG,SORTIN=IN2                                                   
ICE805I 0 JOBNAME: XXXXXXXX , STEPNAME: UNMATCH                                                   
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                       
ICE410A 1 JOINKEYS APPLICATION TERMINATED - SEE SYSOUT   MESSAGES                                 
ICE052I 3 END OF DFSORT                           
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Jun 16, 2015 6:35 pm    Post subject: Reply to: JoinKeys problem - ICE043A
Reply with quote

check again ...
that' s not what sort thinks !

Code:
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                               
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN1      - SEE JNF1JMSG MESSAGES               
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN2      - SEE JNF2JMSG MESSAGES               
ICE419I 0 JOINED RECORDS: TYPE=V, LENGTH=204                                                 
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5                                       
ICE805I 1 JOBNAME: XXXXXXXX , STEPNAME: UNMATCH                                               
ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL                                                   
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED   
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Tue Jun 16, 2015 6:57 pm    Post subject: Reply to: JoinKeys problem - ICE043A
Reply with quote

boyti ko,

Quote:
JOIN UNPAIRED,F1,F2,ONLY or JOIN UNPAIRED,ONLY
The joined records will be variable-length. If the F1 records are
fixed-length, each unpaired F1 record will be variable-length with an RDW
followed by the original F1 record. If the F1 records are variable-length,
each unpaired F1 record will be the original F1 record. If the F2 records are
fixed-length, each unpaired F2 record will be variable-length with an RDW
followed by the original F2 record. If the F2 records are variable-length,
each unpaired F2 record will be the original F2 record.


Since your records are the same length, use OUTFIL with VTOF and a BUILD for 5,200.

EDIT: fixed 5,200 from 1,200, si the data input is obviously variable.
Back to top
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Wed Jun 17, 2015 6:20 am    Post subject:
Reply with quote

Hi to all,

I have resolved it, thanks to all of you, using this:

Code:
  OUTFIL VTOF,BUILD=(5,200)


Now my output is also FB as I expect it to be.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Joinkeys operation when key1 and key2... Susanta DFSORT/ICETOOL 5 Wed Nov 02, 2016 5:35 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts Joinkeys operation betwen VB and FB file Susanta SYNCSORT 4 Sun Sep 25, 2016 9:49 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm


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