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.
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 |
Is it possible to left uncode disp?
How do you restart a PROC from a particular step?
How gdg are concatenated?
In one of intervie, my interviwer asked, I have a file which contains 4 records I would like to split the 4 different outputs for each record how to do?
14 Answers Cap Gemini, Cognizant, JPMorgan Chase, TCS, Xansa,
Explain about LMOPEN -
What parameters can be used to limit the number of records written to a sysout dataset?
Why we us SYSTSIN DD with IKJEFT01 (TSO Utility) to execute a COBOL DB2 program? Why can't we use SYSIN DD?
wht happens if cond=true ? pls give me with an example ?
which statement is used to end the in-stream procedure in a jcl?
I have 5 generations in my GDG. How do I code in the JCL to consider all the 5 versions of the GDG ?
What is COND=ONLY ?
i have a string of 80 chars i want to replace 4th char with "a"?