View previous topic :: View next topic
|
Author |
Message |
babun
New User
Joined: 03 Aug 2005 Posts: 9 Location: bangalore
|
|
|
|
hi folks
I have gdg(1), gdg(2),
gdg(3), gdg(4).
I want to move gdg(1) into gdg(3) and
gdg(2) into gdg(4) and finally
I want to print all gdg's in an order...
How can we do it ..
your answers should be appreciated...!
Babu |
|
Back to top |
|
|
gowtham_srgp
New User
Joined: 09 Jun 2005 Posts: 38
|
|
|
|
babun wrote: |
hi folks
I have gdg(1), gdg(2),
gdg(3), gdg(4).
I want to move gdg(1) into gdg(3) and
gdg(2) into gdg(4) and finally
I want to print all gdg's in an order...
How can we do it ..
your answers should be appreciated...!
Babu |
hai babu. since all the gdg's are sequential flat files, we can handle this task by COBOL logic. read the particular gdg, make the necessary changes and move them back to the target gdg.
corrections welcomed.
gowtham |
|
Back to top |
|
|
MGIndaco
Active User
Joined: 10 Mar 2005 Posts: 432 Location: Milan, Italy
|
|
|
|
I think that with an IDCAMS you can do it.
Code: |
//STEP010I EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//GDG1 DD DISP=SHR,DSN=...gdg(1)
//GDG2 DD DISP=SHR,DSN=...gdg(2)
//GDG3 DD DISP=SHR,DSN=...gdg(3)
//GDG4 DD DISP=SHR,DSN=...gdg(4)
//GDG5 DD DISP=SHR,VOL=REF=*.GDG1,DSN=*.GDG1
// DD DISP=SHR,VOL=REF=*.GDG2,DSN=*.GDG2
// DD DISP=SHR,VOL=REF=*.GDG3,DSN=*.GDG3
// DD DISP=SHR,VOL=REF=*.GDG4,DSN=*.GDG4
//SYSIN DD *
REPRO INFILE(GDG1) OUTFILE(GDG3)
REPRO INFILE(GDG2) OUTFILE(GDG4)
PRINT INFILE(GDG5) |
This is only a sample that translate your literal request.
The disposition is SHR as sample but you can also use a catalog or other...
I hope in this suggest. |
|
Back to top |
|
|
|