IBM Mainframe Forum

RE: IBM OS/VS COBOL RELEASE 2.4

I have several gdg's concatenated as input to an application.

When the input file is read, is there a way of identifing which file (gdg) is being accessed from within the COBOL application?

IE: jcl
//INFIL DD DISP=&DSP,UNIT=&UNIT,DSN=&DSN(-00)
// DD DISP=&DSP,UNIT=&UNIT,DSN=&DSN(-01)
// DD DISP=&DSP,UNIT=&UNIT,DSN=&DSN(-02)
// DD DISP=&DSP,UNIT=&UNIT,DSN=&DSN(-03)

IE: Cobol
SELECT DOC-FL ASSIGN TO UT-S-INFIL.
FD DOC-FL
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
RECORD CONTAINS 450 CHARACTERS
BLOCK CONTAINS 0 RECORDS.
01 DOC-RECD PIC X(450).

READ DOC-FL INTO WORK-INPUT

I am not aware of any COBOL way to identify which file in a concatenation is being accessed. You could probably chase the file block chains to locate this data, but that may be a lot of trouble for a very little bit of knowledge.

Thanks, RRiley