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


  1.  Home
  2. COBOL400-L
  3. October 2006

Re: COBOL400-L Digest, Vol 4, Issue 102

Michael,

Thanks so much - I will try the QWCLOBJL API.  

I also tried the CHKOUT command from the command line - I must say I was
very disappointed in the response time it took to get back the busy
message to me.  I will assume that the API will be faster than CHKOUT.
Also, I tried the ALCOBJ from the command line, on a file that was
texted into editor in another session, but it did not return a 'busy'
message to the session on which I administered the ALCOBJ command.  I
did not have a wait parm.  This is what I entered:

alCOBJ OBJ((Z13WORK/UEC101 *FILE *SHRRD))  

Also, I tried DSPAUT and although the documentation says it should come
back with a 'Object in use' message - it did not for me (when the file
was texted into editor).

Any thoughts?  

Thanks so much!

Adrienne McConnon
Vercuity - Parsippany,  NJ





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