top - download
⟦de4fe5e0a⟧ Wang Wps File
Length: 27424 (0x6b20)
Types: Wang Wps File
Notes: CPS/SDS/035
Names: »2076A «
Derivation
└─⟦4c162cf87⟧ Bits:30006103 8" Wang WCS floppy, CR 0163A
└─ ⟦this⟧ »2076A «
WangText
…0e……08……0e……0c……0e……0f……0e……01……0e……06……0d……09……86…1
…02…
…02…
…02…
…02…CPS/SDS/035
…02…850601…02……02…
SUPERVISOR
VDU
DETAILED
DESIGN
SPECIFICATION…02…ISSUE
1…02…CAMPS
4.2.2.4.7 E̲x̲e̲c̲u̲t̲e̲ ̲S̲y̲s̲t̲e̲m̲ ̲S̲e̲q̲u̲e̲n̲c̲e̲
4.2.2.4.7.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
Steps through the sequence record as follows:
1) Sets the set of f/c keys allowed during sequence
execution.
2) Checks if a log report shall be generated and sends
it if specified.
3) Checks if a functional task shall be executed and
initiates the task if specified.
4) Checks if a command to SVDIA shall be sent and
if sends it, and awaits the answer.
5) Checks whether a positioning of the cursor is specified
and if, positions the cursor as required.
6) Sets the set of f/c keys allowed after execution
of the sequence.
7) Fetches the sequence record field specifying the
next action to be performed and sequence execution
is finalised.
4.2.2.4.7.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
Call Specification
a) EXEC ̲SYS ̲SEQ
(SEQ ̲WAIT ̲STATE: SFCO ̲STATE ̲TYPE)
(SEQ ̲STATE: SEQ ̲STATE ̲TYPE
SVUP ̲OP: SVUP ̲COROUTINE ̲OP)
b) EXEC SYS SEQ (R0,R5,R7,R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 SEQ ̲WAIT ̲STATE C D
R5 POINTER TO SVUP ̲OP - R
R7 SEQ ̲STATE - R
R6 LINK C K
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R4 DEST
R5 Pointer to SVUP ̲OP RETURN
R6 KEPT
R7 SEQ ̲STATE DEST
4.2.2.4.7.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
None
4.2.2.4.7.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
SEQ ̲REC C K
SEQ ̲TABLE ̲KEY C R
SVUP ̲OP - R
EXP ̲SVDIA ̲NO C R
SVDIA ̲CMD ̲OUT C K
FCK ̲SET - R
CMD ̲CURSOR ̲RECORD C R
CURSOR ̲RECORD C R
SVDIA ̲TMP ̲REC ̲PT - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
4.2.2.4.7.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
Refer fig. 4.2.2.4.7-1
FCK ̲SET = SEQ ̲REC.FCK ̲SET1
CASE SEQ ̲REC.LOG OF SVUP ̲LOG ̲TYPE
NO ̲LOG?
SYS ̲LOG? R̲E̲P̲O̲R̲T̲ ̲L̲O̲G̲(̲S̲Y̲S̲ ̲L̲O̲G̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲2̲)̲
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
SEQ ̲REC.FUNCTION NE NULL? E̲X̲E̲C̲U̲T̲E̲ ̲S̲Y̲S̲ ̲F̲U̲N̲C̲(̲ ̲ ̲ ̲ ̲ ̲
̲ ̲)̲
SEQ ̲REC.SVDIA ̲CMD EQ NULL?
S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲M̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲(̲F̲i̲g̲.̲ ̲4̲.̲2̲.̲2̲.̲4̲.̲7̲-̲2̲)̲
SEQ ̲REC.CURSOR.SPLIT EQ NO ̲SPLIT?
CURSOR ̲RECORD = SEQ ̲REC.CURSOR.POSITION
CASE S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲S̲E̲Q̲ ̲R̲E̲C̲.̲C̲U̲R̲S̲O̲R̲.̲S̲P̲L̲I̲T̲)̲:̲ ̲E̲X̲C̲
N̲O̲R̲M̲A̲L̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲4̲)
EXC? SEQ ̲STATE = TEXC
RETURN
NORMAL?
END CASE
FCK ̲SET = SEQ ̲REC.FCK ̲SET2
SEQ ̲STATE = SEQ ̲REC.SEQ ̲STATE
RETURN
Fig. 4.2.2.4.7-1
S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲
CASE SEQ ̲WAIT ̲STATE OF SFCO ̲STATE ̲TYPE
WORK1 ̲STATE? S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲
N̲O̲R̲M̲A̲L̲ ̲C̲A̲S̲E̲(̲4̲.̲2̲.̲2̲.̲4̲.̲7̲-̲3̲)̲
WORK5 ̲STATE S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲
I̲N̲T̲E̲R̲R̲U̲P̲T̲ ̲C̲A̲S̲E̲(̲4̲.̲2̲.̲2̲.̲4̲.̲7̲-̲5̲)̲
WORK6 ̲STATE S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲
C̲L̲O̲S̲E̲/̲S̲T̲O̲P̲ ̲C̲A̲S̲E̲(̲4̲.̲2̲.̲2̲.̲4̲.̲7̲-̲6̲)̲
END CASE
Fig. 4.2.2.4.7-2
S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲ ̲N̲O̲R̲M̲A̲L̲ ̲C̲A̲S̲E̲
S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲M̲D̲(̲S̲E̲Q̲ ̲R̲E̲C̲.̲S̲V̲D̲I̲A̲ ̲C̲M̲D̲,̲ ̲S̲E̲Q̲ ̲R̲E̲C̲,̲ ̲S̲V̲D̲I̲A̲ ̲F̲O̲R̲M̲A̲T̲,̲
̲0̲,̲ ̲0̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
LOOP AWAIT ̲SVDIA ̲ANSWER ̲NORMAL ̲CASE
W̲A̲I̲T̲ ̲S̲F̲C̲O̲ ̲E̲V̲E̲N̲T̲(̲W̲O̲R̲K̲1̲ ̲S̲T̲A̲T̲E̲)̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲0̲)̲
CASE SVUP ̲CO ̲OP.OP ̲ID(2) OF SENDER ̲ID ̲TYPE
SVCO ̲ID? D̲E̲L̲E̲T̲E̲ ̲F̲C̲ ̲K̲E̲Y̲ ̲I̲N̲P̲U̲T̲ ̲R̲E̲Q̲U̲E̲S̲T̲(̲4̲.̲2̲.̲2̲.̲6̲.̲7̲)̲
CASE SVUP ̲CO ̲OP.CMD OF
STOP ̲SFCO? SEQ ̲STATE = TSTOP
CLOSE ̲SFCO? SEQ ̲STATE = TCLOSE
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
END CASE
RETURN
FC ̲KEY ̲ID? CASE F̲E̲T̲C̲H̲ ̲A̲N̲D̲ ̲V̲A̲L̲ ̲K̲E̲Y̲(̲ ̲ ̲)̲(̲F̲C̲ ̲K̲E̲Y̲,̲
̲C̲C̲)̲:̲
E̲X̲C̲ ̲N̲O̲R̲M̲A̲L̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲2̲)̲
EXC? SEQ ̲STATE = TEXC
RETURN
NORMAL? CC = ILL? R̲E̲Q̲U̲E̲S̲T̲ ̲F̲C̲
̲K̲E̲Y̲ ̲I̲N̲P̲U̲T̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲8̲)̲
S̲E̲T̲ ̲S̲E̲Q̲ ̲K̲E̲Y̲
SEQ ̲STATE = TRPT
RETURN
END CASE
SVDIA ̲ID? S̲V̲D̲I̲A̲ ̲A̲N̲S̲W̲E̲R̲ ̲A̲N̲A̲L̲Y̲S̲I̲S̲ ̲N̲O̲R̲M̲A̲L̲ ̲C̲A̲S̲E̲(̲4̲.̲2̲.̲2̲.̲4̲.̲7̲-̲4̲)̲
OTHERWISE? TEP̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
END LOOP AWAIT ̲SVDIA ̲ANSWER ̲NORMAL ̲CASE
Fig. 4.2.2.4.7-3
S̲V̲D̲I̲A̲ ̲A̲N̲S̲W̲E̲R̲ ̲A̲N̲A̲L̲Y̲S̲I̲S̲ ̲N̲O̲R̲M̲A̲L̲ ̲C̲A̲S̲E̲
CASE F̲R̲E̲E̲ ̲S̲F̲C̲O̲ ̲O̲P̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲:̲ ̲E̲R̲R̲O̲R̲ ̲O̲K̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
ERROR? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
OK?
END CASE
SVUP ̲CO ̲OP.OP ̲ID(1) EQ EXP ̲SVDIA ̲NO?
T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
SVUP ̲CO ̲OP.PARA1 EQ SPLIT ̲FAIL ̲CC? SEQ ̲STATE = TEXC
RETURN
SVUP ̲CO ̲OP.CMD NOT EQ INPUT ̲DATA?
SVUP ̲CO ̲OP.PARA1 EQ OK ̲CC? SEQ ̲REC.SEQ ̲STATE = TCON
SEQ ̲REC.SEQ ̲STATE = TFCK
EXIT LOOP AWAIT ̲SVDIA ̲ANSWER ̲NORMAL ̲CASE
Fig. 4.2.2.4.7-4
SEND SVDIA COMMAND AND AWAIT ANSWER INTERRUPT CASE
LOOP AWAIT ̲SVDIA ̲INTRPT ̲ANSWER
W̲A̲I̲T̲ ̲S̲F̲C̲O̲ ̲E̲V̲E̲N̲T̲(̲W̲O̲R̲K̲5̲ ̲S̲T̲A̲T̲E̲)̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲0̲)̲
CASE SVUP ̲CO ̲OP.OPID(2) OF
SVCO ̲ID? CASE SVUP ̲CO ̲OP.CMD OF
STOP ̲SFCO? SEQ ̲STATE = TSTOP
SVUP ̲OP = SVUP ̲CO
̲OP
CLOSE ̲SFCO? SEQ ̲STATE = TCLOSE
SVUP ̲OP = SVUP ̲CO
̲OP
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲
(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
RETURN
SVDIA ̲ID? CASE F̲R̲E̲E̲ ̲S̲F̲C̲O̲ ̲O̲P̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲:̲ ̲E̲R̲R̲O̲R̲
̲O̲K̲
ERROR? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
OK?
END CASE
SVUP ̲CO ̲OP.OP ̲ID(1) NOT EQ EXP ̲SVDIA
̲NO?
SVDIA ̲CMD ̲OUT GT
O?
T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲
(̲4̲.̲1̲.̲5̲.̲2̲)̲
SVUP ̲CO ̲OP.PARA1 EQ VDU ̲SPLIT ̲FAIL?
SEQ ̲STATE = TEXC
RETURN
EXIT LOOP AWAIT ̲SVDIA ̲INTRPT ̲ANSWER
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
END LOOP AWAIT ̲SVDIA ̲INTRPT ̲ANSWER
Fig. 4.2.2.4.7-5
S̲E̲N̲D̲ ̲S̲V̲D̲I̲A̲ ̲C̲O̲M̲M̲A̲N̲D̲ ̲A̲N̲D̲ ̲A̲W̲A̲I̲T̲ ̲A̲N̲S̲W̲E̲R̲ ̲C̲L̲O̲S̲E̲/̲S̲T̲O̲P̲ ̲C̲A̲S̲E̲
LOOP AWAIT ̲SVDIA ̲CLOSE ̲STOP ̲ANSWER
W̲A̲I̲T̲ ̲S̲F̲C̲O̲ ̲E̲V̲E̲N̲T̲(̲W̲O̲R̲K̲6̲ ̲S̲T̲A̲T̲E̲)̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲0̲)̲
CASE SVUP ̲CO ̲OP.OP ̲ID(2) OF
SVDIA ̲ID? CASE F̲R̲E̲E̲ ̲S̲F̲C̲O̲ ̲O̲P̲(̲S̲V̲U̲P̲ ̲C̲O̲ ̲O̲P̲)̲:̲ ̲E̲R̲R̲O̲R̲
̲O̲K̲
ERROR? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
OK?
END CASE
SVUP ̲CO ̲OP.OP ̲ID(1) NOT EQ EXP ̲SVDIA
̲NO?
SVDIA ̲CMD ̲OUT ̲GT
O?
T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲
(̲4̲.̲1̲.̲5̲.̲2̲)̲
EXIT LOOP AWAIT ̲SVDIA ̲CLOSE ̲STOP
̲ANSWER
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
END LOOP AWAIT ̲SVDIA ̲CLOSE ̲STOP ̲ANSWER
Fig. 4.2.2.4.7-6
4.2.2.4.8 T̲r̲a̲n̲s̲a̲c̲t̲i̲o̲n̲ ̲C̲o̲n̲t̲r̲o̲l̲ ̲T̲h̲r̲o̲u̲g̲h̲ ̲F̲/̲C̲ ̲K̲e̲y̲s̲
4.2.2.4.8.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The module is responsible for the execution of f/c
key commands, which has no influence on the processing
of the transaction in progress (logical f/c keys: INSL,
DELL, DERM, INSL ̲ENTER, DELL ̲ENTER, ERR ̲MSG Refer fig.
4.2.2.6.12-1). Further the module is responsible for
identifying the next sequence to be executed when a
f/c key transaction control cmd is received. (logical
f/c keys: ENTER ̲FC, CANCEL, PRINT, KAPN, DAPN, MENU
Refer fig. 4.2.2.6.12-1)
4.2.2.4.8.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TRANS ̲CTRL( )
(SVUP ̲OP: SVUP ̲COROUTINE ̲OP): WORK ̲STOP ̲CLOSE
b) TRANS ̲CTRL(R5, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R5 POINTER TO SVUP ̲OP - R
R6 LINK C K
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R4 DEST
R5 Pointer to SVUP ̲OP RETURN
R6 KEPT
R7 DEST
4.2.2.4.8.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
a) S̲e̲t̲ ̲S̲E̲Q̲ ̲K̲e̲y̲
The purpose of this procedure is to extract the
sequence key from the command record and the current
sequence record.
b) P̲r̲e̲p̲a̲r̲e̲ ̲E̲R̲R̲ ̲M̲s̲g̲
The prpose of this procedure is to give the supervisor
an error display.
c) P̲r̲e̲p̲a̲r̲e̲ ̲E̲N̲T̲E̲R̲
The purpose of this procedure is to setup the proper
conversion of the incoming enter key.
d) E̲x̲e̲c̲u̲t̲e̲ ̲L̲i̲n̲e̲ ̲C̲M̲D̲(̲N̲o̲ ̲o̲f̲ ̲l̲i̲n̲e̲s̲ ̲t̲o̲ ̲b̲e̲ ̲i̲n̲s̲e̲r̲t̲e̲d̲/̲d̲e̲l̲e̲t̲e̲d̲)̲
The purpose of this procedure is to execute the
insert or delete lines function. It is called from
LAYOUT ̲CTRL.
e) L̲a̲y̲o̲u̲t̲ ̲C̲o̲n̲t̲r̲o̲l̲
The purpose of this procedure is to get ready for
line insertion or deletion, which is executed by
EXECUTE ̲LINE ̲CMD.
4.2.2.4.8.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
FC ̲KEY C K
FCK ̲SET C K
CONV ̲ENTER C R
SPLIT ̲DIGIT C R
SEQ ̲KEY C R
SEQ ̲REC C R
EXP ̲SVDIA ̲NO C R
CMD ̲CURSOR ̲RECORD C R
SVUP ̲CMD ̲REC C K
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing.
4.2.2.4.8.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
The module has three exits: WORK, STOP, CLOSE. A WORK
exit is performed when a f/c key transaction control
command has been received. A STOP or CLOSE exit is
performed if a STOP ̲SFCO or CLOSE ̲SFCO command is received
from SVCO.
Refer fig. 4.2.2.4.8-1.
LOOP FC ̲KEY ̲CTRL
W̲A̲I̲T̲ ̲S̲F̲C̲O̲ ̲E̲V̲E̲N̲T̲(̲W̲O̲R̲K̲2̲ ̲S̲T̲A̲T̲E̲)̲(̲S̲V̲U̲P̲ ̲O̲P̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲0̲)̲
CASE SVUP ̲OP.OP ̲ID(2) OF SENDER ̲ID ̲TYPE
SVCO ̲ID? D̲E̲L̲E̲T̲E̲ ̲F̲C̲ ̲K̲E̲Y̲ ̲I̲N̲P̲U̲T̲ ̲R̲E̲Q̲U̲E̲S̲T̲(̲4̲.̲2̲.̲2̲.̲6̲.̲7̲)̲
CASE SVUP ̲OP.CMD OF
STOP ̲SFCO? RETURN(STOP)
CLOSE ̲SFCO? RETURN(CLOSE)
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲
(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
FC ̲KEY ̲ID? CASE F̲E̲T̲C̲H̲ ̲A̲N̲D̲ ̲V̲A̲L̲ ̲K̲E̲Y̲(̲ ̲ ̲)̲(̲F̲C̲ ̲K̲E̲Y̲,̲C̲C̲)̲:̲E̲X̲C̲
N̲O̲R̲M̲A̲L̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲2̲)̲
EXC? EXIT LOOP FC ̲KEY
̲CTRL
NORMAL? CC = ILL? R̲E̲Q̲U̲E̲S̲T̲
̲F̲C̲ ̲K̲E̲Y̲ ̲I̲N̲P̲U̲T̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲6̲)̲
T̲R̲A̲N̲S̲ ̲C̲T̲R̲L̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲
(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲-̲2̲)̲
END CASE
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲2̲)̲
END CASE
END LOOP FC ̲KEY ̲CTRL
CASE E̲X̲C̲E̲P̲T̲I̲O̲N̲ ̲V̲D̲U̲(̲2̲)̲(̲S̲V̲C̲O̲ ̲O̲P̲)̲:̲ ̲S̲T̲O̲P̲ ̲C̲L̲O̲S̲E̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲1̲)̲
STOP? RETURN(STOP)
CLOSE? RETURN(CLOSE)
END CASE
Fig. 4.2.2.4.8-1
T̲R̲A̲N̲S̲ ̲C̲T̲R̲L̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲
CASE FC ̲KEY OF SUPV ̲FC ̲KEY
ENTER ̲FC, CANCEL, PRINT,
KAPN, DAPN, MENU ? S̲E̲T̲ ̲S̲E̲Q̲ ̲K̲E̲Y̲(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲.̲3̲.̲1̲)̲
R̲E̲Q̲U̲E̲S̲T̲ ̲F̲C̲ ̲K̲E̲Y̲ ̲I̲N̲P̲U̲T̲(̲4̲.̲2̲.̲2̲.̲6̲.̲6̲)̲
RETURN(WORK)
INSL, DELL, DERM? P̲R̲E̲P̲A̲R̲E̲ ̲F̲O̲R̲ ̲E̲N̲T̲E̲R̲ ̲F̲/̲C̲ ̲K̲E̲Y̲
̲C̲M̲D̲
(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲.̲3̲.̲3̲)̲
INSL ̲ENTER, DELL ̲ENTER? F̲O̲R̲M̲A̲T̲ ̲L̲A̲Y̲O̲U̲T̲ ̲C̲T̲R̲L̲
(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲.̲3̲.̲5̲)̲
ERR ̲MSG? P̲R̲E̲P̲A̲R̲E̲ ̲E̲R̲R̲ ̲M̲S̲G̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲.̲3̲.̲2̲)̲ ̲N̲O̲R̲M̲A̲L̲
END CASE
Fig. 4.2.2.4.8-2
4.2.2.4.9 V̲a̲l̲i̲d̲a̲t̲e̲ ̲F̲o̲r̲m̲a̲t̲ ̲E̲n̲t̲e̲r̲e̲d̲ ̲C̲o̲m̲m̲a̲n̲d̲
4.2.2.4.9.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
For commands entered through the user area of the VDU
the module preforms the following functions dependent
of the command type, i.e. next entry specified by parameter
or next entry by design.
1) Next entry specified by parameter:
Simple syntax check and semantic check. Display
of command and parameter if any of the checks fail.
2) Next entry by design:
Checks whether the entry currently displayed is
the last in the table, and if not fetches the content
of the next table entry.
The commands (command codes) for which these functions
are performed are:
TEPC, POSC, CHAC, SICT, SDLT, SCDT, AIGT, GPLT, RITA,
CIRT, SCCT, OPST, LPLT, UPUP, CMDC, CACQ, CATQ, CADQ,
NOCC, LORI.
4.2.2.4.9.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) VALIDATE ̲FORMAT ̲CMD () (CC: SEQ ̲STATE): EXC ̲NORMAL
b) VALIDATE ̲FORMAT ̲CMD (R7, R6): EXC ̲NORMAL
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R7 CC: SEQ ̲STATE - R
R6 LINK C D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 - R6 DEST
R7 CC: SEQ ̲STATE RETURN
4.2.2.4.9.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
a) U̲N̲L̲O̲C̲K̲ ̲U̲S̲E̲R̲ ̲T̲A̲B̲L̲E̲
Unlocks the USER ̲PROFILE ̲TABLE. Errors are reported
by TEP ̲INT ̲ERR but execution continues.
b) T̲M̲P̲ ̲S̲E̲A̲R̲C̲H̲ ̲N̲E̲X̲T̲ ̲(̲T̲A̲B̲L̲E̲ ̲K̲E̲Y̲ ̲T̲Y̲P̲E̲)̲(̲T̲M̲P̲ ̲C̲C̲)̲
The procedure sets SFCO ̲TMP ̲PARAM1 and calls the
TMP function SEARCH ̲NEXT ̲PRIMARY ̲KEY. The table
searched in is defined by table (R0). The key to
be searched from is either found in SFCO ̲TMP ̲REC1
or SFCO ̲TMP ̲KEY1 as specified at call.
4.2.2.4.9.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
VALIDATION ̲RESULT: VAL ̲ACT ̲RES C K
EMPTY ̲ENTRY: BOOLEAN - R
FCK ̲SET: FC ̲KEY ̲MASK ̲TYPE C R
CONV ̲ENTER: INTEGER C R
SUPV ̲CMD ̲REC: SUPERVISOR ̲COMMAND ̲
ATTRIBUTES C K
SFCO ̲TMP ̲REC: BUFFER C R
SFCO ̲TMP ̲KEY1: SINGLE ̲KEY C R
SFCO ̲TMP ̲PARAM: TMP ̲PARAM - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.9.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
Semantic validation of format entered commands is executed
as specified in CPS/230/ICD/0002. For the UPUP command
synchronization of access to a user profile between
SSC and SUP are obtained by the TMP procedures LOCK
̲TABLE/UNLOCK ̲TABLE and the two fields SIGN and LOCK
in the user profile.
The following modules have to exist: EXC and NORMAL.
An EXC exit is performed when a VDU interface procedure
called returns with completion code VDU ̲SPLIT ̲FAILED,
otherwise a NORMAL exit is performed.
4.2.2.4.10 F̲u̲l̲l̲ ̲P̲a̲r̲a̲m̲e̲t̲e̲r̲ ̲C̲h̲e̲c̲k̲
4.2.2.4.10.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
This module examines the command found and gives control
to deeper investigation if necessary.
4.2.2.4.10.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) FULL ̲PARAM ̲CHECK(): ERROR ̲OK
b) FULL ̲PARAM ̲CHECK (R6): ERROR ̲OK
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲r̲o̲u̲t̲i̲n̲e̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
LINK C K
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R5, R7 DEST
R6 LINK KEPT
4.2.2.4.10.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
None
4.2.2.4.10.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
ERR ̲NO C R
ERR ̲LIST C R
SUPV ̲CMD ̲REC - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.10.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
The module has two exits: ERROR and OK. The ERROR exit
is used if any validation error has been identified,
in this case ERR ̲NO and ERR ̲LIST identifies the error(s)
found. The OK exit is used when no validation errors
are found.
4.2.2.4.11 E̲x̲e̲c̲u̲t̲e̲ ̲S̲y̲s̲t̲e̲m̲ ̲F̲u̲n̲c̲t̲i̲o̲n̲
4.2.2.4.11.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
EXECUTE ̲SYS ̲FUNC performs the function specified by
FUNC ̲REF(R0) either by executing the function itself
or by calling another module.
CC will on return have the following value:
TSTOP, Indicates that function execution have been
TCLOSE terminated because a SVCO command has been
received (STOP ̲SFCO, CLOSE ̲SFCO respectively).
TEXC: Indicates that a VDU failure has been detected
during function execution.
TCON: Indicates that function execution terminated
normally.
4.2.2.4.11.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) EXEC ̲SYS ̲FUNC (FUNC ̲REF)(TEP ̲COROUTINE ̲OP;
SEQ ̲STATE)
b) EXEC ̲SYS ̲FUNC (R0, R5, R7, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 FUNC ̲REF C D
R5 %TEP ̲COROUTINE ̲OPERATION - R
R7 CC: SEQ ̲STATE - R
R6 LINK - D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲
R0-R4 DEST
R5 %TEP ̲COROUTINE ̲OPERATION RETURN
R6 LINK DEST
R7 CC: SEQ ̲STATE RETURN
4.2.2.4.11.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
a) C̲H̲A̲N̲G̲E̲ ̲S̲E̲Q̲ ̲K̲E̲Y̲ ̲(̲S̲E̲Q̲ ̲K̲E̲Y̲)̲(̲C̲C̲:̲ ̲S̲E̲Q̲ ̲S̲T̲A̲T̲E̲)̲
This procedure sets the SEQ ̲KEY to the specified
code and the NEW ̲FORMAT, referenced in SEQ ̲REC.
b) C̲H̲E̲C̲K̲ ̲M̲O̲D̲E̲ ̲(̲)̲(̲C̲C̲:̲ ̲S̲E̲Q̲ ̲S̲T̲A̲T̲E̲)̲
If SFCO ̲MODE equals restart then the current sequence
record (SEQ ̲REC) is changes such that the menu
displayed will be the restart menu and not the
menu displayed in normal mode.
4.2.2.4.11.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
SEQ ̲REC: ARRAY C R
SEQ ̲KEY - R
SFCO ̲MODE C K
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.11.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
This module is called from EXEC ̲SYS ̲SEQ (4.2.2.4.7)
when a FUNC ̲REF is found in the sequence record currently
processed.
4.2.2.4.12 R̲e̲a̲d̲ ̲A̲d̲d̲i̲t̲i̲o̲n̲a̲l̲ ̲I̲n̲f̲o̲r̲m̲a̲t̲i̲o̲n̲
4.2.2.4.12.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The procedure fetches the information from the DBD
not fetched during command validation, which shall
be used by SVDIA when displaying the appropriate format
and data.
Conversion from internal representation to ASCII is
not supported.
COMMAND Action performed.
TEPC Associated printer device designator read.
Capability and special handling bitmasks unpacked.
CHAC CIRCUIT ̲PROFILE and ACP ̲127 ̲CHANNEL ̲RECORD
read.
CIRT Circuit connectivity profile read.
SCDT Terminal or device designator read.
AIGT PLA number above the defined number is set
to zero.
UPUP Associated release position designator and
password read. Capability and special handling
bitmasks unpacked.
SDLT SCD lists unpacked to full size.
4.2.2.4.12.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) READ ̲ADD ̲INFO ()(CC: SEQ ̲STATE)
b) READ ̲ADD ̲INFO (R7, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R7 CC:SEQ ̲STATE - R
R6 LINK C D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R6 DEST
R7 CC: SEQ ̲STATE RETURN
4.2.2.12.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
a) T̲M̲P̲ ̲S̲E̲A̲R̲C̲H̲ ̲C̲A̲L̲L̲ ̲(̲T̲M̲P̲ ̲P̲A̲R̲A̲M̲ ̲I̲D̲,̲ ̲T̲A̲B̲L̲E̲,̲ ̲R̲E̲A̲D̲ ̲M̲A̲S̲K̲,̲
O̲F̲F̲S̲E̲T̲,̲ ̲B̲U̲F̲F̲E̲R̲ ̲S̲I̲Z̲E̲)̲(̲F̲O̲U̲N̲D̲ ̲F̲L̲A̲G̲)̲
The procedure sets TMP ̲PARAM, the INFO and LINK
field of the corresponding SINGLE ̲KEY and calls
the TMP function SEARCH ̲PRIMARY ̲KEY. The table
searched in is defined by TABLE (R1) and the information
read by READ ̲MASK (R2).
TMP ̲PARAM ̲ID identifies whether the variable set:
SFCO ̲TMP ̲KEY2, SFCO ̲TMP ̲PARAM2, SFCO ̲TMP ̲REC2 or
the SET: SFCO ̲TMP ̲KEY3, SFCO ̲TP ̲PARAM2, SFCO ̲TMP
̲PREC3 is used. I.e. the procedure reads into SFCO
̲TMP ̲REC2/SFCO ̲TMP ̲REC3 the information specified
by READ ̲MASK from the table specified by table.
b) U̲N̲P̲A̲C̲K̲ ̲D̲E̲S̲G̲ ̲L̲I̲S̲T̲ ̲(̲M̲A̲X̲ ̲N̲U̲M̲B̲E̲R̲,̲ ̲P̲T̲R̲ ̲t̲o̲ ̲P̲ ̲L̲I̲S̲T̲,̲ ̲P̲T̲R̲
̲t̲o̲ U̲ ̲L̲I̲S̲T̲)̲
The procedure unpacks the specified list to a full
size designator list. Undefined designators are
made blank.
Conversion is done backwards to allow PLIST and
ULIST to overlap.
4.2.2.4.12.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
EMPTY ̲ENTRY C K
SEQ ̲REC C R
SUPV ̲CMD ̲REC C K
SFCO ̲TMP ̲KEY1: SINGLE ̲KEY - R
SFCO ̲TMP ̲KEY2: SINGLE ̲KEY C R
SFCO ̲TMP ̲KEY3: SINGLE ̲KEY C R
SFCO ̲TMP ̲PARAM1: TMP ̲PARAM - R
SFCO ̲TMP ̲PARAM2: TMP ̲PARAM - R
SFCO ̲TMP ̲PARAM3: TMP ̲PARAM - R
SFCO ̲TMP ̲REC: BUFFER C R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.12.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
4.2.2.4.13 E̲x̲e̲c̲u̲t̲e̲ ̲T̲a̲b̲l̲e̲ ̲C̲o̲m̲m̲a̲n̲d̲ ̲T̲r̲a̲n̲s̲a̲c̲t̲i̲o̲n̲
4.2.2.4.13.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The module executes the table commands identified by
current transaction (SUPV ̲CMD ̲REC.CMD ̲ID) and the validation
action result, delivered by the coroutine SVDIA (VALIDATION
̲RESULT).
The procedure checks if a completion report shall be
generated by SUP and if, calls the module SEND ̲COMPLETION
̲REPORT.
The module checks, whether a command has been entered
via the format and if, sets FORMAT ̲CMD to true.
The command functions executed by this module are related
to:
1) Maintenance of profiles.
Commands: TEPC, POSC, CHAC, CIRT, UPUP.
2) Maintenance of addressing tables.
Commands: SICT; SDLT, SCDT, AIGT, GPLT, LPLT, RITA,
SCCT, OPST, LORI.
3) Maintenance of supervisor commands, i.e. restrictive
warning text, PEC.
Command: CMDC.
4.2.2.4.13.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) EXEC ̲TABLE ̲CMD () (SEQ ̲STATE)
b) EXEC ̲TABLE ̲CMD (R5, R7, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R5 % COROUTINE ̲OPERATION - R (not used)
R7 SEQ ̲STATE - R
R6 LINK C D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R4 DEST
R5 % COROUTINE ̲OPERATION RETURN (not used)
R6 DEST
R7 SEQ ̲STATE RETURN
4.2.2.4.13.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
a) C̲h̲e̲c̲k̲ ̲S̲y̲s̲t̲e̲m̲ ̲P̲a̲r̲a̲m̲e̲t̲e̲r̲ ̲(̲T̲y̲p̲e̲)̲
The procedure checks if the old DEVICE ̲DESIGNATOR
was a system PTP or PTR. If so, the system parameter
is changed.
b) C̲l̲e̲a̲n̲ ̲U̲p̲ ̲a̲f̲t̲e̲r̲ ̲S̲C̲C̲T̲ ̲(̲P̲o̲i̲n̲t̲e̲r̲)̲
The procedure unlocks and dismantles all CIF for
the entry in the display table.
c) M̲o̲v̲e̲ ̲D̲o̲w̲n̲ ̲(̲O̲f̲f̲-̲s̲e̲t̲ ̲f̲o̲r̲ ̲W̲o̲r̲d̲ ̲t̲o̲ ̲E̲l̲i̲m̲i̲n̲a̲t̲e̲,̲ ̲R̲e̲c̲o̲r̲d̲
S̲i̲z̲e̲)̲
This procedure compresses SVDIA ̲TMP ̲REC so the
word at off-set is eliminated.
d) W̲a̲i̲t̲ ̲T̲M̲P̲
The procedure calls TMP ̲REQUEST. If TMP ̲REJECTED
Is returned, this is signalled in CREP ̲CC. All
other errors calls TEP ̲INT ̲ERR:
e) N̲o̲t̲i̲f̲y̲ ̲S̲S̲C̲ ̲(̲S̲S̲C̲ ̲C̲O̲M̲M̲A̲N̲D̲,̲ ̲L̲D̲)̲(̲C̲M̲D̲ ̲R̲E̲S̲U̲L̲T̲,̲ ̲S̲V̲D̲I̲A̲
̲T̲M̲P̲ R̲E̲C̲ ̲P̲T̲)̲
The procedure calls SSC ̲LINE ̲CONTROL. After execution,
CMD ̲RESULT and SVDIA ̲TMP ̲REC ̲PR is restored in
R1/R5. The CREP FLAG is reset.
f) N̲o̲t̲i̲f̲y̲ ̲T̲H̲P̲ ̲(̲T̲H̲P̲ ̲C̲O̲M̲M̲A̲N̲D̲,̲ ̲L̲D̲)̲(̲C̲M̲D̲ ̲R̲E̲S̲U̲L̲T̲,̲ ̲S̲V̲D̲I̲A̲
̲T̲M̲P̲ R̲E̲C̲ ̲P̲T̲)̲
The procedure calls THP ̲CHANNEL ̲CONTROL. AFter
execution, CMD ̲RESULT and SVDIA ̲TMP ̲REC ̲PT is restored
in R1/R5. The CREP FLAG is reset.
g) I̲m̲m̲e̲d̲i̲a̲t̲e̲ ̲U̲p̲d̲a̲t̲e̲ ̲E̲n̲t̲r̲y̲
The procedure sets up the TMP parameters necessary
for updating a entire table entry and calls the
TMP function SINGLE ̲CHANGE ̲FIELD ̲POSITION.
h) D̲e̲l̲e̲t̲e̲ ̲E̲n̲t̲r̲y̲
The procedure sets up the TMP parameters necessary
for deleting a table entry and calls the TMP function
REMOVE ̲RECORD.
i) I̲n̲s̲e̲r̲t̲ ̲E̲n̲t̲r̲y̲
The procedure sets up the TMP parameters necessary
for inserting a table entry and calls the TMP functions
INSERT ̲RECORD.
j) U̲p̲d̲a̲t̲e̲ ̲E̲n̲t̲r̲y̲
The procedure sets up the TMP parameters necessary
for updating a entire table entry and calls the
TMP function SINGLE ̲CHANGE ̲FIELD ̲POSITION.
k) R̲e̲m̲o̲v̲e̲ ̲f̲r̲o̲m̲ ̲T̲a̲b̲l̲e̲ ̲(̲T̲A̲B̲L̲E̲,̲ ̲S̲E̲A̲R̲C̲H̲ ̲M̲A̲S̲K̲,̲ ̲N̲E̲W̲ ̲V̲A̲L̲
̲P̲T̲,̲ O̲L̲D̲ ̲V̲A̲L̲ ̲P̲T̲)̲
The procedure sets up the TMP parameters necessary
for removing a filed of a specified value from
all entries in a table and calls the TMP function
GLOBAL ̲CHANGE ̲FIELD ̲VALUE.
l) D̲e̲l̲e̲t̲e̲ ̲U̲p̲d̲a̲t̲e̲ ̲E̲n̲t̲r̲y̲
The procedure works on tables not direct organized.
The procedure checks if the current entry shall
be deleted and if, deletes it. If not, the procedure
checks if the current entry shall be updated and
if, updates it.
m) P̲a̲c̲k̲ ̲D̲e̲s̲g̲ ̲L̲i̲s̲t̲ ̲(̲M̲A̲X̲ ̲D̲E̲S̲G̲,̲ ̲P̲ ̲L̲I̲S̲T̲,̲ ̲U̲ ̲L̲I̲S̲T̲)̲(̲P̲L̲I̲S̲T̲,̲
U̲L̲I̲S̲T̲)̲
The procedure packs the specified full-size designator
list to a packed list with the relevant count field.
Conversion is done forwards to allow PLIST and
ULIST to overlap. After packing both PLIST and
ULIST points after end of each of their field (i.e.
they point to the following field).
n) P̲a̲c̲k̲ ̲P̲L̲A̲ ̲R̲e̲f̲ ̲L̲i̲s̲t̲ ̲(̲P̲R̲T̲ ̲t̲o̲ ̲A̲I̲G̲ ̲R̲E̲C̲)̲
The procedure removes duplicate PLA ref's from
the AIGT record.
4.2.2.4.13.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
SVDIA ̲TMP ̲REC ̲PT: POINTER C K
SFCO TMP PARAM1: TMP ̲PARAM - R
VALIDATION ̲RESULT: VAL ̲ACT ̲RES C K
EMPTY ̲ENTRY: BOOLEAN C K
SUPV ̲CMD ̲REC: SUPERVISOR ̲COMMAND ATTR C K
SEQ ̲REC: SVUP ̲SYS ̲SEQ C K
FORMAT ̲CMD: BOOLEAN - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.13.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
4.2.2.4.14 C̲o̲m̲m̲a̲n̲d̲ ̲C̲o̲n̲f̲i̲r̲m̲a̲t̲i̲o̲n̲
4.2.2.4.14.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The procedure performs the following functions:
1) The restrictive warning text hold by SUPV ̲CMD ̲REC
is displayed in the responseline of the VDU header
area if so specified by the WARNING ̲TXT ̲INDICATOR
field of SUPV ̲CMD ̲REC:
2) Outputs the text PLEASE ENTER YOUR CONFIRMATION
CODE in the command line of the VDU header area.
3) Position the cursor in the command line.
4) Awaits input through call of WAIT ̲SFCO ̲EVENT, and
dependent of the input received, the following
functions is performed:
Input is a command from SVCO: DELETE ̲FC ̲KEY ̲INPUT
̲REQUEST I and a return with CC = TSTOP or TCLOSE
dependent of SVCO comman received occurs.
Input received is a F/C key: The key is validated
(cancel and enter allowed).
a) If an invalid F/C key is received, an error
message is displayed and new input awaited.
b) If a cancel key is received SEQ ̲TABLE ̲KEY is
set accordingly and the procedure returns with
CC = TCON.
c) If an enter key is received, the entered confirmation
code is validated and if invalid an error message
is displayed and new input awaited. If the
confirmation code is valid the SEQ ̲TABLE ̲KEY
is set accordingly and the procedure returns
with CC = TCON.
4.2.2.4.14.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) COMMAND ̲CONFIRMATION () (PTR to Operation, SEQ
̲
STATE)
b) COMMAND ̲CONFIRMATION (R5, R7, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R5 OP: PTR TO OPERATION - R
R7 CC: SEQ ̲STATE - R
R6 LINK C D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R4, R6 DEST
R5: COROUTINE ̲OP: POINTER RETURN
R7: CC: SEQ ̲STATE RETURN
4.2.2.4.14.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
None
4.2.2.4.14.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Refer SUP package data
Refer SFCO subpackage data
SUPV ̲CMD ̲REC: SUPERVISOR ̲CMD ̲ATTR C -
SEQ ̲REC C K
IOC ̲HEADER ̲LINE - R
IOC ̲HEADER ̲LINE1 - R
SEQ TABLE KEY: ARRAY(0..3) ON INTEGER C R
HEADER ̲IFCB C K
SEQ ̲TABLE ̲ID C K
RESP ̲LINE ̲FULL - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.14.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
The returned completion code (SEQ ̲STATE) will be: TEXC
if the completion code VDU ̲SPLIT ̲FAILED is recieved
from the FORMAT HANDLER; TSTOP or TCLOSE if a STOP
or CLOSE command has been received from SVCO and TCON
if command confirmation is normally terminated.
4.2.2.4.15 W̲a̲i̲t̲ ̲a̲ ̲S̲e̲c̲o̲n̲d̲
4.2.2.4.15.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
WAIT ̲A ̲SECOND delays execution for one second.
4.2.2.4.15.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
a) WAIT ̲A ̲SECOND
b) WAIT ̲A ̲SECOND (R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲s̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R6 LINK C D
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R7 DEST
4.2.2.4.15.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
None
4.2.2.4.15.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Refer CPS prefixes
Refer SUP package prefixes
Refer SFCO subpackage prefixes
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
SVUP ̲QNAME - R
SVUP ̲QEL ̲ATTR - R
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
Refer source listing
4.2.2.4.15.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
A TIMEOUT ̲REQUEST is issued, and an answer is waited
for in the answer queue.
Other answers are treated by TEP ̲QUEUE ̲ERR.
