HP3000-L Archives

January 2002, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Clark, Rick" <[log in to unmask]>
Reply To:
Clark, Rick
Date:
Thu, 24 Jan 2002 14:28:14 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (117 lines)
Anyone aware of any changes to the ACTIVATE intrinsic or the STOP RUN
command in COBOL on 6.5 PP2?? Here is what we are experiencing.

On our test side, we have an inquiry program that runs stand alone. When
running this program and then we exit out of the program, the file still
lists as accessed. Prior to version 6.5, the program merely aborted out of
the program (please don't ask) :).

I have searched the communicators and HP Docs but no mention of any changes
to this.


1) program accessed by one person

PUB IBS:listf wwp007.object.ibs,9
********************
FILE: WWP007.OBJECT.IBS
2 Accessors(O:2,P:2,L:0,W:0,R:2),Share
#S324   PAM,MGR.IBS                P:2,L:0,W:2,R:2      REM :
 #P2402  (WWP007.OBJECT.IBS)
   ACCESS: R,X,L-gmulti      REC#: 0                    FNUM: 8
    LOCKS: none
 #P1479  (WWP007.OBJECT.IBS)
   ACCESS: R,X,L-gmulti      REC#: 0                    FNUM: 8
    LOCKS: none

2) UDC to run stand alone version

PUB IBS:help ti
User-defined command:

TI
FILE ARDB=ARDB.FILES
FILE SCDB=SCDB.FILES
FILE P1=INQLSTP1;DEV=LP6,1;CCTL
FILE P2=INQLSTP2;DEV=LP6,1;CCTL
FILE P3=INQLSTP3;DEV=LP6,1;CCTL
FILE WWV007=WWV007.PUB
RUN WWP007.OBJECT;LIB=G;MAXDATA=30000
PUB IBS:

3) Run stand alone version

PUB IBS:ti

****************************************
*                                      *
* Weltman, Weinberg and Reis Co., LPA  *
*                                      *
*               Inquiry                *
*                                      *
****************************************
Enter option>>E


4) After I exit from the program it shows I am still accessing the object
file.

PUB IBS:listf wwp007.object.ibs,9
********************
FILE: WWP007.OBJECT.IBS
3 Accessors(O:3,P:3,L:0,W:0,R:3),Share
#S1095  RAC,MGR.IBS                P:1,L:0,W:1,R:1      REM :
 #P1866  (WWP007.OBJECT.IBS)
   ACCESS: R,X,L-gmulti      REC#: 0                    FNUM: 8
    LOCKS: none

#S324   PAM,MGR.IBS                P:2,L:0,W:2,R:2      REM :
 #P2402  (WWP007.OBJECT.IBS)
   ACCESS: R,X,L-gmulti      REC#: 0                    FNUM: 8
    LOCKS: none
 #P1479  (WWP007.OBJECT.IBS)
   ACCESS: R,X,L-gmulti      REC#: 0                    FNUM: 8
    LOCKS: none


5) Piece of code that calls intrinsic ACTIVATE

   PERFORM P0990-DRIVER
     UNTIL TERM-WS
   CALL INTRINSIC "ACTIVATE" USING
                        %0
                        %1
   IF C-C NOT = 0
     STOP RUN
   ELSE GO TO P0060-RESTART-MAIN-LINE.


Any thoughts or comments??

Thanks in advance.

Rick Clark
Systems Manager
Weltman, Weinberg & Reis
Cleveland, Ohio



**Confidentiality Notice**

This e-mail and the documents accompanying this transmission contain
confidential information belonging to the sender which is legally
privileged. The information is intended only for the use of the individuals
or entities named above. If you are not the intended recipient, you are
hereby notified that any disclosure, copying, or distribution or the taking
of any action in reliance on the contents of this e-mailed information is
strictly prohibited. If you have received this e-mail in error, please
immediately notify the sender by e-mail at the address above. The
transmission is to be deleted and any items that may have been printed are
to be destroyed. Thank you for your compliance.

 <<Clark, Rick.vcf>>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2