IBM Mainframe Forum

by **javivi** » Thu Jun 30, 2011 4:10 pm

Hi I have the next problem to generate a file from 2 files:

File1, 05 lrecl:
00100
00233
00300
...
...

file2, with only 03 records with 21 lrecl:
FROM 001EUR TO 100EUR
FROM 101EUR TO 200EUR
MORE THANT 200EUR

Then I need to create a file as:

00100 FROM 001EUR TO 100EUR
00100 FROM 101EUR TO 200EUR
00100 MORE THANT 200EUR
00233 FROM 001EUR TO 100EUR
00233 FROM 101EUR TO 200EUR
00233 MORE THANT 200EUR
00300 FROM 001EUR TO 100EUR
00300 FROM 101EUR TO 200EUR
00300 MORE THANT 200EUR
...
...

It is possible with asort?.

Thanks from Spain.

by **Frank Yaeger** » Thu Jun 30, 2011 9:08 pm

Here's a DFSORT job that will do what you asked for:

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/5)
//IN2 DD DSN=... input file2 (FB/21)
//SORTOUT DD DSN=... output file (FB/27)
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(1,1,A),SORTED,NOSEQCK
JOINKEYS F2=IN2,FIELDS=(1,1,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:2,6,F2:2,21)
OPTION COPY
/*
//JNF1CNTL DD *
INREC BUILD=(X,1,5,X)
/*
//JNF2CNTL DD *
INREC BUILD=(X,1,21)
/*

by **javivi** » Fri Jul 01, 2011 12:22 pm

Thanks Frank.

It was so easy.... but I could not think how....

IBM Mainframe Forum

mix files by groups

mix files by groups

Re: mix files by groups

Re: mix files by groups