top - download
⟦9d39424ec⟧ Wang Wps File
Length: 25686 (0x6456)
Types: Wang Wps File
Notes: USER VDU
Names: »1549A «
Derivation
└─⟦fa4d101ea⟧ Bits:30005807 8" Wang WCS floppy, CR 0112A
└─ ⟦this⟧ »1549A «
WangText
…1d……07……1c……0b……1c……0d……1c……0f……1c…
…1b……08……1b……0b……1b……0d……1b……0f……1b……02……86…1
…02…
…02…
…02…
…02…CPS/SDS/039
…02…BBC/820104…02……02…
USER VDU
DETAILED
DESIGN
SPECIFICATION…02……02…CAMPS
GEN SVC STA
C̲R̲E̲A̲T̲E̲/̲O̲P̲E̲N̲ ̲S̲T̲A̲T̲U̲S̲ ̲C̲I̲F̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲5̲)̲
INT ̲CHANGES GT 0? - S̲T̲O̲R̲E̲ ̲I̲N̲T̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲0̲)̲
PREP ̲CHANGES GT 0? S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
C̲O̲N̲V̲E̲R̲T̲/̲S̲T̲O̲R̲E̲ ̲L̲T̲D̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲5̲)̲
EQUIVALENCE (LITTLE ̲BUF(1), STA ̲FIELD ̲LIST: FIELD
LIST ̲TYPE)
EQUIVALENCE (LITTLE ̲BUF(1 + SIZE (STA ̲FIELD ̲LIST),
STA ̲AOM: STA ̲AOM ̲TYPE)
SET STA ̲AOM.COUNTERS = 0
SET STA ̲FIELD ̲LIST.OFFSET = 0
SET STA ̲FIELD ̲LIST.LENGTH = 0
I̲N̲P̲U̲T̲ ̲ ̲ ̲ ̲ ̲F̲I̲L̲E̲ ̲D̲I̲R̲E̲C̲T̲O̲R̲Y̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲6̲)̲
LTD.SVC ̲COUNT EQ 0?
MOVE SVC ̲COUNT TO OLD ̲REST
R̲E̲A̲D̲ ̲S̲V̲C̲ ̲S̲T̲A̲ ̲F̲I̲L̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲3̲-̲2̲)̲
I̲N̲P̲U̲T̲ ̲C̲O̲M̲P̲L̲E̲T̲E̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲9̲)̲
MOVE NO ̲OF ̲INTA ̲REC TO TRANS ̲COUNT
S̲O̲R̲T̲ ̲S̲V̲C̲ ̲S̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲3̲-̲3̲)̲
I̲N̲P̲U̲T̲ ̲P̲R̲E̲P̲ ̲R̲E̲C̲O̲R̲D̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲7̲)̲
S̲O̲R̲T̲ ̲P̲R̲E̲P̲ ̲R̲E̲C̲O̲R̲D̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲3̲-̲4̲)̲
STATUS ̲REQ EQ MIDNIGHT? - C̲L̲O̲S̲E̲/̲S̲E̲N̲D̲ ̲M̲I̲D̲N̲I̲G̲H̲T̲ ̲S̲T̲A̲
̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲9̲)̲
C̲L̲O̲S̲E̲/̲S̲E̲N̲D̲ ̲S̲T̲A̲T̲U̲S̲ ̲C̲I̲F̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲6̲)̲
Fig. 4.2.5.4.13-1
UMAM ̲BLE.ADDRESS = BIG ̲BUFFER(1)
UMAM ̲FILE ̲ADDR.FIRST ̲BYTE = (LTD-1)*OUT ̲AREA ̲SIZE
LOOP
OLD ̲REST LT MAX ̲OUT ̲REC? ̲ MOVE OLD ̲REST TO TRANS
̲COUNT
MOVE MAX ̲OUT ̲REC TO TRANS ̲COUNT
BUFFER ̲SIZE = SIZE (OUT ̲REC)*TRANS ̲COUNT
UMAM-FILE ̲ADDR.BYTE ̲COUNT = BUFFER ̲SIZE
UMAM ̲BLE.BYTE ̲SIZE = BUFFER ̲SIZE
CASE READBYTES(OUT ̲FILE ̲ID, UMAM ̲FILE ̲ADDR, UMAM
̲BLE)
(UMAM ̲FILE ̲ADDR,CC):
ERROR ̲OK
ERROR? - ANALYZE ERROR (CC,0)
OK? - SET PREP = INT = FALSE
END CASE
ADD UMAM ̲FILE ̲ADDR.BYTE ̲COUNT TO UMAM ̲FILE ̲ADDR.FIRST
̲BYTE
S̲O̲R̲T̲ ̲S̲V̲C̲ ̲S̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲3̲-̲3̲)̲
MOVE OLD ̲REST-TRANS ̲COUNT TO NEW ̲REST
NEW ̲REST EQ 0? - EXIT LOOP
MOVE NEW ̲REST TO OLD ̲REST
END LOOP
Fig. 4.2.5.4.13-2
SET SORT ̲COUNT = 1
SET STA ̲FIELD ̲LIST(F1).LENGTH = SIZE (STA ̲ADM)
SET SEARCH ̲ONE = SVC ̲SENT
SET SEARCH ̲TWO = DUMMY
S̲O̲R̲T̲ ̲R̲E̲C̲O̲R̲D̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲2̲)̲
SET SEARCH ̲ONE = SVC ̲DELETED
S̲O̲R̲T̲ ̲R̲E̲C̲O̲R̲D̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲2̲)̲
SORT ̲COUNT EQ 1?
S̲T̲O̲R̲E̲ ̲S̲O̲R̲T̲E̲D̲ ̲D̲A̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲4̲)̲
SET SORT ̲COUNT = 1
Fig. 4.2.5.4.13-3
SET SEARCH ̲ONE = SVC ̲SUSPEND ̲CONT
SET SEARCH ̲TWO = SVC ̲SUSPEND ̲DRAFT
S̲O̲R̲T̲ ̲R̲E̲C̲O̲R̲D̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲2̲)̲
SORT ̲COUNT EQ 1?
S̲T̲O̲R̲E̲ ̲S̲O̲R̲T̲E̲D̲ ̲D̲A̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲4̲)̲
Fig. 4.2.5.4.13-4
4.2.5.4.14 D̲E̲L̲E̲T̲E̲ ̲R̲E̲Q̲U̲E̲S̲T̲ ̲M̲o̲d̲u̲l̲e̲
4.2.5.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 following functions are included in this module:
- user deletion
- supervisor deletion
a) U̲s̲e̲r̲ ̲D̲e̲l̲e̲t̲i̲o̲n̲
If the message is available for deletion, then
it will be deleted.
If the message is not available for deletion or
is not found, a deletion report is sent to the
Supervisor Printer.
b) S̲u̲p̲e̲r̲v̲i̲s̲o̲r̲ ̲D̲e̲l̲e̲t̲i̲o̲n̲
If the message is found, then the status will be
changed to deleted.
4.2.5.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) DELETE ̲REQUEST (QEL: QLE reference type
QEL ̲ATTR: QEL attributes type)
b) DELETE ̲REQUEST (R1, R2, 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̲
R1 QEL (DEST)
R2 Pointer to QEL ̲ATTR (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0-R7 (DEST)
4.2.5.4.14.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A
4.2.5.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̲
QEL ̲REFERENCE ̲TYPE refer CPS/DBD/001
QEL ̲ATTRIBUTES ̲TYPE refer CPS/DBD/001
USER ̲ACTION ̲TYPE refer CPS/DBD/001
GAQ ̲INFO ̲TYPE refer CPS/DBD/001
DELETE ̲REQ ̲TYPE refer 4.2.5.5
DELETE ̲ANS ̲TYPE refer 4.2.5.5
STATUS TYPE refer 4.2.5.5
DEL ̲REPORT ̲TYPE refer 4.2.5.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲e̲
FOUND refer 4.2.5.5
SEND ̲PARAMS refer 4.2.5.5
PREP ̲REC refer 4.2.5.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲e̲
TYPE REPORT ̲BUF: DEL ̲REPORT ̲TYPE
4.2.5.4.14.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
If the deletion request is received from a user, it
is checked whether the message is available for deletion
or not. If the message can be deleted, then the status
is changed and a deletion report is sent to SAR. If
the message is not available for deletion, a deletion
report is sent to the Supervisor Printer.
If the deletion request is received from the Supervisor,
then the status of the message will be changed to deleted
and the CIF is made active.
DELETE REQUEST
EQUIVALENCE (LITTLE ̲BUF (1), REPORT BUF: DEL ̲REPORT
̲TYPE)
CASE READ ̲BUFFER(QEL1, LITTLE ̲BUF(1), DEL ̲REQ ̲TYPE
̲SIZE, 1)
(SIZE, CC): ERROR ̲OK
ERROR ? - CASE ANALYZE ̲ERROR (CC, 1, SIZE ̲ERROR):
(LA1)
LA1 ? - U̲Q̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲1̲)̲
END CASE
OK? CASE QEL ̲ATTR.FLAG ̲VALUE OF
USER? - U̲S̲E̲R̲ ̲D̲E̲L̲E̲T̲I̲O̲N̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲4̲-̲2̲)̲
SUPV? - S̲U̲P̲V̲ ̲D̲E̲L̲E̲T̲I̲O̲N̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲4̲-̲3̲)̲
OTHERWISE - U̲Q̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲1̲)̲
END CASE
END CASE
Fig. 4.2.5.4.14-1
L̲O̲C̲K̲U̲P̲ ̲S̲T̲A̲T̲U̲S̲ ̲R̲E̲C̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲1̲)̲
FOUND EQ TRUE? - AVAILABLE FOR DELETION? -
L̲O̲O̲K̲U̲P̲ ̲C̲I̲F̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲3̲)̲
FOUND
EQ
TRUE
S̲E̲N̲D̲ ̲R̲E̲P̲O̲R̲T̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲9̲)̲
D̲E̲L̲E̲T̲I̲O̲N̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲4̲-̲4̲)̲
MOVE NOT ̲DELETED ̲CODE TO SEND ̲PARAMS
S̲E̲N̲D̲ ̲R̲E̲S̲P̲O̲N̲S̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲4̲)̲
Fig. 4.2.5.4.14-2
L̲O̲C̲K̲U̲P̲ ̲S̲T̲A̲T̲U̲S̲ ̲R̲E̲C̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲1̲)̲
FOUND EQ FALSE?
L̲O̲C̲K̲U̲P̲ ̲C̲I̲F̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲3̲)̲
FOUND EQ FALSE?
U̲N̲L̲O̲C̲K̲ ̲P̲A̲S̲S̲I̲V̲E̲ ̲C̲I̲F̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲8̲)̲
CHANGE STATUS TO DELETED
I̲N̲C̲L̲U̲D̲E̲ ̲I̲N̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲5̲)̲
CLEAR STATUS REC
PREP EQ TRUE? - S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
S̲T̲O̲R̲E̲ ̲E̲X̲P̲A̲N̲D̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲4̲)̲
MOVE DELETED ̲CODE TO SEND ̲PARAMS
S̲E̲N̲D̲ ̲R̲E̲S̲P̲O̲N̲S̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲4̲)̲
Fig. 4.2.5.4.14-3
DELETION
U̲N̲L̲O̲C̲K̲ ̲P̲A̲S̲S̲I̲V̲E̲ ̲C̲I̲F̲S̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲8̲)̲
CHANGE STATUS TO DELETED
I̲N̲C̲L̲U̲D̲E̲ ̲I̲N̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲5̲)̲
CLEAR STATUS RECORD
PREP EQ TRUE? - S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
S̲T̲O̲R̲E̲ ̲E̲X̲P̲A̲N̲D̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲4̲)̲
CASE SEND (SEND ̲PARAMS, QEL1, SAR ̲REQQ)
(SEND ̲PARAMS, CC): ERROR ̲OK
ERROR? CASE ANALYZE ̲ERROR (CC,2, QEL ̲PROFILE
̲CHECK,
BLOCKED
̲QUEUE):
(LA1,
LA2)
LA1?
LA2? - U̲I̲N̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲1̲)̲
END CASE
MOVE PARTLY ̲DELETED ̲CODE TO SEND ̲PARAMS
OK? MOVE DELETED ̲CODE TO SEND ̲PARAMS
END CASE
Fig. 4.2.5.4.14-4
4.2.5.4.15 I̲N̲C̲L̲U̲D̲E̲ ̲I̲N̲ ̲I̲N̲T̲A̲ ̲M̲o̲d̲u̲l̲e̲
4.2.5.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̲
The following functions are included in the module:
- Move data from a QEL to the Intermediate File
- Move data from a buffer to the Intermediate File
- Move data from the Preparation File to the Intermediate
File
- Move data from a QEL and the Preparation File to
the Intermediate File
When the area gets full, the records are sorted and
stored in the Delivery, Release, and Outgoing Files.
4.2.5.4.15.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) INCLUDE ̲IN ̲INTA (BUFFER: REL ̲BUF ̲TYPE
QEL ̲ATTR: QEL attributes type
STA ̲REC: STA REC TYPE
b) INCLUDE IN INTA (R2, R3, R4, 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̲
R2 pointer to QEL ̲ATTR (Kept)
R3 pointer to BUFFER (Kept)
R4 STA REC (Dest.)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0-R1 (Dest.)
R4-R7 (Dest.)
4.2.5.4.15.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A.
4.2.5.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̲
QEL ̲ATTRIBUTES TYPE ref. CPS/DBD/001
USER ̲ACTION ̲TYPE ref. CPS/DBD/001
GAQ ̲INFO ̲TYPE ref. CPS/DBD/001
STA ̲REC ̲TYPE ref. 4.2.5.5
MAX ̲NO ̲OF ̲VDUS CPS/DBD/001
MAX ̲NO ̲OF ̲REPS CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲e̲
INT (m) ref. 4.2.5.5
PREP (m) ref. 4.2.5.5
SCRT (m) ref. 4.2.5.5
PREP ̲CHANGES (m) ref. 4.2.5.5
INT ̲CHANGES (m) ref. 4.2.5.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR INT ̲REC ̲NO: INTEGER
VAR CURRENT ̲INTA: INTEGER
CONST MAX ̲NO ̲OF ̲INTA ̲REC =
4.2.5.4.15.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
After analysis of the STA ̲REC ̲TYPE, the status will
be included in the Preparation File. If five changes
has occurred, then the file will be stored. If the
current INTA area get full, then the file will be stored
too. If the complete intermediate buffer gets full,
then the status records will be sorted and written
in the Outgoing, Release, and Delivery Files.
INCLUDE IN INTA
EQUIVALENCE(BIG ̲BUFFER(PREP ̲AREA ̲SIZE +1)
INT ̲AREA ̲BUF: INT ̲AREA ̲BUF ̲TYPE)
INT EQ TRUE?
I̲N̲P̲U̲T̲ ̲I̲N̲T̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲2̲)̲
SET INT = TRUE
CASE STA ̲REL OF
REL?-MOVE DATA FROM QEL TO INT ̲AREA ̲BUF(INT ̲REC
̲NO)
DEL?-MOVE DATA FROM BUFFER TO INT ̲AREA ̲BUF(INT
̲REC ̲NO)
DEF/REJ?-MOVE DATA FROM QEL TO INT ̲AREA ̲BUF(INT
̲REC ̲NO)
OUT?-MOVE DATA FROM QEL TO INT ̲AREA ̲BUF(INT ̲REC
̲NO)
RELE ̲FOUND?-MOVE FROM QEL AND PREP ̲BUF TO INT
̲AREA ̲BUF(INT ̲REC ̲NO)
OUT ̲FOUND?-MOVE FROM PREP ̲BUF TO INT ̲AREA ̲BUF(INT
̲REC ̲NO)
OTHERWISE?-U̲N̲I̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲1̲)̲
END CASE
INCREMENT INT ̲REL ̲NO
INCREMENT INT ̲CHANGES
INTA ̲REC ̲NO LE MAX ̲NO ̲OF ̲INTA ̲REC?-INT ̲CHANGES
NE 5?
S̲T̲O̲R̲E̲ ̲I̲N̲T̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲0̲)̲ S̲T̲O̲R̲E̲ ̲I̲N̲T̲ ̲A̲R̲E̲A̲
̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲0̲)̲
CURRENT ̲INTA EQ MAX ̲INTA?-S̲O̲R̲T̲ ̲I̲N̲T̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲5̲-̲2̲)̲
INCREMENT CURRENT ̲INTA SET CURRENT ̲INTA = 1
SET ̲INT ̲REL ̲NO = 1
Fig. 4.2.5.4.15-1
PREP ̲CHANGES EQ 0?
S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
SET PREP = FALSE
I̲N̲P̲U̲T̲ ̲C̲O̲M̲P̲L̲E̲T̲E̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲9̲)̲
SEARCH ̲ONE = REL ̲START, SEARCH ̲TWO = REL ̲STOP,
SEARCH ̲LTD = 1
LOOP REL
S̲O̲R̲T̲/̲S̲T̲O̲R̲E̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲6̲)̲
INCREMENT SEARCH ̲LTD
SEARCH ̲LTD GT MAX ̲NO ̲OF ̲VDUS? - EXIT LOOP REL
END LOOP REL
SEARCH ̲ONE = OUT ̲START, SEARCH ̲TWO = OUT ̲STOP,
SEARCH ̲LTD = 1
LOOP OUT
S̲O̲R̲T̲/̲S̲T̲O̲R̲E̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲6̲
INCREMENT SEARCH ̲LTD
SEARCH ̲LTD GT MAX ̲NO ̲OF ̲VDUS? - EXIT LOOP OUT
END LOOP OUT
SEARCH ̲ONE = DEL ̲START, SEARCH ̲TWO = DEL ̲STOP,SEARCH
̲LTD = 1
LOOP DEL
S̲O̲R̲T̲/̲S̲T̲O̲R̲E̲ ̲I̲N̲T̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲6̲)̲
INCREMENT SEARCH ̲LTD
SEARCH ̲LTD GT MAX ̲NO ̲OF ̲VDUS + MAX ̲NO ̲OF ̲ROPS?
- EXIT DEL LOOP
END LOOP DEL
S̲T̲O̲R̲E̲ ̲F̲I̲L̲E̲ ̲D̲I̲R̲E̲C̲T̲O̲R̲Y̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲8̲)̲
Fig. 4.2.5.4.15-2
4.2.5.4.16 S̲O̲R̲T̲/̲S̲T̲O̲R̲E̲ ̲I̲N̲T̲A̲ ̲M̲o̲d̲u̲l̲e̲
4.2.5.4.16.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 task of this module is to sort the Intermediate
File. The search keys used are an LTD and a status
interval.
The sorted data will be stored in the Delivery, Release,
and Outgoing Files.
4.2.5.4.16.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) SORT/STORE ̲INTA
b) SORT/STORE ̲INTA(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̲
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0-R7 (Dest.)
4.2.5.4.16.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A
4.2.5.4.16.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 ̲ACTION ̲TYPE refer CPS/DBD/001
GAQ ̲INFO ̲TYOE refer CPS/DBD/001
INT ̲AREA ̲TYPE refer 4.2.5.5
REL ̲BUF ̲TYPE refer 4.2.5.5
DEL ̲BUF ̲TYPE refer 4.2.5.5
DEST ̲BUF ̲TYPE refer 4.2.5.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
SORT ̲COUNT refer 4.2.5.5
SORT refer 4.2.5.5
UMAM ̲BLE refer 4.2.5.5
UMAM ̲FILE ̲ADDR refer 4.2.5.5
FILE ̲DIRECTORY refer 4.2.5.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE INT ̲BUF: INT ̲AREA ̲TYPE
TYPE REL ̲BUF: REL ̲BUF ̲TYPE
TYPE DELI ̲BUF: DELI ̲BUF ̲TYPE
VAR FILE ̲NAME:
VAR RECORD ̲SIZE: INTEGER
CONST TOTAL ̲NO ̲OF ̲INTA = 256
CONST MAX ̲NO ̲OF ̲SORT ̲COUNT = 16
4.2.5.4.16.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
The status records which fulfil the search parameters
(LTD, status interval) are moved from the source buffer
to the destination buffer and the data are reorganized.
When the destination buffer get full or the search
is completed, the content of the destination buffer
will be stored in the Delivery, Release or Outgoing
File.
SORT/STORE INTA
EQUIVALENCE(BIG ̲BUFFER(1), INT ̲BUF: INT ̲AREA ̲TYPE)
SORT ̲COUNT = START ̲REC = 1
LOOP
GET INT ̲BUF(START ̲REC)
DEST ̲BUF EQ RELE? SEARCH ̲LTD NE LTD
̲ONE?
SEARCH ̲LTD EQ LTD ̲TWO?
STATUS LT SEARCH ̲ONE?
STATUS GT SEARCH TWO?
M̲O̲V̲E̲ ̲R̲E̲C̲O̲R̲D̲ ̲(̲4̲.̲2̲.̲3̲.̲4̲.̲1̲6̲-̲2̲)̲
INCREMENT START ̲REC
START ̲REL GT TOTAL ̲NO ̲OF ̲INTA? EXIT LOOP
END LOOP
SORT ̲COUNT EQ 1?
M̲O̲V̲E̲ ̲S̲O̲R̲T̲E̲D̲ ̲D̲A̲T̲A̲ ̲T̲O̲ ̲F̲I̲L̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲6̲-̲3̲)̲
Fig. 4.2.5.4.10-1
CASE DEST ̲BUF OF
RELE,
OUTG? EQUIVALENCE(LITTLE ̲BUF(1),REL ̲BUF: REL
̲BUF ̲TYPE)
MOVE INT ̲BUF(START ̲REC)TO REL ̲BUF(SORT
̲COUNT)
DELI? EQUIVALENCE (LITTLE ̲BUF(1), DELI ̲BUF:
DELI ̲BUF ̲TYPE)
MOVE INT ̲BUF (START ̲REC) TO DELI ̲BUF(SORT
̲COUNT)
OTHERWISE?-U̲I̲N̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲1̲)̲
END CASE
SORT ̲COUNT NE MAX ̲NO ̲OF ̲SORT ̲REC?-INCREMENT SORT
̲COUNT
M̲O̲V̲E̲ ̲S̲O̲R̲T̲E̲D̲ ̲D̲A̲T̲A̲ ̲T̲O̲ ̲F̲I̲L̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲6̲-̲3̲)̲
SET SORT ̲COUNT = 1
Fig. 4.2.5.4.16-2
CASE DEST ̲BUFFER
RELE? UPDATE FILE ̲NAME AND RECORD ̲SIZE
OUTG? UPDATE FILE ̲NAME AND RECORD ̲SIZE
DELI? UPDATE FILE ̲NAME AND RECORD ̲SIZE
OTHERWISE? U̲I̲N̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲)̲
END CASE
I̲N̲P̲U̲T̲ ̲F̲I̲L̲E̲ ̲D̲I̲R̲E̲C̲T̲O̲R̲Y̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲6̲)̲
UMAM ̲FILE ̲ADDR.FIRST ̲BYTE = LTD.COUNT*RECORD ̲SIZE
UMAM ̲FILE ̲ADDR.BYTE ̲COUNT = SORT ̲COUNT*RECORD ̲SIZE
UMAM ̲BLE.ADDRESS = LITTLE ̲BUF(1)
UMAM ̲BLE.BYTE ̲SIZE = SORT ̲COUNT*RECORD ̲SIZE
CASE MODIFYBYTES(FILE ̲NAME,UMAM ̲FILE ̲ADDR,UMAM ̲BLE)
(UMAM ̲FILE ̲ADDR,CC): ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC,0)
OK?
END CASE
ADD SORT ̲COUNT TO FILE ̲DIRECTORY(LTD).COUNT
Fig. 4.2.5.4.16-3
4.2.5.4.17 I̲N̲C̲L̲U̲D̲E̲ ̲I̲N̲ ̲P̲R̲E̲P̲ ̲M̲o̲d̲u̲l̲e̲
4.2.5.4.17.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 insert status records
in the Preparation File. If no empty record can be
found in the Preparation File, then the Expand File
is inspected. If the Expand File is full or nearly
full, a threshold warning will be sent to the Supervisor
Printer.
When the status record is included, the referenced
CIF will be made passive.
4.2.5.4.17.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) INCLUDE ̲IN ̲PREP (QEL: QEL reference type
QEL ̲ATTR: QEL attributes type
ITEM ̲REF: item reference type)
(PREP ̲REC: PREP REC TYPE)
b) INCLUDE ̲IN ̲PREP (R1, R2, R3, R4, 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̲
R1 QEL (Kept)
R2 Pointer to QEL ̲ATTR (Kept)
R3 ITEM ̲REF (Dest)
R6 LINK (Dest)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R4 Pointer to PREP ̲REC
R0,R3 (Dest)
R5-R7 (Dest)
4.2.5.4.17.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A
4.2.5.4.17.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̲
QEL ̲REFERENCE ̲TYPE refer CPS/DBD/001
QEL ̲ATTRIBUTES ̲TYPE refer CPS/DBD/001
USER ̲ACTION ̲TYPE refer CPS/DBD/001
GAQ ̲INFO ̲TYPE refer CPS/DBD/001
PREP ̲AREA ̲TYPE refer 4.2.5.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
PREP (m) refer 4.2.5.5
FOUND (m) refer 4.2.5.5
PREP ̲CHANGES (m) refer 4.2.5.5
VIEW ̲NAME (m) refer 4.2.5.5
REC ̲LEVEL refer 4.2.5.5
PREP ̲REC refer 4.2.5.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE PREP ̲BUF: PREP ̲AREA ̲TYPE
4.2.5.4.17.3 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
An empty PREP ̲REC is looked up in the Preparation or
Expand File.
The CIF is made passive and the view name is stored
in the Preparation/Expand File.
INCLUDE IN PREP
EQUIVALENCE (BIG ̲BUFFER(1),
PREP ̲BUF: PREP ̲AREA ̲TYPE)
PREP EQ TRUE?
I̲N̲P̲U̲T̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲2̲)̲
SET PREP=TRUE
L̲O̲O̲K̲ ̲U̲P̲ ̲E̲M̲P̲T̲Y̲ ̲P̲R̲E̲P̲ ̲R̲E̲C̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲6̲)̲
FOUND EQ TRUE
PREP ̲CHANGES EQ 0?
S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
I̲N̲P̲U̲T̲ ̲E̲X̲P̲A̲N̲D̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲3̲)̲
L̲O̲O̲K̲ ̲U̲P̲ ̲E̲M̲P̲T̲Y̲ ̲P̲R̲E̲P̲ ̲R̲E̲C̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲6̲)̲
FOUND EQ TRUE?
I̲N̲C̲L̲U̲D̲E̲
̲R̲E̲C̲O̲R̲D̲ ̲(̲4̲.̲2̲.̲5̲.̲4̲.̲1̲7̲-̲2̲)̲
T̲H̲R̲E̲S̲H̲O̲L̲D̲ ̲W̲A̲R̲N̲I̲N̲G̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲5̲)̲
S̲E̲N̲D̲ ̲C̲I̲F̲ ̲T̲O̲ ̲M̲D̲C̲O̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲0̲)̲
Fig. 4.2.5.4.17-1
INCLUDE RECORD
CASE LOCK ̲VIEW(QEL1)(VIEW ̲NAME,CC): ERROR
̲OK
ERROR? ANALYZE ̲ERROR(CC, 0)
OK?
END CASE
MOVE VIEW ̲NAME AND QEL1 ̲DATA TO PREP ̲BUF(PREP
̲REC ̲NO)
PREP EQ TRUE? - S̲T̲O̲R̲E̲ ̲P̲R̲E̲P̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲8̲)̲
S̲T̲O̲R̲E̲ ̲E̲X̲P̲A̲N̲D̲ ̲A̲R̲E̲A̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲2̲4̲)̲
CASE SAVE ̲VIEW (DISMANTLE, REC ̲LEVEL, QEL1)
(CC): ERROR ̲OK
ERROR?-ANALYZE ̲ERROR(CC,0)
OK?
END CASE
Fig. 4.2.5.4.17-2
4.2.5.5 C̲o̲m̲m̲o̲n̲ ̲S̲u̲b̲p̲a̲c̲k̲a̲g̲e̲ ̲D̲a̲t̲a̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
TBD
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
N/A
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TBD
4.2.5.6 Common Subpackage Procedures
4.2.5.6.1 U̲M̲A̲M̲ ̲Q̲E̲L̲ ̲D̲I̲S̲M̲A̲N̲T̲L̲E̲
4.2.5.6.1.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 procedure is to dismantle an object
referenced by a a QEL.
The referenced view will be checkpointed if the Checkpoint
Status is true.
4.2.5.6.1.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) UMAM ̲QEL ̲DISMANTLE(QEL: QEL ̲REFERENCE ̲TYPE
CP ̲STATUS: BOOLEAN
OBJECT: OBJECT ̲TYPE)
b) UMAM ̲QEL ̲DISMANTLE(R2, R4, R5, 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̲
R2 QEL (Dest.)
R4 CP ̲STATUS (Dest.)
R5 OBJECT (Dest.)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0-R7 (Dest.)
4.2.5.6.1.3 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̲
OBJECT ̲TYPE refer CPS/DBD/001
QEL ̲REFERENCE ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
N/A
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
CONST REC ̲LEVEL = DISK ̲CP
4.2.5.6.1.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
UMAM ̲QEL ̲DISMANTLE
CASE OBJECT ̲TYPE OF
TIMER,
QEL? DISMANTLE(QEL)(CC): OK
BUFFER? CASE DISMANTLE ̲BUFFER(QEL)(CC): ERROR
̲OK
ERROR? ANALYZE ̲ERROR(CC, 0)
OK?
END CASE
VIEW?-CP ̲STATUS EQ FALSE?-U̲M̲A̲M̲ ̲C̲I̲F̲ ̲D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲-̲2̲)̲
CASE SAVE ̲VIEW(DISMANTLE, REC ̲LEVEL,QEL)
(CC): ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC, 0)
OK?
END CASE
OTHERWISE?- I̲I̲N̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲1̲)̲
END CASE
4.2.3.6.1-1
UMAM CIF DISMANTLE (CREATE QEL)
CASE DISMANTLE ̲VIEW(QEL)(CC): ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC, 0)
OK?
END CASE
Fig. 4.2.5.6.1-2
4.2.5.6.2 V̲D̲U̲ ̲P̲A̲G̲E̲ ̲L̲O̲O̲K̲U̲P̲
4.2.5.6.2.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 procedure is to "retrieve" a VDU-page.
If the requested VDU-page can be found, then it will
be made active.
4.2.5.6.2.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) VDU ̲PAGE ̲LOOKUP (QEL: BUFFER ̲REFERENCE ̲TYPE)
(CREATE ̲QEL: VIEW ̲REFERENCE ̲TYPE
CC: Completion Code)
b) VDU ̲PAGE ̲LOOKUP (R2, R3, R4, 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̲
R2 QEL (Kept)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R3 CREATE ̲QEL
R4 CC
R0-R1 (Dest.)
R5-R7 (Dest.)
4.2.5.6.2.3 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̲
BUFFER ̲REFERENCE TYPE refer CPS/DBD/001
VIEW ̲REFERENCE ̲TYPE refer CPS/DBD/001
TABLE ̲TYPE refer CPS/DBD/001
DISP ̲NAME ̲TYPE refer CPS/DBD/001
VIEW ̲NAME ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UMAM ̲TABLE ̲REC refer 4.2.5.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE PAS ̲VIEW ̲NAME: VIEW NAME TYPE
4.2.5.6.2.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
VDU ̲PAGE ̲LOOKUP
EQUIVALENCE(LITTLE ̲BUF(1), DISP ̲NAME: DISP ̲NAME ̲TYPE)
CASE READ ̲BUFFER(QEL1, DISP ̲NAME,DISP ̲NAME ̲SIZE,1)
(SIZE, CC): ERROR ̲OK
ERROR? ANALYZE ERROR (CC, 0)
OK?
END CASE
MOVE DISPLAY ̲TABLE ̲ID and DISP ̲NAME TO UMAM ̲TABLE ̲REC)
CASE TMP ̲SEARCH(DISPLAY ̲TABLE,DISP ̲NAME)
(PAS ̲VIEW ̲NAME, CC): ERROR ̲OK
ERROR? SET FOUND = FALSE
OK? L̲O̲O̲K̲U̲P̲ ̲P̲A̲S̲S̲I̲V̲E̲ ̲C̲I̲F̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲3̲)̲
END CASE
Fig. 4.2.5.6.2
4.2.5.6.3 S̲E̲N̲D̲ ̲I̲T̲E̲M̲
4.2.5.6.3.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A generated CIF is sent to the requestor and the view
is dismantled.
4.2.5.6.3.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲ITEM(CREATE ̲QEL: VIEW ̲REFERENCE ̲TYPE
RECV ̲QEL: QEL ̲REFERENCE TYPE
CP ̲STATUS: BOOLEAN
OBJECT: OBJECT TYPE)
b) SEND ̲ITEM (R2, R3, R4, R5, 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̲
R2 CREATE QEL (Dest.)
R3 RECV ̲QEL (Kept)
R4 CP ̲STATUS (Dest.)
R5 OBJECT (Dest.)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0-R2 (Dest.)
R4-R7 (Dest.)
4.2.5.6.3.3 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̲
QEL ̲REFERENCE ̲TYPE refer CPS/DBD/001
VIEW ̲REFERENCE ̲TYPE refer CPS/DBD/001
OBJECT ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UMAM ̲PARAMS refer 4.2.5.5
4.2.5.6.3.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
SEND ̲ITEM
CASE SEND ̲REPLY(UMAM ̲PARAMS, CREATE ̲QEL, RECV
̲QEL)
(UMAM ̲PARAMS, CC): ERROR ̲OK
ERROR?-CASE ANALYZE ̲ERROR(CC,2,QEL ̲PROFILE
CHECK,BLOCKED QUEUE):
(LA1, LA2)
LA1? S̲E̲N̲D̲ ̲R̲E̲S̲P̲O̲N̲S̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲4̲)̲
LA2?
END CASE
OK?
END CASE
U̲M̲A̲M̲ ̲Q̲E̲L̲ ̲D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲1̲)̲
Fig. 4.2.5.6.3
4.2.5.6.4 S̲E̲N̲D̲ ̲R̲E̲S̲P̲O̲N̲S̲E̲
4.2.5.6.4.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 procedure is to send a response
QEL.
4.2.5.6.4.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲RESPONSE (RECV ̲QEL: VIEW ̲REFERENCE ̲TYPE)
b) SEND ̲RESPONSE (R3, 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̲
R3 RECV ̲QEL (Dest.)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0-R7 (Dest.)
4.2.5.6.4.3 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̲
QEL ̲REFERENCE ̲TYPE refer CPS/DBD/001
USER ̲ACTION ̲TYPE refer CPS/DBD/001
GAQ ̲INFO ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UMAM ̲PARAMS refer 4.2.5.5
4.2.5.6.4.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
SEND ̲RESPONSE
CASE SEND ̲REPLY(UMAM ̲PARAMS,NIL,RECQVEL)
(UMAM ̲PARAMS,CC): ERROR ̲OK
ERROR? CASE ANALYZE ̲ERROR(CC,2,QEL ̲PROFILE ̲CHECK,
BLOCKED ̲QUEUE): (LA3,
LA4)
LA3? U̲I̲N̲T̲ ̲E̲R̲R̲O̲R̲ ̲(̲4̲.̲2̲.̲5̲.̲6̲.̲3̲1̲)̲
LA4?
END CASE
OK?
END CASE
Fig. 4.2.5.6.4
4.2.5.6.5 C̲R̲E̲A̲T̲E̲/̲O̲P̲E̲N̲ ̲S̲T̲A̲T̲U̲S̲ ̲C̲I̲F̲
4.2.5.6.5.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 following functions are included in this procedure:
- status CIF creation
- status CIF opening
4.2.5.6.5.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) CREATE/OPEN ̲STATUS ̲CIF (NO ̲OF ̲STA ̲FIELDS:
NO ̲OF ̲FIELD
̲TYPE)
(CREATE ̲QEL: VIEW REFERENCE
TYPE)
b) CREATE/OPEN ̲STATUS ̲CIF(R1, R2, 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̲
R1 NO ̲OF ̲STA ̲FIELD (Dest.)
R6 LINK (Dest.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R2 CREATE ̲QEL
R0-R1 (Dest.)
R3-R7 (Dest.)
4.2.5.6.5.3 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̲
VIEW ̲ATTRIBUTES ̲TYPE refer CPS/DBD/001
VIEW ̲REFERENCE ̲TYPE refer CPS/DBD/001
MAX ̲NO ̲FIELDS refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UMAM ̲CMDQ refer 4.2.5.5
4.2.5.6.5.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
