Page 1¶

Program Description¶

Date: 86.12.11
Norsk Data A.S.
Page 1 of 9

Product¶

Name	ND-no.	Category
UNIQUE-II ISAM for ND-500	210895B	ROY

Reason¶

X New product

Documentation¶

Title	ND-no
UNIQUE-II Programmer's Manual	60.210.2 EN
UNIQUE-II Brukerhåndbok	60.206.2 NO
UNIQUE-II User Manual	60.206.2 EN

Purpose¶

UNIQUE is a 4th generation program for loading, updating, and retrieving data with the ISAM database system.

Prerequisites¶

Computer	Type	Floating format	Op. system Version
ND-500	CX		SIN III VSX >=I

ND-no.	Product name
210073H	ISAM II, version >= H00
210319H	LINKAGE-LOADER for ND-500
2101901	FORTRAN for ND-500
210177G	COBOL for ND-500
210507B	Software Keys
211005A	UNIQUE Text System

Additional Programs¶

ND-no.	Prog.no.	File Name	Type	Containing
210005U	SUT-2412F	PERFORM-2412F	BPUN	PERFORM system
210022U	SUT-2412F	PERFORM-2412F	BPUN	PERFORM system
210050U	SUT-2412F	PERFORM-LIBR.	MCRO	PERFORM library
210022U	SUT-2412F	PERFORM-LIBR.	MCRO	PERFORM library
210455E	205489E	DBDTABLES-E02	VTM	VTM terminal desc.

Maximum Permanent Mass Storage Resources¶

User	User space	Number of files
DIALOG-SYS	570 pages	24 files
SYSTEM	2 pages	2 files

Minimum Permanent Mass Storage Resources¶

User	User space	Number of files
DIALOG-SYS	480 pages	10 files
SYSTEM	2 pages	2 files

File Information¶

File no.	File Name	Type	Containing
208805B	UNIQ-I-500-B	MCRO	PREFORM load job
208806B	UNIQ-I-1-B	NRF	UNIQUE object code part 1
208807B	UNIQ-I-2-B	NRF	UNIQUE object code part 2
2031011	FORTRAN-LIB-I00	NRF	FORTRAN library
204157C	EXCEPT-LIB-C00	NRF	EXCEPTION library
205985B	UE-PLIB-B	NRF	UE library
207778B	UNIQUE-B	BASE	EXAMPLE: database setup
208779B	UNIQUE-II-I-B-0	DEFL	EXAMPLE: system setup
208780B	UNIQUE-II-I-B-E	MENU	EXAMPLE: main menu
208781B	UNIQUE-II-I-B-N	MENU	EXAMPLE: main menu
208782B	ORDBBASE-B	INFO	EXAMPLE: ORDBBASE ISAM datab.

ooo ND Norsk Data ooo

Page 2¶

Program Description¶

Date: 86.12.11
Norsk Data A.S.

Unique-II ISAM for ND-500¶

ND-no.: 210895B
Category: ROY

ND-no	Name	UNIQ	Category	Example
208783B	CUSTOMER-I-B	UNIQ	EXAMPLE:	customer applic.
208784B	KUNDE-REGISTER-I	UNIQ	EXAMPLE:	customer applic.
208785B	PART-I-	UNIQ	EXAMPLE:	part application
208786B	VARE-REGISTER-I	UNIQ	EXAMPLE:	part application
208787B	SALES-ORDER-I-B0	UNIQ	EXAMPLE:	sales-order applic.
208788B	ORDRE-REGISTER-I	UNIQ	EXAMPLE:	sales-order applic.
207777B	UNIQ-SP-FORT-B	SYMB	EXAMPLE:	FORTRAN SPECIAL
207778B	UNIQ-SP-COB-500	SYMB	EXAMPLE:	COBOL SPECIAL
208789B	CUSTOMER-EN-B	ISAM	EXAMPLE:
208790B	CUSTOMER-EN-B	DATA	EXAMPLE:	isam- and data-
208791B	PART-EN-B	ISAM	EXAMPLE:	files for the
208792B	PART-EN-B	DATA	EXAMPLE:	ISAM database
208793B	ORDER-EN-B	ISAM	EXAMPLE:
208794B	ORDER-EN-B	DATA	EXAMPLE:
208795B	ORDRLINE-EN-B	ISAM	EXAMPLE:
208796B	ORDRLINE-EN-B	DATA	EXAMPLE:
208797B	CUSTOMER-NO-B	ISAM	EXAMPLE:
208798B	CUSTOMER-NO-B	DATA	EXAMPLE:	isam- and data-
208799B	PART-NO-B	ISAM	EXAMPLE:	files for the
208800B	PART-NO-B	DATA	EXAMPLE:	ISAM database
208801B	ORDER-NO-B	ISAM	EXAMPLE:
208802B	ORDER-NO-B	DATA	EXAMPLE:
208803B	ORDRLINE-NO-B	ISAM	EXAMPLE:
208804B	ORDRLINE-NO-B	DATA	EXAMPLE:

Notes:¶

Version B is the first version of UNIQUE-II ISAM and is functionally compatible with UNIQUE-II SIBAS version B.

<rev> is to be replaced by the current revision of the DIRECTORY or FILE. The revision level is found on the preceding "ND SOFTWARE LIBRARY DISKETTE" pages.

The English language version delivered on one double density diskette 210895B
-EN-01D is a compiled version of the following single density diskettes:
- 210908B-XX-01S
- 210895B-XX-02S
- 210895B-XX-03S
- 210895B-EN-01S

The Norwegian language version delivered on one double density diskette 210895B
-NO-01D is a compiled version of the following single density diskettes:
- 210895B-XX-01S
- 210895B-XX-02S
- 210895B-XX-03S
- 210895B-NO-01S

A reference card for terminal types other than NOTIS should be appended to the User Manual.

UNIQUE II ISAM cannot be run without UNIQUE Text System. If you are registered as a UE-user with a language (Norwegian/English), you have to choose the same language for UNIQUE Text System.

Page 3¶

+---------------+------------------------+-----------+----------+
| Date 86.12.11 | Norsk Data A.S.        | Page 3 of 9          |
| PROGRAM DESCRIPTION                    |                      |
+---------------+------------------------+-----------+----------+
| Product       | Name                   | ND-no.    | Category |
|               | UNIQUE-II ISAM for ND-500 | 210895B  | ROY      |
+---------------+------------------------+-----------+----------+

1 Known, But Not Corrected Errors¶

If the specified default file cannot be opened, default values are used. But no error message or warning is given. The user will think the default file was OK, and will not understand why wrong defaults are given.

The accumulate function is not working properly if the field is not in the database.

Groups cannot be used in expressions (compute, if etc.). The compiler will not inhibit this and the application will not run correctly if groups are used in expressions.

The :UNIQ compiler gives wrong error message (field width too small) if format code is not correct (eg '00001','33').

If a field is defined to be longer on the screen than in the database, UNIQUE is not handling this properly (the correction of this error will cause this to be illegal).

UNIQUE cannot handle remote printers/files when using the print command.

MENU-COMM may be used to enter a new application with current record. Problem: current record is set from next field, not from the calling field. If next field is in another record, then this record will be transferred.

If F7 gives no result using a group key, all the fields in the group are set to zero. This makes the use of F7 very little user-friendly.

If the file (SYS)DDBTABLES-Exx:VTM is not available (does not exist, no access, ambiguous etc.), UNIQUE gets suspended without giving any error message.

ooo  ND Norsk Data  ooo

Scanned by Jonny Oddene for Sintran Data © 2011

Page 4¶

| Date       | Norsk Data A.S.          | Page 4 of 9 |
|------------|--------------------------|-------------|
| Product    | Name                     | ND-no.      | Category |
| UNIQUE-II ISAM for ND-500 | 210895B | ROY      |

# 2 MODIFICATIONS

Note: The two following sections should be copied and distributed to all users of UNIQUE-II.

## 2.1 MODIFICATIONS TO THE USER MANUAL

- Section 4.1 ACCESS CONTROL is only for UNIQUE-II SIBAS. UNIQUE-II ISAM does not have an access control system.

## 2.2 MODIFICATIONS AND ADDITIONS TO THE PROGRAMMER'S MANUAL

- Error on page 33 in the Programmer's Manual:

  ```
  if ("Field-A"...   if ("Field-C"....
  ```

  should be:

  ```
  if("Field-A"...    if("Field-C"...
  ```

  There must not be any space between `if` and `(`.

- Error on page 157 in the Programmer's Manual:

  ```
  field="FLDA"     if("OLD:FLDA"<>”FIELD") then
                   error
                   endif
  ```

  should be:

  ```
  field="FLDA"     if("OLD:FLDA"<>”FLDA")
                   error( <melding> )
                   endif
  ```

- Addition to section 4.5.18 INITIAL-VALUE (example):
  The initial value, PRICE, must be put into the field, ORDPRICE, before the record ORDLINE is fetched. In the example this is done by join-key to register PART in the first line after the repeat command. Afterwards there is a key to fetch the ORDLINE record.

- Addition to chapter 4.5.16 LEGAL-VALUES:
  Error message from (ILLEGAL-VALUES does not contain list of (il)legal values (modification to UNIQUE-II vers. A).

- Error on page 73 in Programmer's Manual:
  Add the following after the sentence, "See chapter 7 'Communication with other program systems' for more information":

  ```
  6.11 Special program commands
  ```

ooo ND Norsk Data ooo
Scanned by Jonny Oddene for Sintran Data © 2011

Page 5¶

Program Description¶

Product¶

Name: UNIQUE-II ISAM for ND-500
ND-no.: 210895B
Category: ROY

Modifications¶

Modifications to chapter 11.6 SINGLE-USER VS. MULTIUSER and 12 DIFFERENCES BETWEEN ISAM AND SIBAS:
- ISAM and :DATA files have to be predefined for both single- and multiuser ISAM mode.

There is a new option available in the :BASE file, called OWNER. You can now specify the owner of all the registers belonging to one database (ref. data-base-name in the :BASE file). If the OWNER option is used, UNIQUE expects to find all the register files (:ISAM & :DATA) and the register description file (:INFO) on this user. If the option is not used, the default is your own user.
- Example:
```
data-base-name=COMPANY,isam-mode=0,owner=USER
data-base-name=ORDRBASE,isam-mode=0
```

Instead of having all the registers on one USER (ref. OWNER option), you can override this in the :INFO file. Here you specify the owner of each register as a prefix to the register name(s). The owner must be written inside brackets ().
- The second possibility is to override the ISAM-MODE in the :BASE file, and have one isam-mode for each register. This is specified after the register name, separated by a comma.
- Default values for the owner and isam-mode of each register are those used in the :BASE file.
- Example:
```
(USER-X)CUSTOMER,1
               └── isam-mode of the CUSTOMER register
   └── owner of the CUSTOMER register
```

Chapter 6.3 The Access Control System¶

Chapter 6.3 THE ACCESS CONTROL SYSTEM is only for UNIQUE-II SIBAS. UNIQUE-II ISAM does not have an access control system.

Additional Text¶

Add the following text into Programmer's Manual chapter 8.1 'Design of SPECIAL subroutines' at the end of page 78:
- Note the difference between ISAM/SIBAS when using FORTRAN SPECIAL.

Page 6¶

Norsk Data A.S. Program Description¶

Product¶

Name	ND-no.	Category
UNIQUE-II ISAM for ND-500	210895B	ROY

SIBAS¶

For parameter BREC the whole record will be transferred. You will find the actual field's value by using the UFLDINFO special routine to get start position in the record before accessing BREC.

ISAM¶

Only the field value for the current field will be transferred in BREC from position 1 and onwards.

Using Internal UNIQUE Special Routines¶

Instead of using BREC parameter in SPECIAL call use UGFLD, to get field's value-buffer, and use UQSFLD, to set field's value-buffer.

Add the following text into Programmer's manual chapter 8.3 'Internal UNIQUE routines avail...' at the end of page 88 after UFLDINFO-description:

UNIQUE Internal Special Routine for ISAM-users¶

UQISDATA - Get field information using register name & item name.

COBOL and FORTRAN interface:

CALL UQISINFO(regname,itmname,regid,reclen,itmid,itmstrt,itmlen)

Name	Direction	Type	Function
REGNAME	INPUT	int	Register name (4 int*2 words)
ITMNAME	INPUT	int	Item name (4 int*2 words)
REGID	OUTPUT	int*2	Register id (use in ISAM calls)
RECLEN	OUTPUT	int*2	Record length on ISAM file
ITMID	OUTPUT	int*2	Item id (use in ISAM calls)
ITMSTRT	OUTPUT	int*2	Item start addr. in record
ITMLEN	OUTPUT	int*2	Item length in bytes

When using ISAM-calls in your special routine you can get both register id & item id, which are parameters required in ISAM-calls.

ISAM does not have display formats. UNIQUE display format are used in the applications examples described in chapter 2 in Programmer's Manual.

ooo  ND Norsk Data  ooo
Scanned by Jonny Oddene for Sintran Data © 2011

Page 7¶

PROGRAM DESCRIPTION¶

Date	Norsk Data A.S.	Page 7 of 9
Product	Name	ND-no.
UNIQUE-II ISAM for ND-500	210895B	ROY

3 INSTALLATION¶

3.1 SOFTWARE KEY PROTECTION OF THE UNIQUE-II PRODUCT¶

To avoid unauthorized installation of the product, UNIQUE-II uses the Software Key system of SINTRAN III. The Software Key is delivered along with UNIQUE-II. Assure that the Software Key is properly installed before starting UNIQUE-II.

If UNIQUE-II still does not start correctly, check with your local ND office that the CPU number of your SINTRAN III is correct. If SINTRAN III is generated with incorrect CPU number, it must be regenerated.

3.2 INSTALLATION PROCEDURE¶

Create a user (default=DIALOG-SYS) and give the user 570 pages if you want to install both UNIQUE-II and the examples. You need 153 extra pages if you want to copy FORTRAN-LIB, EXCEPT-LIB and UE-PLIB to the same user.

Some of the files form an EXAMPLE system for introduction purposes. The EXAMPLE system consists of applications (:UNIQ), ISAM database (:INFO), ISAM-files and :DATA-files. These examples are also found in the manuals.

Copy the two files named UNIQUE-II-I-B-0:DEFL and UNIQUE-B:BASE to user SYSTEM. The file names must not be changed with exception for the :DEFL-number and the revision number.

Copy the file UE-PLIB-B:NRF only if it is not already present in your system (normally under user USER-ENVIRONMENT).

Copy the files FORTRAN-LIB-I and EXCEPT-LIB-C only if they are not already present in your system (normally under user SYSTEM or DIALOG-SYS).

If UNIQUE is supplied on one double density diskette then insert the diskette into a floppy drive and enter the directory 210895B--01D. Use the BACKUP-SYSTEM to copy the required files to a suitable user.

If single density diskettes are supplied, enter the directory 210895B-XX-01S and copy the required files using the BACKUP-SYSTEM. Repeat this process for the diskettes 210895B-XX-02S, 210895B-XX-03S and 210895B--01S.

ooo ND Norsk Data ooo
Scanned by Jonny Odden for Sintran Data © 2011

Page 8¶

Program Description¶

Date	Norsk Data A.S.	Page
Date 86.12.11	PROGRAM DESCRIPTION	Page 8 of 9

Product	Name	ND-no.	Category
Product	UNIQUE-II ISAM for ND-500	210895B	ROY

Backup System Example¶

An example of how to use the BACKUP-SYSTEM is shown below:

@ENTER-DIRECTORY_210895B<rev>-<language>-01,<FLOPPY-DRIVE> <UNIT> 
@BACKUP-SYSTEM+

BACKUP-SYSTEM / G04 85.08.26

Ba-Sy: COPY-USERS-FILES¶

Destination type: D:
- Destination directory name:
- Destination user name 'DIALOG-SYS':

Source type: D:
- Source directory name: 210895B--01
- Source user name 'DIALOG-SYS': FLOPPY-USER
- Source file name:

Manual selection: LIST

Number of files copied: 22

Ba-sy: EXIT¶

@RELEASE-DIRECTORY 210895B<rev>-<language>-01
@

The files are now copied to the user area DIALOG-SYS.

FORTRAN Library¶

FORTRAN library should be a loaded segment when you start loading UNIQUE-II. An example of how to load FORTRAN library is shown below:

ND Linkage-Loader - F¶

N11 entered:

N11: ABORT-BATCH-ON-ERROR OFF
N11: RELEASE-DOMAIN FORTRAN-LIB-I
N11: DELETE-DOMAIN FORTRAN-LIB-I
N11: ABORT-BATCH-ON-ERROR ON
N11: SET-DOMAIN "FORTRAN-LIB-I"
N11: SET-SEGMENT-NUMBER 300
N11: OPEN-SEGMENT "FORTRAN-LIB-I",P
N11: SET-IO-BUFFER 300
N11: TOTAL-SEGMENT-LOAD FORTRAN-LIB-I
N11: TOTAL-SEGMENT-LOAD EXCEPT-LIB-C
N11: END-DOMAIN
N11: EXIT

ooo ND Norsk Data ooo

Page 9¶

Program Description¶

Date	Norsk Data A.S.	Page 9 of 9
Product	Name	ND-no.
	UNIQUE-II ISAM for ND-500	210895B

From user DIALOG-SYS:

It is necessary to use PERFORM in order to create the domain. An example of how to use PERFORM is shown below.

NOTE - :DEFL file number equal to -1 means that the file will not be read and that only the default values in UNIQUE will be used. This will speed up the starting of UNIQUE.

∂PERFORM∂
PERFORM 2412F

:MCRO Filename (Default = PERFORM:LIBRARY) : UNIQ-I-500-B
Macro name (Default = LOAD-500) :

---------------------------------------------------------
! Load UNIQUE-II-ISAM version B for ND-500               !
---------------------------------------------------------
! There are 2 questions about attribute codes :          !
!  0 = normal, 2 = low density, 10 = underline           !
---------------------------------------------------------

User name for UNIQ:NRF files (Default = DIALOG-SYS) :
Domain name (Default = UNIQUE-II-I-B):               
User name for ISAM-LIB:NRF (Default = DIALOG-SYS) :  
User name for FORTRAN library (Default = DIALOG-SYS) : 
Number of :DEFL-file (UNIQUE-II-I-B:n:DEFL) (Default = -1) : 
Name of SPECIAL library (if used) (Default = No-SPECIAL): 
User name for UE-PLIB-B:NRF (Default = USER-ENVIRONMENT):   
Public access to domain (Default = R) :              
SPECIAL before application (0=no,1=yes) (Default = 0) : 
SPECIAL after menu command (0=no,1=yes) (Default = 0) : 
Attribute code leading text (Default = 2) :           
Attribute code fields (Default = 10) :

∂MODE MACRO1:MODE,

This ∶MODE file will now load UNIQUE-II

Defining the domain as STANDARD-DOMAIN from user SYSTEM will reduce the startup time, and make it possible to start the program without adding ND in front of the system name:

∂ND-500
N500: DEFINE-STANDARD-DOMAIN <system-name>,(DIALOG-SYS)UNIQ-II-I-B
N500: EXIT

Add this command to the DUMP-REENTRANT job called from HENT-MODE.

ooo   ND Norsk Data   ooo
Scanned by Jonny Oddene for Sintran Data © 2011

Page 10¶

ND Software Library Diskette¶

Containing¶

UNIQUE-II ISAM for ND-500
(Norwegian version)

Directory Name¶

210895B00-NO-01D

User Name¶

FLOPPY-USER

File Access¶

Nr	File Name	Type	T	Public	Friend	Own	Pages	Bytes
0	UNIQ-I-500-B00	MCRO	I	R	RWACD	RWACD	2	1664
1	UNIQ-I-1-B10	NRF	I	R	R	RWACD	144	290927
2	UNIQ-I-2-B10	NRF	I	R	R	RWACD	126	254674
3	UE-PLIB-B00	NRF	I	R	RWACD	RWACD	31	58617
4	ORDRBASE-B00	INFO I	R	RWACD	RWACD	3	3703
5	UNIQUE-II-I-B-N	MENU I	R	RWACD	RWACD	2	139
6	UNIQUE-II-I-B-O	DEFL I	R	RWACD	RWACD	2	75
7	UNIQ-SP-FORT-B00	SYMB I	R	RWACD	RWACD	6	9513
8	UNIQUE-B00	BASE I	R	RWACD	RWACD	2	37
9	CUSTOMER-NO-B00	ISAM C	R	RWACD	RWACD	10	5120
10	PART-NO-B00	ISAM C	R	RWACD	RWACD	10	5120
11	ORDER-NO-B00	ISAM C	R	RWACD	RWACD	5	5120
12	CUSTOMER-NO-B00	DATA C	R	RWACD	RWACD	10	2340
13	PART-NO-B00	DATA C	R	RWACD	RWACD	10	372
14	ORDER-NO-B00	DATA C	R	RWACD	RWACD	5	480
15	ORDRLINE-NO-B00	ISAM C	R	RWACD	RWACD	5	5120
16	ORDRLINE-NO-B00	DATA C	R	RWACD	RWACD	5	168
17	KUNDE-REGISTER-I	UNIQ I	R	RWACD	RWACD	2	1103
18	VARE-REGISTER-I	UNIQ I	R	RWACD	RWACD	2	1213
19	ORDRE-REGISTER-I	UNIQ I	R	RWACD	RWACD	3	2943
20	FORTRAN-LIB-I00	NRF I	R	RWACD	RWACD	59	117200
21	EXCEPT-LIB-C00	NRF I	R	RWACD	RWACD	11	18474
22	UNIQ-SP-COB-500	SYMB I	R	RWACD	RWACD	7	10642

23 files using 462 pages. 610 pages reserved out of 610 pages.

Page 11¶

ND Software Library Diskette¶

Page 1¶

Containing¶

UNIQUE-II ISAM for ND-500 (English version)

Directory Name¶

210895B00-EN-01D

User Name¶

FLOPPY-USER

Nr	File name	Type	T	File access: Public	Friend	Own	Pages	Bytes
0	UNIQ-I-500-B00	MCRO	I	R	RWACD	RWACD	2	1664
1	UNIQ-I-1-B10	NRF	I	R	R	RWACD	144	290927
2	UNIQ-I-2-B10	NRF	I	R	RWACD	126	254674
3	UE-PL1B-B00	NRF	I	R	RWACD	RWACD	31	58617
4	ORDORBASE-B00	INFO	I	R	RWACD	RWACD	3	3703
5	UNIQUE-B00	BASE	I	R	RWACD	RWACD	2	39
6	CUSTOMER-EN-B00	ISAM	C	R	RWACD	RWACD	10	5120
7	CUSTOMER-EN-B00	DATA	C	R	RWACD	RWACD	10	2080
8	CUSTOMER-I-B00	UNIQ	I	R	RWACD	3	1083
9	PART-I-B00	UNIQ	I	R	RWACD	2	1213
10	PART-EN-B00	ISAM	C	R	RWACD	RWACD	5	5120
11	PART-EN-B00	DATA	C	R	RWACD	RWACD	5	372
12	ORDER-EN-B00	ISAM	C	R	RWACD	RWACD	5	5120
13	ORDER-EN-B00	DATA	C	R	RWACD	RWACD	5	240
14	ORDRLINE-EN-B00	ISAM	C	R	RWACD	RWACD	5	5120
15	ORDRLINE-EN-B00	DATA	C	R	RWACD	RWACD	5	168
16	SALES-ORDER-I-B-00	UNIQ	I	R	RWACD	RWACD	3	2936
17	UNIQUE-II-I-B-0	DEFL	I	R	RWACD	RWACD	2	75
18	UNIQUE-II-I-B-E	MENU	I	R	RWACD	RWACD	2	121
19	UNIQ-SP-FORT-B00	SYMB	I	R	RWACD	RWACD	6	9513
20	UNIQ-SP-COB-500	SYMB	I	R	RWACD	RWACD	7	10642
21	FORTRAN-LIB-100	NRF	I	R	RWACD	59	117200
22	EXCEPT-LIB-C00	NRF	I	R	RWACD	11	18474

23 files using 453 pages. 610 pages reserved out of 610 pages.