Subject: | |
From: | |
Reply To: | |
Date: | Thu, 24 Jul 1997 01:37:19 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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.
|
|
|