$
$     THIS ALTER IS CONFIDENTIAL AND A TRADE SECRET OF THE 
$     MSC.Software CORP.  THE RECEIPT OR POSSESSION OF
$     THIS ALTER DOES NOT CONVEY ANY RIGHTS TO REPRODUCE OR
$     DISCLOSE ITS CONTENTS, OR TO MANUFACTURE, USE, OR SELL
$     ANYTHING HEREIN, IN WHOLE OR IN PART, WITHOUT THE 
$     SPECIFIC WRITTEN CONSENT OF THE MSC.Software CORPORATION.                                
$
$ file dbdel mag 8 dec 97
$ delete blocks stored by dbstore
echooff $ echo and compile listing turned off 
compile dbdel nolist noref $
SUBDMAP DBdel I1,I2,I3,I4,I5//Q1/Q2/DBSET/COND $                              
$ delete data blocks which were saved with dbstore
$ copied from dbstore, dbstor.  changes in lower case
PUTSYS(3,242) $ TURN OFF F04 ECHO                                               
TYPE PARM,,I,,Q1,Q2,COND,FLG $                                                  
TYPE PARM,,CHAR8,,DBSET $                                                       
$                                                                               
IF (COND <> 0) RETURN $                                                         
PARAML I1//'PRES'////S,N,FLG                                                    
IF (FLG >= 0) CALL dbdl I1//Q1/Q2/DBSET                                       
PARAML I2//'PRES'////S,N,FLG                                                    
IF (FLG >= 0) CALL dbdl I2//Q1/Q2/DBSET                                       
PARAML I3//'PRES'////S,N,FLG                                                    
IF (FLG >= 0) CALL dbdl I3//Q1/Q2/DBSET                                       
PARAML I4//'PRES'////S,N,FLG                                                    
IF (FLG >= 0) CALL dbdl I4//Q1/Q2/DBSET                                       
PARAML I5//'PRES'////S,N,FLG                                                    
IF (FLG >= 0) CALL dbdl I5//Q1/Q2/DBSET                                       
PUTSYS(0,242) $ TURN ON F04 ECHO                                                
RETURN $                                                                        
END $                                                                           
compile dbdl nolist noref $
SUBDMAP dbdl INPUT//QUL1/QUL2/DBSET                                           
$                                                                               
$ deletes INPUT ON THE DATABASE VIA THE PERMANENT FILE                           
$        ZUZR11(NAME,QUL1,QUL2) FOR VERSION 66A AND UP                          
$                                                                               
TYPE DB ZUZR11 $                                                                
TYPE PARM,,I,,QUL1,QUL2,DIAGWD2 $                                               
TYPE PARM,NDDL,I,,ZUZR1,ZUZR2 $                                                 
TYPE PARM,,CHAR8,,NAME='ZUZR11',DBSET,TMPDB $                                   
TYPE PARM,NDDL,CHAR8,,ZNAME,DBZUZR $                                            
TYPE PARM,,LOGI,,DEBUG,DIAG20,DIAG47 $                                          
FILE INPUT=OVRWRT/ZUZR11=OVRWRT $                                               
$                                                                               
$ CHECK DIAG 20 OR 47 FOR DEBUG PRINT                                           
DIAG20 = (     GETDIAG(1)       >=(2**(19)) ) $                                 
DIAG47 = ( MOD(GETDIAG(2),2**15)>=(2**(14)) ) $                                 
DEBUG=(DIAG20 OR DIAG47) $                                                      
DIAGWD2 = GETDIAG(2) $ SAVE DIAG WORD 2 BEFORE SETTING DIAG 53 ON               
DIAGON(53) $ SET DIAG 53 TO ON                                                  
$                                                                               
$ SET THE QUALIFIERS                                                            
ZUZR1=QUL1                                                                      
ZUZR2=QUL2                                                                      
ZNAME=NAME                                                                      
$ SET THE LOCATION                                                              
IF (DBSET <> '        ') THEN                                                   
  TMPDB=DBZUZR                                                                  
  DBZUZR=DBSET                                                                  
ENDIF                                                                           
EQUIVX   INPUT/ZUZR11/ALWAYS $  PUT INPUT TO A TEMPORARY ZUZR11                 
CALL FNAME  /INPUT,ZUZR11/S,NAME $    GET THE DMAP NAME OF INPUT AND DEL        
ZNAME=NAME                                                                      
DBVIEW ZTMP=ZUZR11 (WHERE ZNAME='ZUZR11') $        
paraml zuzr11//'presence'////s,n,nozuzr11 $
$DELETE /ZUZR11,,,,/ $           DELETE OLD VERSION OF ZUZR11   moved down 
$EQUIVX ZTMP/ZUZR11/ALWAYS $     STORE INPUT TO FULLY QUALIFIED ZUZR11           
$EQUIVX ZTMP/INPUT/ALWAYS $     RESTORE INPUT                                    
IF(DEBUG and nozuzr11>-1) THEN $
 PARAML ZUZR11//'TRAILER'/1/S,N,T1                                              
 PARAML ZUZR11//'TRAILER'/2/S,N,T2                                              
 PARAML ZUZR11//'TRAILER'/3/S,N,T3                                              
 PARAML ZUZR11//'TRAILER'/4/S,N,T4                                              
 PARAML ZUZR11//'TRAILER'/5/S,N,T5                                              
 PARAML ZUZR11//'TRAILER'/6/S,N,T6                                              
 PARAML ZUZR11//'TRAILER'/7/S,N,T7                                              
  MESSAGE //' SYSTEM INFORMATION MESSAGE xxxx (dbdel) -'/                      
   'DATA BLOCK '/ZNAME/QUL1/QUL2/' (TRAILER ='/T1/T2/T3/T4/T5/T6/T7/            
   ') HAS BEEN deleted IN DBSET '/DBZUZR $                                       
$else if (debug) then $ this branch doesn't work.  look for another way to do this
$  message //'system information message yyyy (dbdel) -'/
$  'DATA BLOCK '/ZNAME/QUL1/QUL2/' (TRAILER ='/T1/T2/T3/T4/T5/T6/T7/
$   ') was not present IN DBSET '/DBZUZR $ 
ENDIF $                     
DELETE /ZUZR11,,,,/ $           DELETE OLD VERSION OF ZUZR11                    
$ZNAME = 'ZUZR11' $              SWITCH TO TEMPORARY                             
$DELETE /ZUZR11,,,,/ $           DELETE 'ZUZR11' VERSION                         
IF (DBSET <> '        ') DBZUZR=TMPDB $ RESET LOCATION BACK                     
PUTDIAG(DIAGWD2,2) $                                                            
RETURN                                                                          
END $ dbdel
echoon $