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
- 40790 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 |
What is the error code SOC01 indicate ?
In JCl which of this activities get executed if act002 abnormally terminates //job001 job ......... //act001 exec pgm=cobo01 //act002 exec pgm=cob02, cond=(01,le) //actoo3 exec pgm=cob03, cond=only //actoo4 exec pgm=con04
how to eliminate the duplicates in sorting
in ways data can be passed to a COBOL program from JCL?
If i am going to change some variable in a copybook( size or variable type) ,what are the changes that need to be done in the corresponding JCL.
Are all (i), (ii), (iii), (iv) of the below are VALID to reference a temporary dataset ? STEP2 DD1 DD DSN = &&TEMP STEP3 DD2 DD (i) DSN = TEMP (ii) DSN = *.TEMP (iii) DSN = *.STEP1.DD1 (iv) DSN = *.STEP1.DD1.ONE
what's the significance of freespace(0 0) and freespace(100 100)
i have job card like this //job ***** //step1 exec pgm=iebgener //sysut1 dd dsn=main.sss,disp=shr // dd dsn=main1.sss,disp=shr // dd dsn=main2.sss,disp=shr //sysut2 dd dsn=out1.mmm ,disp=(new,catlg,delete) dcb=( ) // sysin dd * like this what i have to do to skip dsn=main1.sss please giveme answer asap
what is the meaning of keyword in jcl?what is is opposite?
1)what is compilation jcl for cobol program but it is calling another program 2)what is compilation jcl for cobol program but it is calling another program(in this, main program is pure cobol but sub program is cobol+db2 program.can anyone please answer me for above questions. it's very urgent
What is a GDG
I have a sequential file in which there are 50 records. Now I want to copy all the 50 records in the reverse order into a new file? The last record in the original file should be the first record in the new file. How can I do it?
COBOL 
