To Find If A Member Of PDS is Empty

vikramp · Posted: Wed Oct 03, 2007 8:08 pm

Hi,

Is there is any way to find if a member of a PDS is empty through REXX.

I have a requirement in the project where i need to check if the member of PDS is empty and if some one trys to open it in browse mode, i need to throw some error message. Can anybody help me with this please....?

enrico-sorichetti · Posted: Wed Oct 03, 2007 8:15 pm

Why do not try it Yourself ? :-)

You will see that ISPF will throw a nice error message

regards

e.s

vikramp · Posted: Wed Oct 03, 2007 8:43 pm

no,

I need to throw a custom error message, because it throws an ispf error message it closes the screen and i don't want that. can any one tell me a way out of this pleaseeee...?

superk · Posted: Wed Oct 03, 2007 8:47 pm

Can't you attempt to read (via EXECIO) 1 record from the member, and check whether it was successful or not?

ofer71 · Posted: Wed Oct 03, 2007 8:48 pm

Do you want to do it programmatically, or anytime a user enters a member? If the later, use an organizational Initial Edit Macro.

O.

vikramp · Posted: Wed Oct 03, 2007 8:55 pm

thanks superk & ofer71,

i could try the EXECIO command. i think it might work.

thanks a lot.

superk · Posted: Wed Oct 03, 2007 9:05 pm

Also, I'm thinking, wouldn't the ISPF Services LMMLIST with STATS(YES) variable for ZLCNORC (Current number of records) (if value is zero) be useful?

enrico-sorichetti · Posted: Wed Oct 03, 2007 9:21 pm