MVSFORUMS.com

[vini]

This dataset happens to be a single row FB/LRECL 80 containing control data.

Over and above checking if the file is empty I also need to check if the file has some data, where spaces should not be considered as data.

Example:
File seemingly empty ..in the sense ....all it has is a single ROW full of only spaces.
Problem:
IDCAMS REPRO with COUNT(1) option is not flagging this as EMPTY because of presence of SPACES.
However, the requirement is to consider such data/spaces as empty as well and set the MAXCC to 12.

Anyone knows how to do this check using IDCAMS or some other utility ???

[kolusu]

vini,

Use the following DFSORT JCL which will set a return code of 4 when the file is empty after eliminating all space records

[vini]

Thanks Kolusu, this should do the trick .... will run this by tomorrow. 8)

[Frank Yaeger]

vini,

Alternatively, you can use this DFSORT/ICETOOL job.

[vini]

Kolusu,

I tried the SORT and the step is giving an RC of 0 instead of 4.

The input data was a single record of 80/FBA containing all spaces

[papadi]

Suggest you post the jcl and control statements submitted as well as the informatonal messages generated by the run (include the message ids).

Did you notice the posted solution uses ICETOOL rather than SORT?
_________________
All the best,

di

[vini]

Frank,

I tried both the suggested ways and am still getting RC of 0.
Input data was single record containing all spaces FB/80.

[papadi]

To repeat:

[vini]

papadi,
Franks /solution#2 uses ICETOOL and Kolusus /solution#1 uses DFSORT.

I am using PROC which is called by the JCL so not sure if you want all of that posted

Here is the sysout ,jesmsglg & Input Data for Soln#1

[dbzTHEdinosauer]

what is in columns 73 thru 80?

just for grins, how about changing the OMIT from 1,80
to 1,72.
_________________
Dick Brenholtz
American living in Varel, Germany

[vini]

Here are all the desired STEPS with brief descriptions:

Step 03: COND=(0,LE) to bypass this step to check for empty file using the original IDCAMS

Step 05 : Soln #1 (Check Control File for Data). IF no data / empty set RC 4.

Step 06: Soln#2 with COND=(0,LE) to bypass

Step 10: Check Client Detail File for Data. This is a multiple record file of LRECL 255/FB. IF no data / empty set RC 4.

Step 15: IF ((RC.Step5= 4 and RC.Step10= 0) OR ((RC.Step5= 0 and RC.Step10= 4) THEN
Exec IDCAMS where MAXCC is Set to 12
ENDIF

Step 20 to Step 50 : Exec Cobol-Db2 Pgms etc -- core process

[dbzTHEdinosauer]

[REPEAT COMMENT ON]
what is in columns 73 thru 80?

just for grins, how about changing the OMIT from 1,80
to 1,72.
[REPEAT COMMENT OFF]


vini,

i really can't believe that you are so silly as to question both Frank and Kolusu.

and we don't really care about the rest of the garbage in your joh.

only the sort step, which you said you copied, properly(?)
_________________
Dick Brenholtz
American living in Varel, Germany

[vini]

dbZ .... I was so far assuming that 73 thru 80 was empty but guess what it contains ?

[dbzTHEdinosauer]

glad you were able to resolve it.

by the way, you can avoid this problem when you edit a ds,
if you set your edit profile to NUMOFF.
_________________
Dick Brenholtz
American living in Varel, Germany

[Frank Yaeger]

Vini,

Yes, that was my first thought ... that you have sequence numbers in 73-80 so the record really isn't blank.

Dick,

Good catch.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort