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
 

 

ICE126A with FB and VB in input

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: ICE126A with FB and VB in input
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: 2150
Location: At my coffee table

PostPosted: Fri Jun 04, 2010 7:40 pm    Post subject:
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    Post subject: Reply to: ICE126A with FB and VB in input
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    Post subject: Reply to: ICE126A with FB and VB in input
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    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 Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Formating the Input file sreekusr DFSORT/ICETOOL 3 Fri Feb 17, 2017 10:40 pm
No new posts Submit job from Cobol with input data abdulrafi COBOL Programming 4 Wed Feb 01, 2017 12:41 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 37 Tue Dec 06, 2016 8:04 pm
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm


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