|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 77696 (0x12f80)
Types: TextFile
Names: »D73«
└─⟦a2495fc4f⟧ Bits:30005867/disk10.imd Dokumenter (RCSL m.m.)
└─⟦this⟧ »D73«
\f
T_a_b_l_e_ _o_f_ _C_o_n_t_e_n_t_s_ P_a_g_e_
V_o_l_u_m_e_ _I_I_I_
5.7 Miscellaneous Transactions 4
5.8 Terminal Controlling Transactions 55
5.9 Account Entry 63
5.10 Print Out Administration 118
5.11 Print Output 130
6. Error Processing 139
6.1 Errors from the DUET System 141
6.2 Errors from the DUET Program 142
6.3 Error List: Skeleton Program 143
7. Operating Guide 152
7.1 Translation of the DB Description 156
7.2 Translation of the SODA-LD Description 158
7.3 Translation at the DUET Program 160
7.4 Translation of TELEOP 162
7.5 Test Runs 164
8. Relations to other Systems 169
8.1 TELEOP 171
8.2 DUET Interpreter 176
8.3 TD utility 178
8.4 System80, Batch Programs 180
8.5 Other Systems 184
9. Index 185
Appendix A: Application of Duet Blocks
Reader>s Comments - Reply Form
\f
5.7 M_i_s_c_e_l_l_a_n_o_u_s_ _T_r_a_n_s_a_c_t_i_o_n_s_
L_i_s_t_ _o_f_ _c_o_n_t_e_n_t_s_P_a_g_e_
Introduction 5
5.7.0 Outline 8
5.7.1 Function: Voucher Calculation 9
5.7.2 Function: Display Voucher 20
5.7.3 Item Order Scan 24
5.7.4 Relocate Stock Transaction/Physical
Stock Count 34
5.7.5 Deb/Cred Order Scan 37
5.7.6 Order Line Scan 46
\f
5_._7_ _ _M_i_s_c_e_l_l_a_n_e_o_u_s_ _T_r_a_n_s_a_c_t_i_o_n_s_
I_n_t_r_o_d_u_c_t_i_o_n_
F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_. Is used in connection with
the voucher end transactions (order entry and invoicing) and
the display transactions. The Skeleton Program executes a
number of scans of the sorted terminal area (perhaps with
several sortings). The Skeleton Program makes it possible to
create an order line - and/or an invoice line record at an
arbitrary point of time in the scan for collecting the gat-
hered information (e.g. discounts) at voucher - and parts
voucher level.
F_u_n_c_t_i_o_n_:_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_: Is used in connection with the
voucher processing for a display of the contents of the vou-
cher lines in the terminal area. After a possible sorting,
a scan of the terminal area is executed. From the adaption an
interval restriction can be put on the line or serial number
variables. The interval restriction permits a display of a
limited part of the voucher. The lay-out of the print out is
determined by the adaption.
D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_ _(_D_B_)_ _a_n_d_ _C_a_l_c_u_l_a_t_e_ _a_n_d_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_ (DBB)
are transactions that use the above-mentioned functions.
I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_ _(_Y_A_,_ _Y_B_)_ is a single transaction which exe-
cutes a scan of the order lines starting either from an item
record (YA) or an addition record (YB). Two kinds of scan
are made: first a scan with a filling in of the copy records
in the terminal area, and second a number of scans of the
copy records - possibly after a sorting. The transaction can
update the item-/addition record.
R_e_l_o_c_a_t_e_ _S_t_o_c_k_ _T_r_a_n_s_a_c_t_i_o_n_s_/_P_h_y_s_i_c_a_l_ _S_t_o_c_k_ _C_o_u_n_t_ _(_Y_C_)_ is a
single transaction which allows updating of one item record.\f
5_._7_ _ _M_i_s_c_e_l_l_a_n_e_o_u_s_ _T_r_a_n_s_a_c_t_i_o_n_s_
D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_ _(_Y_E_,_ _Y_F_,_ _Y_G_,_ _Y_H_,_ _Y_I_,_ _Y_J_)_ is a single
transaction which executes a scan of the order records from
the deb/cred file in which the deb/cred record may be a cus-
tomer (EY), a supplier (YF), or a department (YG). Further-
more, for each order, a scan of the order lines can be exe-
cuted (YH, YI, YJ). The Skeleton Program first executes a
scan where copy records of the orders (and the order lines,
if any) in the terminal area can be filled in. Then, a pos-
sible sorting of the copy records can be executed and a scan
of the copy records. No database records can be updated in
connection with the transaction.
O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_ _(_Y_K_,_ _Y_L_,_ _Y_M_) is a single transaction which
executes two scans of the order line records from the order
file : At the first scan, copy records, are created in the
terminal area are, if wanted. The second scan processes the
filled in copy records. No database records can be updated
in connection with the transaction.\f
5_._7_ _ _M_i_s_c_e_l_l_a_n_e_o_u_s_ _T_r_a_n_s_a_c_t_i_o_n_s_
C_o_n_t_r_o_l_ _o_f_ _D_i_s_p_l_a_y_ _-_ _T_r_a_n_s_a_c_t_i_o_n_s_
(tegning)
\f
5.7.0 M_i_s_c_e_l_l_a_n_e_o_u_s_ _T_r_a_n_s_a_c_t_i_o_n_s_ _-_ _O_u_t_l_i_n_e_
(tegning)
\f
5.7.1 F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
(tegning)
\f
5_._7_._1_._ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
S_u_b_f_u_n_c_t_i_o_n_:_ _C_a_l_c_u_l_a_t_e_ _o_n_e_ _V_o_u_c_h_e_r_
(tegning)
\f
5_._7_._1_._ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_ -
S_u_b_f_u_n_c_t_i_o_n_:_ _S_c_a_n_ _v_o_u_c_h_e_r_ _l_i_n_e_s_ _i_n_ _t_h_e__t_e_r_m_i_n_a_l_ _a_r_e_a_
(tegning)
\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_ -
S_u_b_f_u_n_c_t_i_o_n_:_ _S_c_a_n_ _V_o_u_c_h_e_r_ _l_i_n_e_s_ _i_n_ _t_h_e_ _t_e_r_m_i_n_a_l_ _a_r_e_a_
(tegning)
\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Initialization
Reading :
Writing :
Conditions for
activation : After fetching the first voucher
start record in the terminal area
Comm. variables: no _of _scans
call:1
answer:'=0
Use : Initialization of variables for
the voucher calculation
Block reference: B (adp _block _17,10)
Next adaption
point : Adp 2 or adp 7\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Assign the sorting variables
Reading :
Writing :
Conditions for
activation : If the number of executed scans
= no_of_scans
Comm variables: sort_wanted
call:0 (not wanted)
answer:0,1
Compare with the description of
the sorting procedure (algol 1), ref. 7.
Use : Assignment of variables and para-
meters for controlling the sorting
procedure
Block reference: B (adp _block _17,11)
Next adaption
point : adp 3\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Initialize the calculation variables.
Reading :
Writing :
Conditions for
activation : After a possible sorting of the terminal
area.
After fetching the first voucher line
record.
Comm. variables:
Use : Initializing (or re - initialization) of
the calculation variables for the next
scan of the terminal area.
Block reference: B (adp _block _17,12)
Next adaption
point : Adp 4 or adp 6\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Calculation on the voucher line
Reading :
Writing :
Conditions for
activation : If there are more records left in the
terminal area
Comm. variables:
Use : Calculation on the voucher line level
Accumulation on the parts voucher - and
voucher level
Block reference: B (adp_block _17,13)
Next adaption
point : Adp 5\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Calculate the sub-voucher
Reading :
Writing :
Conditions for
activation : After put of the voucher line record.
After fetching the next voucher line
record
Comm. variables: Invoice_line wanted (for creation of
invoice voucher line
call:0 (not wanted)
answer:0,1
order_wanted (for creation of order line and
order voucher line)
call:0 (not wanted)
answer:0-no creation wanted
1-creation wanted
2-only creation of order
voucher line
Use : Re-initialization of the variables
(at parts voucher level).
Assignment of the variables for the
invoice line and/or the order line
creation
Block reference: B (adp_block _17,14)
Next adaption
point : Adp4, -6, and -2 in the create invoice
line, adp 2 in the create order line\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Terminate the terminal area scan
Reading :
Writing :
Conditions for
activation : After a possible invoice line -
and/or line creation.
If last voucher line record has
been processed.
Comm. variables:
Use : Calculations after the terminal
area scan
A possible transfer of accumulated
values to the utility variables
Block reference: B (adp _block _17,15)
Next adaption
point : Adp 2 or adp 7\f
5_._7_._1_ _ _F_u_n_c_t_i_o_n_:_ _V_o_u_c_h_e_r_ _C_a_l_c_u_l_a_t_i_o_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 7
Designation : Update the voucher start
Reading :
Writing :
Conditions for
activation : If the number of executed scans
' no_of_scans
After fetching the first voucher
start record
Comm. variables:
Use : Updating the voucher start record after
calculation on voucher lines
Block reference: B (adp_block _17,16)
Next adaption
point : Exit\f
5.7.2 F_u_n_c_t_i_o_n_:_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_
(tegning)\f
5_._7_._2_ _ _F_u_n_c_t_i_o_n_:_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Assign the sorting variables
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the
line code (adp 0)
After a possible voucher calculation
Comm. Variables: The sorting variables (cf. the description
of the sorting procedure algol 1)
first_line, last_line, first serial_no,
last_serial_no,
control the display of
lines/records per transaction
Standard: all terminal area
records are displayed
Use : Reading of information to the display
control
Assignment of the sorting variables
Block reference: B (adp_block_17,2)
Next adaption
point : Adp 2 or exit\f
5_._7_._2_ _ _F_u_n_c_t_i_o_n_:_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Print the record
Reading :
Writing :
Conditions for
activation : After sorting the terminal area
After fetching the voucher record
Comm. Variables:
Use : Printing of the voucher record
Block reference: B (adp_block_17,1)
Next adaption
point : Adp 2 or exit\f
5_._7_._2_ _ _F_u_n_c_t_i_o_n_:_ _D_i_s_p_l_a_y_ _V_o_u_c_h_e_r_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Print totals
Reading :
Writing :
Conditions for
activation : After scan of the voucherlines
Comm. variables:
Use : Print calculated totals
Block reference: B (adp_block_17,26)
Next adaption
point : Exit\f
5.7.3 I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
T_a_b_l_e_ _1_
odl _ DUET copy _
rec _ instr rec _type
P_type
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
2101 130 7550
2102 130 7551
2103 130 7580
2104 130 7581
2111 130 7552
2112 130 7553
2113 130 7582
2114 130 7583
2121 130 7554
2122 130 7555
2123 130 7584
m_2124 130 7585
\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
(tegning)\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
(tegning)\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the item key (general read _keys)
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read_set (call)
3 - item master (parent)
item type (call)
601 - item record
602 - addition record
Use : Reading of a record identifier to the key
variable in question
Block reference: B (adp_block_2,3)
Next adaption
point : Adp 2\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading : From input buffer
Writing :
Conditions for
activation : After fetching the item master
Comm. variables:
Use : Reading of information for the selection
and sorting of the order lines
Block reference: B (adp_block_5,1)
Next adaption
point : Adp 3 or adp 4\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Select the order line
Reading :
Writing :
Conditions for
activation : After fetching the order line
Comm. variables: copy_wanted_in_ta
call:0 (not wanted)
answer:0,1
Use : Selection of order line for copying
Block reference: B (adp_block_5,2)
Next adaption
point : Adp 3 or adp 4\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Sorting
Reading :
Writing :
Conditions for
activation : After termination of the order line scan
Comm. variables: no_of_scans
call:1
answer:'=0
sort_wanted
call:0 (not wanted)
answer: 0,1
cont_scanning
call: 1 (wanted)
answer: 0,1
Use : Initialization of the utility - and
communication variables before the scanning
of the order line copies.
Initialization of the sorting variables.
Block reference: B (adp_block_5,3)
Next adaption
point : Adp 5, adp 6, or adp 7\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Calculation on order line
Reading :
Writing :
Condition for
activation : After a possible sorting of the copy
records. After fetching a copy record
Comm. variables: cont_scanning
call: 0,1
answer: 0,1
ta_erased,
call : from order copy (s26)
Answer: 0, 1
Use : Calculations on the basis of the contents
of the order line copy
Block reference: B (adp_block_5,4)
Next adaption
point : Adp 5 or adp 6\f
5_._7_._3_ _ _I_t_e_m_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Terminate the scan
Reading :
Writing :
Conditions for
activation : After terminating a scan of the copy
records
Comm. variables:
Use : Termination calculations after a scan
Re-initialization of variables for further
scans
Block reference: B (adp_block_5,5)
Next adaption
point : Adp 5, adp 6, or adp 7\f
5_._7_._3_ _ _I_t_e_m_ _o_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 7
Designation : Update item
Reading :
Writing :
Conditions for
activation : After terminating all the scans of copy
records
Comm. variables:
Use : Possible updating of information in the
item record
Block reference: B (adp_block_5,6)
Next adaption
point : Exit\f
5.7.4 R_e_l_o_c_a_t_e_ _S_t_o_c_k_ _T_r_a_n_s_a_c_t_i_o_n_/_P_h_y_s_i_c_a_l_ _S_t_o_c_k_ _C_o_u_n_t_
(Tegning)\f
5_._7_._4_ _ _R_e_l_o_c_a_t_e_ _S_t_o_c_k_ _T_r_a_n_s_a_c_t_i_o_n_/_P_h_y_s_i_c_a_l_ _S_t_o_c_k_ _C_o_u_n_t_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the item key (general read_keys)
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read_set (call)
1 - item master
item type (call)
601 - item record
Use : Reading of the item identifier to the key
variable in question
Block reference: B (adp_block_2,3)
Next adaption
point : Adp 2\f
5_._7_._4_ _ _R_e_l_o_c_a_t_e_ _S_t_o_c_k_ _t_r_a_n_s_a_c_t_i_o_n_/_P_h_y_s_i_c_a_l_ _S_t_o_c_k_ _C_o_u_n_t_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Update the item
Reading : From input buffer
Writing :
Conditions for
activation : After fetching the item record
Comm. variables:
Use : Reading of information from the
transaction. Calculation on the basis of
transaction information and item
information.
Updating of stock information in the item
record.
A possible printing of messages.
Block reference: B (adp_block _5,20)
Next adaption
point : Exit \f
5.7.5 D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
T_a_b_l_e_ _2_
D5
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
skp _ DUET dc _part _ deb _cred order _ order _li-
line _code inst dc _type copy _in _ta copy _in _ta nes _wanted
____________________________________________________________________
m_ .YE. D20 501 7560 - -
.YF. D21 502 7561 - -
.YG. D22 503 7562 - -
.YH. D25 501 7560 7563 1
.YI. D26 502 7561 7564 1
p_ .YJ. D27 503 7562 7565 1
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
T_a_b_l_e_ _3_
D245
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
order
od _type copy _in _ta
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
m_ 701 7563
702 7564
p_ 703 7565
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
(tegning)\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
(Tegning)\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the deb-cred key (general read _keys)
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
After assignment of the type variables
Comm. Variables: read_ set (call)
8 - deb-cred master (part)
dc _part _dc _type (call)
cf. table 2
Use : Reading of the deb-cred record identifier
to the key variable to question
Block reference: B (adp_block_2,3)
Next adaption
point : Adp 2\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading : From input buffer
Writing :
Conditions for
activation : After fetching and copying the deb-cred
record
Comm. variables:
Use : Reading of information in the transaction
(criteria for scans)
Initialization of variables
Block reference: B (adp_block_5,13)
Next adaption
point : Adp 3 or adp 4\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Fill in the copy record
Reading :
Writing :
Conditions for
activation : after fetching the deb-cred order list
record
After fetching the order record
Comm. variables: cont_scanning
1st call: 1 (wanted)
later calls: 0,1
answer: 0,1
copy _wanted _in _ta
call: 0 (not wanted)
answer: 0,1
Use : Selection of an order record for copying
Block reference: B (adp_block_5,14)
Next adaption
point : Adp 2 in order line scan, adp 3 or adp4\f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Sorting
Reading :
Writing :
Conditions for
activation : After the filling in of order copy records
Comm. variables: sort_wanted
call:0 (not wanted)
answer:0,1
new scanning
call:0 (not wanted)
answer: 0,1
Use : Initialization of the sorting variables
Block reference: B (adp_block_5,15)
Next adaption
point : Adp 5 or adp 6 \f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Calculations on order head
Reading :
Writing :
Conditions for
activation : After a possible sorting
If new scanning = 1 (wanted)
After fetching the order head copy
Comm. variables: ta _erased,
call: from order copy (S26)
answer: 0 or 1
Use : Calculation on the basis of the order head
information
Block reference: B (adp _block _5,16)
Next adaption
point : Adp 5 or adp 6 \f
5_._7_._5_ _ _D_e_b_/_C_r_e_d_ _O_r_d_e_r_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Terminate the calculation
Reading :
Writing :
Conditions for
activation : If new _scanning = 0 (not wanted)
or order scan terminated
Comm. variables:
Use : Terminating calculations after the scan.
A possible printing of information.
Block reference: B (adp _block _5,17)
Next adaption
point : Exit \f
5.7.6 O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
T_a_b_l_e_ _4_
_D_5_ ____________________________________
skp_DUETod_order_
P_line codeinstrtypecopy_in_ta
_______________________________________
m_.YK.D307017563
.YL.D317027564
.YM.D327037565
__ ____________________________________ _
T_a_b_l_e_ _5_
Like section 5.7.3; Item Order Scan,
Table 1\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
(tegning)\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
(tegning)\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the order key
Reading :From input buffer
Writing :
Conditions for
activation : After interpretation of the line code (adp 0).
After initialization of the type variables
(cf Table 4)
Comm. variables: read _set (call)
21 - order line copy
order_ type (call)
cf Table 4
Use : Reading of the order identifier to the key
variable in question
Block reference: B (adp _block _2,3)
Next adaption
point : Adp 2 \f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading :From input buffer
Writing :
Conditions for
activation : After fetching the order.
After create of order head copy.
Comm. variables:
Use : Reading of information from the transaction.
Initialization of calculation variables.
Block reference: B (adp_block_5,27)
Next adaption
point : Adp 3 or adp 4\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Select the order line
Reading :
Writing :
Conditions for
activation : After copying the order head.
After fetching the order line.
If cont_scanning = 1 (true).
Comm. variables: cont_scanning
call: 1 (wanted)
answer: 0
copy_wanted_in_ta
call: 0(not wanted)
answer: 0,
Use : Selection of order lines for copying.
Calculation or order line.
Block reference: B (adp _block _5,28)
Next adaption
point : Adp 3 or adp 4\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Initialize the scan
Reading :
Writing :
Conditions for
activation : After copying the order head.
After a possible copying scan.
Comm. variables: new _scanning
call: 0 (not wanted)
answer: 0,1
Use : Initialization of the calculation variables
for scanning the order line copies
Block reference: B (adp _block _5,25)
Next adaption
point : Adp 5 or adp 6\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Calculation on order line
Reading :
Writing :
Conditions for
activation : If new _scanning = 1 (true).
After fetching the order line copy.
Comm. variables: ta _erased
call: from order line record (s23)
answer: 0 or 1
Use : Calculation on the basis of the contents in
the order line copy
Block reference: B (adp _block _5,29)
Next adaption
point : Adp 5 or adp 6\f
5_._7_._6_ _ _O_r_d_e_r_ _L_i_n_e_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Terminate the scan
Reading :
Writing :
Conditions for
activation : If new _scanning = 0 (not wanted) or
after scan of the order line copies
Comm. variables:
Use : Terminating calculations after the scan
Block reference: B (adp _block _5,26)
Next adaption
point : Exit \f
5.8 T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_ P_a_g_e_
Introduction 56
Flow Diagram 59
Adaption Point Descriptions60\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
In order to activate the TELEDATA Skeleton Program at all,
it is nessecary to follow a certain procedure, as the SKP
makes certain demands on the execution of some definite
functions from a terminal before it is operative, i.e. be-
fore the operation transactions can be keyed. For the execu-
tion of these functions, the socalled terminal controlling
transactions have been defined.
In the terminal administration record, a field, which con-
tains information about the current state of the terminal,
has been defined.
The following states are operated:
0 : closed
1 : after login but before cpw (start)
2 : open after cpw, ready for operation
transactions (active)
So the function of the terminal controlling transactions is
actually to bring a terminal from state 0 to state 2 or vice
versa.
In SKP the following transactions are implemented:
login
logout
cpw (check password)
apw (assign password)
Below follows an outline of the connection between the state
of the terminal and each of the terminal controlling
transactions. \f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
p_ login logout cpw apw
0 + + - -
1 + + + -
m_2 + + + +
Below follows a description of the function of each trans-
action (the line codes are indicated by character values in
brackets ')
login : line code : 1' 1' 32'
The login transaction changes the terminal state from
0 to either 1 or 2, dependent on whether the current
user uses password (see below).
logout: line code : 2' 2' 32'
The logout transaction changes the terminal state to
0 in all cases.
apw : Assign password
If a user wants to prevent unauthorized persons from
looking at the database, this transaction makes it
possible to insert a user specific password in the
terminal administration record. This password must be
given whenever a login is attempted at the terminal.
cpw : Check password
This transaction checks whether a given password
coincides with a previously given password (given by
the apw). If this is not the case, it breaks off with
the information that the password is illegal.
Otherwise the terminal state is set to 2.
Concerning the apw - and the cpw transactions:\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
It should be mentioned here that the assignment of a pass-
word, on the grounds of security, takes place as follows:
The keyed in password is distorted beyond recognition by a
socalled text cruncher (algol operation) so that it is not
possible to get information about a user>s password just by
taking a print out of the current terminal administration
record.
So it is actually not two texts but two crunched texts that
are being compared.\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
(tegning)\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the password
Reading :From input buffer
Writing :
Conditions for
activation : After interpretation of the line code (adp 0).
If the skp _line _start = C
Comm. variables:
Use : Reading in and "de-coding" of the password
Block reference: B (20,1)
Next adaption
point : Exit
Notice : Installation adaption\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the admin _password
Reading :From input buffer
Writing :
Conditions for
activation : After interpretation of the line code (adp 0)
If the skp _line start = A
Comm. variables:
Use : Reading in and coding ("crunching") of the
admin_password
(= maintenance of the password in the terminal
administration record)
Block reference: B (20,2)
Next adaption
point : Exit
Notice : Installation adaption\f
5_._8_ _ _T_e_r_m_i_n_a_l_ _C_o_n_t_r_o_l_l_i_n_g_ _T_r_a_n_s_a_c_t_i_o_n_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Print messages on the terminal
Reading :
Writing : On print channel no. 2
Conditions for
activation : After login without password or after the
password has been accepted
Comm. variables:
Use : Printing of messages after the login command
and password have been accepted
Block reference: B (20,10)
Next adaption
point : Exit
Notice : Installation adaption\f
5.9 A_c_c_o_u_n_t_ _E_n_t_r_y_
L_i_s_t_ _o_f_ _C_o_n_t_e_n_t_s_ P_a_g_e_
Introduction 64
Outline 66
Tables 67
5.9.1 Voucher Start (Account Entry) 68
5.9.2 Voucher End (Account Entry) 70
5.9.3 Create Account Entry Line 72
5.9.4 Erase Account Entry Line 84
5.9.5 Deb/Cred Entry Scan 86
5.9.6 Balancing of Account Entries 96
5.9.7 Connect Account Entries 103
5.9.8 Account Entry Line for Batch Purposes116
\f
5_._9_ _ _A_c_c_o_u_n_t_ _E_n_t_r_y_
I_n_t_r_o_d_u_c_t_i_o_n_
The account entry includes transactions for inserting the
account entry list records connected with a deb/cred record.
The processing is effected as a voucher so that one voucher
line corresponds to one account entry at a deb/cred record.
V_o_u_c_h_e_r_ _S_t_a_r_t_ _(_A_c_c_o_u_n_t_ _E_n_t_r_y_)_(_K_A_)_ fills in a voucher start
record and updates the user record on account of a possible
voucher numbering.
V_o_u_c_h_e_r_ _E_n_d_ _(_Ac_c_o_u_n_t_ _En_t_r_y_)_(_K_B_)_ updates information on vou-
cher level in the voucher start record and delivers records
for a possible print out (cf. section 5.11).
C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_ _(_K_C_,_ _K_D_,_ _K_E_)_ creates a voucher
line record and an account entry record with reference to a
deb/cred record, which is updated. Furthermore, the Skeleton
Program can execute a scan of all entries attached to the
deb/cred record in question, because of a possible compari-
son, between these (entries) and the keyed in entry. The
scan may be performed either before or after the account
entry creation. During the scan, entries can be selected for
updating and copying in the terminal area. The Skeleton Pro-
gram line code indicates whether the current deb/cred record
is a customer, a supplier, or a department.
E_r_a_s_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_ _(_K_F_)_ is a voucher line transaction
that cancels a selected account entry line in the running
voucher. The voucher line is always selected by a line num-
ber. The general cancellation process (cf. section 5.5) is
used. All deletion is done by killing. \f
5_._9_ _ _A_c_c_o_u_n_t_ _E_n_t_r_y_
D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_ _(_K_G_,_ _K_H_,_ _K_I_)_ is a single transaction
that scans the account entry records attached to a specified
deb/cred record; this may be a customer (KG), a supplier
(KH), or a department (KI). During the scan, copy records
may be filled in the terminal area, which after a possible
sorting, is scanned again. If requested, a new entry record
can be filled in and the records in the terminal area can be
delivered for print out (cf. section 5.11).
B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_ _(_K_J_,_ _K_K_,_ _K_L_)_ is a single
transaction, which scans the existing account entries at-
tached to a specified deb/cred record. This may be a cus-
tomer (KJ), a supplier (KK), or a department (KL). During
the scan the account entry records may be erased in the
adaption, and after the scan a balance record can be crea-
ted. In this case a record may be delivered in the terminal
area for print out.
C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_ _(_K_M_,_ _K_N_)_ is a single transaction,
which is to be used for balancing of specified account en-
tries attached to a specified deb/cred record. This may be a
customer (KM) or a supplier (KN). During the first scan one
or two of the account entries can be selected for balancing,
and a new entry containing the amount in question is created
for either parts. An account entry balanced completely and
the entries attached to it can be deleted during the suc-
ceeding scans. Records may be filled in the terminal area
for print out.
A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_ _f_o_r_ _B_a_t_c_h_ _P_u_r_p_o_s_e_s_ _(_K_X_)_ is a voucher line
transaction which creates, if wanted, a record in the ter-
minal area - but no account entry record. This transaction
is only intended for print out and batch purposes.\f
5_._9_ _ _A_c_c_o_u_n_t_ _E_n_t_r_y_
O_u_t_l_i_n_e_
(tegning)\f
5_._9_ _ _A_c_c_o_u_n_t_ _E_n_t_r_y_
T_a_b_l_e_s_
T_a_b_l_e_ _1_ _ _ _ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
D5
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
M_skp DUET deb _cred _ rec _type entry
P_line _code instr type l _in _ta type
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
M_ .KC. D10 501 7571 2301
.KD. D11 502 7572 2302
.KE. D12 503 7573 2303
P_ .KX. D25 - 7591 -
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
T_a_b_l_e_ _2_ _ _ _ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
D200
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
DUET rec _type
ae _type instr l _in _ta
__ ___________________________
M_ 2301 D201 7571
2302 D202 7572
P_ 2303 D203 7573
__ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ \f
5.9.1 V_o_u_c_h_e_r_ _S_t_a_r_t_ _-_ _A_c_c_o_u_n_t_ _E_n_t_r_y_
(tegning)\f
5_._9_._1_ _ _V_o_u_c_h_e_r_ _S_t_a_r_t_ _-_ _A_c_c_o_u_n_t_ _E_n_t_r_y_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the information
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0).
After create of voucher start.
After fetching the user record.
Comm. variables:
Use : Reading of common information to the
account entry voucher.
Assignment of voucher number.
Block reference: B (adp_block _18,1)
Next adaption
point : Exit \f
5.9.2 V_o_u_c_h_e_r_ _E_n_d_ _-_ _A_c_c_o_u_n_t_ _E_n_t_r_y_
(tegning)\f
5_._9_._2_ _ _V_o_u_c_h_e_r_ _E_n_d_ _-_ _A_c_c_o_u_n_t_ _E_n_t_r_y_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Update voucher information
Reading :
Writing :
Conditions for
activation : After fetching the voucher start record
Comm. variables:
Use : Updating of voucher start information
A possible reading in of a check sum
Block reference: B (adp _block _18,2)
Next adaption
point : Exit \f
5.9.3 C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
(tegning)\f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
S_u_b_f_u_n_c_t_i_o_n_:_ _S_c_a_n_ _t_h_e_ _E_n_t_r_i_e_s_
(tegning 74a)\f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
S_u_b_f_u_n_c_t_i_o_n_:_ _S_c_a_n_ _t_h_e_ _E_n_t_r_i_e_s_
(tegning 78) \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
S_u_b_f_u_n_c_t_i_o_n_:_ _E_r_a_s_e_ _S_c_a_n_
(tegning 74b)\f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
S_u_b_f_u_n_c_t_i_o_n_:_ _C_r_e_a_t_e_ _A_c_c_._ _E_n_t_r_y_ _L_i_n_e_
(tegning 74c)\f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the deb-cred key (general read_keys)
Reading : From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read_set (call)
8 - deb/cred master
deb_cred_type (call)
cf. table 1
Use : Reading in of the record identifier to the
key variables
Block reference: B (adp _block _2,3)
Next adaption
point : Adp 0 \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading : From input buffer
Writing :
Conditions for
activation : After fetching the deb-cred record
If the deb-cred record is not protected
After create of the voucher entry
Comm. variables: entry _scanning
call: 0 (not wanted)
answer: 0,1
cont _scanning
call: 0 (not wanted)
answer: 0,1
gen_before_scan (creation of account entry
before scan of account entry lines)
call: 1 (wanted)
answer: 0,1
Use : Reading in of the entry information
Block reference: B (adp _block _18,3)
Next adaption
point : Adp 3, adp 4, adp 6 or exit \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Selection of entry
Reading :
Writing :
Conditions for
activation : If entry _scanning = 1 (true)
After fetching the account entry
Comm. variables: copy _wanted
call: 0 (not wanted)
answer: 0,1
Use : Selecting the account entry for copying
and/or balancing
Block reference: B (adp _block _18,4)
Next adaption
point : Adp 3 or adp 4 \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Terminate the scan
Reading :
Writing :
Conditions for
activation : After scanning the account entries
Comm. variables: change _entry
call: 0 (not wanted)
answer: 0,1
Use : Calculation after scanning the entries
Block reference: B (adp _block _18,5)
Next adaption
point : Adp 5 or exit \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Update the original entry
Reading :
Writing :
Conditions for
activation : If change _entry = 1 (true)
After fetching the original (keyed in)
voucher - and account entry
Comm. variables:
Use : Updating of information in the original
(keyed in) entry after the scan (perhaps
with an adjustment of previously registered
entries)
Block reference: B (adp _block _18,6)
Next adaption
point : Exit \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Update the debcred record
Reading :
Writing :
Conditions for
activation : If gen _before _scan = 0
After creation of the account entry
line and voucher line
Comm. variables: ae_erased
call: 0 (not wanted)
answer: 0,1
Use : Updating of the debcred record and
assignment of account entry variables
Block reference: B (adp _block _18,7)
Next adaption
point : Exit \f
5_._9_._3_ _ _C_r_e_a_t_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 7
Designation : Delete payment account entry
Reading :
Writing :
Conditions for
activation : If erase _scan = 1 and
ae _erased = 0
Comm. variables: ae_erased
call: 0 (not erased)
answer: 0,1
cont_scanning
call: 1 (wanted)
answer: 0,1
Use : Deletion of account entry record
Block reference: B (adp _block _18,8)
Next adaption
point : Adp 7 or exit \f
5.9.4 E_r_a_s_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
(tegning)\f
5_._9_._4_ _ _E_r_a_s_e_ _A_c_c_o_u_n_t_ _E_n_t_r_y_ _L_i_n_e_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the information
Reading :From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
After reading of the wanted position (line
number)
Comm. variables:
Use : Reading in of information for the
cancellation
Block reference: B (adp _block _16,8)
Next adaption
point : Cancellation - B (12,2) \f
5.9.5 D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
(tegning)\f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
(tegning)\f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
(tegning)\f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the deb-cred key (general read _keys)
Reading :From input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read _set (call)
8 - deb/cred master
Use : Reading in of the record identifier to
the key variable in question.
Block reference: B (adp _block _2,3)
Next adaption
point : Adp 2 \f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading :From input buffer
Writing :
Conditions for
activation : After fetching the deb-cred record
Comm. variables: copy _wanted
call: 0 (not wanted)
answer: 0,1
Use :
Block reference: B (adp _block _18,9)
Next adaption
point : Adp 3 or adp 4 \f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Select the entry
Reading :
Writing :
Conditions for
activation : After fetching the account entry
Comm. variables: copy _wanted
call: 0 (not wanted)
answer: 0,1
Use : Selection of account entry for copying.
Assignment of the copy variables.
Block reference: B (adp _block _18,10)
Next adaption
point : Adp 3 or adp 4 \f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Assign the sorting parameters
Reading :
Writing :
Conditions for
activation : After scanning the entries
Comm. variables: sort _wanted
call: 0 (not wanted)
answer: 0,1
Use : Assignment of the parameters for the
sorting process (algol 1)
Block reference: B (adp _block _18,11)
Next adaption
point : Adp 5 or adp 6 \f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Calculation on the voucher entry
Reading :
Writing :
Conditions for
activation : After a possible sorting of the terminal
area (voucher entries).
After having fetched the next voucher entry
Comm. variables: The 1st time adp 5 is used:
entry _wanted
call: 0 (not wanted)
answer: 0,1
copy _wanted
call: 0 (not wanted)
answer: 0,1
Use : Calculation on the basis of the sorted
voucher entries
Block reference: B (adp _block _18,12)
Next adaption
point : Adp 5 or adp 6 \f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 6
Designation : Terminate the calculation
Reading :
Writing :
Conditions for
activation : After scanning of the terminal area
Comm. variables: posting _wanted
copy _wanted
call: 0 (not wanted)
may have been changed in adp 5
answer: 0,1
Use : The terminating calculation after scanning
the terminal area
Block reference: B (adp _block _18,13)
Next adaption
point : Adp 7, print output, or exit\f
5_._9_._5_ _ _D_e_b_/_C_r_e_d_ _E_n_t_r_y_ _S_c_a_n_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 7
Designation : Calculate the entry
Reading :
Writing :
Conditions for
activation : If posting _wanted = 1 (wanted)
After create of the account entry
Comm. variables:
Use : Calculation of the account entry
Block reference: B (adp _block _18,14)
Next adaption
point : Print output or exit \f
5.9.6 B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96)\f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96a)\f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the deb/cred key (general read keys)
Reading :From the input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read _set (call)
8 - deb/cred master
Use : Reading in of the record identifier to the
key variable in question
Block reference: B (adp _block _2,3)
Next adaption
point : Adp 2 \f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading :From the input buffer
Writing :
Conditions for
activation : After having fetched the deb/cred record
Comm. variables:
Use : Reading in of information
Block reference: B (adp _block _18,20)
Next adaption
point : Adp 3 or adp 4\f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Selection of account entry line
Reading :
Writing :
Conditions for
activation : After having fetched the next account entry line
Comm. variables:copy _wanted_in_ta (for printing)
call: 0 (not wanted)
answer: 0,1
update_counter (account entry selected)
call: 0 (not wanted)
answer: 0,1
cont_scanning (continue scanning)
call: 0 (not wanted)
answer: 0,1
Use : Selection of account entry line
Block reference: B (adp _block _18,21)
Next adaption
point : Adp 3 or adp 4\f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Terminate the scan
Reading :
Writing :
Conditions for
activation : After the scan
Comm. variables:new_record_wanted (creation)
call: 1 (wanted)
answer: 0,1
Use : Termination of the scan of account entry
lines. Initialization of variables for a
possible creation of a balance record
Block reference: B (adp _block _18,22)
Next adaption
point : Adp 5 or exit \f
5_._9_._6_ _ _B_a_l_a_n_c_i_n_g_ _o_f_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Decide whether the balance record should be
printed or not
Reading :
Writing :
Conditions for
activation : After creation of a balance record
Comm. variables:printout_wanted
call: 0, 1 (0 = not wanted)
copy _wanted _in _ta
call: 0 (not wanted)
answer: 0,1
Use : Decision whether the balance record should
be printed, followed by a possible
initialization of variables for the
terminal area.
Block reference: B (adp _block _18,23)
Next adaption
point : Exit \f
5.9.7 C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96g)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96h)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96i)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
(tegning 96j)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
S_u_b_f_u_n_c_t_i_o_n_:_ _E_r_a_s_e_ _s_c_a_n_
(tegning 96k)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
S_u_b_f_u_n_c_t_i_o_n_:_ _C_r_e_a_t_e_ _N_e_w_ _A_c_c_o_u_n_t_ _E_n_t_r_y_
(tegning 96l)\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 1
Designation : Read the deb/cred key (general read keys)
Reading :From the input buffer
Writing :
Conditions for
activation : After interpretation of the line code
(adp 0)
Comm. variables: read_set
call: 8 (deb/cred master)
Use : Reading in of the record identifier to
the key
Block reference: B (adp _block _2,3)
Next adaption
point : Adp 2 \f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 2
Designation : Read the information
Reading :From the input buffer
Writing :
Conditions for
activation : After having fetched the deb/cred record
Comm. variables: scan _type
call: 3-search both entries
answer: 0-no scanning
1-search credit note entry
2-search invoice entry
3-search both entries
Use : Reading of information
Block reference: B (adp _block _18,25)
Next adaption
point : Adp 3, adp 4, or adp 5\f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 3
Designation : Fill account entry line
Reading :
Writing :
Conditions for
activation : The account entry line has been created
Comm. variables: copy _wanted _in _ta
call: 0 (not wanted)
answer: 0,1
Use : Initialization of account entry variables
Block reference: B (adp _block _18,26)
Next adaption
point : Adp 7 or exit \f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 4
Designation : Select account entry record
Reading :
Writing :
Conditions for
activation : Is activated for each record read during
the scan. Scantype must be ' 0
Comm. variables: cont _scanning (continue scanning)
call: 1 (wanted)
answer: 0,1
recordpos (serialnumber for account entry
record to be used in adp 7)
call: -1 (only for the first call during
the scan)
answer: a possible serial number
Use : Selection of account entry
records for balancing. If two records are
needed, the first read of them may be
fetched later on (in adp 7) by means of
the communication variable recordpos.
Block reference: B (adp _block _18,27)
Next adaption
point : Adp 5 \f
5_._9_._7_ _ _C_o_n_n_e_c_t_ _A_c_c_o_u_n_t_ _E_n_t_r_i_e_s_
A_d_a_p_t_i_o_n_ _P_o_i_n_t_ _D_e_s_c_r_i_p_t_i_o_n_
Number : 5
Designation : Terminate the scan
Reading :
Writing :
Conditions for
activation : After the scanning of the account entry lines
Comm. variables: copy _wanted _in _ta
call: 0 (not wanted)
ae _erased (account entry erased)
call: 0,1 (0 = not erased)
answer: 0,1
Use : Termination of account entry line scan
Block reference: B (adp _block _18,28)
Next adaption
point : Adp 3 \f
«eof»