Pete
You will need to terminate the file name with a
non alphanumeric character other than ./-_
This is from the intrinsics manual.
Hope this helps some.
Bob Schlosser - MPE-CSM
Ochsner Health Plan
(504) 219-8134
-----Original Message-----
From: Peter Osborne [mailto:[log in to unmask]]
Sent: Wednesday, May 30, 2001 9:52 AM
To: [log in to unmask]
Subject: FLABELINFO
Hello All,
We have a (Cobol) program that runs another program (using the
HPCICOMMAND intrinsic) and picks up the output files & uses it.
We are having problems with the program as it seems to pick up
the output to early and it is truncated. So in attempt to solve this
problem, we are trying to see how many accessors are using the
program being called. This works only because our Cobol program
is the only process that will call the second program. When the
second program is no longer being accessed, we know it's ok to
go ahead and use the output. To do this we are trying to use the
FLABELINFO intrinsic but we are getting odd results from it.
Below is the code & corresponding output.
Following is the codes:
01 PRGRM PIC X(15) VALUE "MYPROG.PUB.TEST".
01 LABEL-MODE PIC S9(4) COMP VALUE 2.
01 FITEMS.
03 IFILE-NAME PIC S9(4) COMP VALUE 1.
03 IFILE-GROUP PIC S9(4) COMP VALUE 2.
03 IFILE-ACCT PIC S9(4) COMP VALUE 3.
03 IFILE-ACCESS PIC S9(4) COMP VALUE 61.
01 FVALUES.
03 FLABEL-NAME PIC X(08).
03 FILE-GROUP PIC X(08).
03 FILE-ACCT PIC X(08).
03 ACCESS-NUM PIC S9(4) COMP VALUE 0.
01 FIERRORS.
03 FIERROR OCCURS 4 TIMES PIC S9(4) COMP VALUE 0.
01 ERRCODE PIC S9(4) COMP VALUE 0.
01 MSGLEN PIC S9(4) COMP VALUE 36.
01 INFO-LINE PIC X(79) VALUE SPACES.
.
.
.
.
CALL INTRINSIC "FLABELINFO" USING PRGRM-FILE,
LABEL-MODE,
ERRCODE,
FITEMS, FVALUES, FIERRORS.
IF ERRCODE NOT = 0
DISPLAY "FILELABELINFO failed, ERROR : ", ERRCODE
PERFORM FCHECK-ERROR THRU FE-END
IF ERRCODE = -1
DISPLAY "ITEM 1 ", FLABEL-NAME, " ERROR: ",
FIERROR (1)
DISPLAY " 2 ", FILE-GROUP, " ERROR:
", FIERROR (2)
DISPLAY " 3 ", FILE-ACCT, " ERROR:
", FIERROR (3)
DISPLAY " 4 ", ACCESS-NUM, " ERROR: ",
FIERROR (4).
.
.
.
.
FCHECK-ERROR.
CALL INTRINSIC "FERRMSG" USING ERRCODE, INFO-LINE,
MSGLEN.
DISPLAY INFO-LINE.
FE-END.
EXIT.
The output display as follows:
FILELABEL failed, ERROR : -0001
UNDEFINED FILE SYSTEM ERROR
ITEM 1 MYPROG ERROR : +0000
2 PUB ERROR : +0000
3 TEST ERROR : +0000
4 +0000 ERROR : +0000
From the above output surely item 4 is an error since the file
is accessed by other sessions. It should show the number
of accessors rather than a 0.
Does anyone have any ideas for us?
Thanks,
Peter Osborne
Carleton Technologies
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|