I created a quickie Cobol program with a call to this intrinsic. It didn't
even compile!
Here it is:
$CONTROL OPTIMIZE=1,VALIDATE,BOUNDS,CROSSREF,POST85,SYNC32
$CONTROL ERRORS=5
IDENTIFICATION DIVISION.
PROGRAM-ID. LDEVTYPE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LDEV-NO PIC S9(09) COMP VALUE +2.
01 WS-LDEV-TYPE PIC S9(09) COMP VALUE ZEROES.
PROCEDURE DIVISION.
A000-MAINLINE.
CALL INTRINSIC "LDEVTOTYPE" USING WS-LDEV-NO
GIVING WS-LDEV-TYPE
END-CALL.
DISPLAY 'THE TYPE IS=>' WS-LDEV-TYPE "<".
STOP RUN.
:COB85XL LDEVTYPE.SOURCE,,$NULL
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
----------------------------------------------------------------------------
--
00031 001700 80 371 Q INTRINSIC LDEVTOTYPE NOT FOUND IN INTRINSIC
FILE.
0 ERROR(s), 1 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 48 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:03.
END OF PROGRAM
END OF COMPILE
However, my box is running under 6.5 PP2 and this intrinsic may be a
7.xx intrinsic....
As I said, the AIF procedure is a better bet as it will give much more
info for an LDEV than just its type....
Brian.
On Tue, 26 Oct 2004 13:30:17 -0500, Jerry Fochtman <[log in to unmask]>
wrote:
>At 02:10 PM 10/26/2004 -0400, Brian Donaldson wrote:
>>I only have the 6.5 Inrinsics manual and there is no such Intrinsic
>>(LDEVTOTYPE)
>
>
> From the book "Compass", published in 1989, which documents over 100
>previously undocumented procedures. I don't know it's current status:
>
>Purpose
>-------
>
>Returns device type for the specified LDEV number.
>
>SYNTAX
>------
>
> I IV
> type = LDEVTOTYPE(ldev) O-P
>
>(Requires Privileged Mode).
>
>* 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 *
|
