hariharan_82
New User
Joined: 18 Apr 2007
Posts: 23
Location: Chennai
|
|
|
|
I'm using the below mentioned JOB to split a file into 2 equal files with recs in the same order as the input file.
For instance I have a file with 10 recs
1
2
3
4
5
6
7
8
9
0
I wish to create file 1 with recs 1 through 5 and file 2 with recs 6 through 10
The job is as below:
| Code: |
//SORT4 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=TOP1.BALASH.FILE,DISP=SHR
//C1 DD DSN=&&C1,SPACE=(TRK,(20,5),RLSE),DISP=(,PASS)
//T1 DD DSN=&&T1,SPACE=(TRK,(20,5),RLSE),DISP=(,PASS,)
//CTL3CNTL DD *
OUTFIL FNAMES=(OUT1,OUT2),
// DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)
/*
//OUT1 DD DSN=TOP1.BALASH.OUTFILE1,
// SPACE=(TRK,(20,5),RLSE),DISP=(NEW,CATLG,DELETE)
//OUT2 DD DSN=TOP1.BALASH.OUTFILE2,
// SPACE=(TRK,(20,5),RLSE),DISP=(NEW,CATLG,DELETE)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(T1) TO(C1) USING(CTL2)
COPY FROM(IN) USING(CTL3)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,REMOVECC,NODETAIL,
TRAILER1=(COUNT=(M11,LENGTH=8))
/*
//CTL2CNTL DD *
OUTREC BUILD=(2X,C'SPLIT1R=',
1,8,ZD,DIV,+02,TO=ZD,LENGTH=11,80:X)
/*
//*
|
I get an ABEND as the CTL3 output is not numeric
CTL3CNTL :
| Code: |
OUTFIL FNAMES=(OUT1,OUT2),
SPLIT1R=0000000000E
*
WER428I CALLER-PROVIDED IDENTIFIER IS "0003"
WER271A OUTFIL STATEMENT : NUMERIC FIELD ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
How do i fix this?
Thanks,
Hariharan |
|
