Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
bommu

New User

Joined: 15 Dec 2006
Posts: 3
Location: India

 Posted: Thu Sep 24, 2015 2:14 am    Post subject: Copy from VB to FB with added sequence number Hi, I have a input variable file with length of 450(446+4). My requirement is to copy it to a fixed output file with added sequence number for first 8 bytes. I used below code in SORT step, but it is giving me error. Please advise. INREC BUILD=(SEQNUM,8,ZD,9:1,446) SORT FIELDS=COPY Error is below ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5 ICE251A 2 MISSING RDW OR DATA FOR *INREC : REASON CODE 05, IFTHEN 0 Even I tried with below code, getting same error. INREC BUILD=(SEQNUM,8,ZD,9:5,446) SORT FIELDS=COPY

Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7314

Posted: Thu Sep 24, 2015 3:30 am    Post subject: Reply to: Copy from VB to FB with added sequence number

If your input is variable-length and you want the output fixed, you need to convert it.

This is done on OUTFIL, using VTOF. You can also specify the BUILD there.

 Code: BUILD=(SEQNUM,8,ZD,5,446)
bommu

New User

Joined: 15 Dec 2006
Posts: 3
Location: India

 Posted: Thu Sep 24, 2015 9:45 pm    Post subject: Reply to: Copy from VB to FB with added sequence number Thanks for your info. I tried with below code, still getting error. Kindly advise. SORT FIELDS=COPY OUTFIL FNAMES=SORTOUT,VTOF,BUILD=(SEQNUM,8,ZD,1:5,446) error: ICE126A 9 INCONSISTENT REFORMATTING FOR SORTOUT : REASON CODE 04, IFTHEN 0
Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7314

Posted: Thu Sep 24, 2015 10:00 pm    Post subject: Reply to: Copy from VB to FB with added sequence number

Did you look up the message, and see what the reason-code (4) means?

This is what I suggested:

 Code: BUILD=(SEQNUM,8,ZD,5,446)

That says, "put an 8-digit zoned-decimal sequence number, and follow it with data from the first data-position (5) for a length of 446).

This is what you coded:

 Code: BUILD=(SEQNUM,8,ZD,1:5,446)

This says, "put an 8-digit zoned-decimal sequence number, and immediately, illegally, try to squish it with the data by attempting to put it at column one".
bommu

New User

Joined: 15 Dec 2006
Posts: 3
Location: India

 Posted: Thu Sep 24, 2015 10:22 pm    Post subject: Reply to: Copy from VB to FB with added sequence number Hi Bill, It is working fine now. Thank you. Previously I was making some changes and I overlooked at your code. My apologies. Thanks
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Copy physical Tape files to a Mainfra... Dadi Krishna Teja JCL & VSAM 11 Thu May 16, 2019 10:25 pm count the number of records from diff... janmejay CA Products 4 Mon Mar 25, 2019 11:29 pm How to copy\replace the members in pr... abdulrafi JCL & VSAM 6 Fri Mar 22, 2019 7:02 pm Copy one file to possible multiple files dibyendumandal11111 SYNCSORT 9 Fri Mar 08, 2019 2:47 am how to copy a sequential dataset by u... javen777 JCL & VSAM 3 Thu Feb 21, 2019 11:37 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us