Re: concatenation of multiple physical file members?

[CRPence <crp@xxxxxxxxxxxxxxxxxxxx>]

  If a temporary sorted copy of the data is acceptabl, perhaps:
  crtpf qtemp/jobparmx srcfile(srclib/ddssrcf) srcmbr(jobparms)
   mbr(tempdata) size( ) ...
  ...
  /* clrpfm qtemp/jobparmx mbr(tempdata) -- implicit in fmtdta.? */
  FMTDTA INFILE((MNR/JOBPARMS DMS200_100) (MNR/JOBPARMS DMS200_ALL))
   OUTFILE(QTEMP/JOBPARMX) SRCFILE(srclib/ddssrcf) SRCMBR(JOBPARMF)
  ovrdbf PARMS TOFILE(QTEMP/JOBPARMX) MBR(tempdata)
  call pgm(dms200)
  ...

Regards, Chuck
-- All comments provided "as is" with no warranties of any kind whatsoever.

Michael Rosinger wrote:
> List,
>
> We have a situation where programs read as input parameters records from 
> specific members in the same physical file. There are cases where there are 
> *common* parms that are relevant to more than one program. What I would like 
> to be able to do is to concatenate more than one physical file member in the 
> CL so that the COBOL program *thinks* it is reading a single file.
>
> Something like this perhaps?....
>
> OVRDBF FILE(PARMS) TOFILE(MNR/JOBPARMS) MBR(DMS200-100) *CONCAT*
> OVRDBF FILE(PARMS) TOFILE(MNR/JOBPARMS) MBR(DMS200-ALL)
> CALL PGM(DMS200)
>
> . . . . .
>
> OVRDBF FILE(PARMS) TOFILE(MNR/JOBPARMS) MBR(DMS800) *CONCAT*
> OVRDBF FILE(PARMS) TOFILE(MNR/JOBPARMS) MBR(DMS200-ALL)
> CALL PGM(DMS800)