[comp.sys.apple] Help with SHRDump CDA

shatara@memit.enet.dec.com (Chris Shatara) (11/26/89)

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   |
=============================================================================