Path: utzoo!mnetor!tmsoft!torsqnt!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!uakari.primate.wisc.edu!aplcen!haven!decuac!shlump.nac.dec.com!mountn.dec.com!memit.enet.dec.com
From: shatara@memit.enet.dec.com (Chris Shatara)
Newsgroups: comp.sys.apple
Subject: Help with SHRDump CDA (tml-II)
Message-ID: <1097@mountn.dec.com>
Date: 25 Nov 89 21:00:17 GMT
Sender: news@mountn.dec.com
Organization: Digital Equipment Corporation
Lines: 42

I'm having a problem running the SHRDump CDA example that came with
TML Pascal II and think you might be able to help.

I got it to work the very first time I compiled it, but I noticed that 
it produced a file of "Type Unknown".  I tried changing the code as 
follows:

    begin

    	P2GS('*/SHRScreen',pathNameGS)		<- original
    	.
    	.
    	{ create a new "SHRScreen" file }  
    	createRec.pCount := 1;			<-original
    	createRec.pathname := @pathNameGS;	<-original
    	createRec.fileType := $C1;		<- NEW !!!!
    	CreateGS(createRec);
    	.
    	.
    	.

When I compiled and tried to run it (after rebooting of course), it 
appears to work in that it creates a file, then I get a 

    	FATAL SYSTEM ERROR 0308   ( heartbeat queue damaged )

Two questions:

1) Any idea what causes this.  I will send the code to anyone that might
want to see it. It appears to be quite trivial.

2) Would the change I made cause the file of type $C1 to be produced or do
I need to do something else.  Reason I ask is that the file created before 
the system crashes is of Type Unknown.

Thanks for any help you can give....Chris

=============================================================================
|        Chris Shatara       |      Internet:    shatara@memit.enet.dec.com | 
|  Opinions expressed are    |      DEC Easynet: memit::shatara             |
|   mine and mine only!      |      UUCP:        ...!decwrl!memit!shatara   |
=============================================================================