View previous topic :: View next topic
|
Author |
Message |
sudhirk63
New User
Joined: 08 Oct 2006 Posts: 19 Location: Bangalore
|
|
|
|
Hello,
I have seen the posts on counting lines of a FB file and writing the counts to a FB file. The JCL works perfect.
However when I have number of lines to be counted for a VB file the JCL gives an user abend of U0016.
The JCL I have used is as :
Code: |
//RUN EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Z930028.VB.OUT
//SORTOUT DD DSN=Z930028.NAMEXREC,
// DISP=MOD
//SYSIN DD *
OPTION COPY
OUTFIL NODETAIL,REMOVECC,
TRAILER1=('OUTPUT NUMBER OF ROWS : ',COUNT=(M10,LENGTH=9))
/*
|
The Z930028.VB.OUT is a B file and Z930028.NAMEXREC is an FB file of LRECL of 80.
I tried using the VTOF, but still the job abended with U0016.
Can any one help me out as what am I doing wrong.
Thanks.
Sudhir |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Well, my system is down right now so I can't test it, but I think these DFSORT control statements will give you what you want:
Code: |
OPTION COPY
OUTFIL NODETAIL,REMOVECC,
VTOF,BUILD=(80X),
TRAILER1=('OUTPUT NUMBER OF ROWS : ',COUNT=(M10,LENGTH=9))
|
|
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Frank Yaeger wrote: |
Well, my system is down right now so I can't test it |
Oh my God, IBM is down?.....giggle...... |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
Oh my God, IBM is down?.....giggle...... |
Ha ha. Of course you know that it was just one of IBM's many, many, many systems ... unfortunately, it was the one I use. It came back up just as I was leaving for the day. I just tested my job and it works fine. |
|
Back to top |
|
|
|