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
 

 

Record out of sequence error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Mon Oct 06, 2008 12:28 pm    Post subject: Record out of sequence error
Reply with quote

Hi all,

I've read the posts regarding this error,i want to ask about the jcl i posted

here is the jcl i wrote to copy a seq file into vsam file
Code:
//*********************************************************************
//S030SORT EXEC PGM=SORT                                               
//*                                                                     
//*    MERGE NEW TRANSMITTAL FILE INTO THE MASTER FILE,                 
//*    EXCLUDING BLANK RECORDS                                         
//*                                                                     
//*--------------------------------------------------------------------
//*RESTART - STEP                                                       
//*--------------------------------------------------------------------
//*INPUT                                                               
//SORTIN   DD  DSN=MNAX.MFTA.WRK1.TRANSMTL,DISP=(OLD,DELETE,KEEP)       
//         DD  DSN=MNAX.MFTA.WRK2.TRANSMTL,DISP=(OLD,DELETE,KEEP)       
//SYSIN    DD  *                                                       
  SORT FIELDS=(1,6,CH,A)                                               
  OMIT COND=(1,6,CH,EQ,C'      ')                                       
//*OUTPUT                                                               
//SORTOUT  DD  DSN=MNAX.MFTA.SRT.TRANSMTL,DISP=(NEW,CATLG,DELETE),     
//             SPACE=(800,(1000,100),RLSE),AVGREC=K,                   
//             LRECL=800,RECFM=FB                                       
//SYSOUT   DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//CEEDUMP  DD  SYSOUT=*                                                 

//*********************************************************************
//S040IDCM EXEC PGM=MTIDCAMS,PARM='0004,ABEND'                         
//*                                                                   
//*    DELETE, DEFINE, RELOAD TRANSMITTAL FILE                         
//*                                                                   
//*--------------------------------------------------------------------
//*RESTART - STEP                                                     
//*--------------------------------------------------------------------
//*INPUT                                                               
//SYSIN    DD  *                                                       
   DELETE MNAX.MFTA.VSMP001.TRNSMTL PURGE                             
   DEFINE  CLUSTER -                                                   
          (NAME(MNAX.MFTA.VSMP001.TRNSMTL) -                           
           RECORDS(120000 30000) -                                     
           SHR(2 3) -                                                 
           FREESPACE(20 20) -                                         
           UNIQUE -                                                   
           NOREUSE  -                                                 
           INDEXED -                                                   
           KEYS(6 0)) -                                               
          DATA -                                                       
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.DATA) -                     
           RECSZ(800 800) -                                           
           CISZ(12288)) -                                             
          INDEX -                                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.IDX))     
   REPRO  IDS(MNAX.MFTA.SRT.TRANSMTL) -               
          ODS(MNAX.MFTA.VSMP001.TRNSMTL) REUSE       
   DEFINE ALTERNATEINDEX -                           
          (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT1) -     
           RELATE(MNAX.MFTA.VSMP001.TRNSMTL) -       
           KEYS(8 343) -                             
           RECORDS(120000 30000) -                   
           SHR(2 3) -                                 
           FREESPACE(0 0) -                           
           NONUNIQUEKEY -                             
           NOREUSE  -                                 
           UPGRADE) -                                 
          DATA -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT1DATA) -
           RECSZ(19 438013) -                         
           CISZ(4096)) -                             
          INDEX -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT1IDX)) 
   DEFINE PATH -                                     
         (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT1PTH) -   
          PATHENTRY(MNAX.MFTA.VSMP001.TRNSMTL.ALT1)) 
   BLDINDEX -                                         
         INDATASET(MNAX.MFTA.VSMP001.TRNSMTL) -       
          OUTDATASET(MNAX.MFTA.VSMP001.TRNSMTL.ALT1) 
   DEFINE ALTERNATEINDEX -                           
          (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT2) -     
           RELATE(MNAX.MFTA.VSMP001.TRNSMTL) -       
           KEYS(7 364) -                             
           RECORDS(100000 10000) -                   
           SHR(2 3) -                                 
           FREESPACE(0 0) -                           
           NONUNIQUEKEY -                             
           NOREUSE  -                                 
           UPGRADE) -                                 
          DATA -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT2DATA) -
           RECSZ(18 128012) -                         
           CISZ(2048)) -                             
          INDEX -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT2IDX)) 
   DEFINE PATH -                                     
         (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT2PTH) -   
          PATHENTRY(MNAX.MFTA.VSMP001.TRNSMTL.ALT2)) 
   BLDINDEX -                                         
         INDATASET(MNAX.MFTA.VSMP001.TRNSMTL) -       
          OUTDATASET(MNAX.MFTA.VSMP001.TRNSMTL.ALT2) 
   DEFINE ALTERNATEINDEX -                           
          (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT3) -     
           RELATE(MNAX.MFTA.VSMP001.TRNSMTL) -       
           KEYS(7 371) -                             
           RECORDS(120000 30000) -                   
           SHR(2 3) -                                 
           FREESPACE(0 0) -                           
           NONUNIQUEKEY -                             
           NOREUSE  -                                 
           UPGRADE) -                                 
          DATA -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT3DATA) -
           RECSZ(18 194012) -                         
           CISZ(2048)) -                             
          INDEX -                                     
           (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT3IDX)) 
   DEFINE PATH -                                     
         (NAME(MNAX.MFTA.VSMP001.TRNSMTL.ALT3PTH) -   
          PATHENTRY(MNAX.MFTA.VSMP001.TRNSMTL.ALT3)) 
   BLDINDEX -                                         
         INDATASET(MNAX.MFTA.VSMP001.TRNSMTL) -       
          OUTDATASET(MNAX.MFTA.VSMP001.TRNSMTL.ALT3) 
/*                                                   
//SYSPRINT DD  SYSOUT=*                               
//SYSOUT   DD  SYSOUT=*                               
//SYSABOUT DD  SYSOUT=*                               
//SYSUDUMP DD  SYSOUT=*                               
//CEEDUMP  DD  SYSOUT=*                               


In the repro step it giving

Code:
    REPRO  IDS(MNAX.MFTA.SRT.TRANSMTL) -                                                                               
          ODS(MNAX.MFTA.VSMP001.TRNSMTL) REUSE                                                                       
IDC3302I  ACTION ERROR ON MNAX.MFTA.VSMP001.TRNSMTL                                                                   
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:                                                                     
000000  C5F8F0F0 F040                                                               *E8000                           *
                                                                                                                     
IDC3302I  ACTION ERROR ON MNAX.MFTA.VSMP001.TRNSMTL                                                                   
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:                                                                     
000000  C5F8F0F0 F040                                                               *E8000                           *
                                                                                                                     
IDC3302I  ACTION ERROR ON MNAX.MFTA.VSMP001.TRNSMTL                                                                   
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:                                                                     
000000  C5F8F0F0 F040                                                               *E8000                           *
                                                                                                                     
IDC3302I  ACTION ERROR ON MNAX.MFTA.VSMP001.TRNSMTL                                                                   
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:                                                                     
000000  C5F8F0F0 F040                                                               *E8000                           *


As per my understanding i've sorted the input file inorder to remove irregularities & then loaded.
This error is coming only for this record.

Sample SRT.TRANSMTL
Code:
C89843           0438       XDISCOUNT TIRE CO ILC1                     ROMEOVILLE   IL
C89844           0403       XDISCOUNT TIRE CO ILCW                     NAPERVILLE   IL
C89845           0484       X                                                         
C89846           0207       X                                                         
C89847           0051       X                                                         
E8000            0002       X                                                         
E8000            0002       X                                                         
.

Please suggest me.i'm sorry for the long post icon_cry.gif
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Oct 06, 2008 1:28 pm    Post subject: Reply to: Record out of sequence error
Reply with quote

if You had looked better at Your output You would have found
that the last two records are duplicates icon_biggrin.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Oct 06, 2008 1:38 pm    Post subject:
Reply with quote

Hello,

If you modify your sort control statements, you could eliminate any duplicates.
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Mon Oct 06, 2008 1:52 pm    Post subject: Reply to: Record out of sequence error
Reply with quote

hi enrico & dick,

i noted that they were duplicates but in this it should have copied on the alternate indices(my understanding) ... please tell me more on this
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Mon Oct 06, 2008 1:55 pm    Post subject: Reply to: Record out of sequence error
Reply with quote

hi,

sorry for another thread, this is a production code & exisiting ...so cannot change the sort card ...... i think there is a problem with file they sent many fields missing leading to the duplicates ..... anyways i'll confirm with the team.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Oct 06, 2008 2:03 pm    Post subject: Reply to: Record out of sequence error
Reply with quote

Hello,

Quote:
this is a production code & exisiting ...so cannot change the sort card
If the file arrives with duplicates, the production sort card may need to be updated to handle the duplicates.

If duplicates invalidate the entire file, then a new/corrected file would be needed.

Good luck icon_smile.gif

d
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Mon Oct 06, 2008 2:45 pm    Post subject: Reply to: Record out of sequence error
Reply with quote

hi further more,

Once it abends & if i run the code again with the same file ...it is running fine icon_eek.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Mon Oct 06, 2008 4:43 pm    Post subject:
Reply with quote

Quote:
i noted that they were duplicates but in this it should have copied on the alternate indices(my understanding)
No, the primary key is the first six bytes of the record and every primary key must be unique. Alternate indexes are allowed duplicates, but they are defined at offsets 343, 364, 371 in the file. So under no circumstances will the primary key values be copied into the alternate index fields since they are hundreds of bytes apart.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm


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