Digital PDFs

AA-P103B-TK

May 1983

52 pages

Original

3.4MB

Document:	PRO/FMS-11 Documentation Supplement
Order Number:	AA-P103B-TK
Revision:	0
Pages:	52
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/pro3xx/POS/AA-P103B-TK_PRO_FMS-11_Documentation_Supplement_198305.pdf

OCR Text

PRO/FMS-11
Documentation Supplement
Order No. AA-P103B-TK

May 1983

This supplement describes the differences between PRO/FMS-11 and FMS/
RSX-11. PRO/FMS-11 may be used with the Professional 300 Series Developer's
Tool Kit to write application software to run under the Professional Operating System (P/OS).

OPERATING SYSTEM AND VERSION:

VAX/VMS V3.2 or later
RSX-11 M V4.1 or later
RSX-11 M-PLUS V2.1 or later

SOFTWARE VERSION:

Professional Developer's Tool Kit
V1.5
PRO/FMS-11 V1 .0

DIGITAL EQUIPMENT CORPORATION
Maynard, Massachusetts 01754

First Printing December 1982
Revised May 1983
The information in this document is subject to change without notice and should
not be construed -as a commitment by Digital Equipment Corporation. Digital
Equipment Corporation assumes no responsibility for any errors that may appear
in this document.
The software described in this document is furnished under a license and may only
be used or copied in accordance with the terms of such license.
No responsibility is assumed for the use or reliability of software on equipment that
is not supplied by DIGITAL or its affiliated companies.
The specifications and drawings, herein, are the property of Digital Equipment Corporation and shall not be reproduced or copied or used in whole or in part as the
basis for the manufacture or sale of items without written permiss.ion.

The following are trademarks of Digital Equipment Corporation:
CTI BUS
DEC
DECmate
DECsystem-10
DECSYSTEM-20
DECUS
DECwriter
DIBOL

m
. .a

MASS BUS
PDP
P/OS
PRO/BASIC
PRO/Communications
Professional
PRO/FMS
PRO/RMS
PROSE
PROSE PLUS

Rainbow
RSTS
RSX
Tool Kit
UNIBUS
VAX
VMS
VT
Work Processor

CONTENTS
1.0
2.0
3.0
4.0

5.0

6.0
7.0
8.0
9.0

Page
RELATED DOCUMENTATION . . . . . . . . . . . . . . . . . . . . . . . 1
PRO/FMS-11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
PRO/FMS-11 PROGRAM DEVELOPMENT . . . . . . . . . . . . . . . 1
THE FORMS EDITOR . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
4.1 Terminal Emulation . . . . . . . . . . . . . . . . . . . . . . . . . . 4
4.2 Attribute Differences . . . . . . . . . . . . . . . . . . . . . . . . . 4
THE FORM DRIVER. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
5.1 The Professional Keyboard And The Form Driver . . . . . . . . . 5
5.2 Task Building With The Form Driver Object Library . . . . . . . 6
5.2.1 Editing the Command File . . . . . . . . . . . . . . . . . 6
5.2.2 Editing the Descriptor File . . . . . . . . . . . . . . . . . 7
HELP . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .9
FLOPEN . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 10
INSTALLATION PROCEDURES . . . . . . . . . . . . . . . . . . . . . 11
SAMPLE PRO/FMS-11 PROGRAMS . . . . . . . . . . . . . . . . . . 12
9.1 Tool Kit BASIC-PLUS-2 . . . . . . . . . . . . . . . . . . . . . . . 12
9.2 Tool Kit COBOL-81 .. : . , . . . . . . . . . . . . . . . . . . . . 15
9.2.1 Passing Variables by Reference . . . . . . . . . . . . . 15
9.2.2 Passing Variables by Descriptor . . . . . . . . . . . . . 21
9.3 Tool Kit FORTRAN-77 . . . . . . . . . . . . . . . . . . . . . . . 26
9.4 Tool Kit MACR0-11 . . . . . . . . . . . . . . . . . . . . . . . . . 33
9.5 Tool Kit PASCAL. . . . . . . . . . . . . . . . . . . . . . . . . . . 39

FIGURE
PRO/FMS-11 Development Cycle . . . . . . . . . . . . . . . . . . . . . 3
TABLES
1
2

Keyboard Differences-All Regions . . . . . . . . . . . . . . . . . . . . 5
Keyboard Differences-Scrolled Regions . . . . . . . . . . . . . . . . . 5

iii

PRO/FMS-11
DOCUMENTATION SUPPLEMENT
1.0

RELATED DOCUMENTATION

This manual supplements two manuals: FMS-11/RSX Software Reference
Manual and FMS-11/RSX Release Notes. Both these manuals are included in
the Tool Kit Documentation Directory. The FMS-11 !RSX Mini-Reference is not
included in the Tool Kit documentation set, but may also be useful when you are
developing PRO/FMS-11 applications.

2.0

PRO/FMS-11

PRO/FMS-11 is a development tool based on FMS-11. A forms-oriented video
110 management system, PRO/FMS-11 runs on the Professional Developer's
Tool Kit host systems: RSX-11 M/11 M-PLUS and VAX/VMS. This supplement
describes the differences between FMS-11 applications designed for
minicomputer/VT100 systems and PRO/FMS-11 applications designed for the
Professional.
The material here is intended for experienced FMS-11 programmers. If you
have not previously programmed with .FMS-11, you should start with the FMS/
RSX-11 documentation.

3.0

PRO/FMS-11 PROGRAM DEVELOPMENT

You can develop PRO/FMS-11 applications in the following Tool Kit languages:

Tool Kit BASIC-PLUS-2

Tool Kit COBOL-81

Tool Kit FORTRAN-77

Tool Kit MACR0-11

Tool Kit PASCAL

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

For specific restrictions and examples, turn to the section, "Sample PRO/
FMS-11 programs" at the end of this manual.
Two PRO/FMS-11 files, DEMLIB.FLB and FMSDBG.MSG, are supplied on diskette with the Tool Kit. You will need these files to run the sample programs
and debug your own applications. To copy them to your Professional, follow the
steps in this manual's section "Installation Procedures."
The program development cycle for PRO/FMS-11 applications is as follows:
1.

Using a VT100, or a Professional in Terminal Emulation Mode, create
forms on the host system with the PRO/FMS Forms Editor (PROFED).
To invoke PROFED on RSX, type:
>RUN $PROFED

On VMS, type:
$RUN SYS$SYSTEM:PROFED

Create a form library on the host system with the PRO/FMS Form Utility
(PROFUT). To invoke PROFUT on RSX, type:
>RUN $PROFUT

On VMS, type:
$RUN SYS$SYSTEM:PROFUT

Write a source program; include the necessary Form Driver calls in the
source code.
Note: Use the debug version of the Form Driver (FDVDBG.OLB) to debug at
the Professional. Use the non-debug version (FDV.OLB) when program is errorfree.

Compile (or assemble) the program.

Following the instructions in this manual, include the Form Driver in the
overlay descriptor (.ODL) file.

Task build the program.

W~ite the application Installation file.

Copy the form library, task image, and application installation file to the
Professional.

Install the application onto a P/OS menu.

10.

Run the program.

Figure 1 illustrates the development cycle.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

WORKSTATION

HOST SYSTEM
HOST

_.___ _ _ _ _ _ _ _ Log on to Host - - - -

FMS-11
Development

Write
Source Code

TERMINAL
EMULATION MODE

1
Compile or Assemble
Source Program

Create Forms

File.MAP
Memory _
Allocation
Map

Task Build
Program
WithPAB

I-

Symbol Tables
Language Ubraries

l
Application
Task lmage(s)

Create Form Library

I
Application
Files

J
)
File Tran sferto

T
Write Application
Installation File (.INS)

Works! ati on

LOCAL MODE

Professional
FAST INSTALL
(Disk to Disk)

)
Optional Terminal
Attached for
Debugging

Run Application
Disl<ette Builder

DISKETIE

Figure 1

PRO/FMS-11 Development Cycle

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

4.0

THE FORMS EDITOR

PRO/FMS-11 allows fixed decimal fields to include a comma in place of a period
for European applications.
4.1

Terminal Emulation

To run PROFED in terminal emulation, you must set your terminal to VT102
emulation mode. If you want to use DEC multinational 8-bit mode characters,
then you must also:

Set the Professional to Terminal Emulator 8-bit mode.

Set the host to 8-bit mode. On RSX systems use the command:
2ET /EBC=TI:

On VMS systems use the command:
SET TERMINAL/EIGHT_BIT

The default is 7-bit mode.
The following features are available once your system is in 8-bit mode:

Field-marker characters can include characters 241-277 octal.

Background text can include the entire DEC Multinational Character
Set.

During application execution, PROFED forms (named data, form wide
attributes, and field attributes) will accept the DEC Multinational Character Set as input where any displayable character is requested.

Note that the DEC Multinational Character Set uses 8-bi_t codes: if you want to
use 8-bit codes in form descriptions, you must create the forms on a Professional. (See the Terminal Subsystems Manual for more information on the DEC
Multinational Character Set.) Otherwise you can create forms on a VT100,
using the full printable ASCII character set.
4.2

Attribute Differences

Three attributes operate differently with PRO/FMS-11 on the Professional from
FMS/RSX-11 on a VT100:
Bold field-supported in wide-screen (132-column) mode.
Bold reverse video field-Not recommended.
Blink field-Can detract from PRO/FMS-11 performance if used excessively.
These differences may affect Professional system performance or form reliability. You should avoid these attributes when you create PRO/FMS-11 applications.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

5.0

THE FORM DRIVER

The form library file specifications must have the following format:
device:[directorYlfile.typ[;uersionl

The directory must be enclosed in square brackets. Only the version is optional.
To determine the device and directory where the application resides, use PROLOG services (a P/OS service) to translate the logical APPL$DIR. See the PIOS
System Reference Manual for more details on PROLOG services.

5.1

The Professional Keyboard And The Form Driver

PRO/FMS-11 uses different keys for some field terminators and interactive
functions involving the Form Driver. The following tables list these differences.

Table 1
Keyboard Differences-All Regions
Function

VT100

Enter form

ENTER/RETURN

DO, ENTER/RETURN

Move to next field

TAB

F12

Move to previous field

BACKSPACE

Cursor right

.....

Erase character

DELETE

Erase field

LINEFEED

REMOVE

Insert/Overstrike

PF1

F13

Help

PF2

HELP

Repaint screen

CTRL/W

F20

Cursor left

F11

Table2
Keyboard Differences-Scrolled Regions
Function

VT100

Professional

Move to previous line

Move to next line

t
l

Exit field backward

PF1

F17

Exit field forward

PF2

F18

When a help form is displayed, the RESUME key can be used instead of the DO
key, and the NEXT SCREEN key can be used instead of HELP.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

5.2

Task Building with the Form Driver Object Library

The Form Driver object library must be task built with your application program.

Note: Because the Form Driver requires P/OS User Interface Service Routines support, you must perform the procedure described in the section in the
Tool Kit User's Guide on the Professional Application Builder.

For example, if your source code is in BASIC-PLUS-2, the BASIC-PLUS-2 compiler will generate a command file (filename.GMO) and an overlay description
file (filename.ODL) when you enter the BUILD command. You must edit the
command file and the overlay descr•ption file to include the Form Driver object
library.

5.2.1 Editing the Command File-You must edit the command (.CMD) file for
your PRO/FMS-11 application for the language you are using. See your language documentation for details. The command (.CMD) file generated by the
BASIC-PLUS-2 cortjpiler for an application named "TEST1" would look something like this once it had been edited for BASlc-PLUS-2:
SY:TEST1/CP=SY:TEST1/MP
TASK = tasK-name
UNITS = 18
ASG = TI:13:15
ASG = SY:5:6:7:8:9:10:11:12
EXTTSK= 952
CLSTR = PBESML1RMSRES1POSRES:RO
EXTSCT
MN$BUF:4540
static sin9le choice Menu
DM$BUF:4540
dYnaMic sin9le choice menu
EXTSCT
MM$BUF:1000
Multi-screen menu
EXTSCT
help text/Menu
EXTSCT
HL$BUF:3410
file selection/specification
FL$BUF:4310
EXTSCT
menu fraMe file
MN$LUN:20
GBLDEF
he l P frame f i l_e
HL$LUN:21
GBLDEF
MS$LUN:16
messa9e fraMe file
GBLDEF
terminal I/D
THLUN: 15
GBLDEF
terminal I/O event fla9
TT$EFN:1
GBLDEF
directory searches for DLDFIL and NEWFIL
WC$LUN:22
GBLDEF
routine or callable Print services
II

You must also edit the command file to use it with PRO/FMS-11. Follow these
steps:

FDV uses Logical Unit 5 for input and output to the terminal. Find the
lines beginning with "ASG" and edit them to read:
ASG
TI:13:15:5
ASG = SY:6:7:8:9:10:11:12

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Set the extend section (EXTSCT) command as follows:
EXTSCT = HL$BUF:3a10

; help text/menu

If your application uses the P/OS Help services (described in the
next section of this supplement), compute your frame size and set
the extension to this value if it is larger than the current value. See
Chapter 2 of the Tool Kit User's Guide for information on calculating frame size.
The fully edited command file for "TEST1" would look like this (changed lines
are shaded):
SY:TEST1/CP=SY:TEST1/MP
TASK = tasK-name
UNITS = 18

EXTTSK = 952
CLSTR = PBESMLtRMSREStPOSRES:RO
EXTSCT
MN$BUF:a5aO
static single choice menu
EXTSCT
DM$BUF:a5ao
dYnamic single choice menu
EXTSCT
MM$BUF:1000
multi-screen menu
EXTSCT
GBLDEF
GBLDEF
GBLDEF
GBLDEF
GBLDEF
GBLDEF

FL$8UF:a310
MN$LUN:20
HL$LUN:21
MS$LUN:16
THLUN: 15
THEFN: 1
WC$LUN:22

file selection/specification
menu frame file
helP frame file
message frame file
terminal I/D
terminal I/D event flag
directory searches for OLDFIL and NEWFILE
routine or callable Print services

5.2.2 Editing The Descriptor File-Your application must reference the PRO/
FMS-11 Form Driver, either the non-debug version (FDV) or the debug version
(FDVDBG). To do this, edit the overlay descriptor (.ODL) file to include the Form
Driver as part of the root segment of the program, concatenated with the object
module. For example, to include the non-debug Form Driver in a BASICPLUS-2 .ODL file, you would change the first line from this:
,ROOT BASIC2-RMSROT-USERtRMSALL

To this:
.ROOT BASIC2-RMSRDT-USER-FDVtRMSALL

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

In addition, you must add a new .FCTR line after the LIBR: line of your .ODL file:

BASIC-PLUS-2: For the non-debug version of the Form Driver, add the
line:
FDV:

.FCTR LB:[115JHLLBP2-LB:[115JFDV/LB

For the debug version of the Form Driver, add the line:
FD~J:

.FCTR LB: 115JHLLBP2-LB: [ 115JFDVDBG/LB

COBOL-81: Your edit to a COBOL-81 file will depend on whether your
program passes variabl~s by descriptor or by reference. Look at the
section "Tool Kit COBOL-81 11 in this manual for more information and
sample programs. If variables are passed by descriptor and you are
using the non-debug version of the Form Driver, add the line:
FDV:

.FCTR LB:[115JHLLCDB-LB:[115JFDV/LB

If variables are passed by descriptor and you are using the debug version the Form Driver, add the line:
FDV:

.FCTR LB:[115JHLLCDB-LB:[115JFDVDBG/LB

If variables are passed by reference and you are using the non-debug
version of the Form Driver, add the line:
FDV:

.FCTR LB:[115JHLLCBL-LB:[115JFDV/LB

If variables are passed by reference and you are using the debug version of the Form Driver, add the line:
FD~J:

,FCTR LB:[115JHLLCBL-LB:[115JFDVDBG/LB

FORTRAN-77: For the non-debug version of the Form Driver, add the
line:
FDV:

.FCTR LB:[115JHLLFOR-LB:[115JFDV/LB

For the debug version of the Form Driver, add the line:
FDV:

.FCTR LB:[115JHLLFDR-LB:[115JFDVDBG/LB

MACR0-11: For the non-debug version of the Form Driver, add the line:
FD V :

, F CTR LB : [ 1 , .5 J FD VIL B

For the debug version of the Form Driver, add the line:
FDV:

.FCTR LB:[1,5JFDVDBG/LB

PASCAL: PASCAL uses the FORTRAN version of the PRO/FMS-11
Form Driver. For the non-debug version of the Form Driver, add the line:
FDV:

.FCTR LB:[115JHLLFDR-LB:[115JFDV/LB

PRO/FMS-i i DOCUMENTATION SUPPLEMENT

For the debug version of the Form Driver, add the line:
FDt,I:

.FCTR LB: [1,SJHLLFOR-LB:[115JFDl.JDBG/LB

The original .ODL file for a BAS!C-PLUS-2 application named "TEST1"
would look like this:
.ROOT BASICZ-RMSROT-USER1RMSALL
USER:

.FCTR SY:TEST1-LIBR

LIBR:

.FCTR LB: [1,5JPBEOTS/L5

@LB:[1 i5JPBEIC1
@LB: [1 , 5 JRMSRU<
.END

Edited to reference the non-debug version of the PRO/FMS-11 Form
Driver, the BASIC-PLUS-2 .ODL file would look like this (new lines are
shaded):
USER:

.FCTR SY:TEST1-LIBR

LI BR:

.FCTR LB: [115JP5EOTS/L5

,53

£ b5lFOV/LB

@LB:[l 15JP5EIC1
@L5:[1,5JRMSRU<
.END

The debug version of the edited BASIC-PLUS-2 .ODL would look like
this:
USER:

.FCTR SY:TESTl-LIBR

LIBR:

.FCTR L5:[115JP5EOTS/LB

@L5:[1,5JPBEIC1
@LB: [ 1 , 5 J l~MSRU<
.END

See the programs at the end of this manual for sample edited .ODL files.

6.0

HELP

PRO/FMS-11 applications can use P/OS help frames in addition to regular FMS
help forms.

When the end user first presses the HELP key, help is displayed from the
sources in the following order:
1.

A one-line help message for current field

The Help form specified by current form

The P/OS help frame specified in the Named Data section of the current
form

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

When the end user presses the HELP key again or presses the NEXT SCREEN
key, help is displayed from the sources in this order:

The help form specified by current form

The P/OS help frame specified in the Named Data section of the last
form displayed

To provide P/OS Help services with PRO/FMS-i 1, follow these steps:
1.

Use the Frame Development Tool (FDT) to create help frame files.

Run the PRO/FMS-1 i Forms Editor (PROFED) and retrieve the form.
Enter the NAME command. PROFED will display the Named Data Entry
Form.

In Named Data Entry Form, enter ".HELP." in the Name field and the
frame identifier (frameid) in the Data field.

Edit your source code so that it includes calls to P/OS Help services to
open the Help file before the Form Driver is called, and to close the Help
file before the program exits.

Make sure you have edited the command file according to Section 5.2.1
of this supplement.

Run the PRO/FMS-11 Forms Utility (PROFUT) and replace the old form
with the new one.

A completed Named Data Entry form would look something like this:
Narne

Data

!----!

!-----------------------------------------------------!

• HELP,

I NFD2

You may use a maximum of 60 forms per library, with up to 4 libraries open at
one time.
See the Tool Kit User's Guide for a description of the Frame Development Tool
and information on creating Help definition files.
7.0

FLOPEN

FLOPEN, the FMS command to open a specified form library file, always
returns a successful completion message, regardless of the call's actual success or failure. Error messages will result if the file was in fact not open by the
FLOPEN call.
You should check the file's status when issuing subsequent calls. Use the
FST AT call to determine whether the file was opened.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

8.0

INSTALLATION PROCEDURES

On the RXSO diskette (volume label PRO/APP DSKT BLDR V1 .5) supplied, with
the Tool Kit, in directory PROFMS, are two PRO/FMS-11 files:

DEMLIB.FLB-Contains forms for the sample PRO/FMS-11 programs
supplied with the Tool Kit. You will need this file on your Professional to
run the sample programs.

FMSDBG.MSG-Contains error messages for PRO/FMS-11 programs
built against FDVDBG. You will need this file on your Professional to run
debug versions of your programs.

To copy the files from the diskette to SYSDISK:[001,002] on your Professional,
follow these steps:
1.

Insert the diskette in a diskette drive slot.

Go to the Main Menu. Select File Services. Press DO.

The File Services menu will appear. Select Copy File and press DO.

Press ADDTNL OPTIONS.

The Additional Options menu will appear. Select Choose a different
directory/volume and press DO.

The Directory Selection menu will appear. Select the directory
PROFMS from the volume Toolkit and press DO.

The File Selection menu will appear. Select the file from the list of files,
either DEMLIB.FLB or FMSDBG.MSG. Press DO.

The Name a File Form will appear. Press ADDTNL OPTIONS.

The Additional Options menu will reappear. Select Choose a different
directory/volume. Press DO.

10.

The Directory Selection menu will appear. Press ADDTNL OPTIONS.

11.

The Additional Options menu will appear. Select Choose a System
Directory. Press DO.

12.

The Directory Selection menu will appear. Select 001002. Press DO.
The Name a File Form will reappear. Type in the filename of the file you
selected, for example, DEMLIB.

13.

When the file has been copied to the disk directory 001002, the File
Services menu will reappear.

14.

To install the other file, repeat this procedure from step 3. To display the
Main Menu, press MAIN SCREEN.

9.0

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

SAMPLE PRO/FMS-11 PROGRAMS

A sample PRO/FMS-11 program in each of the Tool Kit languages is included
with the Tool Kit. After the Tool Kit has been installed on your host system, you
can find these program in directory LB:[1,5]. Copy the files to your own area if
you wish. You'll find the accompanying forms in the file DEMLIB.FLB on the diskette distributed with the Tool Kit. Use the instructions in this manual, in the section on installation procedures, to copy the file to your Professional. The rest of
this section contains listings of the sample programs, with any restrictions or
comments you may need.

9.1

Tool Kit BASIC-PLUS-2

100 REM
110 REM BASDEM.B2S
120 REM
130 REM
COPYRIGHT <C> 1979 BY
140 REM
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS,
150 REM
160 REM
170 REM
180 REM MODULE:
BASDEM
190 REM
200 REM VERSION: vo1.00
210 REM
Megan
220 REM AUTHOR:
230 REM
10-APRIL-79
240 REM DATE:
245 REM
Ducharme
250 REM MODIFIED:
255 REM
Changed Command and odl file
11-MARCH-1983
257 REM DATE:
260 REM
270 REM BASIC Plus 2 V2.0 demonstration Program for FMS illustrating a
280 REM simPle form-driven• data entry aPPlication.
290 REM
292 REM Below is an example of a command and ODL file to build
294 REM this demonstration Program.
296 REM
298 REM
BASDEM.CMD
300 REM
301 REM SY:BASDEM/CP/FP1BASDEM/-sP=sY:BASDEM/MP
302 REM TASK = BASDEM
303 REM UNITS = 19
304 REM ASG = TI:13:15:5
305 REM ASG = SY:1:6:7:8i9:10:11:12
306 REM EX TT SK= 952
307 REM CLSTR=PBESML1POSSUM1POSRES1RMSRES:RO
iSINGLE CHOICE MENU
308 REM EXTSCT=MN$BUF:O
iDYNAMIC SINGLE CHOICE
309 REM EXTSCT=DM$BUF:O
iHELP
310 REM EXTSCT=HL$BUF:3410
311 REM EXTSCT=MS$BUF:3100
iMESSAGE

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

312 REM EXTSCT=MM$BUF:O
;MUTLI-CHOICE MENU
313 REM EXTSCT=FL$BUF:O
;MULTI-CHOICE MENU
31/l' REM GBLDEF=MN$LUN:22
;MENU
315 REM GBLDEF=HL$LUN:20
;HELP
316 REM GBLDEF=MS$LUN:21
;MESSAGE
317 REM GBLDEF=TT$LUN:15
;TERMINAL I/O LUN
318 REM GBLDEF=WC$LUN:23
;FILE LUN
319 REM GBLDEF=TT$EFN:1
;I/O EVENT FLAG
.320 REM I I
321 REM
ll21 REM
ll22 REM
TKB COMMand file to build BASDEM
ll23 REM
ll21l REM
.ROOT BASIC2-RMSROT-USER-FDVtRMSALL
ll25 REM USER:
.FCTR SY:BASDEM-LIBR
ll26 REM LIBR:
.FCTR LB: [1 t5lPBEOTS/LB
ll27 REM FDV:
,FCTR !-B:[1,5lHLLBP2-LB:[1 •5lFDV/LB
ll28 REM @LB: [115lPBEIC1
ll29 REM @LB: [1 t5lRMSRLX
ll30 REM
.END
llllO REM
ll50 REM
500 REM
Defined Variable~.
501 DIM II<15001
502 C$=STRING$C2I165Il
503 F1$=STRING$C6It32Il
50/l F2$=STRING$C13It32I)
505 A$=STRING$C255It32Il
DESCRIPTION
510 REM VARIABLE
520 REM
Choice specified by the user
530 REM C$
FDV status
550 REM SI
Te rMinato r code
560 REM TI
The initial forM naMe of the series
570 REM FU
The outPut file naMe
580 REM F2$
The current forM naMe
590 REM F3$
600 REM
610 REM Initfalize ForM Driver and oPen library,
620 REM
625 CALL WTQIOC768It5I15I>
630 CALL FIN IT< II<> t1500Il
635 CALL FLCHAN<6Il \ GOSUB 2000
!>llO CALL FLOPEN<"LB:[1,2lDEMLIB"l \ GOSUB 2000
650 REM
660 REM Show the Menu forM for oPerator to select the data
670 REM collection series. Get the first forM naMe froM
680 REM naMed data.
690 REM
700 CALL FCLRSH<"FIRST"l \ GDSUB 2000
710 CALL FGETCC$tTit"CHOICE"l \ GOSUB 2000
720 CALL FNDATACC$tF1$1 \CALL FSTAT<SII \ IF SI>OI GO TO 770
730 CALL FPUTL<"Illesal choice") \GO TO 710

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

740 REM
750 REM If forM naMe is ",EXIT."' terMinal operator is done.
780 REM
770 IF F1$=",EXIT," GO TO 1290
780 REM
790 REM Get the outPut file naMe froM naMed data and open it.
800 REM
810 CALL FNDATACTRM$CC$1+"F"tF2$1
820 OPEN F2$ FOR OUTPUT AS FILE#lZtFILESIZE 101
830 REM
THIS IS THE DATA COLLECTION LOOP
840 REM
850 REM
880 REM Set current forM = first forM in series.
870 REM
880 F3$=Fl$
890 REM
900 REM Show the forM.
910 REM
920 CALL FCLRSHCF3$1 \ GOSUB 2000
930 REM
940 REM Get data for current forM and outPut it.
950 REM
980 CALL FGETALCA$1 \ GOSUB 2000
970 PRINT#1ZtTRM$CA$1
980 REM
990 REM Get naMe of next forMo If foundr loop for More data.
1000 REM
1010 CALL FNDATAC "NXTFRM" tF3$1
1020 IF F3$()",NONE." GO TO 920
1030 REM
1040 REM End of the forM series. Show LAST to deterMine if
1050 REM we're done or not.
1080 REM
1070 CALL FCLRSHC"LAST"I \ GOSUB 2000
1080 CALL FGETCC$1TZ1"CHOICE"I \ GOSUB 2000
1090 REM
1100 REM If response = "1", repeat data collection loop,
1110
1120
1130
1140
1150
1180

REM
IF C$="1" GO TO 880
REM
REM Get naMed data corresponding to response.
REM Get field again if illegal response.
REM Close output file for valid response other than 1.

1170
1180
1190
1200
1210
1220
1230
1240
1250

REM
CALL FNDATACC$tF3$1 \CALL FSTATCSZl \ IF SZ>OZ GO TO 1200
CALL FPUTLC"Illegal choice") \GD TO 1080
CLOSE# 1'.X.
REM
REM If naMed data is ".EXIT."• terMinal operator is done. else
REM disPlaY Menu forM again.
REM
IF F3$()",EXIT," GO TO 700

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

1260
1270
1280
1290
2000
2010
2020
2030
20ll0
2050
2060
2070
9999

REM Close form library and exit
REM
REM
CALL FLCLOS \ GO TO 9999
REM
REM Output message and exit if I/O error returned from
REM Form Driver. This is the onlY error exPected in a
REM debugged aPPlication.
REM
CALL FSTAT<SI>
IF SI>OI THEN RETURN
CALL FPUTL<"Fatal I/O Error") \STOP
END

9.2

Tool Kit COBOL-81

When calling PRO/FMS-11 from a COBOL-81 program, you can pass variables
either by descriptor or by reference.

Use the By Reference method for numeric data type parameters, such
as the starting line parameter of FCLRSH or the LUNs for the FLCHAN
call.

Use the By Descriptor method for character type parameters.

The method used will determine which interface you specifiy in your .ODL file.
See the section of this manual on editing the descriptor file for details. The following sample programs demonstrate each method.

9.2.1 Passing Variables By Reference-This COBOL program passes all
variables by reference to the Form Driver. It uses the interface HLLCBL.

*
*

*
*
*
*

CBLDEM.CBL
COPYRIGHT (Cl 1979 BY
DIGITAL EQUIPMENT CORPORATION• MAYNARD, MASS,

MODULE:

CBLDEM

*
*

VERSION:

VO 1. 00

AUTHOR:

MEGAN

DATE:

1-APRIL-79

MODIFIED:

DUCHARME

DATE:

3-MARCH-83

*
*
*
*
*

*
*

*
*
*
*

To run on the Professional

COBOL demonstration Pro!ram for FMS illustratin! a
simPle form-drivent data entry aPPlication.

*
*
*
*
*

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

The following is a brief descriPtion on coMPiling and
building CBLDEM.
The coMMand to coMPile the Pro9raM is:
MCR PROC81 CBLDEM1CBLDEM=CBLDEM

*
*
*
*

Below is an eKaMPle of a TKB coMMand file to build
this deMonstration PrograM.

*
*

CBLDEM.CMD

*
*

TKB COMMand file to build CBLDEM

*
*
*

*
*

*
*
*
*
*
*
*

*
*
*
*

*
*

*
*
*

*
*

*
*
*
*

*
*

;TKB COMMAND FILE CREATED ON 01-MAR-83 AT 14:16:02
CBLDEMICPl-FP1CBLDEMl-SP=CBLDEMIMP
TASK=CBLDEM
CLSTR=C81LIB1POSRES1RMSRES:RO
EXTSCT=MN$BUF:O
EXTSCT=DM$BUF:O
EXTSCT=HL$BUF:3410
EXTSCT=MS$BUF:3100
EXTSCT=MM$BUF:O
EXTSCT=FL$BUF:O
GBLDEF=MN$LUN:22
GBLDEF=HL$LUN:20
GBLDEF=MS$LUN:21
GBLDEF=TT$LUN:15
GBLDEF=WC$LUN:23
GBLDEF=TT$EFN:1

;SINGLE CHOICE MENU
;DYNAMIC SINGLE CHOICE
;HELP
iMESSAGE
iMUTLI-CHOICE MENU
iMULTI-CHOICE MENU
iMENU
iHELP
iMESSAGE
iTERMINAL IIO
iIIO EVENT FLAG

UNITS = 18
TI:13:15:5
ASG
SY:6:7:8:8:10:11:12
ASG
II

-----------------------------------------------------------------------Below is an eKaMPle ODL file to build the DeMonstration Pro9raM
iMERGED ODL FILE CREATED ON 01-MAR-83 AT 14:16:02
@CBLDEM.SKL
SCOBJ$: .FCTR CBLDEM,OBJ
@LB: [1 t1 J RMSRLX. DDL
.NAME RMS$TR
RMSTR$: .FCTR RMS$TR-RMSALL
RMS$:
.FCTR RMSROT
SCLIB$: .FCTR LB:[l t1JC81LIBILB
DBJRT$: .FCTR SCOBJ$-FDV-SCLIB$-RMS$
FDV:
.FCTR LB:[l 1SlHLLCBL-LB:U 1SlFDV.OLBILB

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

.ROOT OBJRT$1RMSTR$

.END

*
*

IDENTIFICATION DIVISION.
PROGRAM-ID.
CBLDEM,

*
*
*
*
*

TEST PROGRAM

ENVIRONMENT DIVISION,
CONFIGURATION SECTION,
INPUT-OUTPUT SECTION.
FILE-CONTROL,
SELECT OUTPUT-FILE QSSIGN TO "SY:",
DATA DIVISION.
FILE SECTION.

*
*

Create a sequential file for outPut of form data.
OUTPUT-FILE
LABEL RECORDS ARE STANDARD
VALUE OF ID IS ANSWERZ,
POOL PIC X<ZSGl,
Data follows.

WORKING-STORAGE SECTION.
SYstem form library,
PIC X(25) t)ALUE "#LB:C1t2JDEMLIB.FL6•"•
01 DEMLIB
*
Logical unit number for FMS librarY file.
01 LUN
PIC 99 COMP VALUE S,
*
ImPure area.
PIC XC2000l,
01 IMPURE
*
Size of imPure area.
01 !SIZE
PIC 9999 COMP VALUE 2000,
01 I NUM
PIC 999 COMP VALUE 788.
01 UN
PIC 9 CO"P VALUE 5~

*
*

*
*
•

Special
ANSWERl
ANSWER2
ANSWER3

worK area.
-> The initial form name of the series.
-> The outPut file name.
-> The current form name.

01 ANSWER1,
·II
02 PART PIC X(S),
02 FILLER PIC XC7l.
01ANSWER2
PICXC13),
01 ANSWER3,
02 PART PIC X(6),
02 FILLER PIC X(7),

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Fieldf used to create a field name.

*
*

01 FIELDF.

02 DAT PIC X,
02 FILLER PIC X15J VALUE "F
01 FIELD
PIC XIG),
Status

*
*

01 STAT PIC 99 CDMP,
01

STATZ PIC 99 COMP,

Error messale

on Prolram errors;

01 ERR1,

OZ PART1
OZ ERR-STAT
OZ PARTZ
OZ ERR-STATZ
01 ILL-CHOICE

*
*
*
*
*

PIC X<ZZI VALUE "FATAL I/D ERROR, STAT=",
PIC ZZZZ8- DISPLAY,
PIC }(181 l.JALUE ", STATZ=",
PIC ZZZZ8- DISPLAY,
PIC X11GJ t.JALUE "**ILLEGAL CHOICE11",

FORM DESCRIPTION STARTS HERE

COPY "LB:[1,5J:DEMLIB.LIB",

*
*
*

PROCEDURE DIVISION,
MAIN-CONTROL SECTION,
p 1.

*
*

Attach the terminal.

CALL "WTQ I 0" US I NG I NUM t UN• UN.
Initialize and oPen the

library,

CALL "FINIT" USING IMPURE• ISIZE.
CALL "FLCHAN" USING LUN,
PERFORM STATUS-CHECK.
CALL "FLOPEN" USING DEMLIB,
PERFORM STATUS-CHECK,
DisPlaY first

form.

PG.
CALL "FCLRSH" USING FORM-FIRST.
PERFORM STATUS-CHECK,

*
*
*

Show the menu form for operator to select the data
collection series.
Get the first form name from
named data.

PRO/FMS-11 DOCUMENTA~ION SUPPLEMENT

PZ.
CALL "FGET" USING
D-FIRST-CHDICE1 STAT1 N-FIRST-C~OICE.
PERFORM STATUS-CHECK.
MOVE D-FIRST-CHOICE TO FIELD.
MOVE SPACES TO ANSWER!.
CALL "FNDATA" USING
FIELD1 ANSWER!.
CALL "FSTAT" USING STAT.
IF STAT NOT > 0
CALL "FPUTL" USING ILL-CHOICE
PERFORM STATUS-CHECK
GO TO PZ.

*
*

If form name is ".EXIT." 1 terminal operator is done.
IF PART OF ANSWER1 = ",EXIT," GO TO LIB-CLOSE.
Get the output file name from named data and oPen it.
MOVE D-FIRST-CHOICE TO DAT OF FIELDF.
MOVE SPACES TO ANSWERZ.
CALL "FNDATA" USING
DAT OF FIELDF1 ANSWERZ.
PERFORM STATUS-CHECK.
OPEN OUTPUT OUTPUT-FILE.
This is the data collection loop,

Pl!.

MOVE ANSWER1 TO ANSWER3.
Show the form.

PJ,
CALL "FCLRSH" USING ANSWER3.
PERFORM STATUS-CHECK,

*
*

Get data for current form and outPut it.
MOVE SPACES TO POOL.
CALL "FGETAL" USING POOL,
PERFORM STATUS-CHECK.
WRITE POOL.
Get name of next form.
MOVE "NXTFRM" TO FIELD.
CALL "FNDATA" USING
FIELD1 ANSWER3.
PERFORM STATUS-CHECK.
IF PART OF ANSWER3 NOT

If found• loop for more data.

",NONE," GO TO P3.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

End of the form series.
we're done or not.

Show last to determine if

CALL "FCLRSH" USING FORM-LAST,
PERFORM STATUS-CHECK,

PS,
CALL "FGET" USING
D-LAST-CHDICE• STATt N-LAST-CHDICE,
PERFORM STATUS-CHECK,
MOVE 0-LAST-CHOICE TD FIELD,

If response

*
*
*
*

*
*
*

*
*
*
*
*
*

IF FIELD

"1"

= "1"'

repeat data collection loop,

TD P4,

Get named data corresPondin9 to response.
Get field again if illegal response.
Close outPut file for ualid resPonse other than 1,
CALL "FNOATA" USING FIELD• ANSWER3,
CALL "FSTAT" USING STAT.
IF STAT NOT > 0
CALL "FPUTL" USING ILL-CHOICE
PERFORM STATUS-CHECK
GO TD PS,
CLOSE OUTPUT-FILE.
If named data

is ".EXIT."• terminal operator

is done1 else disPlaY menu form asain.

IF PART OF ANSWER3 NOT

",EXIT," GO TD PS,

Close form librarY and exit,

LIB-CLOSE.
CALL "FLCLOS",
PERFORM STATUS-CHECK,
STOP RUN,

*
*
*

*
*

Output messase and exit if I.O error returned from
Form Driuer.
This is the only error expected in a
debugged aPPlication.
STATUS-CHECK SECTION.
SC 1,
CALL "FSTAT" USING STAT1 STATZ,
IF STAT > 0 GO TD SCZ,
MOVE STAT TD ERR-STAT,
MOVE STATZ TO ERR-STATZ,
DISPLAY ERR1 AT LINE 1 AT COLUMN 1, ERASE TD END OF SCREEN,

PRO/FMS~11 DOCUMENTATION SUPPLEMENT

DISPLAY "Press RESUME to continue," AT LINE 3 AT COLUMN 1,
CALL "WTRES",
STOP RUN

scz.
EXIT,

Passing Variables By Descriptor-This COBOL program passes data
variables by descriptor to the Form Driver. (Numeric variables are passed by
reference.) It uses the interface HLLCBL.

9.2.2

*
*
*
*
*
*
*
*

CBLOESOEM.CBL
COPYRIGHT <Cl 1979 BY
DIGITAL EQUIPMENT CORPORATION, MAYNAR01 MASS,

MODULE:

CBLDESDEM

VERSION:

vo1.oo

AUTHOR:

MEGAN

DATE:

1-APRIL-79

*
*

MODIFIED:

DUCHARME

*
*

DATE:

3-MARCH-83

*
*
*
*
*

*
*
*

*
*
*
*
*
*
*

*
*

*
*
*
*
*
*
*
*

*
*
*
*

To run on the Professional

COBOL demonstration Pro!ram for FMS illustratin! a
simPle form-driven1 data entry aPPlication. This Pro!ram
demonstrates the Call BY Descriptor method to call the
Form Driver.
The followin~ is a brief description on comPilin! and
buildin! CBLDESDEM,
The command to comPile the Pro!ram is:
MCR PROC81 CBLDESDEM1CBLDESDEM=CBLOESDEM
Below is an example of a TKB command file to build
this demonstration Pro!ram.

CBLDESOEM.CMD
TKB command file to build CBLOESOEM
ITKB COMMAND FILE CREATED ON 01-MAR-83 AT 14:16:02
CBLDESDEM/CP/-FPtCBLDESOEM/-SP=CBLDESOEM/MP
TASK=CBLDEM
CLSTR=C81LIB1POSRES1RMSRES:RO

*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

EXTSCT=MN$BUF:O
EXTSCT=DM$BUF:O
EXTSCT=HL$BUF:3410
EXTSCT=MS$BUF:3100
EXTSCT=MM$BUF:O
EXTSCT=FL$BUF:O
GBLDEF=MN$LUN:22
GBLDEF=HLSLUN:ZO
GBLDEF=MS$LUN:21
GBLDEF=TT$LUN:15
GBLDEF=WC$LUN:23
GBLDEF=TT$EFN:1

;SINGLE CHOICE MENU
;DYNAMIC SINGLE CHOICE
;HELP
;MESSAGE
;MUTLI-CHOICE MENU
;MULTI-CHOICE MENU
;MENU
;HELP
;MESSAGE
;TERMINAL I/O
;IIO EVENT FLAG

UNITS = 19
TI:13:15:5
ASG
SY:6:7:8:9:10:11:12
ASG
11

*
*
*

Below is an exaMPle ODL file to build the DeMonstration

RMSTR$:
RMS$:
SCLIB$:
OBJRH:
FDV:

.FCTR
.FCTR
.FCTR
.FCTR
.FCTR
.ROOT

.ENO

*
*

*
IDENTIFICATION DIVISION.
CBLDEM.
PROGRAM- ID,

*
*
*
*
*
*

TEST PROGRAM

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OUTPUT-FILE ASSIGN TO "SY:",
DATA DIVISION,
FILE SECTION.

Pro~raM

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

*
*
*

Create a sequential file for output of forM data.
OUTPUT-FILE
LABEL RECORDS ARE STANDARD
VALUE OF ID IS ANSWERZ.
POOL PIC X!Z56l.
Data follows.

WORKING-STORAGE SECTION,
SYsteM forM library,
01 DEMLIB
PIC X!Z5l VALUE "LB:[11ZlDEMLIB.FLB",
*
Lofical unit nuMber for FMS library file.
01 LUN
PIC 88 COMP VALUE 6,
*
IMPure area.
01 IMPURE
PIC X<ZOOO>.
*
Size of iMPure area.
01 !SIZE
PIC 8888 COMP VALUE ZOOO,
01 I NUM
PIC 888 COMP VALUE 768.
01 UN
PIC 8 COMP VALUE 5,

*
*

SPecial work area.
ANSWER1 -> The initial forM naMe of the series.
ANSWERZ -> The OUtPUt file naMe.
ANSWER3 -> The current forM naMe.

01 ANSWER1,
OZ PART PIC X!Sl,
OZ FILLER PIC X!7l,
PIC X!13l.
01 ANSWERZ
01 ANSWER3,
OZ PART PIC X!Sl,
OZ FILLER PIC X!7l,

*
*
*

Fieldf used to create a field naMe.

01 FIELDF,
OZ DAT PIC X.
OZ FILLER PIC X!5l VALUE "F
01 FIELD
PIC X!Sl.

*
*

Status

01 STAT PIC 88 COMP,
01 STATZ PIC 88 COMP,

*
*
*

Error Messafe on ProfraM errors.

01 ERRl,
OZ PARTl
OZ ERR-STAT
OZ PARTZ

PIC X!Z3l VALUE "FATAL 1/0 ERROR• STAT="•
PIC ZZZZ8- DISPLAY.
PIC X!Bl VALUE "• STATZ="•

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

02 ERR-STATZ
01 ILL-CHOICE

*
*

PIC ZZZZ9- DISPLAY,
PIC X<16l VALUE "ILLEGAL CHOICE",

FORM DESCRIPTION STARTS HERE

*
*

COPY "LB:C115lDEMLIB,LIB",

*
*
*

*PROCEDURE DIVISION,
MAIN-CONTROL SECTION,
p 1.

*
*

Attach the
CALL "WTQIO" USING
Initialize
CALL "FINIT" USING

terMinal.
INUM1 UN1 UN,
and open the library,
BY DESCRIPTOR IMPURE1
BY REFERENCE !SIZE,
CALL "FLCHAN" USING BY REFERENCE LUN,
PERFORM STATUS-CHECK,
CALL "FLOPEN" USING BY DESCRIPTOR DEMLIB,
PERFORM STATUS-CHECK,
DisPlaY first forM.

PS,
CALL "FCLRSH" USING BY DESCRIPTOR FORM-FIRST,
PERFORM STATUS-CHECK,

*
*

Show the Menu forM for operator to select the data
collection series. Get the first forM naMe froM
naMed data.

P2,
CALL "FGET" USING BY DESCRIPTOR D-FIRST-CHOICE1
BY REFERENCE
STAT1
BY DESCRIPTOR N-FIRST-CHOICE,
PERFORM STATUS-CHECK,
MOVE D-FIRST-CHOICE TO FIELD,
MOVE SPACES TO ANSWER1,
CALL "FNDATA" USING BY DESCRIPTOR FIELD1 ANSWER1.
CALL "FSTAT" USING BY REFERENCE STAT,
IF STAT NOT > 0
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE
PERFORM STATUS-CHECK
GO TO P2,

*
*
*
*
*

If forM naMe is ",EXIT."1 terMinal operator is done.
IF PART OF ANSWER1

= ",EXIT," GO TO LIB-CLOSE,

Get the output file naMe f roM naMed data and oPen it.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT 25

MOVE 0-FIRST-CHOICE TO OAT OF FIELOF,
MOVE SPACES TO ANSWER2.
CALL "FNDATA" USING BY DESCRIPTOR
FIELDF1 ANSWER2,
PERFORM STATUS-CHECK,
OPEN OUTPUT OUTPUT-FILE,
This is the data collection loop,

P4.
MOVE ANSWER1 TO ANSWER3,

Show the form.

p3,
CALL "FCLRSH" USING BY DESCRIPTOR ANSWER3,
PERFORM STATUS-CHECK.

*
*
*

*
*
*
*

Get data for current form and outPut it.

MOVE SPACES TO POOL,
CALL "FGETAL" USING BY DESCRIPTOR POOL.
PERFORM STATUS-CHECK,
WRITE POOL.
Get name of next form.

If found1 loop for more data.

MOVE "NXTFRM" TO FIELD,
CALL "FNDATA" USING BY DESCRIPTOR FIELD1 ANSWER3,
PERFORM STATUS-CHECK.
IF PART OF ANSWER3 NOT = ",NONE." GO TO p3,
End of the form series.
we're done or not.

Show last to determine if

CALL "FCLRSH" USING BY DESCRIPTOR FORM-LAST,
PERFORM STATUS-CHECK,

p:;,

CALL "FGET" ujING BY DESCRIPTOR D-LAST-CHOICE1
BY REFERENCE STAT1
BY DESCRIPTOR N-LAST-CHOICE.
PERFORM STATUS-CHECK,
MOVE 0-LAST-CHOICE TO FIELD,

*
*
*

*
*

If response= "1"• repeat data collection loop,

IF FIELD = "1" GO TO p4,
Get named data corresPondinf to resPonse.
Get field afain if illefal response.
Close outPut file for valid response other than 1.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

CALL "FNDATA" USING BY DESCRIPTOR FIELD, ANSWER3,
CALL "FSTAT" USING BY REFERENCE STAT,
IF STAT NOT > 0
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE
PERFORM STATUS-CHECK
GO TO PS,
CLOSE OUTPUT-FILE,

If na111ed data is ".EXIT."• ter111inal operator
is donet else disPlaY 111enu for111 afain.

*
*

IF PART OF ANSWER3 NOT= ",EXIT," GO TO PS,

Close for111 library and exit.

*
*

LIB-CLOSE,
CALL "FLCLOS",
PERFORM STATUS-CHECK,
STOP RUN.

Output 111essafe and exit if 1.0 error returned fro111
For111 Driver. This is the only error expected in a
debuffed aPPlication.

*
*
*
*

STATUS-CHECK SECTION,

sci.
CALL "FSTAT" USING BY REFERENCE STATt STATZ,
IF STAT > 0 GO TO SCZ,
MOVE STAT TO ERR-STAT.
MOVE STATZ TO ERR-STATZ,
DISPLAY ERR1 AT LINE 1 AT COLUMN 1t ERASE TO END OF SCREEN,
DISPLAY "Press RESUME to continue," AT LINE 3 AT COLUMN 1,
CALL "WTRES",
STOP RUN,

scz.
EXIT,

9.3

Tool Kit FORTRAN-77

c
c FORDEM.FTN
c
c
c
COPYRIGHT ( c) 1979 BY
c
DIGITAL EQUIPMENT CORPORATIONt MAYNARDt MASS,
c
c
c MODULE:
FORDEM
c
c VERSION:
VO 1, 00
c

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

C AUTHOR:

Megan

c
C DATE:

1-APRIL-79

c
C MODIFIED

DucharMe

c
C DATE:

2-MARCH-83

To run on the Professional

c
c
C FORTRAN deMonstration PrograM for FMS illustrating a
C siMPle forM-driven• data entrY aPPlication.

c
C Below is an exaMPle COMMand file to build this deMonstration PrograM

c
C

SY:FORDEMICPtSY:FORDEMl-SP=SY:FORDEMIMP

c
C

TASK = FORDEM

c
C

UNITS = 19

c
C
C

c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c

ASG=Tl:5:13:15
ASG=SY:1:2:7:8:9:10:11:12
CLSTR=PROF77tPOSREStRMSRES:RO
EXTSCT=MN$BUF:O ;SINGLE CHOICE MENU
EXTSCT=DM$BUF:O ;DYNAMIC SINGLE CHOICE
EXTSCT=HL$BUF:3410
;HELP
EXTSCT=MS$BUF:3100
;MESSAGE
EXTSCT=MM$BUF:O ;MUTLI-CHOICE MENU
EXTSCT=FL$BUF:O ;MULTI-CHOICE MENU
GBLDEF=MN$LUN:22;MENU
GBLOEF=HLSLUN:zo;HELP
GBLDEF=MSSLUN:21 ;MESSAGE
GBLDEF=TTSLUN:15;TERMINAL IIO
GBLDEF=WC$LUN:23
;IIO El.1ENT FLAG
GBLDEF=TT$EFN:1
II

C Below is an exaMPle ODL file to build this deMonstration PrograM

c
c
c
C
C
C

,ROOT FORDEM-FDV-RMSROT-OTSROT-OTSALL
,FCTR LB:[1,5lHLLFOR-LB:C1 t5lFDVILB
FDV:
@LB:C1t5lPROF77
@LB:C1 t5lRMSRLX
.END

c
c
c
IMPLICIT INTEGER <A-Zl
DIMENSION IMPURE (1000)
BYTE RESP<3>, FORMC7l, FORM1<7l, DNAM<3> • FILE<30l • DATA<255l

c
C Initialize iMPure area for ForM Driver and oPen forM library,

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

c
CALL WTQIO !7681515)
!ATTACH THE TERMINAL
CALL FINIT <IMPURE1 1000)
CHAN=2
CALL FLCHAN!CHANl
CALL ERROR <FLOPEN < 'LB:U 12JOEMLIB'll

c
C Display Menu forM.

c
10

CALL ERROR <FCLRSH <'FIRST 'll

c
C Get inPut froM terMinal. Get naMed data (naMe of first forM in
C series or .EXIT.> corresPondins to user's choice. If naMed data
C doesn't exist• input invalid.

c
20

CALL ERROR !FGET <RESP1 TERM1 'CHOICE'll
IF <FNDATA <RESP1 FORMll .GT, Ol GOTO 30
CALL FPUTL < 'lllesal choice')
GOTO 20

c
c Check for exit. If choice not exit1 set naMe of corresPondins
c file and OPen it for outPut.
c
30

LIO

IF <SCOMP <FORM11 ',EXIT,') .NE, Ol GOTO LIO
CALL FLCLOS
CLOSE FORM LIBRARY
STOP
CALL CONCAT <RESP1 'F' 1 DNAMl
CALL FNDATA <DNAM1 FILE>
OPEN <NAME=FILE1UNIT=11STATUS='NEW' 1INITIALSIZE=10l

c
C DisPlaY forM and collect data; write data to output file.

c
50
60

CALL SCOPY <FORM11 FORM1 6)
CALL ERROR <FCLRSH <FORMll
CALL ERROR <FGETAL <DATAll
WRITE !1170) <DATACll1 1=11LENGTH<DATAll
FORMAT ( 7BA1 l ! DATA IS BROKEN INTO SEGMENTS FOR OUTPUT

c
C Get naMe of next forM in series. Check for none.

c
CALL FNDATA < 'NXTFRM' 1 FORM>
IF <SCOMP <FORM I '.NONE.') .NE. 0) GOTO 60

c
C If last forM in series done1 disrlaY a Menu forM.
C Get input froM terMinal. Get naMed data corresPondins
C to user's choice. If no naMed data1 invalid inPut.

c
BO

CALL ERROR
CALL ERROR
IF <FNDATA
CALL FPUTL
GOTO 80

<FCLRSH <'LAST' l l
<FGET <RESP1 TERMt 'CHOICE'll
<RESP, FORM> , GT, 0) GOTO 90
('lllesal choice')

c
c If choice = 1 • repeat series.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT 29

C Else close outPut filei check for exit or fo back to
C initial menu form.

c
90

IF <RESP!1l ,EQ, '1'l GOTO 50
CLOSE <UNIT=1 l
IF !SCOMP<FORM1 ',EXIT,'l .NE. Ol GOTO 10
CALL FLCLOS
! CLOSE FORM LIBRARY
STOP
ENO
SUBROUTINE ERROR <RESULT>

c
C Output messafe and exit if I/O error returned from
C Form Oriver. This is the only error expected in a
C debuffed aPPlication.

c
IMPLICIT INTEGER <A-Zl

c
IF <RESULT .GT, Ol RETURN
CALL FPUTL <'Fatal I/O Error')
STOP
ENO
SUBROUTINE SCOPY <SRC1 OST1 LENl

c
C COPY a strinf of a specified lenfth

c
C SRC
C OST
C LEN

source bYte strinf
destination byte strinf to be ended bY a zero
number of characters to coPY

c
BYTE SRC!1l, OST!1l
INTEGER LEN

c
C COPY source to destination for lenfth

c
10

00 10 I = 1 1 LEN
OST< I l = SRC< I l
CONTINUE

c
C End destination strinf with zero byte

c
OST< LEN+ 1 l = 0
RETURN
ENO
INTEGER FUNCTION SCOMP <SRC11 SRCZl

c
C Compare two strinfs

c
C SRC1
C SRCZ

first comParand bYte strinf ended by a zero
second comParand bYte strinf ended by a zero

c
C Value of function is zero for e<1ual 1 nonzero for not e<1ual

PRO/FMS-1 i DOCUMENTATION SUPPLEMENT

C CoMPare returns failure

if strinl lenlths are not

the saMe

c
BYTE SRC1 ( i l, SRC2( 1 l

c
C CoMPare until either strinl ends in zero byte or does not Match

c
I

IF <SRC1(ll
IF ( SRC 1 (I l
I

,EQ, 0 .AND. SRC2<Il ,EQ. OJ GOTO 20
• NE, SRC2 (I l l GOTO 30

= I + 1

GOTO 10

c
c Return success
c
20
SCOMP = 0
RETURN

c
c Return
c

failure
SCOMP =
RETURN

c
END
SUBROUTINE CONCAT ( SRC 1 , SRC2, DST l

c
C Concatenate two strinl into a third

c
C SRCI = first source strinl ended by a zero
C SRC2 = second source strinl ended by a zero
C DST = destination strinl ended by a zero

c
BYTE SRC1 ( 1), SRC2( 1 l, DST< 1l

c
C Copy the first strinl into destination

c
j

IF CSRCl(Il ,EQ, OJ GOTO 20
DST(J) = SRClCIJ
j

+ 1

GOTO 10

c
C Now for second strinl to destination

c
20
30

= 1
DST(Jl = SRC2CIJ
IF <SRC2(J) .EO. Ol GOTO 40
j

GOTO 30

c
C Return

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

c
ao

RETURN
END
SUBROUTINE INSERT <SRC, DST1 POSl

c
C RePlace a Portion of one strin• with another

c
C SRC
C DST
C POS

source strin! ended by tl zero
destination strini ended by a zero
Position in destination for source

strin~

contents

c
BYTE SRC( 1), DST( 1 l
I NT EGER POS

c
C Scan the destination strinl for its end

c
= 1

IF <DST(J)

GOTO

.EQ,

GOTO 20

+ 1
10

c
C CoPY source into destination at Position liven

c
20

I = 1

IF (SRC<Il .EQ. 0) GOTO
DST(I+POS-1> = SRC<Il
I

=I + 1

GOTO 30

c
C End destination strinl if source extends it and return

c
ao

IF <I .GT. J) DST(J)
RETURN
END

INTEGER FUNCTION INDEX <SRC1 STRl

c
C Find Position of one strinl in another

c
C SRC

source strin!I'

C STR

tar::tet

strin!I

c
C Value of function is zero if not found•
C or Position of first character of STR in SRC if found

c
BYTE SRCCll, STR<1l

c
C Look for STR in SRC until end of SRC

c
J

J + 1
0

IF <SRC(J) ,EQ, Ol GOTO 30

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

c
C If end of STR the~ success
C ~f not Match look at next Position in SRC

c
20

IF <STR <I+ 1 > , EQ, 0 > GOTO 40
IF !SRC(J+I> .NE. STR-<I+1)) GOTO 10
I = I + 1
GOTO 20

c
C Return failure

c
30

INDEX = 0
RETURN

c
C Return success• Posit'ion of string

c
40

INDEX = J
RETURN

c
END
INTEGER FUNCTION LENGTH CSTR>

c
C Return length of string ended by

~zero

c
C STR

= string ended by a zero

c
C Value of the function is the length of the

c
BYTE STR<1>

c
C Scan for the zero bYte

c
I

IF !STR<I> ,EQ, 0) GOTO 20
I

=I + 1

GOTO 10

c
C Return the length of the string

c
20

LENGTH = I - 1
RETURN
END

st~lng

without the zero

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

9.4

Tool Kit MACR0-11

Copy the files MACDEM.MAC, MACDEM.CMD, and MACDEM.ODL from
your host syste1111 to your Professional before you run this sample program .
• TITLE

MACDEM

- FMS DEMONSTRATION SUBROUTINE

MACDEM.MAC

MODULE:

MACDEM

VERSION:

vo1.oo

AUTHOR:

MEGAN

DATE:

19-NOVEMBER-79

MODIFIED:

,DUCHARME

SGD001

DATE:

14-AP"RIL-1983

TO RUN ON THE PROFESSIONAL

Assembly and ComPile instructions:

CVAXl

To assemble tYPe:

MCR PMA tBIB
PMA> MACDEM1MACDEM/-SP=LB:[l 15JFMSMAC/ML1LB:[l 15JRMSMAC/ML1DEV:[UICJMACDEM
To comPile tYPe:

MCR PROTKB
PAB> @MACDEM.CMD
Assembly and ComPile instructions:

CRSXl

To assemble tYPe:

RUN $PMA IBill
RMA> MACDEM1MACDEM/-SP=LB:[l 15JFMSMAC/MLiLB:[115JRMSMAC/ML1DEV:[UICJMACDEM
To comPile tYPe:

RUN $PROTKB
PAB> @MACDEM.CMD

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

.ENABL

Allow lower case source text

.MCALL
.MCALL
,MCALL
,MCALL
.MCALL
,MCALL

$FDV1$FDVDF
QIDW$S1EXIT$S1DIR$1ALUN$
FAB$B1 RAB$B1 POOL$B
$STORE1 $COMPARE1 $CREATE
$CONNECT, $DISCONNECT
$PUT1 $CLOSE1 ORG$

Identify Form Driver macro calls
RSX I/O related macros
SGD001 RMS related macros
SGD001
SGD001
SGD001

$FOVOF

Init

th~

Form Driver definitions

E'luated symbols

ISIZ=102ll,
IN$CHN=1
OU$CHN=2
.SBTTL Local data
EXTNAM:
NONNAM:
FSTNAM:
LSTNAM:
CHCNAM:
NXTNAM:
LIB NAM:
MSG1:
MSG2:

,ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

/,EXIT,/
/,NONE,/
/FIRST I
/LAST I
/CHOICE/
/NXTFRM/
/SYSDISK: [ 112JDEMLIB/
/Ille!lal choice/
*Fatal I/O error*

Size of FDV imPure area
InPut channel number <Form Library)
Output channel number <Output Filel

Exit name
No more forms in series
ASCII form name
ASCII form name
ASCII field name
ASCII named data field name
ASCIZ library name
Messa!le for ille!lal menu choice
Messa!le with embedded '/'

Ar!lument lists and data a re a

ARGLST: .BLKB
REQLST: .BLKB

F$ASIZ
FSRSIZ

Form Driver ar!lument list
Form· Driver re'luired list

STAT:

.BLKW

Form Driver status blocK

VAR1:

,BLKB

Variable 6-bYte blocK for !leneral use

Area for form names
Save area for a form name
Form Driver impure area

FRMNAM: ,BLKW
SAVNAM: .BLKW
IMPURE: .WORD
.BLKB

ISIZ
ISIZ-2

PRO/FMS-11 DOCUMENATTION SUPPLEMENT

I/O section
.EVEN
FABADD:
FAB$B
FSDEQ
F$ALQ
F$FOP
FSFAC
FAB$E

2
2
FBSSUP
FBSPUT

SGD001
SGD001
SGD001
SGD001
SGD001
SGD001

Allocate RMS FAB
Default file extension size
Allocation size f~r the file
Create new file
File access oPerations
End FAB declarations

.EVEN
RABADD:
RAB$B
RSFAB
RS RAC
RAB SE
.EVEN
PODL$B
PSBDB
PSFAB
PS RAB
P$BUF
POOL$E

FABADD
RB$SEQ

SGD001 Allocate RMS RAB
SGD001 Connect to FAB address
SGD001 Record access is sequential

Be!lin Pool declarations
Allow two buffer desc bl ocl\s
On lY one f i le wi l l be oPen
Need onlY one RAB
I/O Buffer space

512.

SGD001
SGD001
SGD001
SGD001
SGD001

OU$CHN1 SY, 0

SGD001 Assi!ln a Lun to the Dis I\

.EVEN
RMS$LUN:
ALLIN$
.EVEN
ORG$
, SB TTL

SEQ1<CRE1PUT>
SGD001 Define RMS needed functions
MAC DEM - FMS Demonstration Subroutine

;++

FUNCTIONAL DESCRIPTION:
This is the MACRO demonstration Pro!lram for FMS
illustratin!I a simPle form-drivent data-entry
aPPlication.
; --

,PSECT

MACDEM

DIR$
QIOWSS
BCC
CALL

•RMS$LUN
•IO.ATT1•T$LUN1•T$EFN
LEAVE

SGD001 Assi!ln the Lun 0 to the Dis I<
Attach the terminal
If error then just leave
Done for now

MDV

•ARGLST1RO

DEMO:

1 $:

addr of FDV ar!I list

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

FIRST:

10$:

MDV
MDV
MDV
MDV

•REQLST,Rl
•STATtF$STSCR1l
11IN$CHNtF$CHNCR1l
•IMPURE1F$IMPCRll

Rl = addr of FDV required arl list
Set addr of status block
Set I/O channel for FDV
Set addr of FDV imPure area

$FDV
$FDV
CALL

REQ=Ri
FNC=OPN1NAM=•LIBNAM
ERREX

Init required arl list Pointer
DPen form library
Exit with error

$FDV
CALL

FNC=CSHtNAM=•FSTNAM
ER REX

Show menu fo r~i
Exit if error

$FDV
CALL

FNC=GET1NAM=11CHCNAM
ERREX

Get field 'CHOICE'
Exit if error

MDV
CALL
MQlJB
$FDV

R1 = Ptr to 6-bYte block
Ellard\ out l)ARl
VARI = menu choice
Get named data with the name beinl
the response to 'CHOICE'
STATt#FS$SUC
Was let successful?
20$
Continue if ok
FNC=LSTtVAL=•MSGi 1LEN=11-l
Else Print messale on line 24
10$
Try again

CMP
BEQ
$FDV
BR
20$:

MDV
MDV
CALL
BNE

JMP
30$:

•VAR1 tRl
BLKNAM
@F$VAL (RO l t VAR 1
FNC=DAT1NAM=•VAR1

FSVAL<ROl tR1
•EXTNAMtR2
CMPNAM
30$
LIBCLS

CALL

Save named data
R1 = adr of source name
Adr to save form name

MOVNAM
•FRMNAMtR1
•SAVNAMtR2
MDV
,REPT
3
MOl.J
CR1l+.CR2l+
.ENDR
#'FrVAR1+1
MOVE!
MDI)
11VARl rRl
$F0l.J
FNC=DATrNAM=Rl

Save fa rm name

#FABADDrR3
Mm'
MO!)
11RABADD1R4
$STORE F$~lAL CRO l , FNA, R3
$STORE F$LENCROl tFNS tR3
$STORE 110U$CHN1LCHtR3
$CREATE R3
$COMPARE #SUSSUCrSTStR3
BEQ
40$
LEAlJE
CALL
$CONNECT R4
$COMPARE 11SU$SUC1STS1R4
BEQ
GO$
CALL
LEAVE

SGD001
SGD001
SGD001
SGD001
SGDOOl
SGD001
SGD001
SGD001
SGD001
SGD001
SGD001
SGD001
SGD001

MO~J

40 $:

RI = addr of name from named data
R2 = addr of exit name
Zero set on Match
Continue on match
Else close form library and exit

MaKe 2nd letter = F
R1 = addr of 6-bYte blocK
Get named data at VAR1
Ma•! e the FAE! address to R4
Move the RAB address to R4
Ma •J e the addr of the f i 1 e name
Move the f i le name size
Set the LUN in the FAE!
Create the file
ChecK RMS Status
Continue if status = 1
Lea•Je on I/O error
Connect the RAB to the FAB
Che cf; RMS Status
Continue if oK
Lea11e on I/O error

PAO/FMS-11 DOCUMENTATION SUPPLEMENT

60$:

$FDV
CALL

ARG=•ARGLST1FNC=CSH1NAM=•FRMNAM
ERREX
Exit with error

$FDV
CALL

FNC=ALL
ERR EX

Get all data froM forM
Exit with error

CALL

SAVDAT

Put data in file

$FDV
CALL
MOV
CALL
BEQ
BR

ARG=•ARGLSTtFNC=DAT1NAM=•NXTNAM
; Get naMe of next forM
MOVNAM
Put for111 na111e in FRMNAM
•NONNAM,Rl
Rl = adr of ASCII .NONE,
•FRMNAMrR2
R2 = adr of returned naMe
CMPNAM
Zero set on Match
70$
DisPlaY last for111 on Match
60$
Else 3et data from next forM

$FDV
CALL

FNC=CSHtNAM=•LSTNAM
ERREX

$FDV
CALL

ER REX

MO~l

70$:

80$:

90$:

Exit with error

FNC=GET1NAM=11CHCNAM

F$1JAL<R0) tRl
< R 1 > ,11' 1
90$
11SAVNAMtRl
11FRMNAMtR2

Exit with error

MOV
CMPB
BNE
MOV
MOV
.REPT
MQt)
.ENDR
BR

60$

Get 111ore data

MOVB
MOIJB
$FDV
TST
BGT

( Rl l 1VAR1
•a01VAR1+1
FNC=OAT1NAM=11VAR1
STAT
CHKCLS

Move into variable for naMe
Make 2nd char blank
Get na111ed data
Check status
If ok then close file

$FQ~1

FNC=LST1VAL=•MSG11LEN=11-l ; Print Message on line
80$
TrY a~ain

ad r of

answer

·; Is it = 1

Rl
R2

source n a111e
de st narrie

(Rll+t<R2)+

Move naMe

Close the outPut file

CHKCLS::
11FABADDtR3
MDV
$DISCONNECT RtJ
$COMPARE #SU$SUC1STS1Ra
6EQ
95$
LEAIJE
CALL

SGDOO!
SGOOOI
SG0001
SGDOOl
SGDOOl

Moue the addr of the FAB to R3
Disconnect the access strea111
ChecK RMS Status
Branch if Status OK
Else l/O error

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

85$:

$CLOSE
MDV
MDV
MDV
CALL
BEQ
JMP
LIBCLS: $FDV
BR

R3
•EXTNAMtR1
•ARGLSTtRO
F$VAL<ROl tR2
CMPNAM
LIBCLS
FIRST
FNC=CLS
EXIT

SGD001 Close output file
Name of exit n a111 e d data
Get ARGLST
R2 = ad r of n a111e d data
Zero set if 111 at ch
Exit on Mat Ch
Baell to st a rt on no Mat Ch
Close f o r111 library
And exit

Routine to checK for error return from Form Driver.
Print message and exit on error.

ERREX:

LEAVE:
EXIT:

CMP
BNE
RETURN
$FDV
$FDV
EX I T$S

STAT1•FS$SUC
LEAVE
ARG=•ARGLST
FNC=LSTtVAL=•MSG2tLEN=•-1

Was call oK?

Print message on line 24

Subroutine to store data in outPut file

SAVO AT: $STORE F$VAL <RO) tRBF tR4
$STORE F$LEN<ROl 1RSZtR4
$COMPARE •OtRSZ1Rll
BEQ
10$
$PUT
Rll
$COMPARE •SU$SUCtSTStR4
BEQ
10$
CALL
LEAVE
10$:
RETURN

SGD001
SGD001
SGD001
SGD001
SGD001
SGD001
SGD001
SGD001

Move the addr data to the RAB
Move the len of data to RAB
See if the data length is zero
If not return
Store away the string of data
ChecK ~he RMS Status
Branch if e~ual
Leave on 1/0 error

Subroutine to move name and blanK fill to 6 chars
F$VALCR0) = Addr of source name
F$LENCR0) = Length of source name
FRMNAM = Addr of destination of name

MOVNAM:

10$:

MDV
CALL
MDV
MDV
MDV
MOVB
DEC
BNE
RETURN

•FRMNAMtR1
BLKNAM
F$VALCROl 1R1
•FRMNAMtR2
F$LEN<ROl tR3
CR1 )+ .CR2l+
R3
10$

R1 = addr to store f o r111 name
BlanK out name
R1 = addr of named data
R2 = add r to store form name
Length of named data
Move named data to form name
Dec char ctr

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Subroutine to blanK 6 bYtes
Rl = Addr of name to blanK

BLKNAM:
MDV
MOVB
DEC
BNE
RETURN

5$:

•S•R2
•£10, <Rl l+
R2
5$

R2 = 6
Init name with blanKs
Dec bYte ctr

Subroutine to compare two 6-bYte names
Rl tR2 Point to names
R3 = 0 if match on return

CMPNAM:
10$:

20$:

9.5

MDV
CMPB
BNE
DEC
BNE
RETURN

•StR3
<Rll+dR2l+
20$
R3
10$

.END

DEMO

6 char compare
Compare 2 bYtes
Leave loop if no match
Dec char ctr

Tool Kit PASCAL

PASCAL is not recommended for use with PRO/FMS-11. However, you can use
PASCAL to access PRO/FMS-11, if you follow these restrictions:

Source code. PRO/FMS-11 calls for PASCAL are in the Tool Kit file
FMS.PAS. After the Tool Kit is installed, you can find this file in directory
LB:[1,5] on your host system. Use the %INCLUDE directive to include
the file in your PASCAL source code:
{ Include PRO/FMS Procedures }
:%.Include 'LB:C1 t5JFMS.PAS'

Calling sequence. FMS.PAS consists of SEQ11 procedures,, which
pass everything by reference. To determine the appropriate calling
sequences for your application, refer to FMS.PAS and Chapter 3 of the
Tool Kit PASCAL User's Guide.
Note: PASCAL form and field names must be padded for six spaces. Otherwise the form or field cannot be accessed by the Form Driver.

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Parameters. There are no optional paramaters for PASCAL calls to
PRO/FMS-11. All paramaters must be included. For example, in
FMS.PAS, FCLRSH is declared as a SEQ11 procedure with two parameters. If you want to use the FCLRSH call, but you do not want to specify
a new value for the starting line, pass Oas the first parameter. The form
will display at the starting line specified when the form was designed.

Indexes. When using an FMS.PAS routine that allows indexes, you
must specify an index for the variable. If no index was assigned when
the form was created, assign it an index of 1. For example:
index:=
field
FGET

'CHOICE';

(response•

terminator• fieldt

index);

Variables. PASCAL can pass only variables when calling routines
declared in FMS.PAS. For example, the following source statement
would fail:
FCLRSHC''FIRST

'',O)i

The correct calling sequence for FCLRSH go like this:
VAR Form_Name
Startinl_line
{

Main

PacKed Array

Inte9erl

Pro9'ram

Fa r11i_Name

'FIRST

Startinl_line

[1, .GJ Of Chari

}

FCLRSH<Form_Name 1Startin9'_line);

If you want to pass constants as parameters, edit FMS. PAS and assign
the appropriate formal parameters the READONL Y attribute. For example, if you edited FMS.PAS so that both FCLRSH parameters were
READONL Y, you could use the call:
FCLRSH ( 'FIRST' r1) ;

See Chapter 3 of the PASCAL User's Guide for details.

Library file specification. You must terminate a library file specification
with a NUL character. Without it, PRO/FMS-11 will not be able to
access the library file. For example, this is a correct PASCAL library file
specification:
VAR File_Spec
{

Main

File_Spec

Packed Arra)'

Prolram

El .. 15] Of Chari

}

'LB:E1 t2JDEMLIB'C0) i

FLOPENIFile_Spec);

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

FPUTL. You must terminate data sent to the FPUTL call with a NUL
character. Without it, random data may be displayed on the screen. For
example, this PASCAL sequence would successfully pass data to
FPUTL:
VAR Messa9e : Packed Array [1 •• 16J Of Chari
Main Prof ram
}
Be 9 in
Messa9e := 'ExamPle messa9e'<O> i
FPUTL<MessaH) i
End.

Impure area and data string restrictions. Using PASCAL with FMS.PAS,
you can define an impure area as large as 1500 bytes and pass a data
string of up to 1500 characters. If you need larger values, increase the
variable MA>LFMS_PAFLLEN in FMS.PAS.

FLCHAN. Be sure to assign any LUN used in an FLCHAN call to
LB: in your command (.CMD) file. The files will be put in the application directory [ZZAPnnnnn].

The following is a sample PRO/FMS-11 program in PASCAL, using FMS.PAS.
PROGRAM PASDEM <INPUTtOUTPUTl i
{
PASDEM.PAS
CoPYri9ht <Cl 1983 BY
Difital E~uiPment CorPoration1 MaYnardt Mass.
Module: PASDEM
Version V01,00
Author: s, Ducharme
'Date:
27-APr-1983
PASCAL Demonstration Pro9ram for PROIFMS illustratin!
simPle Form-Driven• data entrY aPPlication.
Below is an examPle command and odl file to build
this demonstration Pro9ram.
iPASDEM.CMD
SY:PASDEM/CPl-FPtPASDEM/MAl-SP=SY:PASDEM/MP
CLSTR=PASREStPOSREStRMSRES:RO
TASK=PASDEM
UNITS
20
ASG
TI:5:13:15
SY:6:7:8:9:10:11:12
ASG
UHEAP:10000
EXTSCT
MNSBUF:O
EXTSCT
HLSBUF:3ll10
EXTSCT
MSSLUN:21
GBLDEF
WCSLUN:23
GBLDEF
GBLDEF
HLSLUN:20
MNSLUN:22
GBLDEF
GBLDEF
TTSLUN: 15
TTSEFN: 1
GBLDEF
II

ExamPle ODL file:
iPASDEM.ODL
.ROOT
USER - PASCAL

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

USER:

, FCTR

SY:PASDEM

PASCAL: , FCTR
LB: [ 1151 PASLIB/LB-FDV-RMSROT
FDV:
, FCTR
LB:[l 15lHLLFOR-LB:[115lFDV.OLB/LB
@LB: [115lRMSRLX
.END
}
Include PRO/FMS Procedures

{

%Include 'LB:U 15lFMS.PAS'
Declare tYPes and variables

}

TYPE
ImPure
Forms
File_Spec
Buffer
Out_Line
Named_Oata

PACKED
PACKED
PACKED
PACKED
PACKED
PACKED

ARRAY
ARRAY
ARRAY
ARRAY
ARRAY
ARRAY

[1 .. 1000]
[ 1 .. Bl
[1 .. 15]
[1 •• 225]
[1 .. 41l
[1 •• 66]

Of
Of
Of
Of
Of
Df

Inte!l'eri
Ch a r i
Chari
Chari
Ch a r i
Chari

VAR
{
}
QIO_Function'
Qio function code
{ Terminal 1 un
}
TT_LUN1
{
}
TT_EFN1
I/O event fla!l'
{ FMS fie 1 d index
}
Index1
{
}
Len!l'th1
Len!l'th of data
{
}
Channel•
FMS Library channel
{
}
Terminator•
Form terminator
{ Startin!!' line for forms
}
Startin!l'_Line1
}
{
Status_l' Status_2'
Status values of FMS calls
{
}
ImPure_Size:
Inte!l'eri
FMS ImPure a re a
}
{
ImPure_Area:
ImPure;
Size of FMS Im Pu re a re a
{ Forms library
}
File_Speci
Library:
{
}
FMS fie 1 d namfi!
Field'
}
{
User's response
ResPonse1
{ Next form to disPlaY
}
Next_Form1
}
{ Current form to disPlaY
Current_Form:
Forms;
}
{
Out_Linei
Messa!l'e:
Messa!l'e for FPUTL call
{
All_Data:
Bufferi
Stora!l'e for all data in a form }
{
}
Named_Data;
Name_Data:
Stora!l'e for named data
}
{
More_Data:
Boolean;
Fla!!' for mo re data
}
{
Out_File:
File variable for outfile
Texti
{
***** Procedure to wait for the RESUME KeY *****
This Procedure is called in the event that the forms librarY can not
be opened. This Procedure calls the routine WTRES in the P/OS callable
library,
}
PROCEDURE WTRESi SEQ11;
{
***** Procedure to attach the terminal *****
This Procedure is called to attach the terminal. The Form Driver
needs the terminal attached. The FORTRAN routine WTQID is called in
SYSLIB,
}
PROCEDURE WTQIO<VAR QIO_Function: Inte!l'er;
<Function code for QIO }
}
VAR TT_LUN: Inte!l'er;
{I/O Channel
}
VAR TT_EFN: Inte!l'er
{I/O Channel
> ; SEQ 11 ;

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

{

***** Procedure to move data in one variable to another *****

This Procedure is called to move eharacter data from one variable
to another vaiable. This is useful if the two variables are of differin9'
len9'ths. Three Paramaters are Passed. The.two variables and the number
of characters that are to be coPied from the fi.rst variable to the second
}
variable.
PROCEDURE MOVECVAR Varl: PacKed Array[LB1 .. UP1
InteserJ Of Char;
VAR Var2: PacKed ArraY[LBZ •• UPZ
InteserJ Of Chari
VAR Len9'th : Inteser
)

;

VAR
Inte9'er;
Be 9' in
I := 1;
While I <= Len9'th Do
Be 9' in
Var2[IJ := Varl[IJ;
I

I + 1

End
End;
{
{

End of Procedure MOVE

**********

}

Main Prosram **********

}

Be 9' in
{

{

***** Initilize varaibles *****
Index := o;

}

Channel := 7;
ImPure_Size := 1000;
Library:= 'LB:U12JDEMLIB'COli
QIQ_Function := 768;
TT_LUN := 5;
TT_EFN := 5i
Startins_Line := 1;
Current_Form :=
';
***** Initilize FMS Impure Area and DPen Library *****
}
}
WTQIOCQID_Function1TT_LUN1TT_EFNl;
{Attach the terminal
FINITCimPure_Area1ImPure_Size1Status_fl; <Initilize FMS !~Pure Area
>
FLCHANCChannelli
<Set the library channel
}
{Qpen demonstration library }
FLDPENCLibrarYl;
<Clear the screen
>
Writeln<CHRC27l •'[2J');
DisPlaY menu form for oPerator to select the data collection
series. This will continue until the operator chooses the exit
selection from either the form called FIRST or the form called LAST
}
While Current_Form <>',EXIT,' Do
Be 9' in
Current_Form :='FIRST';
}
{DisPlaY the first form
FCLRSH<Current_Form1Startin9'_Linel;
}
<ChecK the status
FSTAT<Status_l 1Status_Zl;
If Status_! = 1 Then
Be 9' in
Field := 'CHOICE';
Status_! := 0
End

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Else
{Else disPlaY error messa!l'e }
}
Be!l'in
{and e><it.
Status_1 : = 1 i
Ne><t-Form := ',EXIT.'i
Len!l'th :=Bi
MOVE<Next_Form1Name_Data1Len9'thl i
Writeln!'Error oPenin!I' librarY filet Press RESUME to continue.'li
Writelni
}
WTRES
<Wait for the operator to
}
Endi <IF}
{read error messa!l'e
While Status_1 <> 1 Do
Be!l'in
FGET<ResPonse1Terminator1Field1Indexli
FNDATA<ResPonse1Name_Datal i
FSTAT<Status_1,Status_2);
If Status_1 < O Then
Be!l'in
'(0) i
Messa!l'e := 'Ille!l'al Choice
FPUTL<Messa!l'el
Endi {IF>
Endi {While Status}
Len!l'th :=Bi
MOVE<Name_Data1Current_Form1Len9'thl i
If Current_Form <> ',EXI~.' Then
Be!lin
Field := ResPonsei
Field[2J := 'F';
FNDATA<Field tName_Datal i
Qpen(Dut_File1
Name_Data
) i

More_Data := TRUEi
While More_Data Do
B~ !Ii n i

Next_Form := Current_Formi
While Next_Form <> ',NONE.' bo
Be!lin
FCLRSH<Next_Form1Startin!f_Linel i
FGETAL<ALL_Data1Terminatorl i
Write<Dut_File 1All-Data) i
Field := 'NXTFRM'i
FNDATA<Field 1Name_Datal;
MOVE<Name_Data1Next_Form1Len9'th) i
End; <While Next Form}
Status_1 := Oi
Field := 'CHOICE'i
Next_Fo rm : = 'LAST
'i
FCLRSH<Next_Form1Startin9'_Line):
,While Status_1 <> 1 Do

PRO/FMS-11 DOCUMENTATION SUPPLEMENT

Bes in
FGET<ResPonse .Terminator.Field .Index);
FSTAT<Status_11Status_2);
FNDATA<ResPonse tName_Oatal;
FSTAT<Stat.us_11Status_Zl;
If Status_! < 0 Then
5 e !Ii n

Message := 'Illesal Choice
FPUTL<Messasel
End {IF}
End; {End While Status}

If ResPonse[lJ
'2' Then
Be 9' in
More_Data := FALSE
Close(Out_Filel
End; {!F}
If ResPonse[lJ = '3' Then
Be !1 in
Mare_Data := FALSE;
CloseCOut_Filel;
Current_Form := ',EXIT.'
Endi <IF}
End; {While More_Data }
Endi {IF}
Endi { While Current_Form }
FLCLOSi { Close FMS library file }
End.

, ( 0);

READER'S COMMENTS

PRO/FMS-11
Documentation Supplement
Order No. AA-P1038-TK

NOTE: This form is for document comments only. DIGITAL
will use comments submitted on this form at the company's discretion. If you require a written reply and
are eligible to receive one under Software Performance Report (SPA) service, submit your comments
on an SPA form.
Did you find this manual understandable, usable, and well-organized?
Please make suggestions for improvement.

Did you find errors in this manual? If so, specify the error and the page number.

:s"'

c:
0
iii

:;
0
Ql

"'al

~
ll..

Please indicate the type of reader that you most nearly represent.
0 Assembly language programmer
0 Higher-level language programmer
0 Occasional programmer (experienced)
0 User with little programming experience
0 Student programmer
0 Other (please s p e c i f y ) - - - - - - - - - - - - - - - - - - - - - - - -

Name--------------------~Date _ _ _ _ _ _ _ _ _ __

Organization-----------------------------'---Street---------------------------------~

City _ _ _ _ _ _ _ _ _ _ _ _ _ _ State _ _ _ _ _ _ _ Zip Code _ _ _ _ _ __
or
Country

I
I

I
Do Not Tear - Fold Here and T a p e - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '

mamaama

111111

P~1'~ i

Necessary
if Mailed in the
United States

BUSINESS REPLY MAIL

I
I
I
I
I
I
I

I
I

FIRST CLASS PERMIT NO. 33 MAYNARD MASS.

I
I
I
I
I
I
I
I
I
I
I
I

POSTAGE WILL BE PAID BY ADDRESSEE

Professional 300 Series Publications
DIGITAL EQUIPMENT CORPORATION
146 MAIN STREET
MAYNARD, MASSACHUSETTS 01754

----Do Not Tear- Fold

I
I
I

Here-------------------------------1--------------I