Skip to content

Page 1

ND 10176 COBOL for ND-100/NORD-10

INTRODUCTION

The COBOL programming language is the industry wide accepted high level computer language oriented towards data processing tasks often found in business applications. The ND COBOL handles data types for:

  • binary (COMPUTATIONAL)
    • range — 32768 to +32767
  • double binary (COMPUTATIONAL-1)
    • +2147483648 to +2147483647
  • packed decimal (COMPUTATIONAL-3)
    • up to 18 digits
  • REAL (COMPUTATIONAL-3)
  • external decimal (DISPLAY)
    • up to 18 digits
  • report edited
    • up to 18 digits plus edit characters
  • alphanumeric
    • up to 32767 characters

NUCLEUS at Level One, with many selections from Level Two. Among others:

  • Levels 77, 01-49, 88.
  • 88-level condition names, with value series or range of conditions.
  • Conditional operators AND, NOT, OR, =, <, >, in conditions.
  • Procedure names consisting of digits only.
  • COMPUTE-verb with multiple receiving fields ADD, SUBTRACT, MULTIPLY, DIVIDE-verbs with multiple receiving fields.
  • DIVIDE-verb with REMAINDER.
  • PERFORM-verb with three indexes.
  • Qualification of names.
  • Sign and class tests.
  • Nested IF-statements, parenthesized conditions, abbreviated conditions, implied subject and/or relation.
  • Nested conditions.
  • ACCEPT-verb with DATE/DAY/TIME/CPU-TIME clauses.
  • INSPECT, STRING and UNSTRING-verbs.

TABLE HANDLING at full Level One, and

  • SEARCH-verb, format 1, format 2.
  • Relative indexing.

INPUT/OUTPUT for Sequential, Relative and Indexed access organizations at Level One, with the following selections from Level Two:

  • Multiple operands in OPEN and CLOSE-verbs, with individual options per file.
  • DYNAMIC access mode (READ NEXT).
  • START-verb with/without key relations EQUAL, GREATER or NOT LESS.
  • Up to 5 alternate keys.

Library module with Copy-verb at all divisions and sections. Inter-Program Communication module with Linkage Section. Using-clause in Procedure Division, and Call-verb with Using-clause.

Debugging module at Level One with the Debugging-Mode-clause in the Source-Computer paragraph, and debugging statements with a D in column 7 for conditional compilation.

PRODUCT DESCRIPTION

The COBOL compiler conforms to the ANSI-74 COBOL standard as defined in American National Standards Programming Language COBOL, ANSI X3-23-1974 Level One and contains many extensions from Level Two, together with ND extensions including COBOL Screen handling, thus providing large-scale business data processing capabilities to the mini-computer world.

It includes the following "modules" at level and extensions specified:

Modules Extensions
NUCLEUS TABLE HANDLING
SEQUENTIAL I/O LIBRARY
RELATIVE I/O INTER-PROGRAM
INDEXED I/O COMMUNICATION
SORT
DEBUGGING

[Logo: Norsk Data]

10176-A2–6000–0982

Page 2

ND Extensions

Some major extensions have been included. They are:

Screen Handling

With many new options on the ACCEPT and DISPLAY statements, data can be displayed in any screen position. Parts of the screen, or the whole of it, can be blanked out using the new BLANK statement. Movement between any two data fields is provided for by control keys.

Multi-user ISAM

New options on the OPEN statement allow indexed and Relative files to be opened in MULTI-USER-MODE, with or without MANUAL-UNLOCK, or with IMMEDIATE-WRITE. The READ statement now has a WITH LOCK option to prevent two programs from accessing the same record at the same time. There is also a new UNLOCK statement.

The DO statement and the IF THEN ELSE END-IF statement:

  • A DO statement has been introduced which can contain any number of WHILE phrases.
  • The IF statement has been extended to include the THEN phrase and its corresponding END-IF phrase.

Inter-Program Communication

New EXPORT and IMPORT clauses in the Linkage sections of the calling and called programs, provide data access between them.

Interactive Debugging

The ND COBOL system provides the user with a number of debug options indispensable to efficient program development. When the command DEBUG is entered prior to program compilation, the user can choose between a number of debug options during subsequent execution of the program.

The options that can be invoked in DEBUG-MODE are:

  • HELP – List available DEBUG options
  • BREAK-ADDRESS
  • BREAK-RETURN
  • ACTIVE-ROUTINES
  • ALIGN-LISTING
  • CHECK-OUT-MODE
  • COMPARE-DATA
  • COMPARE-PROGRAM
  • DUMP-LOG
  • FIND-SCOPE
  • GUARD
  • LOG-LINES
  • LOG-CALLS
  • DISPLAY variable
  • EXIT – Exit to operating system
  • STEP – Execute next statement in logical sequence
  • RUN – Commence program execution
  • LOOK-AT-DATA
  • LOOK-AT-PROGRAM
  • LOOK-AT-REGISTER
  • LOOK-AT-STACK
  • MACRO
  • RESET-BREAKS
  • and others

One or more options may be active during program execution.

Cross-referencer list available.

The COBOL Compiler produces object code in the ND standard binary relocatable format (BRF) which is suitable for linking to the COBOL run-time system routines and separately compiled COBOL, FORTRAN, PLANC, BASIC or MAC assembly program modules.

The ND Relocating Loader (NRL) is used to build executable programs from user program modules and to link to the necessary system run-time and library routines.

Database Management

The inter-program communication module allows COBOL programs to interface with the advanced SIBAS Database Management System through the Call-verb. The SIBAS DBM system is designed for multi-user, on-line terminal applications in business environments with complex information structures.

Two-Bank Mode

Programs may be compiled in two-bank mode making it possible to have programs with 128 Kb code and 128 Kb data. Programs compiled in two-bank mode must be loaded with the two-bank mode COBOL Library and can only call other programs that have also been compiled in two-bank mode, i.e. they can NOT call FORTRAN or BASIC Subroutines, they can NOT call SIBAS or ND Screen Handling.

Requirements

The COBOL Compiler requires 128 Kw of memory. The Compiler executes as a reentrant subsystem under SINTRAN III/VS, thus enabling several active users to share common code.

References

Reference Number
ND COBOL ND-60.089
SINTRAN III/VS User's Guide ND-60.050
ND Relocating Loader ND-60.030

Contact Information

Oslo, tel. 02-295000, tix. 18661 nd n
Bergen, tel. 95-00050
Sandnes, tel. 065-95644
Trondheim, tel. 08-77760
Stockholm, tel. 08-96020, tix. 15255 nordata s
Gothenburg, tel. 031-496700
Malmö, tel. 040-75140
Copenhagen, tel. 02-420585, tix. 37725 nd dk
Wiesbaden, tel. 06121-7647, tix. 4186370 n oda n
Ferryville, tel. 064-468576, tix. 385653 nordata ferry
Paris, tel. 1-6023556, tix. 201106 nbr paris
Lausanne, tel. 022-310842, 96. 2621 nh di ch
Lyon, tel. 787-0477, 7-837-5951
Newbury, tel. 0635-31645, tix. 849819 norsk d g
Utrecht, tel. 030-866347
Boston, tel. (617) 237-7945, xx 921740 norsk well

Trondheim, tel. 075-16520, tix. 55580 comtc n
Stockholm, tel. 0760-84100, tix. 15255 nordata s
Odense, tel. 09-151740, tix. 59860 comtc dk
Düsseldorf, tel. 0211-666388, tix. 8587277 comtc d

   __  __
  |  \/  |
  | \  / | ___  _   _  ___  ___
  | |\/| |/ _ \| | | |/ _ \/ __|
  | |  | | (_) | |_| |  __/\__ \
  |_|  |_|\___/ \__,_|\___||___/

   _  _ ____ ____ ____ ___  _ __
  | || |  __|  __|  __| _ \| '  \
  | || | |__ | |  | |  | __/| | | |
  |_||_|____|___|____|____|_| |_|