Conference iosg::all-in-1_v30

1929.0. "Housekeeping PT , ROA and SA_FILL8 problem" by BACHUS::BERVOETS (Luc Bervoets - CSC Brussels alive and kicking) Wed Dec 09 1992 14:29

Hallo,

I encountered the following problem with the housekeeping procedures 
"PT" and "ROA in ALL-IN-1 v3.0. Under ALL-IN-1 v2.4 "number of corrupt
     account" or "number of recovered block" was written in SA_FILL8.

This is no longer working under v3.0.

This means also when you do a "Show information" about the housekeeping
procedures you no longer see this info .

For solving this problem I have modified the following files and included you
 will see the modifications.

For "PT" the following files are modified "OA$SM_FCVR_PRE_PHASE1_SCHEDULE.COM"
 and "SM_FCVR_PRE_TEST.SCP".

For "ROA" I have modified "PROBATCH.COM"

Modification PT:	"OA$SM_FCVR_PRE_PHASE1_SCHEDULE.COM"
**************** 	************************************

				...

$! Log into ALL-IN-1 and run the pre phase 1 module of the FCVR
$!
$ SET VER
$ 	ALLIN1	/NOINIT -
		/REENTER -
		/USERNAME='P2/PASSWORD ="''P3'"  

OA$INI_INIT
GET #fcvr_schedule_rec = CLI$P1
GET OA$TIME
DO SM_FCVR_PRE_TEST.SCP
GET CLI$a1dir = PROFIL.DIRECT[OA$USER]
EXIT
$!!!!!!
$!!!!!!		This line has been added for SA_FILL8 problem - Luc B
$!!!!!!
$ LOG_INFO == LOG_INFO
$!!!!!!
$!!!!!!			End Modification - Luc B.
$!!!!!!
$!
$	util_a1sub_log = a1dir + "A1SUB.LOG"
$	TYPE 'util_a1sub_log'
	
				.....


			SM_FCVR_PRE_TEST.SCP
			********************
! Report statistics to SM log
!
compute #no_of_errors = #no_of_drawers - #no_of_successes
compute #bad_accounts = #no_of_accounts - #no_of_good_accounts
!!!!!!!!!!
!!!!!!!!!!		Added the following line for SA_FILL8 problem - Luc B.
!!!!!!!!!!
GET CLI$LOG_INFO = #BAD_ACCOUNTS
!!!!!!!!!!
!!!!!!!!!!		End Modification - Luc B.
!!!!!!!!!!
.text ""
.text "====================================================="
.text ""
.text "Number of drawers on the system           = " #no_of_drawers
.text ""
.text "Number of drawers that are in error       = " #no_of_errors
.text ""
.text "Number of accounts processed              = " #no_of_accounts
.text ""
.text "Number of accounts that are in error      = " #bad_accounts
.text ""
.text "====================================================="
.text ""

!+
! Report statistics to SA log
		
				...

Modification ROA:	"PROBATCH.COM
***************** 	*************
	
				...
+
$!      Log the number of disk blocks recovered from the conversion of the
$!      two files.
$!-
$ pro_size_new=f$file_attributes("''profile_file'","EOF")
$ net_size_new=f$file_attributes("''network_file'","EOF")
$!!!!!!!
$!!!!!!!	The following line has been changed for SA_FILL8 - Luc B. 
$!!!!!!!
$!!!!!!! log_info = (pro_size_orig - pro_size_new) + (net_size_orig - net_size_new)
$!!!!!!! replace "=" by "=="
$!!!!!!!
$ log_info == (pro_size_orig - pro_size_new) + (net_size_orig - net_size_new)
$!!!!!!!
$!!!!!!!		End Modification - Luc B.
$!!!!!!!
$ wso "''log_info' blocks recovered following file reorganisation"
$!
$      status = 1
$      goto final_exit
$!
$ convert_error:
				....




NB.: When modifying those files by using CM there is another problem.

It is possible to modify those files, but when moving again to the "LIVE" 
environment the owner is "OA$MANAPP". But when running the housekeeping 
procedure again you receive the following error"

          H O U S E K E E P I N G  E X C E P T I O N  R E P O R T


Procedure type:Preliminary Test of File Cabinets

Description of procedure:  PT

Procedure error:

     Housekeeping command file has wrong ownership

      

The failure log is: OA$LOG:OA$SM_PRE_TEST_OF_FILE_CAB.LOG1992120816090000


This was the protection of the after modification 
+++++++++++++++++++++++++++++++++++++++++++++++++


Directory SYS$SYSDEVICE:[ALLIN1.SITE.LIB_ENGLISH]

PROBATCH.COM;1       OA$MANAPP             (RWED,RWED,RE,RE)
          (IDENTIFIER=OA$MANAPP,ACCESS=READ+WRITE+EXECUTE+DELETE)

Total of 1 file.

Directory SYS$SYSDEVICE:[ALLIN1.SITE.LIB_SHARE]

OA$SM_FCVR_PRE_PHASE1_SCHEDULE.COM;1
                     OA$MANAPP             (RWED,RWED,RE,RE)
          (IDENTIFIER=OA$MANAPP,ACCESS=READ+WRITE+EXECUTE+DELETE)

Total of 1 file.

Directory SYS$SYSDEVICE:[ALLIN1.SITE.LIB_ENGLISH]

SM_FCVR_PRE_TEST.SCP;1
                     OA$MANAPP             (RWED,RWED,RE,RE)
          (IDENTIFIER=OA$MANAPP,ACCESS=READ+WRITE+EXECUTE+DELETE)

Total of 1 file.

Grand total of 3 directories, 3 files.



After changing the ownership again to [ALLIN1] the procedure worked fine.

Regards,

Luc Bervoets - CS Brussels