|
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 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.