How to identify where file is empty or not? How many ways are
there to identifying?
Answers were Sorted based on User's Feedback
Answer / bala
1) Use IDCAMS
SYSIN DD *
PRINT INDATASET(file name) COUNT(1)
gives RC 04 if the file is an empty file.
2)Compare the file with a known empty file using IEBCOMPR
utility. Comparing two empty files gives Nonzero RC
| Is This Answer Correct ? | 6 Yes | 1 No |
There are two ways to check for the file empty or not.
1) With FILEAID
2) With IEBPTPCH
//STEPXX EXEC PGM=FILEAID
//DD01 DD DSN=P1.SEQUEN.INPUT.FILE,DISP=SHR
//DD01O DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
other is
//STEPXX EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=P1.SEQUEN.INPUT.FILE,DISP=SHR
//SYSUT2 DD DUMMY
//SYSIN DD DSN=SYS1.CTLLIB(P1CTL),DISP=SHR
where CTL card has
PRINT TYPORG=PS,CNTRL=1
The either of above step gets RC=04 then the file is empty
else if its zero then file has some data in it.
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / fred
There are so many ways this can be done.
DFSORT/SYNCSORT
ICETOOL/SYNCTOOL
IDCAMS
FILEAID/FILEMANAGER
IEBPTPCH
ISRSUPC
EASYTRIEVE
Using REXX checking with EXECIO / LISTDSI
Using SORT is the easiest:
//jobcard
//S010 EXEC PGM=SORT,PARM='NULLOUT=RC4'
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=<datasetname>
//SORTOUT DD DUMMY
//SYSIN DD *
SORT FIELDS=COPY
/*
-- RC 4 if Empty
RC 0 if there is data.
| Is This Answer Correct ? | 1 Yes | 2 No |
THERE IS ONE STEP AS BELOW: //STEPJS060 EXEC PGM=XYX, COND=((200,EQ,JS010),(0,NE,JS020.C),EVEN) COULD ANY ONE EXPLAIN HOW COND PARAMETER WORKS HERE? I AM CONFUSED BECOZ OF "EVEN".
Can a PROC CALL another PROC ? (in both Instream and Cataloged cases) ?
what are JCLLIB and STEPLIB in JCL?
Is stepname is a MUST and should be unique also for each JOBSTEP ? or system can supply the stepname for a step which is not given a name by the programmer ?
What do you know about jcl?
How to search strings in multiple dataset with conditions 'string1 & string2'?
How do You skip a Step In JCL?
Explain about RECORDING MODE Clause
Explain about LMQUERY�give a dialog information about a data set
If a field is declared as a comp-3 field and if we want to sort a dataset based on this field, then how will the sort card be??? e.g- if we want to sort by a field which is defined as a PIC X(5) then we will mention - sort fields=(1,5,ch,a). Likewise if a field is defined as PIC S9(10)COMP-3 then in this case how will the sort field be defined (because in this case a sign is also involved)???
My requirement is : How to populate a empty PS/flat file with ONLY spaces in the first line. You should not use any input dataset to do this. I'm not sure whether you may use any utility for this purpose?
Suppose I have seven jobs to do, but I want to hold one than how can I do this?