Still doesn't work, compiles ok, but doesn't run.... (loader error)
Or what am I missing?
cob85xl ldevtype.source,,$null
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 48 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
:link from=$oldpass;to=ldevtype.nmprg;cap=pm
HP Link Editor/iX (HP30315A.06.15) Copyright Hewlett-Packard Co 1986
LinkEd> link from=$oldpass;to=ldevtype.nmprg;cap=pm
:ldevtype
UNRESOLVED EXTERNALS: ldevtotype (LDRERR 512)
Failed to locate the exported code symbol(s) for the imported code symbol(s)
listed above. (LDRERR 522)
Native mode loader message 522
Unable to load program to be run. (CIERR 625)
link from=$oldpass;to=ldevtype.nmprg;cap=pm;xl=xl.pub.sys
:link from=$oldpass;to=ldevtype.nmprg;cap=pm;xl=xl.pub.sys
HP Link Editor/iX (HP30315A.06.15) Copyright Hewlett-Packard Co 1986
LinkEd> link from=$oldpass;to=ldevtype.nmprg;cap=pm;xl=xl.pub.sys
:ldevtype
UNRESOLVED EXTERNALS: ldevtotype (LDRERR 512)
Failed to locate the exported code symbol(s) for the imported code symbol(s)
listed above. (LDRERR 522)
Native mode loader message 522
Unable to load program to be run. (CIERR 625)
Brian.
On Tue, 26 Oct 2004 15:10:58 -0500, Jerry Fochtman <[log in to unmask]>
wrote:
>It's not an INTRINSIC, it's an external procedure. Don't declare it as an
>intrinsic.
>
>At 03:14 PM 10/26/2004 -0400, you wrote:
>>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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
