Reposition Implementation Data

If the database/file number of a user system file is changed by an Adabas utility, XRef data points to a wrong file, and the implementation pointer of the documentation may point to a wrong database/file number.

Database/file numbers and implementation pointers can be corrected with the function Reposition implementation data.

The Reposition Implementation Data function is invoked with code I in the Special Functions menu or with the command SPECIAL IMPLEMENTATION.

If a duplicate implementation pointer is found and the parameter Add to workplan is set to Y, a MODIFY command is added to the workplan for the respective documentation object.

16:47:02                *****  P R E D I C T  *****                  2017-06-07
Plan   0             - Reposition implementation data -                        
                                                                               
                                                                               
                                                                               
Old environment                             New environment                    
  Database number..........                   Database number....... 180       
  File number..............                   File number........... 54        
  Library.................. *                 Library............... *         
                                                                               
What to convert                                                                
  Active References ....... Y (Y/N)                                            
  Documentation ........... Y (Y/N)                                            
                                                                               
Processing options                                                             
  Fill in documentation...* D  Mem, Lib, FNR, DBNR                             
  List actions ...........* A  All actions                                     
  Add to workplan ......... Y (Y/N)                                            
                                                                               
                                                                               
Command ===>                                                                   
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
      Help  Next  Stop  Last  LnkEl Flip  Print Impl  AdmFi SelFi Prof  Main

Note:
It is possible that a large number of records is read and updated with this function. We therefore recommend running it in batch mode. See Reposition Implementation Data in Batch Mode.

Parameters
Old environment
Database number	Old database number (source).
File number	Old file numbers (source).
Library	Old library name (source). It is possible to specify the current library with an asterisk, but we strongly recommend specifying the library explicitly to prevent accidental deletion.
New environment
Database number	Database number of the current environment which is always taken as the new environment.
File number	File number of the current environment which is always taken as the new environment.
Library	New library name (target). If an asterisk is specified in this field, the library name of the old environment is kept.
What to convert
Active References	Y	Reposition XRef data. The system checks if an object module exists for the new file. If this is the case and the processing option Del. wrong XRef data is set to Y, the XRef data is moved from Old environment to New environment and the old XRef data is deleted. This means that the following Adabas functions must be executed first: unload FUSER load FUSER to another file or renumber the Adabas file.
Active References	N	XRef data is not repositioned.
Documentation	Y Newline	Documentation is repositioned.
Processing options
Fill in documentation	Determines the scope of the implementation pointer. Valid values:
	D	Member, library, file number, database number
	F	Member, library, file number
	L	Member, library
	M	Member
	Note: It is not always necessary to specify all four parameters to create a unique implementation pointer.
List actions	Determines the scope of information displayed.
	A	All objects found under Old environment are listed.
	N	No actions are listed, information appears briefly on screen.
Add to workplan	Only applicable if duplicate implementation pointer is found, in which case no change is performed and an error message is given.
	Y	The command `MOD <object type><name>` is added to the workplan. The values for <object type are either PR or SY.
	N	No command is added to the workplan.

This section covers the following topics:

Reposition Implementation Data in Batch Mode

Reposition Implementation Data in Batch Mode

This function can also executed in batch mode with the command SPECIAL IMPLEMENTATION. If duplicate implementation pointers are found, no changes are performed, an error message is given and the command MOD <object type><name> is added to the workplan.

Note:
When working online, MOD <object type><name> commands are put in your own workplan. In batch mode, the workplan must be specified explicitly, whereby different considerations apply if Natural Security is installed. See table below.

Adding Commands to Workplan in Batch Mode
With Natural Security	Without Natural Security
Logon user ID Profile user ID	JOB name Profile User ID of JOB
Adding commands to workplan where profile ID = logon user ID
Commands are added to the workplan of the logon user ID. If the user is not defined in Predict, an error message is given.	Give the job the same name as the ID of the user whose workplan is to be appended. This allows you to use the profile of another user If naming conventions at your installation prevent you using a user ID as job name, you must code the following statement: PROFILE <user> This results in the user ID being stored in the parameter profile user ID. The system checks first whether the job name can also be used as user ID. If not, the workplan of the user defined in profile user ID is appended.
Using the profile of another user
To use the profile of another user, code the following statement: `PROFILE <other-user>`	Give the job the same name as the ID of the user whose workplan is to be appended. To use the profile of another user code the following statement: `PROFILE <user>` If naming conventions at your installation do not permit using a user ID as job name, it is not possible to use the profile of another user.

Parameters for the SPECIAL IMPLEMENTATION command can be entered in positional or keyword form. The table below gives a list of keywords, the corresponding field in the Reposition implementation data screen and the relative position of the keywords.

Keyword	Field	Position
OLD-DBNR	Database number	01
OLD-FNR	File number	02
OLD-LIB	Library	03
NEW-LIB	Library	04
ACTIVE	Active References	05
DOC	Documentation	06
DEL-XREF (not used)	Delete wrong XRef data	07
FILL	Fill in documentation	08
LIST	List actions	09
ADD-TO-WP	Add to workplan	10

Example

In the following example, references are changed from database number 10, file number 5 to the current FUSER file number. All updates performed are listed on screen, all incorrect XRef data is deleted.

SPECIAL IMPLEMENTATION
OLD-DBNR=10, OLD-FNR=5, ACTIVE=Y, DOC=Y, FILL=D, LIST=A,% 
ADD-TO-WP=Y

or in positional form:

SPECIAL IMPLEMENTATION 
10,5,*,*,Y,Y,,D,Y,Y