× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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?
_______________________________________________
 


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.