Joining 2 vb files into vsam files ended error



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

Joining 2 vb files into vsam files ended error

Postby newbiemainframe » Thu Nov 12, 2020 7:59 am

Hello im really new to this language and i wonder what error cause this , im trying to join 2 VB files and want to add the data that has the same fields value (data type PD) to be written to the vsam files and i get error END OF FIELD BEYOND MAXIMUM RECORD LENGTH


//IDCAMS   EXEC PGM=IDCAMS                      
//SYSPRINT DD SYSOUT=*                          
 DELETE EHASNAW.VS.DATA.TEST PURGE              
 DEFINE CLUSTER -                              
           (NAME(EHASNAW.VS.DATA.TEST) -        
           INDEXED -                            
           SHAREOPTIONS(3,3) -                  
           NOERASE -                            
           SPEED -                              
           NOWRITECHECK -                      
           ) -                                  
        DATA -                                  
           (NAME(EHASNAW.VS.DATA.TEST.DATA) -  
            KEYS(7 0) -                        
            CONTROLINTERVALSIZE(8192) -        
            CYLINDER(1 1) -                    
            FREESPACE(0 0) -                    
            RECORDSIZE(702 702) -              
             -                                  
            VOLUMES(*) -                        
            ) -                                
        INDEX -                                
            (NAME(EHASNAW.VS.DATA.TEST.INDEX) -
            CONTROLINTERVALSIZE(1024) -        
            TRACK(1 1) -                        
            UNORDERED -                        
            VOLUMES(*))                        
/*                                              


//STEP2 EXEC PGM=SORT                                    
//SYSOUT DD SYSOUT=A                                      
//SORTJNF1 DD DSN=EHASNAW.DATA.DPDARPG1.FILTER,DISP=SHR  
//SORTJNF2 DD DSN=EHASNAW.MEMO.REGGH.GDG.G0009V00,DISP=SHR
//SORTOUT DD DSN=EHASNAW.VS.DATA.TEST,DISP=SHR            
//SYSIN DD *                                              
  JOINKEYS FILE=F1,FIELDS=(114,06,A)                      
  JOINKEYS FILE=F2,FIELDS=(09,06,A)                      
  REFORMAT FIELDS=(F1:114,06)                            
  OUTREC FIELDS=(04,06)                                  
  SORT FIELDS=COPY                                        
/*                                                        
 
newbiemainframe
 
Posts: 1
Joined: Thu Nov 12, 2020 7:43 am
Has thanked: 0 time
Been thanked: 0 time

Re: Joining 2 vb files into vsam files ended error

Postby NicC » Thu Nov 12, 2020 7:15 pm

Do NOT post the same query across multiple forums. Topic locked.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post