HP3000-L Archives

July 1997, 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:
Michael J Anderson <[log in to unmask]>
Reply To:
Michael J Anderson <[log in to unmask]>
Date:
Thu, 24 Jul 1997 01:37:19 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (42 lines)
Hi everyone,

My previous employer, now a client, just upgraded to 5.5 from 5.0

The machine in question is a development and a NetWork Server, WEB,
EMAIL, SAMBA, and NFS ect....

However, I have written some SYS ADMIN applications that use VPLUS block
mode i/o and since the 5.5 upgrade my applications crash-n-burn! View
Error 45 on VSHOWFORM. This means that I havn't opened the TERMFILE with
VOPENTERM. To complicate the problem a little I have a set of
subroutines that I use to interface with the VPLUS intrinsics, things
like VSINIT, VSREAD, VSWRITE, ect...... So I have a paragraph of COBOL
code that will "VOPENTERM" and "VOPENFORM" if it's NOT already open.
"VOPENTERM" is NOT being called EVER! Because "FFILEINFO" is lying to my
routine and telling it that the TERM is already open, when in fact it is
not open and never has been. This very same program when copied to the
5.0 machine runs great!

Q: DOES ANYONE KNOW OF ANY ENHANCEMENTS TO FFILEINFO INTRINSIC with 5.5?

Q: DOES ANYONE KNOW OF A BETTER WAY TO CHECK IF A TERM FILE IS OPEN?

Here's a little extract of the COBOL:


305800     MOVE SCREEN-FORMS-FILE TO FORMS-FILE.
305900     PERFORM 8505-VIEW-OPENFORMF.
306000     CALL INTRINSIC "FFILEINFO" USING SCREEN-FILEN \60\ TERM-X.
306100     IF CC NOT = ZERO OR TERM-X LESS THAN 1 OR GREATER THAN 5
306200         PERFORM 8500-VIEW-OPENTERM
306300         MOVE "0" TO TERM-OFF-SW.
306400     IF TERM-TYPE = ZERO CALL INTRINSIC "FCONTROL"
306500         USING SCREEN-FILEN \39\ TERM-TYPE.


Well, I'll appreciate any and all info on this problem

Thanks again, in advance,

Michael Anderson.

ATOM RSS1 RSS2