|
Loyd, If you want to use check object in a CL program pass the member name PGM parm&MBRNAM) DCL CHKOBJ OBJ(FILEA) OBJTYPE(*FILE) MBR(*MBRNAM) or use Use the command DSPFD type of information is member list to an outfile. Declare the outfile in a Cl program and read in a loop. PGM (PARM - member name to check) DCLF QADFMBRL DSPFD FILE(*LIBL/FILEA) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADFMBRL) > OVRDBF QADFMBRL QTEMP/QADFMBRL LOOP: RCVF MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) (Put your code here to Check Member Name entered against member in file) END: ENDPGM If you want to Use check object > ---------- > From: Goodbar, Loyd (AFS-Water > Valley)[SMTP:LGoodbar@afs.bwauto.com] > Sent: Tuesday, August 04, 1998 10:28 AM > To: 'Midrange-L' > Subject: Retrieving member names > > In CL, how do I retrieve a list of database member names? I'm creating a > command that uses members, and I'm trying to determine whether the > member exists. The hitch is I'm allowing *FIRST or *LAST for the member > name, but CHKOBJ doesn't allow *LAST as a member parameter. So, do I use > CHKOBJ or is there another way? > > Thanks, > > -- > Loyd Goodbar > Senior Programmer/Analyst > Air/Fluid Systems > Borg-Warner Automotive > Water Valley MS > > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to > MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.