|
View previous topic :: View next topic
|
| Author |
Message |
k.kunalan
New User
Joined: 06 Jan 2006
Posts: 5
|
|
|
|
IDC3313I ** ,XDA1FNDA,REPROD ,0563,T,INPUT ,
READ ,WRNG.LEN.RECORD,0000000001,BSAM
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 242846
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 |
|
| Back to top |
|
 |
k.kunalan
New User
Joined: 06 Jan 2006
Posts: 5
|
|
|
|
Can anyone please help me in this...
DEFINE CLUSTER -
(NAME(CTRG.543) -
CYLINDERS(100 10) -
RECORDSIZE(4088 4088) -
NUMBERED -
VOL(* * * * * * * * * * ) -
UNIQUE -
SPEED -
SHAREOPTIONS(3) -
CISZ(28672)) -
DATA (NAME(CTRG.543.DATA))
LISTCAT ENTRY(CTRG.543) ALL
//INPUT DD DSN=CTRG123.DATAFILE,DISP=(OLD,PASS),
// UNIT=&UNIT,
// DCB=(LRECL=4088,BLKSIZE=32704,RECFM=FB),
//** FOR 3480 MEDIA ****
// LABEL=(01,&LBL,EXPDT=98000),
// VOL=(,RETAIN,,5,
// SER=(2FD896,2FD892,2FD893,2FD894,2FD895,2FD891))
//OUTPUT DD DISP=SHR,DSN=CTRG.543
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO IFILE(INPUT) OFILE(OUTPUT) |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
You do see that the error is for a wrong length record on your input file, don't you?
Is the DCB lrecl and recfm correct and matching the data on the tape? |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| Why is there a DCB-parameter at INPUT? Did you verify the DCB of the file for recordlength? |
|
| Back to top |
|
|
k.kunalan
New User
Joined: 06 Jan 2006
Posts: 5
|
|
|
|
I couldn't get the DCB for the INPUT file..But I used the same parameters to create another file ..It got created Succsessfully
DEFINE CLUSTER -
(NAME(C2345.f23417692) -
CYLINDERS(50 10) -
RECORDSIZE(4088 4088) -
UNIQUE -
NUMBERED -
VOL(* * * * * * * * * * ) -
SPEED -
SHAREOPTIONS(3) -
CISZ(28672)) -
DATA (NAME(C2345.f23417692.DATA))
//REPROC EXEC PGM=IDCAMS
//INPUT DD DSN=C65758.CITYFILE,DISP=(OLD,PASS),
// UNIT=&UNIT,
// DCB=(LRECL=4088,BLKSIZE=32704,RECFM=FB),
// LABEL=(03,&LBL,EXPDT=98000),
// VOL=(,,,1,SER=(2FD891,2FD892,2FD893,2FD894,2FD895,
// 2FD896))
//OUTPUT DD DISP=SHR,DSN=C2345.f23417692
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO IFILE(INPUT) OFILE(OUTPUT)
/* |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| k.kunalan wrote: |
I couldn't get the DCB for the INPUT file..But I used the same parameters to create another file ..It got created Succsessfully
|
Tough luck, this time it didn't...."INPUT , READ ,WRNG.LEN.RECORD".... |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
For getting the input DCB take a look at your Tape Management Software which should hold that information.
ELSE the following code will read the DCB info from the tape label
| Code: |
//IEBGENER EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=whatever,UNIT=whatever,
// LABEL=(1,BLP),RECFM=FB,LRECL=80
//SYSUT2 DD SYSOUT=*
|
|
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Or this, if your shop uses SyncSort
| Code: |
//*
//STEP010 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DD01 DD DSN=TAPE_FILENAME
// DISP=SHR
//TOOLIN DD *
COUNT FROM(DD01)
/*
//* |
Look TOOLIN/TOOLMSG after completion of JOB. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
Seems to have used the wrong volume numbers and therefore the wrong datasets  |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Different DSNs? |
|
| Back to top |
|
|
|
|
