IBM Mainframe Forum

[newbiemainframe]

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

Select all

//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                                        
/*                                                        
 

[NicC]

Do NOT post the same query across multiple forums. Topic locked.