top - metrics - download
⟦c365bcbb2⟧ Wang Wps File
Length: 9593 (0x2579)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN62.08«
Derivation
└─⟦11096526c⟧ Bits:30006108 8" Wang WCS floppy, CR 0171A
└─⟦this⟧ »~ORPHAN62.08«
WangText
…00……00……00……00……00…>…0a……00……00…>…0b…>…0f…>
>…06…=…0a…=…0e…= =…07…<…09…<…0d…<…00…< 0…00…0…02…0…06…/…0a…/…0d……11……00……11… …10……08……10……0d……10……0f……10…
…10……05……10……07……0f……0b……0f……0f……0f……02……0f……05……0e……0b……0e……86…1 …02… …02… …02…
…02…CPS/SDS/039
…02…JBS/820510…02……02…
USER VDU
DETAILED DESIGN SPECIFICATION…02……02…CAMPS
4.2.2.4.8 VUS INOUT LINE ................
4.2.2.4.9 VUS CMD PENDING ................
4.2.2.4.10 VUS SEQUENCE ................
4.2.2.4.11 Execute Function ............
4.2.2.5 Common Subpackage Data .............
4..2.6 Common Subpackage Procedures .......
4.2.2.6.1 Lookup Parameters ..............
4.2.2.6.2 SET CURSOR .....................
4.2.2.6.3 DISPLAY VDU FIELD ..............
4.2.2.6.4 DISPLAY ERROR MSG .............
4.2.2.6.5 TEP RELV FIRST .................
4.2.2.6.6 TEP RECV NEXT ..................
…86…1 …02… …02… …02… …02…
…02…
4.2.2.4.8 V̲U̲S̲ ̲I̲N̲/̲O̲U̲T̲ ̲L̲I̲N̲E̲
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 purpose of this module is to analyze the input
from command line and signal command and parameter
to VDIA, o alternatively, if the input is unacceptable,
to call other modules.
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) VUS ̲IN/OUT ̲LINE
b) VUS ̲IN/OUT ̲LINE (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̲
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0- R7 (DEST)
4.2.2.4.8.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲
N/A
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̲
VUS ̲RESP ̲MSG ̲TYPE refer 4.1.4
VUS ̲CO ̲OP ̲TYPE refer 4.1.4
IDENT ̲TYPE refer 4.1.4
UFCO ̲CMD refer 4.1.4
PARAMETER ̲TYPE refer 4.2.2.5
ARAMS ̲TYPE refer 4.2.2.5
CMD ̲PARAM refer 4.2.2.5
PENDING ̲FC ̲TYPE refer 4.2.2.5…86…1 …02… …02… …02… …02…
…02…
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UFCO ̲OP (m) refer 4.1.4
VUS ̲S3 refer 4.1.4
HEADER ̲LINE refer 4.2.2.5
CMD ̲PARAM ̲TABLE refer 4.2.2.5
NO ̲OF ̲PARAMS refer 4.2.2.5
PENDING ̲FC refer 4.2.25
c L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.4.8.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
If the expected F/C ̲key (Return) is entered the contents
of command line is fetched, analyzed and a command
is signalled to VDIA. Otherwise, other common procedures
are called in order to dispay an error message and
to reset the cursor on the command line.
INSERT ̲DELETE ̲LINES
L̲O̲O̲K̲ ̲U̲P̲ ̲P̲A̲R̲A̲M̲S̲ ̲(̲B̲T̲R̲A̲N̲S̲)̲ ̲(̲N̲O̲ ̲O̲F̲ ̲P̲A̲R̲A̲M̲S̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲)̲
EQUIVALENCE (CMD ̲PARAM ̲TABLE (1), CUR ̲PARAM: CMD
̲PARAM)
NO ̲OF ̲PARAMS GT PATAMS1?
CUR ̲PARAM.TYPE E NUM?
CUR ̲PARAM.NO ̲OF ̲CHAR GT 3? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
F̲E̲T̲C̲H̲ ̲U̲F̲C̲O̲ ̲O̲P̲ ̲(̲V̲U̲S̲ ̲O̲P̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲3̲.̲1̲)̲
C̲O̲N̲V̲E̲R̲T̲ ̲T̲O̲ ̲I̲N̲T̲E̲G̲E̲R̲(̲H̲E̲A̲D̲E̲R̲ ̲L̲I̲N̲E̲(̲C̲U̲R̲ ̲P̲A̲R̲A̲M̲.̲P̲O̲S̲)̲,̲C̲U̲R̲
̲P̲A̲R̲A̲M̲.̲N̲O̲ ̲O̲F̲ ̲C̲H̲A̲R̲)̲
(̲V̲U̲S̲ ̲O̲P̲.̲P̲A̲R̲A̲1̲)̲ ̲(̲ ̲ ̲ ̲ ̲ ̲ ̲)
CASE PENDING ̲FC OF PENDING ̲FC ̲TYPE
FK ̲INSERT ̲SEG? VUS ̲OP.CMD = INSERT ̲SEGMENT
FK ̲DELETE ̲SEQ? VUS ̲OP.CMD = DELETE ̲SEGMENT
FK ̲INSERT? VUS ̲OP.CMD = L ̲INSERT
FK ̲DELETE? VUS ̲OP.CMD = L ̲DELETE
END CASE
VUS ̲OP.ID = UFCO ̲ID
SIGNAL ̲OPSEM (VUS ̲S3, VUS ̲OP):on
S̲E̲T̲C̲U̲R̲S̲O̲R̲ ̲(̲C̲ ̲R̲E̲T̲U̲R̲N̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
Figure 4.2.2.4.8-…86…1…02… …02… …02… …02… …02… …02… …02… …02… …02… …02…
4.2.2.4.9 V̲U̲S̲ ̲C̲M̲D̲ ̲P̲E̲N̲D̲I̲N̲G̲
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̲
The purpose of this module is to fetch
the content of the command line, validate
it, display terminal fied text and entering
the SEQUENCE module (4.2.2.4.11).
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) VUS ̲CMD ̲PENDING
b) VUS ̲CMD ̲PENDING (R6)
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R0 - R7 (DEST)
4.2.2.4.9.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲
V̲A̲L̲I̲D̲A̲T̲E̲ ̲C̲O̲M̲M̲A̲N̲D̲
The command read from the VDU is validated
by a call to TMP.
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̲
USER ̲FCT ̲CAPABILITY ̲TYPE refer
CPS/DBD/001
RETRIEVAL ̲RECORD ̲TYP ̲3 refer
CPS/DBD/001
SUPV ̲RETRIEVAL ̲IDENT refer CPS/DBD/001
PRECEDENCE ̲TYPE refer CPS/DBD/001
VUS ̲RESP ̲MSG ̲TYPE refer
4.1.…86…1…02…
…02…
…02…
…02…
…02…
…02…
…02…
…02…
…02…
…02…
TXT ̲FIELD ̲LENGTH refer 4.1.4 VCO
̲CMD refer
4.1.4
IDENT ̲TYPE refer 4.1.4
SEQ ̲CODE ̲TYPE refer 4.1.4
PARAMS ̲TYPE refer 4.2.2.5
CMD ̲PARAM efer 4.2.2.5
PARAMETER ̲TYPE refer 4.2.2.5
EDIT ̲PARAMETERS refer 4.1.4
ADATP3 ̲PARAM refer 4.2.2.5
FCK ̲MASK refer 4.2.2.5
VUS ̲RECV ̲QUEUES refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
HD ̲TXT ̲PTR refer 4.1.4
VDU ̲H ̲AREA refer 4.1.4
CURRENT ̲MODE (m) refer
4.1.4
VCO ̲OP refer
4.1.4
VUS ̲S1 refer
4.1.4
VDU ̲HD ̲AREA refer 4.1.4
INIT ̲AREA refer 4.1.4
UFCO ̲VAL (m) refer 4.2.2.5
HEADER ̲LINE (m) refer 4.2.2.5
CM ̲PARAM ̲TABLE (m) refer
4.2.2.5
BTRANS refer
4.2.2.5
NO ̲OF ̲PARAMS refer 4.2.2.5
MAX ̲PARAMS refer 4.2.2.5
CURRENT ̲MAIN ̲QUEUE refer
4.2.2.5
CURRENT ̲SUBQUEUE refer
4.2.2.5
RECV ̲MAIN refer 4.2.2.5
c) L̲o̲c̲l̲ ̲D̲a̲t̲a̲
VAR VUS ̲CMD: VUS ̲CMD ̲TYPE;
TMP ̲CMD: TMP ̲CMD ̲TYPE;
CMD ̲MASK: FCK ̲MASK;
CONST PREC ̲LENGTH = 2;
ITEM ̲LENGTH = 5;
DISPLAY = LENGTH 8;
SCD ̲LENGTH = 3;
DTG1-LENGTH = 7;
DTG2 ̲LENGTH = 3;
DT3 ̲LENGTH = 2;
ADATP3 ̲LENGTH = 4;
IDENT ̲LENGTH = 1;
CMD ̲LENGTH = 4;…86…1…02… …02… …02… …02… …02… …02…
…02… …02… …02… …02…
TYPE TMP ̲CMD ̲TYPE =
RECORD
LINK: INTEGER;
INFO: INTEGER;
KEY : USER ̲CMD ̲TYPE
END
VUS ̲CMD ̲TYPE =
RECORD
CMD: USER ̲CMD ̲TYPE;
CAPABILITY: USER ̲FCT ̲CAPABILITY ̲TYPE;
PARAMETER: NO ̲YES;
VALIDATION: VUS ̲HEADER ̲VALIDATION;
MODE: CURRENT ̲MODE ̲TYPE;
TEXT: NO ̲YES;
HEADER ̲TEXT: ARRAY(1..TXT ̲FIELD ̲LENGTH)
OF CHAR;
END;
VUS ̲HEADER ̲VALIDATION=RECV ̲PREC,RELS
̲PREC,RESP ̲
PREC,CTMP
̲ITEM,CTCP
̲ITEM,PRPM
̲TYPE,
RETV ̲PARAM,PRVD ̲PARAM,RETO
̲PARAM,
CTVD ̲PARAM,CTTC ̲PARAM,DELM
̲PARAM);
USER ̲CMD ̲TYPE: ARRAY(1..CMD ̲LENGTH)
OF CHA…86…1…02… …02… …02… …02… …02… …02… …02… …02…
…02… …02…
4.2.2.4.9.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
The content of command line is fetched,
analysed and a call to TMP is issued.
If it is checked whether the command is
allowed within currentcapability.
If parameter is entred then they will
be validated too.
The VDU header area will be updated with
the text associated the command…86…1…02… …02… …02…
…02… …02… …02… …02… …02… …02… …02…
VUS ̲CMD ̲PENDING
L̲O̲O̲K̲ ̲U̲P̲ ̲P̲A̲R̲A̲M̲S̲ ̲(̲B̲T̲R̲A̲N̲S̲)̲ ̲(̲N̲O̲ ̲O̲F̲ ̲P̲A̲R̲A̲M̲S̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲)̲
NO ̲OF ̲PARAMS GT MAX ̲PARAMS?
NO ̲OF ̲PARAMS EQ PARAMS0? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲ ̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
V̲A̲L̲I̲D̲A̲T̲E̲ ̲C̲O̲M̲A̲N̲D̲ ̲(̲C̲C̲,̲ ̲E̲R̲R̲ ̲N̲O̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲9̲.̲3̲.̲1̲)̲
CC EQ ERROR?- D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲F̲ ̲(̲E̲R̲R̲ ̲N̲O̲)̲ ̲ ̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
VUS ̲CMD.PARAMETER EQ NO? - OF ̲PARAMS GT PARAMS1?
CC = NO
V̲A̲L̲I̲D̲A̲T̲E̲ ̲P̲A̲R̲A̲M̲E̲T̲E̲R̲S̲ ̲(̲-̲2̲)̲ D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲ ̲ ̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC EQ ERROR? S̲E̲ ̲C̲U̲R̲S̲O̲R̲ ̲(̲C̲ ̲R̲E̲T̲U̲R̲N̲)̲
̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
V̲U̲S̲ ̲S̲E̲Q̲U̲E̲N̲C̲E̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲1̲0̲)̲
VUS ̲CMD.MODE EQ CURRENT ̲MODE?
VCO ̲OP.ID = UFCO ̲ID
VCO ̲OP.CMD = CURRENT ̲MODE ̲CHANGE
SIGNAL ̲OPSEM (VUS ̲S1,VCO ̲OP):OK
CURRENT ̲MODE = VUS ̲CMD.MODE
VUS ̲CMD.TEXT EQ NO ?
VDU ̲HD ̲AREA(HD ̲TXT ̲PTR) = VUS ̲CMD.HEADER ̲TEXT
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲H̲E̲A̲D̲E̲R̲ ̲(̲4̲.̲1̲.̲5̲.̲4̲)̲
Figure 4.2.2.4.9-…86…1…02… …02… …02… …02… …02… …02… …02… …02… …02… …02…
VALIDATE ̲PARAMETERS
CASE VUS ̲CMD.VALIDATION OF VUS ̲HEADER ̲VALIDATION
RECV ̲PREC? R̲E̲C̲E̲I̲V̲E̲ ̲P̲R̲E̲C̲E̲D̲E̲N̲C̲E̲ ̲(̲-̲3̲)̲
RELS ̲PREC? R̲E̲L̲E̲A̲S̲E̲ ̲P̲R̲E̲C̲E̲D̲E̲N̲C̲E̲ ̲(̲-̲4̲)̲
RESP ̲PREC? R̲E̲S̲P̲O̲N̲C̲E̲ ̲P̲R̲E̲C̲E̲E̲N̲C̲E̲ ̲(̲-̲5̲)̲
CTMP ̲ITEM? M̲E̲S̲S̲A̲G̲E̲ ̲I̲T̲E̲M̲ ̲(̲-̲6̲)̲
CTCP ̲ITEM? C̲O̲M̲M̲E̲N̲T̲ ̲I̲T̲E̲M̲ ̲(̲-̲7̲)̲
PRPM ̲TYPE? A̲D̲A̲T̲P̲3̲ ̲N̲U̲M̲B̲E̲R̲ ̲(̲-̲8̲)̲
RETV ̲PARAM? R̲E̲T̲R̲I̲E̲V̲A̲L̲ ̲(̲-̲9̲)̲
PRVD ̲PARAM? P̲R̲E̲P̲ ̲D̲I̲S̲P̲L̲A̲Y̲ ̲N̲A̲M̲E̲ ̲(̲-̲1̲5̲)̲
RETD ̲PARAM? R̲E̲T̲R̲ ̲D̲I̲S̲P̲L̲A̲Y̲ ̲N̲A̲M̲E̲ ̲(̲-̲1̲6̲)̲
CTVD ̲PARAM? S̲C̲ ̲V̲D̲U̲ ̲P̲A̲G̲E̲ ̲I̲T̲E̲M̲ ̲(̲1̲7̲)̲
CTTC ̲PARAM? S̲C̲ ̲C̲O̲M̲M̲E̲N̲T̲ ̲I̲T̲E̲M̲ ̲(̲-̲1̲8̲)̲
DELM ̲PARAM? D̲E̲L̲E̲T̲I̲O̲N̲ ̲(̲-̲1̲9̲)̲
OTHERWISE? V̲U̲S̲ ̲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
Figure 4.2.2.4.9-…86…1…02… …02… …02… …02… …02… …02… …02… …02… …02… …02…
RECEIVE ̲PRECEDENCE
NO ̲OF ̲PARAM GT PARAMS2? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲ ̲ ̲ ̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
NO ̲OF ̲PARAMS EQ PARAMS 1? CURRENT ̲MAINQUEUE
= RECVQ
CURRENT ̲SUQUEUE
= MAINQ
RECV ̲MAIN =
TRUE
CC = OK
EQUIVALENCE (CMD ̲PARAM ̲TABLE (2), CUR ̲PARAM: CMD
̲PARAM)
CUR ̲PARAM.NO ̲OF ̲CHAR NE PREC ̲LENGTH?
CUR ̲PARAM.TYPE NE ALPHA? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
C̲A̲S̲E̲ ̲V̲A̲L̲ ̲P̲E̲C̲E̲D̲E̲N̲C̲E̲ ̲(̲C̲U̲R̲ ̲P̲A̲R̲A̲M̲.̲P̲O̲S̲)̲ ̲(̲P̲R̲E̲C̲E̲D̲E̲N̲C̲E̲)̲:̲E̲R̲R̲O̲R̲
̲O̲K̲(̲ ̲ ̲ ̲ ̲ ̲)̲
ERROR? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲ ̲(̲ ̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
OK? RECV ̲MAIN = FALSE
CURRENT ̲MAINQUEUE = RECVQ
CURRENT ̲SUBQUEUE = PRECEDENCE
CC = OK
END CASE
Figue 4.2.2.4.9-…86…1…02… …02… …02… …02… …02… …02… …02… …02… …02… …02…
RELEASE ̲PRECEDENCE
NO ̲OF ̲PARAM GT PARAMS2? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲ ̲ ̲ ̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
NO ̲OF ̲PARAMS EQ PARAMS1? CURRENT ̲MAINQUEUE
= RELSQ
CURRENT ̲SUBUEUE
= MAINQ
RECV ̲MAIN =
TRUE
CC = OK
EQUIVALENCE (CMD ̲PARAM ̲TABLE (2), CUR ̲PARAM: CMD
̲PARAM)
CUR ̲PARAM.NO ̲OF ̲CHAR NE PREC ̲LENGTH?
CUR ̲PARAM.TYPE NE ALPHA? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
̲(̲ ̲ ̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
C̲A̲S̲E̲ ̲V̲A̲L̲ ̲P̲R̲C̲E̲D̲E̲N̲C̲E̲ ̲(̲C̲U̲R̲ ̲P̲A̲R̲A̲M̲.̲P̲O̲S̲)̲ ̲(̲P̲R̲E̲C̲E̲D̲E̲N̲C̲E̲)̲:̲E̲R̲R̲O̲R̲
̲O̲K̲(̲ ̲ ̲ ̲ ̲ ̲)̲
ERROR? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲ ̲(̲ ̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
CC = ERROR
OK? RECV ̲MAIN = FALSE
CURRENT ̲MAINQUEUE = RELSQ
CURRENT ̲SUBQUEUE = PRECEDENCE
CC = OK
END CASE
Figur 4.2.2.4.9-4
