mainframegurukul.com

Success !!! In the code, changing to VB ( 1039 0 ) and getting rid of the assignment statement was the solution. No JCL changes were needed. Here is the code: FILE FILEA FA-ARG 01 06 N FILE FILEB VB (1039 0) REC-TYP 71 1 A FB-ARG 325 06 N FILE MTCHOUT VB (1039 0) JOB INPUT (FILEA KEY(FA-ARG) + FILEB...

Changed JCL to lrecl 1035 and removed blksize on the output file MTCHOUT:

// DCB=(SYS2.DSCB,RECFM=VB,LRECL=1035)


Results are the same as above where the last 4 bytes of the records are gone.

Changed lrecl and removed blksize in code: FILE FILEA FA-ARG 01 06 N FILE FILEB VB 1035 IN-REC 01 1035 A REC-TYP 71 1 A FB-ARG 325 06 N FILE MTCHOUT VB 1035 OUT-REC 01 1035 A JOB INPUT (FILEA KEY(FA-ARG) + FILEB KEY(FB-ARG)) IF MATCHED AND REC-TYP = 'L' OUT-REC = IN-REC PUT MTCHOUT END-IF Received a...

JCL: //FILEA DD DSN=&PREFDATE.URS.TRF016.IMAGE.DATECARD(0),DISP=SHR //FILEB DD DSN=&PREFIN.URS.V600.TRF250.&INPUT(0),DISP=SHR //* //MTCHOUT DD DSN=&&CURBKDT, // DISP=(,PASS), // UNIT=SYSDA, // SPACE=(27998,(1800,180),RLSE), // DCB=(SYS2.DSCB,RECFM=VB,LRECL=1039,BLKSIZE=27998) Easytrieve code: FILE F...

I did look at your previous reply and tried some of it and it didn't work. I am sorry that I am in the File Aid section here when (you are right) it is Easytrieve. My mistake. I will cease and desist with this and go to the Easytrieve postings.

Please note that it is the last 4 bytes that are missing; not the 1st 4 (RDW) like I originally thought. So it is some of the data that I am missing.

That is what I thought but it is not working. I must not be specifying something correctly in the statements. I have tried saying the record is 1035 in length and 1039 in length and neither works for me.

I have not tried the SORT program since it looked more complicated. With File Aid I am trying to read 1 file (FILE A) which has only 1 record and use the 1st 6 bytes to select records from FILE B. This part is working. My only problem is when the selected records are copied from the FILE B to the FI...

Yes. When I look at the input file all the way to the right it has 4 more columns ("Col") than the output record. Also, subsequent processing is not working I believe due to the data being 4 positions off.

I am trying to copy an entire VB record when certain conditions are met. It seems that I am only copy the data portion and not the 1st 4 bytes of the VB record. I am missing a small detail probably. Statements below: FILE FILEA FA-ARG 01 06 N FILE FILEB VB (1035 1039) IN-REC 01 1035 A REC-TYP 71 1 A...