Gaurav Saini
New User
Joined: 27 Jul 2011 Posts: 1 Location: India
|
|
|
|
I want to concatenate the strings from two files, it can be done using cobol, bt I want to do this using Filemgr.
Contents of File 1 >
HEADER 20110725 000000100
HEADER 20110825 000000200
HEADER 20110925 000000300
Contents of File 2 >
0000010
0000020
0000030
Required output >
HEADER 20110725 000000100 0000010
HEADER 20110825 000000200 0000020
HEADER 20110925 000000300 0000030
I tried following code >
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=A.B.IN1,DISP=SHR
//SYSUT2 DD DSN=A.B.OUT,DISP=SHR
//SYSIN DD *
GENERATE MAXFLDS=1
RECORD FIELD=(25,1,,1)
/*
//STEP02 EXEC PGM=FILEMGR
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD DSN=A.B.IN2,DISP=SHR
//DDOUT DD DSN=A.B.OUT,DISP=SHR
//SYSIN DD *
$$FILEM DSC INPUT=DDIN,
$$FILEM PROC=*
FLD_OUT(1,7,27)
PRINT(OUTREC,CHAR)
/+
/*
Using this JCL my output is coming like this >
HEADER 20110725 000000100 HEADER
HEADER 20110825 000000200 HEADER
HEADER 20110925 000000300 HEADER
anyone with raxx function knowledge, please help me with it |
|