Joining 2 vb files into vsam files ended error
Posted: Thu Nov 12, 2020 7:59 amHello 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
/*
//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
/*