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
 

 

Splitting a VB file problem

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

New User


Joined: 11 Jul 2009
Posts: 2
Location: Chennai, India

PostPosted: Fri Jun 29, 2012 11:46 am    Post subject: Splitting a VB file problem
Reply with quote

Hi all,

Sorry for bumping this old thread. I am trying to split a VB file dynamically using SPLIT1R and ending up in an error.
Split from unrelated topic.
This is the syntax i used for splitting.
Code:
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//CTL3CNTL DD *
OUTFIL FNAMES=(OUT01,OUT02,...,OUTnn), <--- code OUT01-OUTnn
// DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)
//OUT01 DD DSN=... output file01
//OUT02 DD DSN=... output file02
...
//OUTnn DD DSN=... output filenn <--- code OUT01-OUTnn
//TOOLIN DD *
* Get the record count.
COPY FROM(IN) USING(CTL1)
* Generate:
* SPLIT1R=x where x = count/nn.
* nn is the number of output files.
COPY FROM(T1) TO(C1) USING(CTL2)
* Use SPLIT1R=x to split records contiguously among
* the nn output files.
COPY FROM(IN) USING(CTL3)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,REMOVECC,NODETAIL,
TRAILER1=(COUNT=(M11,LENGTH=8))
/*
//CTL2CNTL DD *
OUTREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,BUILD=(1:1,8,ZD,DIV,+nn, <--- set to nn
TO=ZD,LENGTH=8)),
IFTHEN=(WHEN=(1,8,ZD,GT,+0),
BUILD=(2X,C'SPLIT1R=',1,8)),
IFTHEN=(WHEN=NONE,
BUILD=(2X,C'SPLIT1R=1'))
/*



The problem now is this seem to be working well for FB files and i am trying to split the VB file. This is the error i got

Code:
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5                 
ICE251A 2 MISSING RDW OR DATA FOR *OUTREC : REASON CODE 05, IFTHEN 1   
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E7-K70685             



Can you please help me with this.

Thanks in advance.

Cheers,
Marun
Back to top
View user's profile Send private message

Marun

New User


Joined: 11 Jul 2009
Posts: 2
Location: Chennai, India

PostPosted: Fri Jun 29, 2012 12:25 pm    Post subject:
Reply with quote

Just found the solution pals.

Amended this line with VTOF and it worked like charm.

Code:

OUTFIL FNAMES=T1,REMOVECC,NODETAIL,VTOF,BUILD=(8X),
TRAILER1=(COUNT=(M11,LENGTH=8))


Thanks a lot all.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Fri Jun 29, 2012 1:07 pm    Post subject:
Reply with quote

excellent!
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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


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