Skip to content

Page 1

Norsk Data A.S - Program Description

Date: 87.07.22
Page: 1 of 5

Product

Name ND-no. Category
ND Coloured Books, Yellow Book Transport Service 210771B STPR

Reason

. New product X Error Correction
. Change/Addition . Different Environment

Documentation

Title
Documentation available upon request from Marc Shearer (MSh) ND UK

Purpose

YBTS offers a network independent service for the other coloured books (file transfer or job transfer).

Prerequisites

Computer Type Floating format Op. system Version
ND-100 or ND-500
  • SIN III VS >=J
  • VSX/500 >=J

ND-no. 10573B
Product name COSMOS X.25 Option

Minimum Mass Storage Resources for Installation

User Userspace Number of files
115 pages on 11 files

Minimum Permanent Mass Storage Resources

User Userspace Number of files
115 pages on 11 files

Max/Min number of RT-descriptions: Max 0 Min 0
Max/Min number of segments: Max 0 Min 0
Space requirements on segment file(s) is 0 pages

Product Consists of

MODULE-no. Name ND-no. for Source
210868B
File Name Type Containing
CB-YBP-B DEFS Planc definition
CB-YBP-C IMPT Planc import statements
CB-YBP-100-1-B BRF ND-100 1-bank (Planc)
CB-YBP-100-2-B BRF ND-100 2-bank (Planc)
CB-YBP-500-B NRF ND-500 (Planc)
CB-YBF-B DEFS Fortran definition
CB-YBF-100-1-B BRF ND-100 1-bank (Fortran)
CB-YBF-100-2-B BRF ND-100 2-bank (Fortran)
CB-YBF-500-B NRF ND-500 (Fortran)
CB-YBP-DEMO-I-B PROG Demo program (initiator)
CB-YBP-DEMO-L-B PROG Demo program (listener)

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

   ooo   ND Norsk Data   ooo

Page 2

Program Description

Product Name ND-no. Category
ND Coloured Books, Yellow Book Transport Service 210771B STPR

1 Installation Procedure

Copy the files to user UTILITY (or any other selected user).

2 Use

The following examples illustrate the loading procedure for Planc and Fortran.

Using PLANC for ND-100 (1-bank):

@CC LOAD A 1-BANK ND-100 PROGRAM USING THE PLANC INTERFACE
@NRL
*PROG-FILE "<name>"
*LOAD <name>, (UTILITY)CB-YBP-100-1
*LOAD (UTILITY)X25P-100-1, (UTILITY)XMP-100-1
*LOAD PLANC-1BANK
*EXIT

Using PLANC for ND-500:

@CC LOAD AN ND-500 PROGRAM USING THE PLANC INTERFACE
@ND-500 LINKAGE-LOAD
N11: SET-DOMAIN "<name>"
N11: LOAD-SEGMENT "<name>", (UTILITY)CB-YBP-500
N11: LOAD-SEGMENT (UTILITY)X25P-500, (UTILITY)XMP-500
N11: LOAD-SEGMENT PLANC-LIB
N11: EXIT

Using FORTRAN for ND-100 (2-bank):

@CC LOAD A 2-BANK ND-100 PROGRAM USING THE FORTRAN INTERFACE
@NRL
*PROG-FILE "<name>"
*LOAD <name>, (UTILITY)CB-YBF-100-2, (UTILITY)CB-YBP-100-2
*LOAD (UTILITY)X25P-100-2, (UTILITY)XMP-100-2
*LOAD PLANC-2BANK
*LOAD FORTRAN-2BANK
*EXIT

Using FORTRAN for ND-500:

@CC LOAD AN ND-500 PROGRAM USING THE FORTRAN INTERFACE
@ND-500 LINKAGE-LOADER
N11: SET-DOMAIN "<name>"
N11: LOAD-SEGMENT <name>, (UTILITY)CB-YBF-500, (UTILITY)CB-YBP-500
N11: LOAD-SEGMENT (UTILITY)X25P-500, (UTILITY)XMP-500
N11: LOAD-SEGMENT PLANC-LIB
N11: LOAD-SEGMENT FORTRAN-LIB
N11: LOAD-SEGMENT EXCEPT-LIB
N11: EXIT
ooo ND Norsk Data ooo

Page 3

Program Description

Date Norsk Data A.S Page 3 of 5
Product Name ND-no.
ND Coloured Books, Yellow Book Transport Service 210771B

3 Demonstration Programs

Two demonstration programs are enclosed. They can not show that your YBTS works, but that the official YBTS can work with your X.25 and the X.25 characteristics to which you have subscribed from the network authority. You must know your X.25 network number (the DTE number) to run the demonstration programs. If you know nothing about your X.25 connection, the safest thing to do is to use what the following examples use.

The enclosed examples show how to use the programs. Your input is underlined. Parameters you must enter are:

  • X.25 connection type: This depends on your X.25 subscription. If you do not know, use basic format (B).
  • Reset procedure: If you answer Y, the YBTS reset procedure will be tested. This may not work if you run through a gateway, for example, like the JANET/PSS gateway. If both programs run on the same machine, you can answer yes (Y) and run the reset procedure.
  • YBTS address: A YBTS address consists of the DTE number (X.25 network number) and a YBTS suffix. The two parts are separated with a '++'. When you run the test, replace the DTE number with your own, but use the suffices in the example. The DTE number in the example is 234263500140.
  • Number of data units to send: You can indicate how many data packets (128 octets each) you want to send. A counter in each program will tell how many packets were sent and received.

Page 4

Norsk Data A.S

PROGRAM DESCRIPTION

Product Name ND-no. Category
ND Coloured Books, Yellow Book Transport Service 210771B STPR

Example of Use

The listening program must be started before the initiator.

@CB-YB-DEMO-LW

Yellow Book Demonstration Program (listener)
X.25 connection type (Fast select/Extended format/Basic format): B
Do you want to run the reset test (Y/N): N
Init ok. Workid: 2001
Open ok. Portid: 2041
Incoming YB SAP suffix: YB2
Attach request ok. YBcep: 2067
Wait ok. User cep= 444. Event= 2
Attach confirmation ok. Sizes= 128 128
Wait ok. User cep= 444. Event= 4
Connect indication ok
Calling address: 234263500140+YB1. Called address: 234263500140+YB2
No user data
Credit: 384
Connect response ok
Wait ok. User cep= 444. Event= 64
Expedited indication ok. Value: 23
Data units rcvd: 50
Wait ok. User cep= 444. Event= 1024
Disconnect indication ok. Originator: 0. Reason: 0/0
Detach request ok
Close ok
@

ooo ND Norsk Data ooo


Page 5

Program Description

Product Name ND-no. Category
ND Coloured Books, Yellow Book Transport Service ND Coloured Books, Yellow Book Transport Service 210771B STPR

The initiator program must be started AFTER the listening program.

@CB-YB-DEMO-1J

Yellow Book Demonstration Program (initiator)
X.25 connection type (Fast select/Extended format/Basic format): B⬂
Do you want to run the reset test (Y/N): N⬂
Init ok. Workid: 2001
Open ok. Portid: 2041
Outgoing YB SAP suffix: YB1⬂
Attach request ok. YBcep: 2067
Wait ok. User cep: 333. Event: 2
Attach confirmation ok. Sizes= 128 128
Calling (local) address: +J
Called (remote) address: Z34263500140+YB2⬂
Connect request ok
Wait ok. User cep: 333. Event: 8
Connect confirm ok. Recall address:
Credit 384
User data: Yellow Book Installation Test - 2
Expedited request ok
Wait ok. User cep: 333. Event: 128
Number of data units to send (128 bytes each): 50⬂
Data units sent: 50
Transfer rate: 4217
Disconnect request ok
Wait ok. User cep: 333. Event: 2048
Detach request ok
Close ok
@

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


Page 6

ND Software Library Diskette

Page 1

Containing:

  • ND Coloured Books, Yellow Book
  • Transport Service

Directory Name

210771B00-XX-01S

User Name

FLOPPY-USER

No File name Type T Public Friend Own Pages Bytes
0 CB-YBP-B00 DEFS I NONE RWACD RWACD 6 9559
1 CB-YBP-B00 IMPT I NONE RWACD RWACD 3 3369
2 CB-YBF-B00 DEFS I NONE RWACD RWACD 8 14301
3 CB-YBP-500-B00 NRF I NONE RWACD RWACD 11 19937
4 CB-YBP-100-1-B00 BRF I NONE RWACD RWACD 11 19722
5 CB-YBP-100-2-B00 BRF I NONE RWACD RWACD 11 20091
6 CB-YBF-500-B00 NRF I NONE RWACD RWACD 3 2951
7 CB-YBF-100-1-B00 BRF I NONE RWACD RWACD 3 3199
8 CB-YBF-100-2-B00 BRF I NONE RWACD RWACD 3 3297
9 CB-YB-DEMO-I-B00 PROG I NONE RWACD RWACD 28 55296
10 CB-YB-DEMO-L-B00 PROG I NONE RWACD RWACD 27 53248

11 files using 114 pages. 148 pages reserved out of 148 pages.


Page 7

ND SOFTWARE LIBRARY DISKETTE

Containing:

  • ND Coloured Books, Yellow Book
  • Transport Service

PAGE 1

Directory Name:

210771B00-KK-01D

User Name: FLOPPY-USER

No File name Type T Public Friend Own Pages Bytes
0 CB-YBP-B00 DEFS I NONE RWACD RWACD 6 9559
1 CB-YBP-B00 IMPT I NONE RWACD RWACD 3 3369
2 CB-YBF-B00 DEFS I NONE RWACD RWACD 8 14301
3 CB-YBF-500-B00 NRF I NONE RWACD RWACD 11 19937
4 CB-YBF-100-1-B00 BRF I NONE RWACD RWACD 11 19722
5 CB-YBF-100-2-B00 BRF I NONE RWACD RWACD 11 20091
6 CB-YBF-500-B00 NRF I NONE RWACD RWACD 3 2951
7 CB-YBF-100-1-B00 BRF I NONE RWACD RWACD 3 3199
8 CB-YBF-100-2-B00 BRF I NONE RWACD RWACD 3 3297
9 CB-YB-DEMO-I-B00 PROG I NONE RWACD RWACD 28 55296
10 CB-YB-DEMO-L-B00 PROG I NONE RWACD RWACD 27 53248

11 files using 114 pages. 610 pages reserved out of 610 pages.