IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ICE126A with FB and VB in input
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
frenaud

New User


Joined: 15 Feb 2010
Posts: 5
Location: PARIS
PostPosted: Fri Jun 04, 2010 7:31 pm
 Reply with quote
Hi all,
I want to put position (1,19) of the first record of SORTJNF1 in the SORTJNF2 at postion (254,19) , i have tried this but i get a code 16 withe the message in JNF2JMSG .

Have you an idea?
thks



Code:
JCL : 
//SORTJNF1 DD DISP=SHR,DSN=SYST04.TEST.TRI.NUMOUT     (FB 80)     
//SORTJNF2 DD DISP=SHR,DSN=SYST04.TEST.TRI.OUT3       (VB 4004)   
//SORTOUT  DD DSN=SYST04.TEST.TRI.TRIOUT,DISP=OLD     (VB 4004)   
//*                                                               
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  JOINKEYS FILES=F1,FIELDS=(1,12,A),TYPE=F                         
  JOINKEYS FILES=F2,FIELDS=(5,12,A),TYPE=V                         
  REFORMAT FIELDS=(F2:17,237,F1:13,19,F2:273,3732)                 
//JNF1CNTL DD *                                                   
  INREC BUILD=(SEQNUM,12,ZD,1,19)                                 
//JNF2CNTL DD *                                                   
  INREC BUILD=(SEQNUM,12,ZD,5,4000)                               
//**                                                               
 
 
JNF2JMSG : 
 
 
ICE417I 0 THIS IS THE JOINKEYS F2 SUBTASK FOR SORTJNF2                           
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 V1R5 - 15:41 ON FRI JUN 04, 2010 - 
            INREC BUILD=(SEQNUM,12,ZD,5,4000)                                    01030000 
ICE146I 0 END OF STATEMENTS FROM JNF2CNTL - PARAMETER LIST STATEMENTS FOLLOW     
          SORT  FORMAT=BI,FIELDS=(5,12,A)                                       
          RECORD TYPE=V                                                         
          DEBUG NOABEND,ESTAE                                                   
          OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*
                         DDN=JNF2JMSG,SORTIN=SORTJNF2                           
ICE201I G RECORD TYPE IS V - DATA STARTS IN POSITION 5                           
ICE126A 2 INCONSISTENT *INREC   IFTHEN 0 REFORMATTING FIELD FOUND               
ICE751I 0 C5-K51706 C6-K51706 C7-K51706 C8-K51706 E7-K51706                     
ICE052I 3 END OF DFSORT
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Fri Jun 04, 2010 7:40 pm
 Reply with quote
I think you need to account for the RDW in the variable records.
I'd guess a 1,4 on the F2 build and possibly a F2:1,4 on the reformat.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
PostPosted: Fri Jun 04, 2010 10:14 pm
 Reply with quote
frenaud,

As CICS guy pointed out , you need to code the RDW. Use the following DFSORT JCL which will give you the desired results

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=* 
//SORTJNF1 DD DISP=SHR,DSN=SYST04.TEST.TRI.NUMOUT     (FB 80)
//SORTJNF2 DD DISP=SHR,DSN=SYST04.TEST.TRI.OUT3       (VB 4004)
//SORTOUT  DD DSN=SYST04.TEST.TRI.TRIOUT,DISP=OLD     (VB 4004)
//SYSIN    DD *                                       
  OPTION COPY                                         
  JOINKEYS FILES=F1,FIELDS=(1,12,A)                   
  JOINKEYS FILES=F2,FIELDS=(5,12,A)                   
  REFORMAT FIELDS=(F2:1,4,17,237,F1:13,19,F2:273)     
//JNF1CNTL DD *                                       
  INREC BUILD=(SEQNUM,12,ZD,1,19)                     
//JNF2CNTL DD *                                       
  INREC BUILD=(1,4,SEQNUM,12,ZD,5)                   
//*
Back to top
View user's profile Send private message
frenaud

New User


Joined: 15 Feb 2010
Posts: 5
Location: PARIS
PostPosted: Mon Jun 07, 2010 1:44 pm
 Reply with quote
thanks Skolusu & CICS guy for your help !!!
My batch is ok now.
have a nice day!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts force tablespace using LISTDEF input DB2 1
No new posts Two input files & writing counter... DFSORT/ICETOOL 12
No new posts Use input file with OMIT rcd keys? DFSORT/ICETOOL 15
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us