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