Interested to Buy Any Domain ? << Click Here >> for more details...
How to test thru JCL if any file(PS or VSAM) is empty or
not. I do not want to use any COBOL prog or Ezytrieve and
want to do using utility.
- 10 Answers
- 40508 Views
- Lehman Brothers, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vani
By IDcams its is possible
// STEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//FILE1 DD DSN=INPUT-FILE,DISP=SHR
//SYSIN DD *
PRINT INFILE(FILE1)
DUMP COUNT(1)
/*
IF THE FILE IS EMPTY JCL GIVES RC=4
| Is This Answer Correct ? | 21 Yes | 6 No |
Answer / ram g
u can use ams command repro thru idcams utility and check
for rc
| Is This Answer Correct ? | 19 Yes | 5 No |
Answer / ekluba
With proper Syntax answer #5 is correct:
//SYSPRINT DD SYSOUT=*
//DD1 DD DSN=???.EMPTY,DISP=SHR
//SYSIN DD *
PRINT INFILE(DD1) COUNT(1)
/*
| Is This Answer Correct ? | 9 Yes | 2 No |
Answer / suga
you can use IEBPTPCH utility.it is used to check whether it
is empty or not.If the return code is 4 then the file is
empty.
| Is This Answer Correct ? | 10 Yes | 4 No |
Answer / deb
First SORT the input file.
Assume the sorted o/p is in MY.SORT.FILE, then run this step
//CHEKEMTY EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//MYFILE DD DSN=MY.SORT.FILE,DISP=SHR
//SYSIN DD *
PRINT INFILE(MYFILE) CHARACTER COUNT(1)
if the above step returns a RC=4, then the file is
empty
| Is This Answer Correct ? | 10 Yes | 5 No |
Answer / nagendra
Hi vani,
When i tried executing ur JCL i am getting this error while
giving JJ.
'DUMP' IS NOT A RECOGNIZED IDCAMS STATEMENT NAME
What shall i do????
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / manid
//STEP1 EXEC PGM=IDCAMS
//DD1 DD DSN=FILE1
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT INFILE(DD1) COUNT(*)
/*
IF STEP1 RETURNS RC=4 THEN FILE1 IS EMPTY FILE
I HOPE THIS WILL HELP YOU
Thanks
ManiD
| Is This Answer Correct ? | 3 Yes | 4 No |
Answer / sivakumar
Use comparex/ISRSUPC utility and compare ur file with an
empty file of the same DCB parameter. Retrun code of 28
means the file is empty. return code of 1 means the file is
not empty.
| Is This Answer Correct ? | 5 Yes | 7 No |
How would I code JCL to copy a gdg data set G001v00 and create a gdg Data set G001v01
wht r s722,s822,s122 and s222 abends pls reply fast
Why block size is multiple of lrecl in jcl?
how can we pass external data to instream procedures
5 Answers IBM, Infosys, Ocwen,
in production region 100 steps are running,but i need to run only step5 without changing code how can i do it?
Describe the JOB statement, its meaning, syntax and significant keywords?
What is the maximum length of a single line of jcl?
which utility is used to sort a file in jcl?
How to override loadlib?
What is S322 abend ?
Wrete a JCL to compare two files and mached records move to onc file & un mached rows wants to another file?
13 Answers CGI, DSRC, IBM,
the command to open a dataset directly from the JCL instead of opening it separately using 3.4 option.
COBOL 
