|
midrange.com
Michael,
I tried the QWCLOBJ call and cannot compile. Noe I have not used the
list API's before - but I have used others - am I missing a binding dir
or something in the compile - beloww is the compile error message I get.
BTW I am relatively new to the iSeries - but very willing to learn - if
you can point me in the right direction - I would appreciate it.
Thanks and have a great day!
Adrienne McConnon
Job description . . . . . . : QDFTJOBD Library . . . . . :
QGPL
MSGID TYPE SEV DATE TIME FROM
PGM LIBRARY INST TO PGM LIBRARY INST
Message . . . . : 2500 -
CRTBNDCBL PGM(ZZB/TWCLOBJL) SRCFILE(ZZB/CBLLE)
GENLVL(20) OPTION(*MAP) FLAG(00)
CPD5D02 Diagnostic 30 10/11/06 11:25:23.182464
QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . :
QBNBSYMR
From procedure . . . . . . :
QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . :
QBNBSYMR
To procedure . . . . . . . :
QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
Message . . . . : Definition not
found for symbol 'QWCLOBJL'.
Cause . . . . . : No definition
was found for reference QWCLOBJL in *MODULE
object TWCLOBJL in library
QTEMP. The definition either does not exist or is
not of the same data or
procedure type as the reference. Recovery . . . :
Try the Create Program (CRTPGM)
command again, supplying an object that
contains a definition for symbol
QWCLOBJL.
CPF3C50 Escape 40 10/11/06 11:25:23.188296
QBNBIND QSYS *STMT QLNMAIN4 QCBLLE *STMT
More...
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
cobol400-l-request@xxxxxxxxxxxx
Sent: Tuesday, October 10, 2006 1:00 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 4, Issue 102
Send COBOL400-L mailing list submissions to
cobol400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
cobol400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
cobol400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific than
"Re: Contents of COBOL400-L digest..."
Today's Topics:
1. Re: IS OBJECT BEING ACCESSED BY ANOTHER PROCESS - AND WHAT
IS THE PROCESS (Jim Essinger)
2. Re: COBOL400-L Digest, Vol 4, Issue 101
(MichaelQuigley@xxxxxxxxxx)
3. Re: COBOL400-L Digest, Vol 4, Issue 100 (Dhiraj)
----------------------------------------------------------------------
message: 1
date: Mon, 9 Oct 2006 11:07:08 -0600
from: "Jim Essinger" <dilbernator@xxxxxxxxx>
subject: Re: [COBOL400-L] IS OBJECT BEING ACCESSED BY ANOTHER PROCESS
- AND WHAT IS THE PROCESS
Adrienne,
Some links to the archive for Midrage-L discussion
Locked IFS objects;
http://archive.midrange.com/midrange-l/200202/msg00106.html
http://archive.midrange.com/midrange-l/200309/msg00519.html
System file
http://archive.midrange.com/midrange-l/200502/msg00423.html
Jim
--
Jim Essinger
Senior Programmer/Analyst
SLFIMA
PO Box 1000
Fruitland, ID 83619
208-452-4058 x133
On 10/9/06, Adrienne McConnon <Adrienne.McConnon@xxxxxxxxxxxx> wrote:
Hello all, I am trying to find a means by which to determine if an object (root or on qsys.lib), is being accessed and what is accessing the object. I thought that calling a cl from within my cobol program that comtained the DSPAUT command would return an 'object busy' type status, but it does not do that if I have the object in edit mode in the root file system. Before processing the file, I want to know that
it is not being accessed by another process or person. Is there a way
to just check this status, or will I have to attempt to lock a file and then let it fail (not my qst choice)? Thanks, Adrienne McConnon Vercuity - Parsippany - NJ
------------------------------ message: 2 date: Mon, 9 Oct 2006 14:40:49 -0400 from: MichaelQuigley@xxxxxxxxxx subject: Re: [COBOL400-L] COBOL400-L Digest, Vol 4, Issue 101 Adrienne, For objects in the QSYS.LIB file system, you could either try using the QWCLOBJL API or call a CL using the ALCOBJ command. If you use ALCOBJ, you will have to monitor (coding a MONMSG command) for the possible errors. QWCLOBJL is the List Object Locks API. If an object is not in use, you should get an empty list returned to your user space. The API is more flexible and gives more detailed results, but if all you are after is to see that the object is not in use, I would probably go with the ALCOBJ command in a CL. If you haven't worked with the list APIs before, there could be quite the learning curve. Checking the status for files in another file system will depend on the system. I've done very little of that kind of checking outside QSYS.LIB. Michael Quigley AS/400 Programming Section The Way International www.TheWay.org cobol400-l-bounces@xxxxxxxxxxxx wrote on 10/09/2006 01:00:02 PM:
date: Mon, 9 Oct 2006 10:58:28 -0500 from: "Adrienne McConnon" <Adrienne.McConnon@xxxxxxxxxxxx> subject: [COBOL400-L] IS OBJECT BEING ACCESSED BY ANOTHER PROCESS - AND WHAT IS THE PROCESS Hello all, I am trying to find a means by which to determine if an object (root or on qsys.lib), is being accessed and what is accessing the object. I thought that calling a cl from within my cobol program that comtained the DSPAUT command would return an 'object busy' type status, but it does not do that if I have the object in edit mode in the root file system. Before processing the file, I want to know that
it is not being accessed by another process or person. Is there a way
to just check this status, or will I have to attempt to lock a file and then let it fail (not my qst choice)? Thanks, Adrienne McConnon Vercuity - Parsippany - NJ ------------------------------ -- This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest
list
To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 4, Issue 101 ******************************************
------------------------------ message: 3 date: Tue, 10 Oct 2006 14:01:02 +0530 from: Dhiraj <dhirajpandey@xxxxxxxxx> subject: Re: [COBOL400-L] COBOL400-L Digest, Vol 4, Issue 100 Hi, The corresponding of Numeric Test in Cobol is TESTN in RPGLE. Regards On 10/6/06, cobol400-l-request@xxxxxxxxxxxx <cobol400-l-request@xxxxxxxxxxxx> wrote:
Send COBOL400-L mailing list submissions to cobol400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/cobol400-l or, via email, send a message with subject or body 'help' to cobol400-l-request@xxxxxxxxxxxx You can reach the person managing the list at cobol400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of COBOL400-L digest..." Today's Topics: 1. IF (NOT) NUMERIC (Geir.Kildal@xxxxxxxxxxxxxxx) 2. Re: IF (NOT) NUMERIC (Simon Coulter) ---------------------------------------------------------------------- message: 1 date: Fri, 6 Oct 2006 09:12:34 +0300 from: <Geir.Kildal@xxxxxxxxxxxxxxx> subject: [COBOL400-L] IF (NOT) NUMERIC Hi. May be this should be posted in the RPGLE-list, but I'm not there. So, what is the equivalent to the COBOL numeric test in RPGLE? I find: 'FIELD IFGE 0 FIELD ORLE 999' (FIELD is 3 0) I'm sure RPGLE can do better than this? Or? Mvh. Geir -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jon Paris Sent: Wednesday, October 04, 2006 5:26 PM To: 'COBOL Programming on the iSeries/AS400' Subject: Re: [COBOL400-L] Calling COBOL from RPG/RPGLE? There is no such thing as a "COBOL service program" so ... ???? You are trying to locate a service program currently being used by other programs? ???? You want to know how to create one? ???? Or ... ? Jon Paris Partner400 www.Partner400.com -- This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ------------------------------ message: 2 date: Fri, 6 Oct 2006 17:44:17 +1000 from: Simon Coulter <shc@xxxxxxxxxxxxxxxxx> subject: Re: [COBOL400-L] IF (NOT) NUMERIC On 06/10/2006, at 4:12 PM, <Geir.Kildal@xxxxxxxxxxxxxxx> wrote:May be this should be posted in the RPGLE-list, but I'm not there.Yes, it should be. If you have further RPG questions you should subscribe.So, what is the equivalent to the COBOL numeric test in RPGLE? I find: 'FIELD IFGE 0 FIELD ORLE 999' (FIELD is 3 0) I'm sure RPGLE can do better than this? Or?That's how it has to be for RPG III (and the so-called RPG/400 dialect). RPG IV supports that form too but gives additional options. RPG IV fixed-form extended factor 2: CL0N01Factor1+++++++Opcode&ExtExtended- factor2+++++++++++++++++++++++++++++ C IF field >= *ZERO OR field <= 999 RPG IV free-form: /FREE if field >= *ZERO or field <= 999; /END-FREE NOTE: I transcribed your example code but I think you probably want to
AND the clauses rather than OR them. Regards, Simon Coulter. -------------------------------------------------------------------- FlyByNight Software AS/400 Technical Specialists http://www.flybynight.com.au/ Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ Fax: +61 3 9419 0175 \ / X ASCII Ribbon campaign against HTML E-Mail / \ -------------------------------------------------------------------- ------------------------------ -- This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest
list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 4, Issue 100 ******************************************
------------------------------ -- This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 4, Issue 102 ******************************************
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.
