How to retrieve data from file into JCL?

raghavendra_p_sarvade · New User Joined: 17 Oct 2006 Posts: 32

Hi,

I have a file where I just have one record (With say Date of 8 bytes). I need this value as a JCL variable (say &DATE).

Is there any means where the value in the file can be sent to the JCL as variable?

Thanks,
Raghav

Akatsukami · Posted: Wed Mar 17, 2010 12:07 am

Read this fine thread.

raghavendra_p_sarvade · New User Joined: 17 Oct 2006 Posts: 32

Hello!!

My requirement is that I have a file X which has 1 record in it.

********************* Top of Data ****************************
20100316
********************* Bottom of Data **************************

This file will be updated with the date everyday. I need this date value to be passed to the JCL Variable (&DATE).

Thanks,
Raghav

dick scherrer · Posted: Wed Mar 17, 2010 12:27 am

Hello,

Did you read the topic in the link provided?

If not, do so now. It yes, post what you found that caused you to re-post the same question. . .

Robert Sample · Posted: Wed Mar 17, 2010 12:34 am

Terry Heinze · Posted: Wed Mar 17, 2010 2:06 am

What will your JCL do with this variable once it is "retrieved" from your file? Maybe the answer to that will point the way to a solution.

santosh100678 · New User Joined: 21 Sep 2009 Posts: 55 Location: Kolkatta

Hi,

Please tell me where you have to passed if you want to pass this date in query or file could you please give me the example
//J010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INFIL DD DSN=input date fiel ,DISP=SHR
//OUTFIL DD DSN=outputdate file,DISP=(,PASS,DELETE),
// UNIT=WORK,SPACE=(TRK,(5,5),RLSE),
// DCB=(LRECL=1020,RECFM=VB,BLKSIZE=2036)

//SYSIN DD *
REPRO INFILE(INFIL) OUTFILE(OUTFIL) -
FROMKEY('key value') COUNT(1)

//S010 EXEC PGM=SORT,COND=(0,NE)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=workfilestepj010 input file,DISP=SHR
//SORTOUT DD DSN=create file final ,DISP=(,CATLG,DELETE),
// UNIT=WORK,SPACE=(TRK,(3000,750),RLSE),

//sysin dd *
SORT FIELDS=COPY

INCLUDE COND=(5,9,CH,EQ,C'key value',AND,29,2,CH,EQ,C'IA')

OUTREC FIELDS=(1:C'AND S.LAST_UPD_TS >= TIMESTAMP(',C'''',

C'20',47,2,C'-',41,2,C'-',44,2,C'-00.00.00'') - 12 HOURS',C';',

15X),VTOF

please post you clear requirement