Deallocate - Retirando Espaço ao File
Vamos retirar espaço (Deallocate) de um file Adabas, primeiro acessamos o SYSAOS - o file que vamos tirar vai ser o 83 vamos tirar 100 blocks do NI
O banco estava com dois pequeno espaço não usados - um de 30 no DATA e outro de 3 no ASSO - para ajuntar estes espaços não usados fizemos.
Vamos retirar espaço (Deallocate) de um file Adabas, primeiro acessamos o SYSAOS - o file que vamos tirar vai ser o 83 vamos tirar 100 blocks do NI
11:37:16 ***** A D A B A S BASIC SERVICES ***** 2008-08-15
DBID 220 - Display File Layout - PDRF022
File 83
IDeviceIListI Space allocated I From To I Unused
I Type ITypeI Blocks / Cyls. I RABN RABN I Blocks / Cyls.
-----I------I----I------------------I ------------------------I---------------
I I I I I
ASSO I 8391 I AC I 20 0 I 120250 - 120269 I 0 0
I 8391 I UI I 43 0 I 120270 - 120312 I 33 0
I 8391 I NI I 357 1 I 120313 - 120669 I 340 1
I I I I I
DATA I 8391 I DS I 103 1 I 513070 - 513172 I 87 1
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Opção F - File maintenance
11:51:19 ***** A D A B A S BASIC SERVICES ***** 2008-07-09
- Main Menu - PMAIN02
Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
C Checkpoint maintenance 2 Delta Save Facility
F File maintenance 3 Trigger Maintenance
M Database maintenance 4 AOS Security
O Session opercoms 5 Transaction Manager
R Database report 6 Adabas Statistics
S Space calculation 7 Vista
? Help 8 Fastpath
. Exit 9 SAF Security
---- ---------------------- ---- ---------------------
Code ....... f
Database ... 220 (DB.T220.SINTEGRA)
MENFL04 : - File Service - Function interrupted
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit
Opção S - Allocate/deallocate file space
11:51:30 ***** A D A B A S BASIC SERVICES ***** 2008-07-09
- File Maintenance - PFL0002
Code Service
---- ------------------------------
C Define/modify FDT
D Release descriptor
E Delete existing file
F Define new file
M Modify file parameters
O Reorder file online
R Refresh file to empty status
S Allocate/deallocate file space
X Maintain expanded files
? Help
. Exit
---- ------------------------------
Code ......... S
File No ...... 83 Descriptor Name .. __
Database ID .. 220 (DB.T220.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Deallocate - Retirando espaço do file
11:37:41 ***** A D A B A S BASIC SERVICES ***** 2008-08-15
DBID 220 - Allocate/Deallocate File Space - PFLS002
File Number .............. 83
File Name ................ SINTEGRA-RECEITAS-BRUTAS
Enter Parameters : Possible values:
Allocate/Deallocate ... d (A/D)
Table Type ............ ni (AC/DS/NI/UI)
Size .................. 100
Blocks or Cylinders ... B (B/C)
Start RABN ............ __________
Device Type ........... ____
File Password ............
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Feito com sucesso;
11:39:00 ***** A D A B A S BASIC SERVICES ***** 2008-08-15
- File Maintenance - PFL0002
Code Service
---- ------------------------------
C Define/modify FDT
D Release descriptor
E Delete existing file
F Define new file
M Modify file parameters
O Reorder file online
R Refresh file to empty status
S Allocate/deallocate file space
X Maintain expanded files
? Help
. Exit
---- ------------------------------
Code ......... _
File No ...... 83 Descriptor Name .. __
Database ID .. 220 (DB.T220.SINTEGRA)
EFLS006 : - Space Deallocation - Function ended successfully
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Foi retirado 100 blocos do NI
11:37:16 ***** A D A B A S BASIC SERVICES ***** 2008-08-15
DBID 220 - Display File Layout - PDRF022
File 83
IDeviceIListI Space allocated I From To I Unused
I Type ITypeI Blocks / Cyls. I RABN RABN I Blocks / Cyls.
-----I------I----I------------------I ------------------------I---------------
I I I I I
ASSO I 8391 I AC I 20 0 I 120250 - 120269 I 0 0
I 8391 I UI I 43 0 I 120270 - 120312 I 33 0
I 8391 I NI I 257 1 I 120313 - 120669 I 340 1
I I I I I
DATA I 8391 I DS I 103 1 I 513070 - 513172 I 87 1
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Allocate - Adicionado Espaço ao File
O banco estava com dois pequeno espaço não usados - um de 30 no DATA e outro de 3 no ASSO - para ajuntar estes espaços não usados fizemos.
13:55:42 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
DBID 177 - Display Unused Storage - PDRU012
I Device I Total Number of I Extent in Blk. I
I Type I Blocks / Cyls. I from - until I
------I--------I------------------------- I----------------------------I
DATA I 8391 I 30 0 I 423147 - 423150 I
I 8391 I 102929 1372 I 423117 - 526045 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 3 0 I 154515 - 154517 I
I 8391 I 276701 1537 I 263288 - 539988 I
Vamos adicionar este espaço no file - no SYSAOS na opção F - File maintenance
13:56:12 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
- Main Menu - PMAIN02
Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
C Checkpoint maintenance 2 Delta Save Facility
F File maintenance 3 Trigger Maintenance
M Database maintenance 4 AOS Security
O Session opercoms 5 Transaction Manager
R Database report 6 Adabas Statistics
S Space calculation 7 Vista
? Help 8 Fastpath
. Exit 9 SAF Security
---- ---------------------- ---- ---------------------
Code ....... f
Database ... 177 (DB.D177.SINTEGRA)
EPDR05 : 'Database Report' function interrupted
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit
Opção S - Allocate/deallocate file space
14:01:36 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
- File Maintenance - PFL0002
Code Service
---- ------------------------------
C Define/modify FDT
D Release descriptor
E Delete existing file
F Define new file
M Modify file parameters
O Reorder file online
R Refresh file to empty status
S Allocate/deallocate file space
X Maintain expanded files
? Help
. Exit
---- ------------------------------
Code ......... s
File No ...... 124 Descriptor Name .. __
Database ID .. 177 (DB.D177.SINTEGRA)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
DATASET ASSO - Esta vai ser a opção que vai adicionar mais espaço para o file
14:01:45 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
DBID 177 - Allocate/Deallocate File Space - PFLS002
File Number .............. 124
File Name ................ SINTEGRA-CAD-GERAL-BENEFICIO
Enter Parameters : Possible values:
Allocate/Deallocate ... a (A/D)
Table Type ............ ac (AC/DS/NI/UI)
Size .................. 3
Blocks or Cylinders ... B (B/C)
Start RABN ............ __________
Device Type ........... ____
File Password ............
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
DATASET DATA - Esta vai ser a opção que vai adicionar mais espaço para o file 273
13:06:02 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
DBID 177 - Allocate/Deallocate File Space - PFLS002
File Number .............. 273
File Name ................ SINTEGRA-AUTO-ATENDIMENTO
Enter Parameters : Possible values:
Allocate/Deallocate ... a (A/D)
Table Type ............ ds (AC/DS/NI/UI)
Size .................. 30
Blocks or Cylinders ... B (B/C)
Start RABN ............ __________
Device Type ........... ____
File Password ............
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Os dois comandos foram dados com sucesso
13:06:17 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
- File Maintenance - PFL0002
Code Service
---- ------------------------------
C Define/modify FDT
D Release descriptor
E Delete existing file
F Define new file
M Modify file parameters
O Reorder file online
R Refresh file to empty status
S Allocate/deallocate file space
X Maintain expanded files
? Help
. Exit
---- ------------------------------
Code ......... _
File No ...... 273 Descriptor Name .. __
Database ID .. 177 (DB.D177.SINTEGRA)
EFLS006 : - Space Allocation - Function ended successfully
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
No final ficou assim os espaços não utilizados no banco Adabas 177.
14:48:30 ***** A D A B A S BASIC SERVICES ***** 2009-06-08
DBID 177 - Display Unused Storage - PDRU012
I Device I Total Number of I Extent in Blk. I
I Type I Blocks / Cyls. I from - until I
------I--------I------------------------- I----------------------------I
DATA I 8391 I 102929 1372 I 423117 - 526045 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 276701 1537 I 263288 - 539988 I

0 comentários:
Enviar um comentário