MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

VSAM U4095 Abend

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management
View previous topic :: View next topic  
Author Message
apiyan
Beginner


Joined: 16 May 2009
Posts: 9
Topics: 5
PostPosted: Wed Jul 01, 2009 8:34 am    Post subject: VSAM U4095 Abend Reply with quote
Hi all,

I am using the below JCL to load a PS file in to VSAM file.

But i am getting abend, ABENDED S000 U4095, after submitting the job.

Code:
 //R698198 JOB (MIXER),'FORMAT VSAM EMPLOYEE',                 
//  MSGCLASS=U,CLASS=0,MSGLEVEL=(1,1),NOTIFY=&SYSUID           
//*                                                           
//*                                                           
// JCLLIB ORDER=(VOIP.MJKK.RIN.PROCLIB,POIY.NBS.PROCLIB,       
//            POIY.POY.MOH.PROCLIB,POIY.NBS3S.PROCLIB)         
//*                                                           
//JOBLIB   DD DSN=KART.TUI.LOADLIB,DISP=SHR                   
//         DD DSN=POIY.XXX.LOADLIB,DISP=SHR                   
//         DD DSN=POIY.XXX.LOADLIB,DISP=SHR                   
//*                                                           
//*************************************************************
//* LOAD VSAM FILE employee                                 
//*************************************************************
//DELETE  EXEC UCC11                                           
//JS000100 EXEC PRODMEM,----> STANDARD PROC MEMBER                                     
//    HLQ1='DINK',                                             
//    TYP='PROD.FILE',                                       
//    MEM1=MEMBER1,                                           
//    MEM2='MEMBER2',                                         
//    MEM3='MEMBER3',                                         
//    PARMLIB='KART.ITOP.MBN.PARMLIB'



Code:
KART.ITOP.MBN.PARMLIB 

MEMBER1

DELETE ('DINK.PROD.FILE.EMPLOY') PURGE

MEMBER2

DEFINE CLUSTER (NAME('DINK.PROD.FILE.EMPLOY')              -   
              OWNER(POXI)                                  -   
              INDEXED                                      -   
              REUSE                                        -   
              NOIMBED                                      -   
              NOREPLICATE                                  -   
              SPEED                                        -   
              FREESPACE (00 00)                            -   
              KEYS(10 0)                                   -   
              RECSZ(20 20)                                 -   
              SHR (2 3))                                   -   
       INDEX  (NAME('DINK.PROD.FILE.EMPLOY.INDEX')       -   
              OWNER(POXI)                                  -   
              CYLINDERS(300 200)                           -   
              CISZ(4096))                                  -   
       DATA   (NAME('DINK.PROD.FILE.EMPLOY.DATA')        -   
              OWNER(POXI)                                  -   
              CYLINDERS(300 200)                           -   
              CISZ(4096))                                     
IF LASTCC = 0                                              -   
THEN                                                       -   
    LISTC ENT('DINK.PROD.FILE.EMPLOY') ALL                                       


MEMBER3

REPRO -       
INFILE(INPUT) -
OUTFILE(OUTPUT)



Code:
IDCAMS  SYSTEM SERVICES                                           T
                                                                   
 REPRO -                                                           
 INFILE(INPUT) -                                                   
 OUTFILE(OUTPUT)                                                   
IDC3302I  ACTION ERROR ON WCCT.PRDMW.FCARI.CDETBL                 
IDC3351I ** VSAM I/O RETURN CODE IS 108 - RPLFDBWD = X'8408006C'   
IDC31467I MAXIMUM ERROR LIMIT REACHED.                             
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0                         
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                 
                                                                   
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12


Is there any other way to load a PS file in to VSAM file.
Back to top
View user's profile Send private message
apiyan
Beginner


Joined: 16 May 2009
Posts: 9
Topics: 5
PostPosted: Wed Jul 01, 2009 9:18 am    Post subject: Reply with quote
Abend resolved , after giving the CORRECT LRECL of the input file in Define cluster statement

RECSZ(20 20)
to

RECSZ(138 138)

Now its working fine..
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group