Text preview for : GA21-9196-2_IBM_3741_Models3and4_ProgrammableWorkStation_GeneralInformation_Aug74.pdf part of IBM GA21-9196-2 IBM 3741 Models3and4 ProgrammableWorkStation GeneralInformation Aug74 IBM system3 GA21-9196-2_IBM_3741_Models3and4_ProgrammableWorkStation_GeneralInformation_Aug74.pdf



Back to : GA21-9196-2_IBM_3741_Mode | Home

. ;
; .. . ' 1
. '
, . ' , r , t t"
Fif No S37*S4S I
r'a
ii
iiii
:;ijj
$




':':




i ' ,

-' i,",
,


tt;$ 'l
' .t,

,,
.l , , . . . , : : .,. .:' - ' _ .l.
. . ,,
."".i
' i;'l
: i .r ,




l,.i';
:,i l
,ri i



. .I :..


;liqii




:,
:..:


- ' .-,,.,;;-'lii
i'*

, . , , - i i ; , lr,.t
j , l.


' . . , . : . , .1




''*-
G A 2 19 1 9 6 - 2




IBM 37 41
Models3 and 4
P r o g r a m m a b l eW o r k S t a t i o n
Systems General Information




Ti5--)TIll
LlLtril_lv[
Prel'ace




T h i s p u b l i c a t i o np r o v i d e sg e n e r a li n f o r m a t i o n a b o u t t h e T h i s p u b l i c a t i o na s s u m e sh e r e a d e ri s f a m i l i a r w i t h t h e
t
IBM 3741 Programmable ork Station and itscapabilities.
W I B M 3 7 4 0 D a t a E n t r y S y s t e ma n d d a t a p r o c e s s i n g o n c e p r s .
c
T h i s p u b l i c a t i o n i s i n t e n d e df o r c o m p a n y e x e c u t i v e ss y s -
, l t i s a l s o a s s u m e d h a t t h e r e a d e ri s f a m i l i a r w i t h t h e
t
t e m a n a l y s t sd a t a p r o c e s s i n g a n a g e r sp r o g r a m m e r sa n d
, m , , o p e r a t i o no f t h e l 8 M 3 7 4 1 D a t a S t a t i o n , M o d e l s 1 a n d 2 .
i n s t al a t i o n m a n a q e r s .


T h i s p u b l i c a t i o ni s d i v i d e d i n t o t h e f o l l o w i n g c h a p t e r s : RelatedPublications

. Chapter l. IBM 3741 Models 3 and 4 Programmable . IBM 3740 Data Entry System System 5r7nrna'rydfld
W'orkStation is an introduction to the new functions of lnstallationManual - PhysicalPlanning,G42 l-9152.
tfre Programmable ork Stationand the application
W
control language. . Manual.Gl\21-9183.
IBM 3741 Data Station Reference

. Chapter 2. Functional Description describes the new . l8M 3741 Data Station Operator'sGuide, GA21-9131
.
f u n c t i o n so f t h e p r o g r a m m a b l e o r k s t a t i o n .
w
o The IBM Diskette for Standard Data lnterchange,
. Chapter 3. Application Control Language provides GA21-9182.
g e r n e r an f o r m a t i o n o n t h e c o n t r o l s t a t e m e n t s n d
il a
i n s t r u c t i o n so f t h e a p p l i c a t i o nc o n t r o l l a n g u a g e s e dt o
u . IBM 3741 Models 3 and 4 ProgrammableWorikStation
i n r p l e m e n tp r o g r a m m a b l e o r k s t a t i o n a p p l i c a t i o n s .
w ProgrammingReferenceManual, GA21 9194.

. Ctlapter 4. Sample Applications provides examples of
a p p l i c a t i o n s h a t c a r rb e u s e do n t h e I B M 3 7 4 1 P r o o r a m -
t
mableWork Station.




Thinl Edition (August1974)

T h i s i s a m a j o r r e v i s i o no f , a n d o b s o l e t e s , h e p r e v i o u se d i t i o n G A 2 1 - 9 19 6 - 1 . c h a n g e sa r e
t
c o n t a n u a l l yr n a d et o t h e s p e c i f i c a t i o n s e r e i n ;a n y s u c h c h a n g e s i l l b e r e p o r t e d r n
h w
s u b s e r l u e n t e v i s i o n so r T e c h n i c a l N e w s l e t t e r s . C h a n g e s r e i n d i c a t e d b y a v e r t i c a l l i n e
r a
I
I to th left of the chanqe.


R e q u o s t s o r c o p i e s o f I B M p u b l i c a t i o n ss h o u l d b e m a d e t o y o u r I B M r e p r e s e n t a t i v e r
f o
t h e l E i M b r a n c ho f f i c e s e r v i n g o u r l o c a l i t y .
y

A R e a d e r ' sC o m m e n t F o r m i s a t t h e b a c k o f t h i s p u b l i c a t i o n . l f t h e f o r m i s g o n e ,
a d d r e ; sy o u r c o m r ' r e n t s o I B M C o r p o r a t i o n , u b l i c a t i o n sD e p t . 2 4 5 , R o c h e s t e r ,
t P ,
M i n n e r s o t a5 5 9 0 t .

O C o p y r i g h t I n t e r n a t i o n a B u s i n e s M a c h i n e s o r p o r a t i o n1 9 7 3 , 1 9 7 4
l s C
Contents




CHAPTER 1. IBM 374,IIV|ODELS AND 4 3 ACL lnstructions 7
P R O G R A M M A BL E W O R K S T A T I O N P r o g r a n r m i nA i d s
g o


C H A P T E R2 . F U N C T I O N A L D E S C R I P T I O N z C H A P T E R4 . S A M P L E A P P L I C A T I O N S 11
D i s p l a ya n d K e y b o a r d F a c i l i t i e s Warehouse rder Entry
O Il
D a t a S e t A c c e s sM e t h o d s A p p l i c a t i o nD e s c r i p t i o n 11
M u l t i p l e D i s k e t t eD a t a S e t s Advantages 1l
P r i n t e rO p e r a t i o n s 3 A u t o r n o b i l eI n s u r a n c e e w P o l i c y D a t a E n t r y
N 14
T a b l eO p e r a t i o n s 4 A p p l i c a t i o nD e s c r i p t i o n 14
Self-Check umbers N 5 Advantages 14
Construction ob Site Reporting
J 16
C H A P T E R3 . A P P L I C A T I O NC O N T R O L L A N G U A G E 6 A p p l i c a t i o nD e s c r i p t i o n 16
A C L P r o g r a mS t r u c t u r e o Advantages 20
P r o g r a mD e v e l o p m e n t 6 Debit Insurance oute Control
R 20
ACL CorrtrolStatements 1 A p p l i c a t i o nD e s c r i p t i o n 20
Advantages 20




ill
''r',




I

IBM 3741 Programmable
Work Station




lv
WorkStation
Chapter IBM 3741Models and4 Programmable
1. 3




T h e I B M 3 7 4 1 M o d e l s3 a n d 4 P r o g r a m m a b l e o r k S t a t i o n
W fhe 3741 ProgrammableWork Station can be employed in
offers you significant additional functions beyond the m a n y e n v i r o n m e n t s . I n t h e c e n t r a lk e y p u n c h r o o m , i t c a n
scope of the 3741 Models 1 and 2 Data Station. These new e x p a n d t h e k e y e n t r y f u n c t i o n t o a u t o m a t i c a l l yi n c l u d e
functions are made possiblethrough a programming facility all or part of the data editing operation that follows data
called Application Control Language (ACL), which opens e n t r y f o r a g i v e n a p p l i c a t i o n . F o r e x a m p l e .y o u c a n
the door to new data entry applications as well as to program the work station to verify data fields against
improved ways to accomplish existing jobs. The work i n t e r n a l l y s t o r e d t a b l e so r v e r i f y t h a t a n u m e r i c f i e l d f a l l s
s t a t i o n h a s t h e s en e w f u n c t i o n s : b e t w e e np r e s c r i b e d i g h a n d l o w l i m i t s .
h

. Expanded arithmetic functions including add, subtract, The 3741 ProgrammableWork Station can perform a
m u l t i p l y , a n d d i v i d e o p e r a t i o n sw h i c h m a k e p o s s i b l e broad range of functions of which data capture is a by-
additional field totals, zero balancing,and crossfooting p r o d u c t . F o r e x a m p l e ,t h e w o r k s t a t i o n c a n b e u s e d i n a
ope rations. remote saleswarehouseto perform the order lntry function.
The work station operator enters the customer number,
. Data checking operations, including rangechecking, s h i p p i n gi n f o r m a t i o n , a n d i t e m n u m b e r sa n d q u a n t i t i e s .
l i m i t c h e c k i n g ,t a b l e s e a r c h , n d d i s k e t t ef i l e s e a r c h .
a The work station can be programmed to access customer
and item files, make the necessary calculations,and format
. Data manipulation capabilitieswhich allow you to a n d p r i n t t h e s a l e si n v o i c e so r o r d e r a c k n o w l e r J g e m e n t s .
reformat data for display on the operator's display At the same time, it can be used to store these transactions
screen,for writing data onto a diskette, or for printing f o r l a t e r u s e b y t h e c e n t r a l o r h o s t s y s t e mf o r b i l l i n g a n d
out dataon a printer. accounts receivable,inventory control, and mienagement
a n d s a l e s n a l y s i s .A m o r e d e t a i l e dd i s c u s s i o n f p o s s i b l e
a o
o Additional keyboard and display functions which allow work station applications can be found in Chapter 4 of
you to display messages that include operator response this manual.
alternativesand error messages that result from data
c h e c k i n gw i t h i n y o u r A C L p r o g r a m . These numerous data entry functions are accomplishedon
-
t h e w o r k s t a t i o n u s i n gt h e a p p l i c a t i o nc o n t r o l l a n g u a g e
o Additional diskette access methods which allow it to: ACL. ACL provides you with the ability to control all
i n p u t a n d o u t p u t f u n c t i o n s a n d a r i t h m e t i ca n d l o g i c a l
-. Processmultiple data sets operations and to guide the operator through the applica-
- Read and write on two drives tion. step by step. You program the work station the same
-- Create and maintain data set indices that provide way you do your central processingor host system. An
fast access online data.
to e x p e r i e n c e d p p l i c a t i o np r o g r a m m e rf a m i l i a r w i t h d a t a
a
o Overlapped printing which allows the work station e n t r y d e v i c e s n d o p e r a t i o n sw i l l f i n d A C L a n e x c e l l e n t
a
t o o l f o r i m p l e m e n t i n gw o r k s t a t i o n a p p l i c a t i o n s .
operator to key data while previously-keyeddata is
being printed by one of three availableprinters.
The work station, when not operating under l\CL program
The work station has all these functions in addition to the c o n t r o l , c a n a l s of u n c t i o n e x a c t l y l i k e t h e 3 7 4 i 1D a t a
c a p a b i l i t i e s o w a v a i l a b l en t h e 3 7 4 1 D a t a S t a t i o n . T h e
n i Station.
3741 Model 4 a l s o h a s t h e c o m m u n i c a t i o nf a c i l i t y c u r r e n t l y
a v a i l a b l e n t h e 3 7 4 1 M o d e l 2 . A l l o p t i o n a l f e a t u r e sa v a i l -
o An optional ACL Translator feature is availableto translate
a b l e f o r t h e M o d e l s 1 a n d 2 a r e a v a i l a b l e o r t h e M o d e l s3
f the ACL source programs you code into machine readable
and 4, respectively. Models 3 and 4 have the same physical object code for the work station. The ACL Translator is
requirements s Models1and2, respectively.
a required only on work stations being used to llenerate
object programs. lt is recommended that work stations that
h a v et h e A C L T r a n s l a t o rf e a t u r e a l s o b e e q u i p p e dw i t h t h e
The card input/output feature allows attachment of the
optional 3741 Record Insert feature for easy l;ource pro-
following to the work station:
grammaintenance.
. I B M 1 2 9 C a r d D a t a R e c o r d e r( 8 O c o l u m n c a r d ) .

. IBM ti496 Data Recorder (96-column card). 1
I B M 3 7 4 1 M o d e l s 3 a n d 4 P r o g r a m m a b l e V o r kS t a t i o n
V
Chapter2. FunctionalDesctiption




The 3741 Programmable Work Station,coupledwith the a Allorw you to displayfill characters alongwith the
ApplicationControl Language (ACL), provides
you with prompting message tell the operatorhow mirny
to
new f unctionsnot available the 3741 DataStation.
in positionsof data are to be entered. The work station
These new functionsinclude: displays (-)
dashes or periods(.). Ttredashes rndicate
to the operatorthat the data is to be numeric and
o Additionaldisplayand keyboardfacilities periodsindicatealphabetic.

o New data set access
methods a In additionto displayingnew recordscurrentl!,being
keyed or recordsto be updated,lines2, 3, and 4 of the
o Expanded
printeroperations displayscreen can now be usedto display:

. Tablesearch
facilities - ilessages the operator such as an error mLrssage
to
indicatingthat a quantity enteredexceeds pre-
a
o Expanded
self-check
numberoptions definedlimit {asspecified your ACL program}.
in
- Records readfrom a diskettein a format that is
The prlrposeof this sectionis to describethesenew facilities easier readthan the format of the actualdiskette
to
to aid you in designing implementing
and your applicationr record.
usingthe work station.
Examples the formattingcapabilities ACL areshown
of of
in Chapter of this manual.
4
Displayand KeyboardFacilities

The 3/41 DataStationprovides operatorguidanceby Drte Sct Acccls Mctfrodr
promptingmessages line 5 of the display
displarling on
screen.The 3741 Programmable Work Stationexpands The 3741 Programmable Work Station uses the samedata
this promptingfacility and offersthesenew capabilities: rct l.bel conventions the 3741 Data Station. Diskettes
as
cen be interchanged betweenthe Models1 and 2 and the
o All,cwsyou to usethe last30 positions line 5 and all
of Models3 and 4. On the Models3 and 4, the data $etsare
40 positions line 6 for the promptingmessage
of and uted to itore both ACL programs and data sets. During
displayof the dataentered. execution of an ACL program, four data setscan trc
Fct3Eed by the program at one time.
o Allows you to specifymultiple prompting message3 of
u31'r,ring
lengthsfor eachdata recordto be entered, The ACL programming facility allowsyou to acce:;s
data
limited only by the storage
availablewithin your ACL 3et3by tfrce methods:
program.
a Sequential consecutive
or
o Allowsyou to enterdata,then:
. Randomby relativerecord number
- lVf the datato any locationon lines2,3, or 4 ol
ove
the displayscreen. j Key indexed
- lllove the data and the prompting message linss
to
1t-,3, 4.
or All diskettedata setshavethe samephysicalcharacteristics,
- filove the data to a general purposeregisterto 1) regardless the access
of method used. A data set could be
performan arithmetic operation, compare to
2) it procersed any of the three access
by methodsprovidingit
the entries a table,3) compare with a pre-defined
in it me8tt the logicalrequirements that method.
of
tupper and lower limit, or 4) useit asa searchargumant
rvhensearching data set for an equal record.
a
The*quential methodrequires that the records 128-
or The key indexedmethodallowsyou to readrecords
positionsectors processed
be sequentially consecutively.
or randomlyfrom an existingdatasetas well as readand
based the physical
on disk address.
This method,which is updaterecordsrandomlyfrom an existing dataset.
alsousedby the 3741 DataStation,allowsyou to:

r Write records
into a new dataset. MultipleDisketteDataSets

o Write or add records at the end of an existing data set. The application control languageallows you to use a data
s e t s p a n n i n gm u l t i p l e d i s k e t t e sd u r i n g t h e e x e c u t i o n o f
o Readrecords
from an existingdataset. y o u r A C L p r o g r a m . T h e d a t a s e t sc a n b e p r o c e s s e dn i
r a n d o m o r s e o u e n t i a l r d e r . M u l t i p l e d i s k e t t ed a t a s e t s
o
a Readand updaterecords an existing
in dataset. I require operatorinstructions built in safeguards
special and
I in yourACL program.
a Readand updaterecords an existing
in dataset plus
add new records the end of an existingdataset.
at
PrinterOperations
Therelativerecord number method allowsyou to perform
the samereadand updateoperations you do with the
as The following printers can be attached to your work
sequential method. The difference that the search
is for station:
eachrecordis done in a direct manner, therebyreducing
the diskettesearchtime. You identify the recordsto be o T h e I B M 3 7 1 3 ( s i n g l e i r e c t i o n c h a r a c t e rp r i n t e r - 4 0
d
processed specifying relative
by a recordnumberduring charactersper second).
the readoperation.
o T h e I B M 3 7 1 5 ( b i - d i r e c t i o n ac h a r a c t e rp r i n t e r - 4 0
l
The key indexed method requiresthat the recordsin an or 80 charactersper second).
existing dataset be processed randomlyby the selection
o f a s e a r c h r g u m e nu p t o 1 6 p o s i t i o n sn l e n g t h .T h e
a t i o T h e I B M 3 7 1 7 ( l i n ep r i n t e r - 1 2 0 t o 1 5 5 l i n e sp e r
search argument can be a control field or a dataelement minute).
within eachrecordof a dataset. The key indexed
methodrequires that the records the dataset be arranged
in Y o u c a n s p e c i f y t h e f o l l o w i n g p r i n t e r o p e r a t i o n si n y o u r
in ascending sequence. according the search
to argument or ACL program:
control field . For example, dataset might be sequenced
the
by employee number.productcode,or customer number. o C o n c u r r e n tk e y i n g , p r o c e s s i n ga n d r e a d i n ga n d w r i t i n g
,
Wten you areusingthe key indexedmethod,the work on the diskette
stationcontrol program automatically buildsan index
table in storage the data set to be accessed.
for Whena a H o r i z o n t a l a n d v e r t i c a lf o r m s c o n t r o l
search argument specified your ACL program,
is by
a search first madein the indextable. The index table
is . Dataediting
pointsto the appropriate track or tracksin the dataset
wherethe corresponding recordshouldbe found. The K e y i n g ,p r o c e s s i n g n d p r i n t i n g o p e r a t i o n s , n d r e a d i n g
a a
work stationthen goesdirectlyto the specified tracks, a n d w r i t i n g o n t h e d i s k e t t ec a n a l l b e s p e c i f i e d i t h i n t h e
w
therebysaving time it normallytakesto readall of the
the s a n r eA C L p r o g r a m . H o r i z o n t a lf o r m s c o n t r o l i s p r o v i d e d
records from the beginning the datasetto the appro-
of t h r o u g h t h e u s eo f d a t a f o r m a t s t a t e m e n t s i t h i n y o u r
w
priaterecord. lf the recordis not present, record-not- a A C L p r o g r a m . S i n g l e ,d o u b l e , a n d t r i p l e s p a r : i n g n d
a
found conditionis postedfor appropriate actionby your s k i p p i n gt o a s p e c i f i cl i n e n u m b e r o n y o u r p r i n t f o r m c a n
ACL program. For example, assume that a work station be specifed during a print operation.
i
operatorkeysa specific customer numberthat is usedto
find that customer's master record. The customer number
is compared the indextable,which directsthe read
to
operation the appropriate
to tracks. lf the recordis found,
the contentof the recordcould be displayed the screen. on
lf the recordis not found, your ACL program could display
a record-not-found message.




F u n c t i o n a iD e s c r i p t i o n 3
In addition, you can specify the following format commands Table Operations
f o r e d i t i n gd u r i n g p r i n t i n g :
T a b l e sc a n b e m a i n t a i n e di n s t o r a g eo r i n a d a t a s e t a n d
o O o m m a a n d d e c i m a lp o i n t i n s e r t i o n l o a d e di n t o s t o r a g e h e n n e e d e d . M a x i m u m l e n g t h o f a
w
t a b l e e n t r y i s 1 6 p o s i t i o n s . Y o u c a n s p e c i f yt h e f o l l o w i n g
o []lank insertion t a b l e o p e r a t i o n si n y o u r A C L p r o g r a m s :

o f : l o a t i n go r f i x e d c u r r e n c y s i g n o S e a r c hf o r a n e q u a l e n t r y i n a n o n - s e q u e n t i atla b l e .


o ltsterisk protect or asteriskfill a S e a r c hf o r a n e q u a l e n t r y o r t h e n e x t h i g h e r e r n t r yi n a
t a b l e s e q u e n c e dn a s c e n d i n g r d e r .
i o
o ZLero uppression r zero fill
s o
. R e a da s p e c i f i ce n t r y f r o m a t a b l e .
. [ \ 4 i n u s i g nc o n t r o l
s
. W r i t e a s p e c i f i ce n t r y i n t o a t a b l e .
The same type of data format statementscan be used to
fornratdataduring other input/output operations, F o r e x a m p l e ,a s i n g l et a b l e c o u l d b e u s e dt o v a l i r J a t e e n e r a l
g
i n c l u d i n gd i s k e t t e a n d d i s p l a y . l e d g e ra c c o u n t n u m b e r s a s t h e y a r e k e y e d b y t h e o p e r a r o r .
Y o u r A C L p r o g r a mc o u l d s e a r c ht h e t a b l e a n d . i f a n e q u a l
e n t r y i s n o t f o u n d , c o u l d n o t i f y t h e o p e r a t o rb y d i s p l a y i n g
a n " i n v a l i d n u m b e r " m e s s a g e n t h e o p e r a t o rd i s p l a y
o
s c r e e n .S e e F i q u r e 1 .




G e n e r a lL e d g e r
Number "i25"

I
Display
t
+I
I
I K e yb o ar d
"lnvalidNumber"
message




Sto rage


F i g u r e 1 . T a b l e S e a r c hf o r E q u a l E n t r y
F i g u r e2 i l l u s t r a t e s h e u s eo f t w o t a b l e s . T a b l e I c o n t a i n s
t
d i s c o u n tc o d e s . T a b l e l l c o n t a i n st h e i r c o r r e s p o n d i n g
d i s c o u n t p e r c e n t a g e sT h e d i s c o u n t c o d e c o u l d b e k e y e d
.
b y t h e o p e r a t o r ,a n d y o u r A C L p r o g r a mc o u l d t h e n e x t r a c t
t h e c o r r e s p o n d i n g i s c o u n t p e r c e n t a g er o m T a b l e I l .
d f



Self-Check umbers
N

T h e a p p l i c a t i o nc o n t r o l l a n g u a g e r o v i d e st h e a b i l i t y t o
p
checkor generate elf-check umbers. In addition to the
s n
s t a n d a r d o d u l u s1 0 a n d 1 1 , y o u c a n s p e c i f ya n y m o d u l u s
m
f r o m 2 t o 1 2 7, a s w e l l a s t h e c h a r a c t e r i s t i co f t h e a l g o r i t h m
s
v o u w r s ht o u s e .




D i s c o u n tC o d e " A "

ispla
I
I nt Percentage
K e yb o a r d




F i g u r e 2 . S e a r c hT a b l e I o r E q u a l E n t r y - R e a d f r o m S e c o n d T a b l e




Application Control Language
Chapter Application
3. ControlLanguage




ACL.ProgramStructure
Registers I ndicators
A 1
The 3741 ProgrammableWork Station has 4,0g6 positions
of storage. The first 1,024 positions of storageare
allocated for system control. This block of storagealso . :
contains twenty-six 16-position generalpurpose registers 255
(referencedA through Z). These registers are used to per_ W o r ki t a i l o n
Z
f o r m ra l l a r i t h m e t i c o p e r a t i o n sa n d . c e r t a i n o g i c a lf u n c t i o n s
l Control Pr r g r a m m i n g
(such as range check), and can also be used for formatting 102
d a t a o n t h e d i s p l a y ,d i s k e t t e ,a n d p r i n t e r . A n i n d i c a t o r tsutter -1 Display lines ,5, 6)
( 1 Fixed
t a b l e c o n t a i n i n g2 5 5 i n d i c a t o r s( p a r t o f w h i c h a r e u s e d
r -2 D i s p l a yl i n e s , 3 , 4 )
( 2 )
b y t h e w o r k s t a t i o n c o n t r o l p r o g r a m )i s a l s o i n c l u d e d i n -3 Printer
this r;torageblock. Ninety-nine indicators can be assioned -4 Printer
in your ACL program. -5 D a t as e t ( 1)
-6 Dataset (2)
The remainder of the storage (3,072 positions) -7 Tables
consistsof
twenty-four 128-position buffers. Buffers 1 -8
and2 are Tables
a s s i g r n e d t h e d i s p l a yu n i t f o r i n p u t a n d o u t p u t
to operataons. Buffer -9 Prompting messages
The nemaining22 buffers can be used for your
input and -10 Prompting
output areasfor data sets and the printer, and for
messages
storing -11 In s t r u c t i o n s
operator prompting messages, tables,data set indexes,and -12 I nstructi ons
p r o g r a m i n s t r u c t i o n s .A n o p t i o n a l g K ( K
e q u a l s1 , 0 2 4 -13
byte$) storagefeature provides an additional In s t r u c t i o n s
32 buffers. -14 In s t r u c t i o n s Variable
-15 I nstructions
Figure 3 shows the structure of a typical ACL program.
307 _16 I nstructions
B u f f e r sa l l o c a t e dt o s p e c i f i cf u n c t i o n s a r e e x a m p l e s
only
and should not be consideredfixed requirementsfor Buffer -17 D i s ki n d i c e s
an
ACL program, except for buffers 1 and 2. -18 D i s ki n d i c e s
-19 D i s ki n d i c e s
-20
Program Development -21
-22 Dataformats
You define your application programs in the same way you -23 Dataformats
def ine programs for your host computer svstem. A detailed -24 Dataformats
flow:hart of the program, print report layouts, and diskette
Read-write Storaqe
record layouts will provide the documentation you need to
code your program or programs.
Figure 3. ACL Program Structure (4Kl

T h e p r o g r a m sa r e c o d e d i n a p p l i c a t i o nc o n t r o l l a n g u a g e .
using both control statementsand instructions. Control
The followingparagraphs
explainthe general
forrn of the
statementsare used to define the name of the program, the
control statements instructions
and contained ACL.
in
characteristics the diskette data sets to be used (such as
of
a c c e s s e t h o d ) , t h e c h a r a c t e r i s t i co f t h e p r i n t e r ( s u c ha s
m s
formrslength), and the messages be issuedto the operator, to
along with the type of data to be entered via the keyboard.
I n s t r u c t i o n sa r e w r i t t e n t o t e l l t h e w o r k s t a t i o n w h i c h o o e r -
ations are to be performed and in what sequence. These
o p e r e r t i o n is c l u d e m u l t i p l y , d i v i d e ,s u b t r a c t ,a d d , d i s p l a y
n
message, accept data from the keyboard, read and write
diskette records,searchdiskette data sets,perform table
searches, etc.

6
ACL Control Statements ACL Inrtructions

Control The programmerspecifies operations be executedby
the to
Statement Function the applicationprogramby codinga series ACL instruc'
oli
tions. The instructionsare groupedin categories
basedon
.NAME Definesthe nameof the program. function.

.DATASET Definesthe diskettedata setsto be
usedin the programand the access Arithmetic Operations
method to be usedfor eachdata 3et.
Funstion I nstruction
. P R N T ER
I Definesthe model of printer to be used,
the formssizeand the overflowline. Replace Rt=Rz

Add R1=R2+R3
. S E L FC H E C K Definesthe self checkmodulusand
the characteristics the algorithm
of
Subtract R'=Rr-Ra
t
to be used.

Multiply R1=R2*R3
.REGISTER Specifies initial contentsof
the
registers.
Divide R1=R2lR3
.BUFFER Specifies initial contentsof buffers.
the
Shift Right
.FIELD Defines operatorpromptingmos-
the - Shlft Right and pad with leading R,t = R, R KK
sage be displayed,the type of data
to blanks
to be enteredvia the keyboard,and the - Shift Right,pad with leading zeros, Rt = RZ RS KK
dispositionof the keyeddata in storage, and restorethe signto the low
on the screen, both.
or orderpositionof a numericfield
- S h i f t R i g h t ,p a dw i t h l e a d i n g e r o s , R t = R Z R R K K
z
.FORMAT Definesthe formatting of data to and restorethe sign to the low order
from the registers
duringinput and position, and round uP in the low
output operations. order or units positionof a numeric
f ield
.END Defines end of the program.
the
Shift Left
- Shift Left and insertlow order Fi,t = R2 L KK
blanks
- Shift Left, insertlow order zeros, Fi1 = R2 LS KK
and movethe signof the low order
positionof a numericfield

Load Constant F l , t= + 6 1 1 1 " *

Notes:
1. R t , R Z ,a n d R 3 c a nb e a n y r e g i s t eA ' - 2 . R z a n d R 3
r
canalsobe a constant (0-9) , exceptin the Dividein-
structionwhereR2 can only be a register'
2. K K i s a c o n s t a n ( 1 - 1 5 ) w h i c hs p e c i l i i eh e n u m b e r
t ts
of characters to be shifted.
3. KKKKK is a constant(0-65535)'




Application Control Language 1
LogicaI (Branching) Operati ons Display and Keyboard Operations

Funstion Instruction Function Instruction

Branchif register is/isnot r F R l t s / N o T0 lssuepromptingmessage on ENTR
z e r oo r b l a n k displayand acceptdata from
keyboard
B r a n c h f r e g i s t eir / i sn o t m i n u s
i s rFRl rs/NoT-

Branchif register
is/isnot r F R 1 r s l N o TA N Diskette Operations
absolutenumber
Function Instruction
Branchif register
is/isnot signed r F R 1r s / N o T N
s
number Reador search
and readdisk READ
record
Branchif register is equalto
1 lFRl=R,
register
2 Writedisk record WRT

Branchif register is less
1 than lFRt register
2 record

Branchif register is greater
1 than r F R 1> . R 2 Deletea disk record WRTS
register
2
Close filesand post normat
all EXIT
Branchif printeris/isnot busy I F P R TI S / N O T S Y
B end-of-job
halt message

B r a n c h f i n d i c a t o n u m b e ri s /
i r l FI n l S / N O T N
O O p e nd a t as e t OPEN
is not on
C f o s e a t as e t
d CLOZ
B r a n c h f i n d i c a t b n u m b e ri s /
i r l F l R n l S / N O TO N W a i to n p e n d i n gn p u t a n d o u t p u t
i WAIT
is not on and resetif on
operations
B r a n c h f F o r m a tn u m b e ri s / i sn o t
i l F F M T nl S / N O T
the lastone used

B r a n c h f r e g i s t eir / i sn o t S e l f
i s rF R1 ts/NoTcHK Printer Operations
Check
Function I nstructiorn
B r a n c hf c a r dl / O u n i t i s / i sn o t b u s y l F C R D R l S / N O TB S y
i
P r i n ta ' l i n ew i t h s k i p p i n g r
o PRNT
U n c o n d i t i o n a lr a n c h
b GOTO spacing

Branch ndreturn
a RGO S k i pt o l i n e n u m b e r r s p a c e
o PCTL

Skip next instructionif character SCE
equal

Skip next instructionif character SCN
not equal

Notes:
1 . R 1 a n CR 2 a r er e g i s t e rA - Z f o r b r a n c h i n o p e r a t i o n s .
s g
2 . n i s t h e i n d i c a t o o r f o r m a tn u m b e r .
r
Table 0perations M i scelIan eous Opera ti o ns


Function I nstruction Function lnstruction

S e a r c ht a b l e f o r e q u a l e n t r y TBFX E x e c u t ec h e c k p o i n t o p t i o n a n d CKPT'
w r i t e c h e c k p o i n t r e c o r di n
S e a r c ht a b l e f o r e q u a l o r h i g h TBFN d e f i n e dd a t a s e t
entrv
I n s e r td e f i n e d c h a r a c t e ri n b u f f e r ICBF
R e a dt a b l e e n t r y TBRD
Set on indicators SON
Write tableentry TBWT
Set off indicators SOFF:


Generate elf-check umber