ERRORed when creating an ISAM file(need help)



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

ERRORed when creating an ISAM file(need help)

Postby zhiliyang » Mon Jan 05, 2009 1:30 pm

Dear all, thank you for your kindness.

I have tried to use IEBISAM to creat an ISAM file, but the Return Code was 8.
The sysprint of IEBISAM is:
********************************* TOP OF DATA *********************
DATA SET UTILITY - IEBISAM
IEB609I INPUT SEQUENCE ERROR
******************************** BOTTOM OF DATA *******************

And the following is the JCL clause that I used:
****** ***************************** Top of Data ******************************
000001 //VIVIANJ JOB (12345678),VIVIAN,MSGCLASS=H,
000002 // MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
000003 //STEP1 EXEC PGM=IEBISAM,PARM=LOAD
000004 //SYSPRINT DD SYSOUT=A
000005 //SYSUT1 DD DSNAME=VIVIAN.OUTSET3,
000006 // DISP=(OLD,KEEP)
000007 //SYSUT2 DD DSNAME=VIVIAN.INDSEQ2,DISP=(,KEEP),
000008 // SPACE=(CYL,(1)),
000009 // DCB=(DSORG=IS,RECFM=F,LRECL=80,RKP=1,
000010 // KEYLEN=5),VOL=SER=FANPB1
****** **************************** Bottom of Data ****************************

In the PS data set VIVIAN.OUTSET3,there were two records:
****** ***************************** Top of Data ******************************
000001 123456GHIJKLMNOPQRSTUVWXYZABCDABCDEFGHIJKLMNOPQRSTUVWXYZABCD
000002 234567GHIJKLMNOPQRSTUVWXYZABCDABCDEFGHIJKLMNOPQRSTUVWXYZABC
****** **************************** Bottom of Data ****************************


I have searched some information about IEB609I like following clauses, however, I still
don't know how to resolve it. I have tried to modify RKP, KEYLEN or OPTCD, but no effect:


IEB609IINPUT SEQUENCE ERROR COMPLETION CODE=08
Explanation:
Either a record was lost, or a noise record was encountered when loading an indexed sequential data set. Possibly, the RKP, KEYLEN, or OPTCD parameter has been changed.

System action:
The program is ended. The return code is 8.

Application Programmer Response:
If possible, use a backup copy of the unloaded data set. UNLOAD the original indexed sequential data set, and respecify the LOAD operation. Also, specify the original DCB parameters in the SYSUT1 DD statement.

System programmer response:
If the error recurs and the program is not in error, look at the messages in the job log for more information. Search problem reporting data bases for a fix for the problem. If no fix exists, contact the IBM Support Center. Provide the JCL and all printed output and output data sets related to the problem.

Source:
DFSMSdfp



And I also tried to use source code from IBM PL/I for MVS & VM Programming Guide Release 1.1 to create an ISAM file, like:
****** ***************************** Top of Data ******************************
000100 //VIVIANJ JOB (12345678),VIVIAN,MSGCLASS=H,
000200 // MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
000210 //PROCLIB JCLLIB ORDER=(VIVIAN.PLI.PROCTEST)
000300 //STEP1 EXEC IBMZCPLG
000400 //PLI.SYSIN DD *
000500 TELNOS: PROC OPTIONS(MAIN);
000600 DCL DIREC FILE RECORD SEQUENTIAL KEYED ENV(INDEXED),
000700 CARD CHAR(80),
000800 NAME CHAR(20) DEF CARD,
000900 NUMBER CHAR(3) DEF CARD POS(21),
001000 IOFIELD CHAR(3),
001100 EOF BIT(1) INIT('0'B);
001200 ON ENDFILE(SYSIN) EOF='1'B;
001300 OPEN FILE(DIREC) OUTPUT;
001400 GET FILE(SYSIN) EDIT(CARD)(A(80));
001500 DO WHILE (EOF);
001600 PUT FILE(SYSPRINT) SKIP EDIT (CARD) (A);
001700 IOFIELD=NUMBER;
001800 WRITE FILE(DIREC) FROM(IOFIELD) KEYFROM(NAME);
001900 GET FILE(SYSIN) EDIT(CARD)(A(80));
002000 END;
002100 CLOSE FILE(DIREC);
002200 END TELNOS;
002300 /*
002400 //GO.DIREC DD DSN=VIVIAN.TELNO(INDEX),UNIT=SYSDA,SPACE=(CYL,1),
002500 // DCB=(RECFM=F,BLKSIZE=3,DSORG=IS,KEYLEN=20,OPTCD=IL,
002600 // CYLOFL=2),DISP=(NEW,KEEP)
002700 // DD DSN=VIVIAN.TELNO(PRIME),UNIT=SYSDA,SPACE=(CYL,1),
002800 // DISP=(NEW,KEEP),DCB=DSORG=IS
002900 // DD DSN=VIVIAN.TELNO(OVFLOW),UNIT=SYSDA,SPACE=(CYL,1),
003000 // DISP=(NEW,KEEP),DCB=DSORG=IS
003010 //GO.SYSIN DD *
003100 ACTION,G. 162
003200 BAKER,R. 152
003300 BRAMLEY,O.H. 248
003400 CHEESEMAN,D. 141
003500 CORY,G. 336
003600 ELLIOTT,D. 875
003700 FIGGINS,S. 413
003800 HARVEY,C.D.W. 205
003900 HASTINGS,G.M. 391
004000 KENDALL,J.G. 294
004100 LANCASTER,W.R. 624
004200 MILES,R. 233
004300 NEWMAN,M.W. 450
004400 PITT,W.H. 515
004500 ROLF,D.E. 114
004600 SHEERS,C.D. 241
004700 SUTCLIFFE,M. 472
004800 TAYLOR,G.C. 407
004900 WILTON,L.W. 404
005000 WINSTONE,E.M. 307
005100 /*
****** **************************** Bottom of Data ****************************

When I sub this JCL, there is an ABENDU4038, and I found this in the log:
********************************* TOP OF DATA **********************************
IBM0236S ONCODE=93 The UNDEFINEDFILE condition was raised
because the operating system was unable to OPEN the file
Subcode1=66 Subcode2=00000000 (FILE= DIREC).
From entry point TELNOS at compile unit offset +000000F0 at entry offset +000000F0 at address 11700598.
******************************** BOTTOM OF DATA ********************************



Could you do me a favour to debug these two small programe?
zhiliyang
 
Posts: 2
Joined: Mon Jan 05, 2009 12:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ERRORed when creating an ISAM file(need help)

 

Re: ERRORed when creating an ISAM file(need help)

Postby dick scherrer » Mon Jan 05, 2009 1:54 pm

Hello and welcome to the forum,

Is there some business requirement to use isam? Most organizations no longer permit isam files be defined. Suggest you look into vsam.

Your keylen is 5 but the key data appears to be 6.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: ERRORed when creating an ISAM file(need help)

Postby zhiliyang » Mon Jan 05, 2009 2:56 pm

Dear dick,thank you for your reply.

I just want to study how to use IEBISAM and to know more about ISAM file. :lol:
I also tried to modify keylen to be 6, but it still says:INPUT SEQUENCE ERROR

And I have tried to modify the code of SYSUT2 to be:
000007 //SYSUT2 DD DSNAME=VIVIAN.INDSEQ0(INDEX),DISP=(,CATLG),
000008 // SPACE=(CYL,(1),,CONTIG),
000009 // DCB=(DSORG=IS,RECFM=F,BLKSIZE=800,
000010 // LRECL=80,RKP=1,KEYLEN=6),
000011 // VOLUME=SER=FANPB1
000012 // DD DSNAME=VIVIAN.INDSEQ0(PRIME),DISP=(,CATLG),
000013 // SPACE=(CYL,(1),,CONTIG),VOLUME=REF=*.SYSUT2,
000014 // DCB=*.SYSUT2
but the propblem still unresolved.
It seemed to be an obstinate one.
zhiliyang
 
Posts: 2
Joined: Mon Jan 05, 2009 12:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ERRORed when creating an ISAM file(need help)

Postby dick scherrer » Tue Jan 06, 2009 12:37 am

You're welcome :)
I just want to study how to use IEBISAM and to know more about ISAM file.
If this is to learn how to use indexed data, i suggest you switch to vsam. There is far more material available and there are far more systems that use vsam.

fwiw. . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post