Re: Checking for records in CL?

from the CL Manual:
 
 
     DCL  &LIB      TYPE(*CHAR) LEN(10)
     DCL  &MBR      TYPE(*CHAR) LEN(10)
     DCL  &SYS      TYPE(*CHAR) LEN(4)
     DCL  &MTYPE    TYPE(*CHAR) LEN(5)
     DCL  &CRTDATE  TYPE(*CHAR) LEN(13)
     DCL  &CHGDATE  TYPE(*CHAR) LEN(13)
     DCL  &TEXT     TYPE(*CHAR) LEN(50)
     DCL  &NBRRCD   TYPE(*DEC)  LEN(10 0)
     DCL  &SIZE     TYPE(*DEC)  LEN(10 0)
     DCL  &USEDATE  TYPE(*CHAR) LEN(13)
     DCL  &USECNT   TYPE(*DEC)  LEN(5 0)
     DCL  &RESET    TYPE(*CHAR) LEN(13)
      
     RTVMBRD    FILE(*CWebsiteIB/MYFILE) MBR(AMEMBER *NEXT) +
                RTNLIB(&LIB) RTNSYSTEM(&SYS) RTNMBR(&MBR) +
                FILEATR(&MTYPE) CRTDATE(&CRTDATE) TEXT(&TEXT) +
                NBRCURRCD(&NBRRCD) DTASPCSIZ(&SIZE) USEDATE(&USEDATE) +
                USECOUNT(&USECNT) RESETDATE(&RESET)
 
 
 
 You are interested in:  &NBRRCD

---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------
 
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: Wednesday, January 29, 2003 15:30:54
To: 'midrange-l@midrange.com'
Subject: Checking for records in CL?
 
Is there any way to check, in CL only, if a file has records?
 
Currently I am using:
PGM
RGZPFM FILE(TEMP)
MONMSG MSGID(CPF2995) EXEC(GOTO CMDLBL(SKIPIT))
 
...code that shouldn't run if there aren't any records...
 
SKIPIT:
ENDPGM
 
This works OK, but I would definately prefer a positive test.
 
Other alternatives?
_______________________________________________