top - download
⟦afdadaecc⟧ Wang Wps File
Length: 59259 (0xe77b)
Types: Wang Wps File
Notes: CPS/SDS/037
Names: »1869A «
Derivation
└─⟦6d69be3b6⟧ Bits:30006113 8" Wang WCS floppy, CR 0178A
└─ ⟦this⟧ »1869A «
WangText
W…00……00……00……00……15……02……00……00……15…
…15……07……14……0a……14……0d……14……01……14……06……13……0a……13……0d……13……0e……13……0f……13……02……13… …13……07……12……09……12……0d……12……00……12…
…12……06……11……08……11……0c……11……0f……11……02……11… …11……07……10……0a……10……0d……10……0f……10……02……10……05……10……07……0f……0b……0f……0d……0f……0f……0f……02……0f……06……0e……0a……0e……0c……0e……0e……0e……00……0e… …0d……86…1 …02… …02… …02…
…02…CPS/SDS/037
…02…820514
MDCO VDU
DETAILED DESIGN SPECIFICATION CAMPS
4.2.2.5 C̲O̲M̲M̲O̲N̲ ̲S̲U̲B̲P̲A̲C̲K̲A̲G̲E̲ ̲D̲A̲T̲A̲
a) QEL ̲REFERENCE ̲TYPE refer CPS/DBD/00l
QEL ̲ATTRIBUTES ̲TYPE refer CPS/DBD/00l
QUEUE ̲REFERENCE ̲TYPE refer CPS/DBD/00l
SEND ̲PARAMS ̲TYPE refer CPS/DBD/00l
FIELD ̲DESCRIPTOR ̲TYPE refer. CPS/DBD/00l
MDOS ̲CO ̲OP ̲TYPE refer 4.1.4
CLASSIFICATION ̲TYPE refer CPS/DBD/00l
BUFFER ̲LIST ̲ELEMENT ̲TYPE refer CPS/DBD/00l
SENDER ̲ID ̲TYPE refer 4.l.4
VDU ̲SUPV ̲LOG ̲TYPE refer CPS/DBD/00l
FC ̲KEY ̲TYPE refer CPS/DBD/00l
FORMAT ̲ID ̲TYPE refer CPS/DBD/00l
EXIT ̲CAUSE ̲TYPE refer CPS/DBD/00l
DIFCO ̲DIDIA ̲CMD ̲TYPE refer 4.1.4
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
TRANSACTION ̲ID refer 4.l.4
HEADER ̲IFCB refer 4.1.4
FORMAT ̲IFCB refer 4.1.4
DIRT ̲OP refer 4.l.4
DIVCO ̲CMD ̲OP (m) refer 4.l.4
F/C ̲KEY ̲OP refer 4.l.4
ANQ ̲OP refer 4.l.4
MDOS ̲S1 (m) refer 4.l.4
MDOS ̲S2 (m) refer 4.l.4
MDOS-S3 (m) refer 4.l.4
CURRENT ̲CLASS (m) refer 4.l.4
FREE ̲DIFCO ̲OP ̲SET (m) refer 4.1.4
c) L̲O̲C̲A̲L̲ ̲D̲A̲T̲A̲
VAR:SPLIT ̲DIGIT INTEGER
RESPONSE ̲TEXT ̲FLAG BOOLEAN
IN ̲FLAG BOOLEAN
OUT ̲FLAG BOOLEAN
CMD ̲FLAG BOOLEAN
OUTPUT ̲FLAG BOOLEAN
SEQUENCE ̲FORMAT ̲NO INTEGER
SEQUENCE ̲CODE ̲NO INTEGER
ERROR ̲NO INTEGER
MDOS ̲FC ̲KEY INTEGER
START ̲FLAG BOOLEAN
CLOSE ̲DOWN ̲FLAG BOOLEAN
MDOS ̲ACTIV ̲FLAG BOOLEAN
CMD ̲RESP ̲AREA ARRAY(0...69)OF CHAR
FIELD ̲DESCRIP. FIELD ̲DESCRIPTOR
̲TYPE
LIST BUFFER ̲LIST ̲ELEMENT
NEW CIF QEL ̲REFERENCE ̲TYPE
OLD ̲CIF QEL ̲REFERENCE ̲TYPE
ANS ̲FLAG BOOLEAN
RECV ̲MAIN BOOLEAN
ITREF: ITEM ̲REF ̲TYPE
CANCEL ̲TIME: TIME ̲STAMP ̲TYPE
EXP ̲DIDIA ̲CMD DIFCO ̲DIDIA ̲CMD ̲TYPE
DIVCO ̲OP :MDOS ̲COROUTINE ̲OP
̲TYPE
NO ̲OF ̲USED ̲DIFCO ̲OP :INTEGER
DIDIA ̲CMD ̲OUT :INTEGER
EXP ̲DIDIA ̲NO :INTEGER
CURRENT ̲MAINQ :MDOS ̲RECV ̲QUEUE
̲TYPE
CURRENT ̲SUBQ :PRECEDENCE ̲TYPE
CONST CMD ̲RESP.AREA ̲SIZE 69 CHAR
INIT ANS ̲FLAG =FALSE
TYPE ̲SEQUENCE RECORD ̲TYPE =
RECORD
KEY: SEQ ̲KEY
MASK ̲l: FC ̲KEY ̲MASK ̲TYPE
MASK ̲2: FC ̲KEY ̲MASK ̲TYPE
SAR: MDOS ̲STORAGE ̲TYPE
LOG: MDOS ̲LOG ̲TYPE
STATUS: MDOS ̲STATUS ̲TYPE
FUNCTION: SEQ ̲FUNCTION ̲TYPE
ACCOUNT: ACCOUNT ̲TYPE
CURSOR: MDOS ̲CURSOR ̲TYPE
DIDIA ̲CMD: DIFCO ̲DIDIA ̲CMD ̲TYPE
DIDIA ̲FORMAT: 4 CHAR
NEW ̲FORMAT: SEQ ̲FORMAT;
END
SEQ ̲KEY =
RECORD
FORMAT: SEQ ̲FORMAT
CODE: SEQ ̲CODE
END
TYPE ANQ ̲OP ̲PENDING =
(EDIT ̲PLAIN ̲SERVICE, EDIT ̲ABB ̲PLAIN ̲SERVICE,
EDIT ̲ABB ̲SERVICE, REQ ̲STATUS, REQ ̲DELETE ̲SERV ̲MSG
REQ ̲STATUS, REQ ̲DELETE ̲SERV ̲MSG, REQ ̲LOG,
SEND ̲ABB. PLAIN ̲SERVICE, SEND ̲ABB ̲SERVICE,
SEND ̲MSQ ̲DIST ̲ASSISTANCE.)
TYPE SEQUENCE ̲FORMAT ̲NO =
(MDOS ̲MENU, SER ̲MSG ̲MENU,
MDOS ̲PLAIN, MDOS ̲PLAN ̲AD
MDOS ̲PLAN ̲CA, MDOS ̲CA ̲AD,
MDOS ̲SC ̲PLAIN, MDOS ̲ABB
PLAIN ̲AD, MDOS ̲ABB ̲PLAIN,
MDOS ̲COM, MDOS ̲SM ̲PLAIN,
SM ̲ABB ̲PLAIN,
SM ̲ABB, MDOS ̲STATUS.
RETV ̲PLAIN,RETV ̲PLAIN ̲AD,
RETV ̲MDOS ̲PLAIN ̲CA, RETV ̲MDOS ̲PLAIN ̲CA ̲AD,
RETV ̲SC ̲PLAIN, RETV ̲ABB ̲PLAIN ̲AD,
RETV ̲ABB ̲PLAIN, MDOS ̲SYS+OFF,MDOS ̲SYS ̲ON
KEY ̲C,OFF ̲RE ̲ME,ONN ̲RE ̲ME,OFF ̲RE ̲DE,ONN ̲RE
̲DE
PRPF, PRAP, PRAS, CPFP, CAPP, CASD, DESM, OSMS
MDAS, REDS,SMPR, RESP,
FOR ̲INCOMING, FOR ̲ALTERNATIV.
FOR ̲NON ̲DELIVERY)
TYPE SEQUENCE ̲CODE NO =
(ENTER, START,
CLOSE ̲DOWN, STOP ̲USER,
BLOCK ̲TERMINAL,
CLOSE ̲DOWN ̲CC,
CANCEL, CANCEL ̲CC,
CLEAR ̲VDU ̲CC, OUTPUT ̲DATA ̲CC,
OUTPUT ̲FORMAT ̲CC
INPUT ̲FORMAT ̲CC,
DEFER ̲VALID ̲CC, UMAM ̲ERROR ̲CC
LOG ̲OK, LOG ̲NOK,
PRINT, CANCEL,
RETURN ̲MENU, KEEP,
DELETE, MDP ̲ERROR ̲CC, UMAM ̲
DELETE ̲CC, MDP ̲OK ̲CC, SEQ ̲
EDIT ̲REQ, THP ̲ERROR ̲CC, SAR ̲
ERROR ̲ACK. VAL ̲ERROR ̲CC, VAL ̲OK ̲CC
VAL ̲OK ̲AND ̲PRINT)
TYPE FORMAT ̲ID: (SMPR ̲MENU, MDCO ̲MENU
E1, RE ̲El, RE ̲E2,E2, SC ̲VDU,
SC ̲G2. SC ̲El, G2, HSYS,
SH ̲C, PREP l..3, PRAP l..3,
PRAS l...3, CPFP l...3,
CAPP l..3, CASP l..3,OSMS,
DESM,
IN ̲RE ̲El, IN ̲El, IN ̲SC ̲El,
IN ̲E2, IN ̲RE ̲E2.
AL ̲RE ̲E2, AL ̲E2, AL ̲El,
AL ̲RE ̲El, AL ̲SC ̲El, AL ̲G2,
CSMP1, CSMP2, CSMP3
ACCOUNT ̲TYPE:
RECORD
EXIT: EXIT ̲CAUSE ̲TYPE
STATUS: STATUS ̲TYPE
FORMAT LOG ̲FORMAT ̲TYPE
END
MDOS ̲CURSOR ̲TYPE:
RECORD
SPLIT: CURSOR ̲SPLIT ̲TYPE
POSITION: FIELD ̲DESCRIPTOR ̲TYPE
END
LOG ̲FORMAT ̲TYPE = VDU ̲SUPV ̲LOG ̲TYPE
CURSOR ̲SPLIT ̲TYPE= (NO ̲SPLIT,HEADER,
FORMAT, RETURN)
MDOS ̲STORAGE ̲TYPE= (NO ̲STORAGE,STORAGE)
MDOS ̲LOG ̲TYPE= (NO ̲LOG,LOG)
MDOS ̲STATUS ̲TYPE= (NO ̲STATUS, OUTGOING ̲STATUS)
MASK1 FC ̲KEY ̲MASK ̲TYPE
MASK2 FC KEY ̲MASK TYPE
MDOS ̲RECV ̲QUEUE ̲TYPE = (MDOS ̲MDQ,RESPQ,DUMMY)
TEXT ̲HEADER ̲TYPE = (HEADER ̲TEXT, MDOS ̲FIELD)
MENU ̲TYPE (SMPR ̲MENU, MDCO ̲MENU)
CLOSE ̲NOCLOSE ̲TYPE = (CLOSE, NOCLOSE)
MDOS ̲UMAM ̲REQUEST = (EDIT, DELETE, SERVICE
̲MSG ̲STATUS)
EDIT ̲REC ̲TYPE = (PLAIN ̲SVC, ABB ̲SVC, PLABB
̲SVC)
TYPE ̲EDIT ̲PARAMETERS: RECORD
ITEM ̲REF: INTEGER
LTD: LOGICAL ̲TERMINAL
̲NO ̲TYPE
ACCESS ̲PROFILE: LONG
EDIT ̲REC: EDIT ̲REQUEST
̲TYPE
END
MDOS ̲RETR ̲REQUEST = (REDISTRITBUTION)
MDOS ̲FC ̲KEY: (ENTER, RETURN, INSERT LINE,
DELETE ̲LINE
RESPONSE
̲TEXT, COMMAND,
KEEP ̲AND
̲PRESENT
DELETE ̲AND
̲PRESENT,
RETURN TO
MENU
CANCEL, PRINT)
FC ̲KEY ̲MASK ̲TYPE LONG REFER FIG. 4.2.2.5-1
and
FIG. 4.2.2.5-2
FIG. 4.2.2.5-1
FIG. 4.2.2.5-2
4.2.2.6 C̲o̲m̲m̲o̲n̲ ̲S̲u̲b̲p̲a̲c̲k̲a̲g̲e̲ ̲P̲r̲o̲c̲e̲d̲u̲r̲e̲s̲
4.2.2.6.l V̲D̲U̲ ̲I̲N̲I̲T̲
4.2.2.6.l.l 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 initialize the
Format Handler.
4.2.2.6.l.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 ̲INIT
B) VDU ̲INIT (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̲
R0-R7 (DEST)
4.2.2.6.l.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̲
FORMAT ̲AREA ̲REC ̲TYPE refer CPS/DBD/001
FDCB ̲INDEX ̲TYPE refer CPS/DBD/00l
FILE ̲SYSTEM ̲NAME ̲TYPE refer CPS/DBD/00l
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
HEADER ̲IFCB refer 4.l.4
FORMAT ̲IFCB refer 4.l.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
CONST VDU ̲SPLITS = 2
FORMAT ̲AREA ̲CONTROL ̲TABLE =
FORMAT ̲AREADATA ̲BUFFER =
HEADER ̲AREA ̲CONTROL ̲TABLE =
HEADER ̲AREA ̲DATA ̲BUFFER =
VAR MAIN ̲FDCB : FDCB ̲INDEX ̲TYPE
VDU ̲AREA : FORMAT ̲AREA ̲REC ̲TYPE
FORMAT ̲FILE: FILE ̲SYSTEM ̲NAME ̲TYPE
4.2.2.l.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
Refer figure 4.2.2.6.1-1
VDU ̲INIT
CASE INIT ̲FORMAT(VDU ̲SPLITS,MAIN ̲FDBC,FORMAT
̲FILE)
(CC):ERROR ̲OK
ERROR? ANALYZE ERROR (CC,
O)
OK?
END CASE
MOVE FORMAT AREA CONSTRAINTS TO VDU ̲AREA
CASE DEFINE ̲FORMAT ̲AREA(VDU ̲AREA)(HEADER
̲IFCB, CC):ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC,
O)
OK?
END CASE
MOVE MEMORY AREA CONSTANTS TO VDU ̲AREA
CASE DEFINE ̲FORMAT ̲AREA(VDU ̲AREA)(FORMAT
̲IFCB,CC):ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC,
O)
OK?
END CASE
END
Fig. 4.2.2.6.l…86…1 …02… …02…
…02… …02… …02… …02…
4.2.4.6.2 S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲
4.2.4.6.2.l 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 reset
the cursor
position. To this purpose an earlier updated
record is
fetched.
4.2.4.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) SET ̲CURSOR (SPLIT:CURSOR ̲SPLIT ̲TYPE)
b) SET ̲CURSOR (R6,R7)
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)
R7 SPLIT
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
RO-R7 (DEST)
4.2.2.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̲
CURSOR ̲SPLIT ̲TYPE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
FORMAT ̲IFCB refer 4.l.4
SPLIT ̲DIGIT (m) refer 4.2.2.5
HEADER ̲IFCB refer 4.l.4
VDU ̲SPLIT ̲FLAG (m) refer 4.l.4
CURSOR ̲RECORD ̲l(m) refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR CURSER ̲ON ̲CMD ̲RECORD = FIELD DESCRIPTOR TYPE
INIT CURSOR ̲ON CMD ̲RECORD.
LINE ̲NO = 2
CURSOR ̲ON ̲CMD ̲RECORD.
FIELD ̲NO = l
CURSOR ̲ON ̲CMD ̲RECORD.
INCARNATION= l
4.2.2.6.2.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
CURSOR ̲RECORD ̲l is fetched
A call to IOC is issued
Variable SPLIT ̲DIGIT is updated
SET CURSOR
CASE SPLIT OF CURSOR ̲SPLIT ̲TYPE
HEADER? SPLIT ̲DIGIT = HEADER ̲IFCB
CURSOR ̲POSITION=ADDR(CURSOR ̲ON ̲CMD
̲RECORD)
RETURN? CURSOR ̲POSITION=ADDR(CURSOR ̲RECORD
̲l)
FORMAT? SPLIT ̲DIGIT=FORMAT ̲IFCB
CURSOR ̲POSITION=ADDR(CURSOR ̲RECORD
̲l)
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲l̲.̲5̲.̲2̲)̲
END CASE
CASE SET CURSOR ̲POSITION(SPLIT ̲DIGIT,CURSOR ̲POSITION,
LINE ̲ABOVE)(CC):ERROR
̲OK
ERROR?CASE ANALYZE ERROR(CC,l,VDU ̲SPLIT ̲FAILED):(Ll)
LI? VDU ̲SPLIT ̲FLAG = TRUE
END CASE
OK? SPLIT ̲DIGIT = CURSOR ̲RECORD ̲l.SPLIT ̲DIGIT
END CASE
END
Fig. 4.2.2.6.2-l
4.2.2.6.3 M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲F̲I̲R̲S̲T̲
4.2.2.6.3.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
This procedure receives the first item in the queue,
which is specified by the caller.
4.2.2.6.3.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲o̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MDOS ̲RECV ̲FIRST (RECV ̲QUEUE:QUEUE ̲REFERENCE)
(NEW ̲CIF:QEL ̲REFERENCE ̲TYPE,
CC: COMPLETION ̲CODE)
b) MDOS ̲RECV ̲FIRST (R2,R3,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̲
R5 RECV ̲QUEUE (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R2 NEW ̲CIF
R3 CC (RECV ̲OK,Q ̲EMPTY, NOT ̲OPENED,
RECV
̲NEXT)
RO-Rl, R4-R7 (DEST)
4.2.2.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̲
OBJECT ̲TYPE refer CPS/DBD/OOl
PRECEDENCE ̲TYPE refer CDS/DBD/OOl
INTERNAL ̲ERROR ̲INF refer CDS/DBD/OOl
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲RECV ̲ATTR (m) refer 4.2.2.5
CURRENT ̲MAINQ (m) refer 4.2.2.5
CURRENT ̲SUBQ (m) refer 4.2.2.5
CURRENT ̲CLASS (m) refer 4.l.4
DIFCO ̲CC ̲TYPE (m) refer 4.l.4
NEW ̲CIF (m) refer 4.2.2.5
OUT ̲CIF (m) refer 4.1.4
MDOS ̲S1 refer 4.l.4
DIVCO ̲OP refer 4.l.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.3.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
The first QEL in a specified queue is received. If
the user has access, then the referenced QEL will be
opened.
MDOS ̲RECV ̲FIRST
CASE CURRENT ̲MAINQ OF MDOS ̲RECV ̲QUEUE ̲TYPE
MDOS ̲MDQ? MDOS ̲QNAME.MAIN = MDOS ̲MDQ
RESPQ? MDOS ̲QNAME.MAIN = RESPQ
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲ ̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(4.l.5.2)
END CASE
M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲C̲O̲N̲T̲I̲N̲U̲E̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲3̲-̲2̲)̲
END
FIG. 4.2.2.6.3-1
MDOS RECV CONTINUE
MDOS ̲QNAME.SUB = CURRENT ̲SUBQ
LOOP
CASE RECEIVE ̲FIRST(WAIT = FALSE,
MDOS ̲QNAME)(MDOS ̲RECV ̲ATTR,
QUT ̲QEL, SUBQUEUE,CC):ERROR ̲OK
ERROR? CASE ANALYZE ̲ERROR(CC,2,PROFILE ̲CHECK,QUEUE
̲
EMPTY:(Ll,L2)
Ll? CURRENT ̲SUBQ = SUBQUEUE
CC = RECV ̲NEXT
NEW ̲CIF = OUT ̲QEL
L2? CC = Q ̲EMPTY
END ̲CASE
OK? CURRENT ̲SUBQ =SUBQUEUE
C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲F̲O̲R̲M̲A̲T̲(̲M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲A̲T̲T̲R̲)̲(̲C̲C̲)̲
(4.2.2.6.7)
CC EQ NOK? D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲Q̲E̲L̲(̲O̲U̲T̲ ̲Q̲E̲L̲,̲S̲A̲V̲E̲)̲
(4.l.5.3)
CC =STOPPED
RECV ̲QUEUE.OBJECT.TYPE NE VIEW?
CC = RECV ̲OK
UPDATE CURRENT ̲CLASS
O̲P̲E̲N̲ ̲R̲E̲C̲ ̲V̲I̲E̲W̲(4.2.2.6.5-2)
END CASE
CC NE STOPPED? EXIT LOOP
END LOOP
Figure 4.2.2.6.3-2
OPEN ̲RECV ̲VIEW
CASE OPEN ̲VIEW(OUT ̲QEL)(CC): ERROR ̲OK
ERROR? CASE ANALYZE ̲ERROR(CC,2,STOPPED,OPEN ̲NOT
̲
ACCEPTED):(Ll,L2)
Ll? D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲Q̲E̲L̲(̲O̲U̲T̲ ̲Q̲E̲L̲,̲S̲A̲V̲E̲)̲(4.l.5.3)
CC = STOPPED
L2? TEP RETURN VIEW(OUT ̲QEL)(4.2.2.6.l3)
CC = NOT ̲OPENED
END CASE
OK? D̲I̲V̲C̲O̲ ̲N̲O̲T̲O̲F̲I̲C̲A̲T̲I̲O̲N̲ (4.2.2.6.3-3)
CC = RECV ̲OK
UPDATE CURRENT ̲CLASS
END CASE
END
Figure 4.2.2.6.3-3
DIVCO NOTIFICATION
CURRENT ̲MAINQ EQ RESPQ?
CASE CURRENT SUBQ OF PRECEDENCE TYPE
SUPERFLASH? DIVCO ̲OP.OP ̲ID(2) = DIFCO ̲IDENT
DIVCO ̲OP.CMD = ANTIFLASH ̲NOT
DIVCO ̲OP.PARA. FLAG SUPER =
FLASH
ITEM ̲ARRIVED
SIGNAL ̲OPSEM(MDOS ̲Sl,DIVCO ̲OP)
FLASH? DIVCO ̲OP.OP ̲ID(2) = DIFCO ̲IDENT
DIVCO ̲OP.CMD = ANTIFLASH ̲NOT
DIVCO ̲OP.PARA = FLASH ̲ITEM
̲ARRIVED
SIGNAL ̲OPSEM(MDOS ̲Sl,DIVCO ̲OP)
IMMEDIATE,
SUPERPRIORITY,
PRIORITY,
ROUTINE?
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
END
Figure 4.2.2.6.3-4
4.2.2.6.4 D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲
4.2.2.6.4.l 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 convert the ERROR
̲No. into error/response message.
4.2.2.6.4.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) DISPLAY ̲ERROR ̲MSG (ERROR ̲NO:ERROR ̲NO ̲TYPE)
b) DISPLAY ̲ERROR ̲MSG (RO,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̲
R0 ERROR ̲NO (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R0-R7 (DEST)
4.2.2.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̲
TABLE ̲ID ̲TYPE refer CPS/DBD/00l
ERROR ̲NO ̲TYPE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
OUTPUT ̲FLAG (m) refer 4.2.2.5
HEADER IFCB refer 4.l.4
CIF ̲BUFFER (m) refer 4.1.4
CMD ̲RESP ̲ADEA (m) refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE ̲ERROR ̲PARAM = FFFF
RECORD
CMD : ERROR ̲NO ̲TYPE
INFO: INTEGER
LINK: POINTER
END
4.2.2.6.4.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A call to TMP is issued, and the commander procedure
DISPLAY ̲VDU ̲FIELD(4.2.2.6.5)is called.
DISPLAY ̲ERROR ̲MSG
KEY ̲COUNT = l
EQUIVALENCE(CIF ̲BUFFER(l),ERROR ̲PARAM:ERROR ̲PARAM
̲TYPE)
ERROR ̲PARAM.CMD = CMD ̲RESP ̲AREA.CMD
CASE SEARCH ̲PRIMARY ̲KEY(ERROR ̲TABLE,ERROR ̲PARAM,KEY
̲
COUNT,SIZE(CMD ̲RESP ̲AREA),
ERROR ̲MASK)(CMD ̲RESP ̲AREA,CC):
ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC,0)
OK?
END ̲CASE
ERROR ̲PARAM ̲INFO EQ 0? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)
(̲4̲.̲l̲.̲5̲.̲2̲)̲
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲(̲R̲E̲S̲P̲ ̲L̲I̲N̲E̲,̲E̲R̲R̲O̲R̲ ̲T̲E̲X̲T̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)̲
SET OUTPUT ̲FLAG = TRUE
END
Figure 4.2.2.6.4-1
4.2.2.6.5 D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲
4.2.2.6.5.l 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 the procedure is to display error/response
messages.
4.2.2.6.5.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) DISPLAY ̲VDU ̲FIELD (LINE ̲NO:OUTPUT ̲LINE,
FIELD ̲NO:OUTPUT ̲FIELD,
ADDRESS:POINTER TO OUTPUT,
SIZE:NO ̲OF ̲CHARACTERS
b) DISPLAY ̲VDU ̲FIELD(RO,Rl,R2,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̲
RO LINE ̲NO (DEST)
Rl FIELD ̲NO (DEST)
R2 POINTER TO OUTPUT (DEST)
R3 SIZE OF OUTPUT (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R0-R7 (DEST)
4.2.2.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̲
FIELD ̲DESCRIPTION ̲TYPE refer CPS/DBD/00l
BUFFER ̲LIST ̲ELEMENT refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
HEADER ̲IFCB refer 4.l.4
FIELD ̲DESCRIP.(m) refer 4.2.2.5
VDU ̲SPLIT ̲FLAG(m) refer 4.l.4
CMD ̲RESP ̲AREA (m) refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
CONST MAX ̲DISP ̲FIELDS = 69
CONST HEADER ̲INCAR = l
VAR VDU ̲HEADER ̲BLE : BUFFER ̲LIST ̲ELEMENT
DISPLAY ̲VDU ̲FIELD
FIELD ̲DESCRIP.LINE = LINE ̲NO
FIELD ̲DESCRIP.INCARNATION = HEADER ̲INCAR
FIELD ̲DESCRIP.FIELD = FIELD ̲NO
VDU ̲HEADER ̲BLE.ADDR = ADDRESS (OUTPUT)
VDU ̲HEADER ̲BLE.BYTE ̲SIZE = SIZE(OUTPUT)
CASE FIELD ̲OUTPUT (HEADER ̲IFCB,FIELD ̲DESCRIP,
VDU ̲HEADER ̲BLE,MAX ̲DISP
̲FIELDS,
SIZE)(CC): ERROR ̲OK
ERROR? ANALYZE ̲ERROR(CC,l,VDU ̲SPLIT ̲FAILED):(Ll)
Ll? SET VDU ̲SPLIT ̲FLAG =TRUE
OK?
END CASE
END
Figure 4.2.2.6.5-1
4.2.2.6.6 M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲N̲E̲X̲T̲
4.2.2.6.6.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
Receives the QEL next to one specified as input. If
subqueue is empty and a mainqueue is specified, then
the first item is the next subqueue is received.
4.2.2.6.6.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MDOS ̲RECV ̲NEXT(RECV ̲QEL:QEL ̲REFERENCE)
(OUT ̲QEL :QEL ̲REFERENCE,
CC :COMPLETION ̲CODE)
b) MDOS ̲RECV ̲NEXT(R2,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̲
R2 RECV ̲QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R2 OUT ̲QEL
R3 CC (RECV ̲OK,Q ̲EMPTY,NOT ̲OPENED)
R0-Rl,R4-R7 (DEST)
4.2.2.6.6.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/00l
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲RECV ̲ATTR refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
OUT ̲CIF refer 4.2.2.5
NEW ̲CIF refer 4.2.2.5
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲CLASS refer 4.l.4
MDOS ̲Sl refer 4.l.4
DIVCO ̲OP refer 4.l.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
NONE
4.2.2.6.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
MDOS ̲RECV ̲NEXT
DISM = FALSE
LOOP
CASE RECEIVE ̲NEXT ̲QEL(RECV ̲QEL)(OUT ̲QEL,MDOS
̲RECV
ATTR,CC) : ERROR
̲OK
ERROR? CASE ANALYZE ̲ERROR(CC,2,QEL ̲PROFILE
̲
CHECK,SUBQUEUE ̲EMPTY):
(L1,L2)
Ll? DISM EQ TRUE? TE̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲(̲R̲E̲C̲V̲
̲Q̲E̲L̲)
(̲4̲.̲2̲.̲2̲.̲6̲.̲l̲3̲)̲
DISM = TRUE
RECV ̲QEL = OUT ̲QEL
CC = RECV ̲NEXT
L2? DISM.EQ.TRUE? T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲
R̲E̲C̲V̲ ̲Q̲E̲L̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲l̲3̲)̲
DISM = FALSE
RECV ̲MAIN EQ TRUE? C̲O̲N̲T̲I̲N̲U̲E̲
̲R̲E̲C̲E̲P̲T̲I̲O̲N̲(̲-̲3̲)̲
CC = Q ̲EMPTY
END CASE
OK? N̲E̲X̲T̲ ̲Q̲E̲L̲ ̲R̲E̲C̲E̲I̲V̲E̲D̲ (-2)
END CASE
CC NE RECV ̲NEXT? EXIT LOOP
END ̲LOOP
END
FIG. 4.2.2.6.6-1
NEXT ̲QEL ̲RECV
C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲F̲O̲R̲M̲A̲T̲(̲M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲A̲T̲T̲R̲)̲(̲C̲C̲)̲
(4.2.2.6.7)
CC EQ NOK? D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲Q̲E̲L̲(̲O̲U̲T̲ ̲Q̲E̲L̲,̲S̲A̲V̲E̲)̲
(4.l.5.3)
CC = RECV ̲NEXT
OBJECTTYPE NE VIEW?
DISM EQ TRUE?
T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲
(̲R̲E̲C̲V̲ ̲Q̲E̲L̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲l̲3̲)̲
CC = RECV ̲OK
UPDATE CURRENT ̲CLASS
O̲P̲E̲N̲ ̲R̲E̲C̲E̲I̲V̲E̲ ̲V̲I̲E̲W̲(̲-̲4̲)̲
END
FIG. 4.2.2.6.6-2
CONTINUE RECEPTION
LOOP
CURRENT ̲SUBQ EQ MAX ̲SUBQUEUE? CC = Q ̲EMPTY
INCREMENT CURRENT ̲SUBQ EXIT LOOP
M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲F̲I̲R̲S̲T̲ ̲(̲O̲U̲T̲ ̲Q̲E̲L̲,̲R̲E̲C̲V̲ ̲Q̲E̲L̲,̲C̲C̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲3̲)̲
CC NE Q ̲EMPTY? EXIT LOOP
END ̲LOOP
RECV ̲CC EQ RECV ̲NEXT? DISM = TRUE
CC = RECV ̲CC RECV ̲QEL = OUT ̲QEL
CC = RECV ̲NEXT
END
Figure 4.2.2.6.6-3
OPEN ̲RECEIVED ̲VIEW
CASE OPEN ̲VIEW(OUT ̲QEL)(CC) : ERROR ̲OK
ERROR? CASE ANALYSE ̲ERROR(CC,2,STOPPED,OPEN ̲NOT
̲
ACCEPTED):(Ll,L2)
Ll? CC = RECV ̲NEXT
D̲I̲S̲M̲A̲N̲T̲L̲E̲ ̲Q̲E̲L̲(̲O̲U̲T̲ ̲Q̲E̲L̲,̲S̲A̲V̲E̲)̲(4.l.5.3)
L2? DISM EQ TRUE? T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲(̲R̲E̲C̲V̲
̲
Q̲E̲L̲)̲(4.2.2.6.l3)
CC = NOT OPENED
T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲(̲O̲U̲T̲ ̲Q̲E̲L̲)̲(4.2.2.6.l3)
END CASE
OK? DISM EQ TRUE? T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲(̲R̲E̲C̲V̲ ̲Q̲E̲L̲)̲
(4.2.2.6.l3)
D̲I̲V̲C̲O̲ ̲N̲O̲T̲I̲F̲I̲C̲A̲T̲I̲O̲N̲ (-5)
CC = RECV ̲OK
UPDATE CURRENT ̲CLASS
END CASE
END
Figure 4.2.2.6.6-4
DIVCO NOTIFICATION
CURRENT MAINQ EQ RESPQ
CASE CURRENT ̲SUBQ OF PRECEDENCE TYPE
SUPERFLASH? DIVCO ̲OP.OP ̲ID(2) = DIFCO
̲IDENT
DIVCO ̲OP.CMD = ANTIFLASH
̲
NOT
DIVCO ̲OP.PARA = SUPERFLASH
ITEM ̲ARRIVED
SIGNAL ̲OPSEM(MDOS ̲Sl,DIVCO
̲OP)
FLASH? DIVCO ̲OP.OP ̲ID = DIFCO ̲IDENT
DIVCO ̲OP.QMD = ANTIFLASH
̲
NOT
DIVCO ̲OP.PARA =
FLASH ̲ITEM ̲ARRIVED
SIGNAL ̲OPSEM(MDOS ̲Sl,DIVCO
̲OP)
IMMEDIATE,
SUPERPRIORITY,
PRIORITY,
ROUTINE ?
OTHERWISE ? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)
(̲4̲.̲l̲.̲5̲.̲l̲)̲
END CASE
END
Figure 4.2.2.6.6-4
4.2.2.6.7 C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲F̲O̲R̲M̲A̲T̲
4.2.2.6.7.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
Analyse the QEL from either the Message Distribution
Queue or the Response Queue depending on the mode of
the MDCO .Find out the format to display for DIDIA
and the corresponding sequence table for DIFCO.
4.2.2.6.7.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) CALCULATE ̲FORMAT (MDOS ̲RECV ̲ATTR:QEL ̲ATTRIBUTES,
QEL:QEL ̲REFERENCE
CC :NOK ̲OK)
b) CALCULATE ̲FORMAT (R0,Rl.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̲
Rl pointer to MDOS ̲RECV ̲ATTR (DEST)
R2 QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 CC
Rl-R7 (DEST)
4.2.2.6.7.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 ̲ATTRIBUTES referCPS/DBD/00l
QEL ̲REFERENCE referCPS/DBD/00l
MDOS ̲RECV ̲QUEUE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲RECV ̲ATTR refer 4.l.4
CURRENT ̲MAIN ̲Q refer 4.2.2.5
SEQUENCE ̲RECORD refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR NO ̲START ̲FLAG : BOOLEAN
INIT NO ̲START ̲FLAG= FALSE
CALCULATE FORMAT
CASE CURRENT ̲MAINQ OF MDOS ̲RECV ̲QUEUE
MDOS ̲MDQ ? M̲D̲O̲S̲ ̲M̲D̲Q̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲(-2)
RESPQ? M̲D̲O̲S̲ ̲R̲E̲S̲P̲ ̲Q̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲(-6)
OTHERWISE? T̲E̲P̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)
(̲4̲.̲l̲.̲5̲.̲l̲)̲
END CASE
END
Figure 4.2.2.6.7-1
MDOS ̲MDQ ̲PROCESSING
CASE MDOS ̲RECV ̲ATTR.HEADER SUBTYPE
FOR INCOMING ̲DISTRIBUTION ̲ASSISTANCE?
F̲O̲R̲ ̲I̲N̲C̲O̲M̲I̲N̲G̲(̲-̲3̲)̲
FOR ALTERNATIV ̲DISTRIBUTION ̲ASSISTANCE?
F̲O̲R̲ ̲A̲L̲T̲E̲R̲N̲A̲T̲I̲V̲(̲-̲4̲)̲
NON DELIVERY ̲OBJECTS? F̲O̲R̲ ̲N̲O̲N̲ ̲D̲E̲L̲I̲V̲E̲R̲Y̲(̲-̲5̲)̲
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(̲4̲.̲l̲.̲5̲.̲l̲)̲
END CASE
END
Figure 4.2.2.6.7-2
FOR ̲INCOMING
CASE MDOS ̲RECV ̲ATTR.HEADER.MAINTYPE OF
QELEMENT ̲MAIN ̲TYPE
PLAINDRESS,
PLAINDRESS ̲DATA,
ABB ̲PLAINDRESS,
ABB ̲PLAINDRESS ̲DATA?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.CAMPS ̲ORIGINATED
EQ TRUE?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.READDRESSED
EQ TRUE?
DIDIA ̲CMD.FORMAT =
IN ̲RE ̲E2
DIDIA ̲CMD.FORMAT = IN ̲E2
MDOS ̲RECV ̲ATTR.HEADER.FLAG.READDRESSED
EQ TRUE?
DIDIA ̲CMD.FORMAT =
IN ̲RE ̲El
DIDIA ̲CMD.FORMAT = IN ̲El
SC-PLAINDRESS,
SC-PLAINDRESS ̲DATA?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.CAMPS
̲ORIGINATED EQ TRUE?
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲
̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲
̲
(4.l.5.l)
DIDIA ̲CMD.FORMAT = IN ̲SC ̲El
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
SEQUENCE NEW FORMAT = FOR INCOMING
END
Figure 4.2.2.6.7-3
FOR ̲ALTERNATIV
CASE MDOS ̲RECV ̲ATTR.HEADER.MAINTYPE
PLAINDRESS,
PLAINDRESS ̲DATA,
ABB ̲PLAINDRESS
ABB ̲PLAINDRESS ̲DATA?
MDOS ̲RECV ̲ATTR ̲HEADER.FLAG ̲CAMPS ̲ORIGINATED
EQ TRUE?
MDOS ̲RECV ̲ATTR ̲HEADER.FLAG.READDRESSED
EQ TRUE?
DIDIA ̲CMD.FORMAT
= AL ̲RE ̲E2
DIDIA ̲CMD.FORMAT = AL ̲E2
MDOS ̲RECV ̲ATTR ̲HEADER.FLAG.READDRESSED
EQ TRUE?
DIDIA ̲CMD.FORMAT
= AL-RE ̲El
DIDIA ̲CMD.FORMAT = AL ̲El
SC ̲PLAINDRESS,
SC ̲PLAINDRESS ̲DATA?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.CAMPS ̲ORIGINATED
EQ TRUE?
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
DIDIA ̲CMD.FORMAT = AL ̲SC ̲El
COMMENT?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.CAMPS ̲ORIGINATED
EQ ̲FALSE?
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
DIDIA ̲CMD.FORMAT = AL ̲G2
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
SEQUENCE ̲NEW ̲FORMAT = FOR ̲ALTERNATIV
END
Figure 4.2.2.6.7-4
FOR NON ̲DELIVERY
CASE MDOS ̲RECV ̲ATTR.HEADER.MAINTYPE
SC ̲PLAINDRESS
SC ̲PLAINDRESS ̲DATA?
MDOS ̲ATTR ̲HEADER.FLAG.CAMPS
̲ORIGINATED EQ
FALSE?
DIDIA
̲CMD.FORMAT
=
SC
̲El
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲M̲U̲E̲)̲(4.l.5.l)
SC ̲COMMENT? MDOS ̲RECV ̲ATTR ̲HEADED.FLAG.CAMPS
̲ORIGINATED
EQ
FALSE?
DIDIA
̲CMD.FORMAT
=
SC
̲G2
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(̲4̲.̲l̲.̲5̲.̲l̲)̲
SC ̲VDU ̲PAGE? MDOS ̲ATTR ̲HEADER.FLAG.CAMPS
̲ORIGINATED EQ
FALSE?
DIDIA
̲CMD.FORMAT
=
SC
̲VDU
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
SEQUENCE ̲NEW ̲FORMAT = FOR ̲NON ̲DELIVERY
END
Figure 4.2.2.6.7-5
MDOS ̲RESP ̲Q ̲PROCESSING
CASE MDOS ̲RECV ̲ATTR.HEADER.MAINTYPE
PLAINDRESS,
ABB ̲PLAINDRESS? CASE MDOS ̲RECV ̲ATTR.SUBTYPE OF
MESSAGE SUBTYPE
FOR
DISPLAY?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.
CAMPS
̲ORIGINATED
EQ
TRUE?
MDOS ̲RECV ̲ATTR ̲HEADER.FLAG.READDRESSED
EQ
TRUE?
DIDIA ̲CMD.FORMAT
= RE ̲E2
SEQUENCE
̲NEW ̲FORMAT
= OFF ̲RE
̲ME
DIDIA ̲CMD.FORMAT = E2
SEQUENCE ̲NEW ̲FRONT
= OFF ̲RE ̲ME
MDOS ̲RECV ̲ATTR.HEADER.FLAG READDRESSED
EQ
TRUE?
DIDIA ̲CMD.FORMAT
= RE ̲El
SEQUENCE ̲NEW ̲FORMAT
= OFF ̲RE ̲ME
DIDIA ̲CMD.FORMAT = El
SEQUENCE NEW ̲FORMAT = OFF ̲RE
̲ME
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲
END CASE
SC ̲PLAINDRESS? F̲O̲R̲ ̲S̲C̲ ̲P̲L̲A̲I̲N̲D̲R̲E̲S̲S̲ ̲(̲-̲7̲)̲
SYSTEM CATALOGUE DISPLAY? F̲O̲R̲ ̲S̲Y̲S̲T̲E̲M̲
̲C̲A̲T̲A̲L̲O̲G̲U̲E̲
̲D̲I̲S̲P̲L̲A̲Y̲ ̲(̲-̲8̲)̲
ACKNOWLEDGE? S̲A̲R̲ ̲E̲R̲R̲O̲R̲ ̲A̲C̲K̲ ̲(̲-̲9̲)̲
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(̲4̲.̲l̲.̲5̲.̲l̲)̲
END CASE
END
Figure 4.4.4.6.7-6
FOR ̲SC ̲PLAINDRESS
CASE MDOS ̲RECV ̲ATTR.HEADER.SUBTYPE OF
MESSAGE SUBTYPE
FOR DISPLAY?
MDOS ̲RECV ̲ATTR.HEADER.FLAG.CAMPS
̲ORIGINATED EQ TRUE?
T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲
̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲
DIDIA ̲CMD.FORMAT = SC ̲E1
SEQUENCE ̲NEW ̲FORMAT = OFF ̲RE ̲ME
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲
END CASE
END
FIG. 4.4.4.6.7-7
FOR SYSTEM CATALOGUE DISPLAY
CASE MDOS ̲RECV ̲ATTR.HEADER.SUBTYPE OF
MESSAGE SUBTYPE
FOR SYST ̲DISPLAY? DIDIA ̲CMD.FORMAT
= HSYS
SEQUENCE
̲NEW ̲FORMAT
=
MDOS
̲SYS
̲OFF
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲
̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲
END CASE
END
FIG. 4.4.4.6.7-8
SAR ̲ERROR ̲ACK
CASE MDOS ̲RECV ̲ATTR.HEADER.SUBTYPE
SAR ̲ERROR ̲ACK? CASE MDOS ̲RECV ̲ATTR.HEADER.FLAG
NOT ̲FOUND? M̲D̲O̲S̲ ̲D̲I̲S̲P̲ ̲R̲E̲S̲P̲
̲M̲S̲G̲ ̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)
(̲4̲.̲2̲.̲2̲.̲4̲.̲l̲0̲)̲
̲ DIDIA ̲CMD.FORMAT
=SH ̲C
SEQUENCE ̲NEW ̲FORMAT=
KEY
̲C
OFFLINE ̲RETRIVAL ̲OFF?
M̲D̲O̲S̲ ̲D̲I̲S̲P̲ ̲R̲E̲S̲P̲
̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲
(̲4̲.̲2̲.̲2̲.̲4̲.̲l̲0̲)̲
DIDIA ̲CMD.FORMAT
= SH ̲C
SEQUENCE ̲NEW ̲FORMAT
= KEY ̲C
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲ ̲(̲C̲O̲N̲T̲I̲N̲U̲E̲)̲(4.l.5.l)
END CASE
END
Figure 4.2.2.6.7-9
4.2.2.6.8 T̲E̲P̲ ̲C̲R̲E̲A̲T̲E̲ ̲C̲I̲F̲
4.2.2.6.8.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
This Procedure creates a CIF and opens it by a call
to Message Monitor.
4.2.2.6.8.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲CREATE ̲CIF (NEW ̲CIF : VIEW ̲REFERENCE)
b TEP ̲CREATE ̲CIF (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̲
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R2 NEW ̲CIF
R0,Rl R3-R7 (DEST)
4.2.2.6.8.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 refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
NEW ̲CIF refer 4.2.2.5
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
MDOS ̲QNAME refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None.
4.2.2.6.8.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A call to MMS is issued. If completion code in ERROR
the processing is stopped. If completion code is OK
a pointer to the new CIF is returned to caller in Register
R2.
4.2.2.6.9 T̲E̲P̲ ̲C̲R̲E̲A̲T̲E̲ ̲N̲E̲W̲ ̲C̲I̲F̲
4.2.2.6.9.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
This procedure creates a new version of an existing
CIF.
4.2.2.6.9.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲CREATE ̲NEW ̲CIF(INPUT ̲CIF : VIEW REFERENCE)
(OUTPUT ̲CIF : VIEW REFERENCE)
b) TEP ̲CREATE ̲NEW ̲CIF(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̲
R2 INPUT ̲CIF (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R2 OUTPUT ̲CIF
R0,Rl, R3,R7 (DEST)
4.2.2.6.9.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 refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
VIEW ̲ATTRIBUTES refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
MDOS ̲QNAME refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.9.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A call to MMS is issued. If completion code in
ERROR the processing is stopped. If completion
code is OK a pointer to the new CIF version in
return to caller in Register R2.
4.2.2.6.l0 T̲E̲P̲ ̲N̲E̲W̲ ̲V̲I̲E̲W̲
4.2.2.6.l0.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A new view of an existing CIF is generated. Either
a new version of field l-3, field 4-5 or field
7, will be generated.
4.2.2.6.l0.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲
a) MDOS ̲NEW ̲VIEW(OUTPUT ̲CIF : VIEW ̲REFERENCE,
TEXT ̲HEADER : INTEGER
(NEW ̲CIF : VIEW ̲REFERENCE)
b MDOS ̲NEW ̲VIEW (R2, 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̲
R2 OUTPUT ̲CIF (DEST)
R3 TEXT ̲HEADER (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R2 NEW ̲CIF
R0-Rl, R3-R7 (DEST)
4.2.2.6.10.3 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) QEL ̲REFERENCE refer CPS/DBD/001
VIEW ̲ATTRIBUTES refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
TEXT ̲HEADER ̲TYPE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
N̲o̲n̲e̲
4.2.2.6.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A call to MMS is issued. If completion code in ERROR
and the error is Blocked-Queue or Profile-Check the
processing is stopped. If the error code VIEW ̲IO ̲OVERFLOW
in returned TEP ̲CREATE ̲NEW ̲CIF and COPY ̲CIF ̲FIELD are
called.
4.2.2.6.ll M̲D̲O̲S̲ ̲T̲R̲S̲E̲R̲N̲O̲
4.2.2.6.11.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The next Transaction Serial number is read via TMP.
Current time is fetched from the VDU ̲HD ̲AREA
4.2.2.6.ll.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MDOS ̲TRSERNO (REF: BOOLEAN)
b) MDOS ̲TRSERNO (R5,R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲c̲e̲n̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R5 BOOLEAN
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.11.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̲
F ̲DTG ̲TIME refer CPS/DBD/001
GSN ̲ID ̲TYPE refer CPS/DBD/001
GSN ̲TEXT ̲TYPE refer CPS/DBD/001
GSN ̲GROUP ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
TRANSACTION ̲ID (m) refer 4.1.4
VDU ̲HD ̲AREA refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.11.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A GET ̲GLOBAL ̲SERIAL ̲NUMBER call is issued to TMP
in order to get the next transaction serial no.
TRANSACTION ̲ID. SERIAL ̲NO is updated. Time is read
from VDU ̲HD ̲AREA.(TIME ̲PTR) and TRANSACTION ̲ID.TIME
is updated.
If REF ̲BOOLEAN is true the Item ̲ref ̲Id is generated.
4.2.2.6.l2 C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲M̲E̲N̲U̲
4.2.2.6.l2.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The Sequence-key is given so DIDIA can display the
MDCO ̲MENU.
4.2.2.6.l2.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) CALCULATE ̲MENU
b) CALCULATE ̲MENU (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̲
None
R0 - R7 (DEST)
4.2.2.6.12.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̲
MENU ̲TYPE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Sequence ̲Format ̲no refer 4.2.2.5
Sequence ̲Code ̲no refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
4.2.2.6.12.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
The Sequence ̲keys are updated to get DIDIA display
the MDCO ̲MENU.
4.2.2.6.l3 T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲
4.2.2.6.l3.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced item will be returned to the queue from
which it was received.
The CIF will be closed if demanded.
4.2.2.6.l3.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲RETURN ̲VIEW (QEL : QEL ̲REFERENCE,
CLOSE ̲NOCLOSE : BOOLEAN)
b) TEP ̲RETURN ̲VIEW (R2,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̲
R2 QEL (DEST)
R3 CLOSE ̲NOCLOSE (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.13.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 refer
CPS/DBD/001
CLOSE ̲NOCLOSE ̲TYPE refer
4.2.2.4
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
None
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.13.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A Return call is issued to QMON
4.2.2.6.l4 T̲E̲P̲ ̲S̲A̲V̲E̲ ̲V̲I̲E̲W̲
4.2.2.6.l4.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced CIF will be checkpointed by a call to
Message Monitor.
4.2.2.6.l4.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲SAVE ̲VIEW(QEL : VIEW ̲REFERENCE)
b) TEP ̲SAVE ̲VIEW(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̲
R2 QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.14.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 refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
None
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.14.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A SAVE ̲VIEW call is issued to TMP.
4.2.2.6.l5 T̲E̲P̲ ̲R̲E̲A̲D̲ ̲B̲U̲F̲F̲E̲R̲
4.2.2.6.l5.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The contents of the referred buffer are read into an
area specified by the caller.
4.2.2.6.l5.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲READ ̲BUFFER(QEL : BUFFER ̲REFERENCE,
OFFSET : BUFFER ̲OFFSET,
SIZE : MEMORY ̲SIZE,
DESTINATION : MEMORY-LOCATION
b) TEP ̲READ ̲BUFFER(Rl,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̲
R0 SIZE (DEST)
Rl OFFSET (DEST)
R2 QEL (DEST)
R3 DESTINATION (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.15.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 refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
None
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
BUFFER REFERENCE TYPE:̲ CPS/DBD/001
BUFFER ̲OFFSET ̲TYPE: COUNTER ̲TYPE
MEMORY ̲SIZE ̲TYPE: COUNTER ̲TYPE
DESTINATION ̲TYPE: POINTER ̲TYPE
4.2.2.6.15.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A READ ̲BUFFER call is issued to CSF, if completion
code in ERROR processing is stopped.
4.2.2.6.l6 T̲E̲P̲ ̲W̲R̲I̲T̲E̲ ̲B̲U̲F̲F̲E̲R̲
4.2.2.6.l6.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The contents of the specified memory area will be written
into the specified buffer.
4.2.2.6.l6.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲WRITE ̲BUFFER(QEL : BUFFER ̲REFERENCES,
OFFSET : BUFFER ̲OFFSET,
SIZE : MEMORY ̲SIZE,
SOURCE : MEMORY ̲LOCATION)
b) TEP ̲WRITE ̲BUFFER(Rl,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̲
R0 SIZE (DEST)
Rl OFFSET (DEST)
R2 QEL (DEST)
R3 SOURCE (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.16.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 refer CPS/DBD/001
COUNTER ̲TYPE refer CPS/DBD/001
POINTER ̲TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
None
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE: BUFFER ̲REFERENCE ̲TYPE: CPS/DBD/001
BUFFER ̲OFFSET ̲TYPE: COUNTER ̲TYPE
MEMORY ̲SIZE ̲TYPE: COUNTER ̲TYPE
DESTINATION ̲TYPE: POINTER ̲TYPE
4.2.2.6.16.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A WRITE ̲BUFFER call is issued to TMP if completion
code is ERROR processing is stopped.
4.2.2.6.l7 T̲E̲P̲ ̲R̲E̲S̲E̲R̲V̲E̲ ̲B̲U̲F̲F̲E̲R̲
4.2.2.6.l7.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A buffer of the specified size will be reserved.
4.2.2.6.l7.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲RESERVE ̲BUFFER(SIZE: BUFFER ̲SIZE)
(QEL: BUFFER ̲REFERENCE)
b) TEP ̲RESERVE ̲BUFFER(R0, 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̲
R0 SIZE (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R2 QEL
R0-Rl, R3-R7 (DEST)
4.2.2.6.17.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 refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
BUFFER ̲REFERENCE refer CPS/DBD/001
MAX ̲BUFFER ̲SIZE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲ANQ refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE BUFFER ̲SIZE = 1...MAX ̲BUFFER ̲SIZE
4.2.2.6.17.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A RESERVE ̲BUFFER call is issued to CSF if completion
code in ERROR processing will be stopped.
4.2.2.6.l8 C̲O̲P̲Y̲ ̲T̲E̲X̲T̲ ̲F̲I̲E̲L̲D̲S̲
4.2.2.6.l8.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The contents of field 4, 5 and field 7 are moved from
INPUT ̲CIF TO OUTPUT ̲CIF.
4.2.2.6.l8.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) COPY ̲TEXT ̲FIELDS (INPUT ̲CIF : VIEW ̲REFERENCE,
OUTPUT ̲CIF : VIEW ̲REFERENCE)
b) COPY TEXT FIELDS (R0,Rl,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
R0 INPUT ̲CIF (DEST)
Rl OUTPUT ̲CIF (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.2.6.18.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 refer CPS/DBD/001
VIEW ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
NONE
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
NONE
4.2.2.6.18.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A GET ̲VIEW ̲ATTRIBUTES call is issued. A suitable amount
of READ ̲VIEW and WRITE ̲VIEW calls is issued until the
total view is copied.
4.2.2.6.l9 U̲P̲D̲A̲T̲E̲ ̲V̲D̲U̲ ̲H̲E̲A̲D̲E̲R̲
4.2.2.6.l9.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The VDU ̲HD ̲AREA is updated with the required header
text and classification.
4.2.2.6.l9.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) UPDATE ̲VDU ̲HEADER (CLEARHEADER ̲UPDATEHEADER:BOOLEAN,
CURRENTCLASS ̲MAXCLASS :BOOLEAN)
b) UPDATE ̲VDU ̲HEADER(R0,Rl,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
R0 CLEARHEADER ̲UPDATEHEADER (DEST)
Rl CURRENTCLASS ̲MAXCLASS (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.2.6.19.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̲
CLASSIFICATION ̲TYPE refer CPS/DBD/001
FIELD ̲DESCRIPTOR ̲TYPE refer CPS/DBD/001
IOC ̲HEADER ̲TYPE refer CPS/DBD/001
HEADER ̲TEXT-TYPE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
VDU ̲HD ̲AREA (m) refer 4.1.4
TEXT ̲HEADER refer 4.2.2.5
INIT ̲AREA refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR CLEARHEADER ̲UPDATEHEADER: BOOLEAN
VAR CURRENTCLASS ̲MAXCLASS: BOOLEAN
4.2.2.6.19.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
VDU ̲HD ̲AREA(CLASS ̲PTR) is updated in accordance with
R1. Max classification is read from INIT ̲AREA. Classification
is displayed if R0 specifies clearheader space signs
is displayed. Otherwise is terminal text field displayed
in accordance with the contents of HEADER ̲TEXT.
4.2.2.6.20 S̲E̲N̲D̲ ̲T̲O̲ ̲M̲D̲P̲
4.2.2.6.20.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced CIF is sent to MDP. The queue element's
main, subtype and flags are set in accordance with
the messagetype. In order to wait for acknowledge input
in answer queue, ANQ ̲OP. CMD is updated with SEND ̲MSG
̲DIST ̲ASSISTANCE.
4.2.2.6.20.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲TO ̲MDP (QEL : VIEW ̲REFERENCE,
b) SEND ̲TO ̲MDP (Rl,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̲
Rl QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.20.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̲
QEL ̲REFERENCE refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
QELEMENT ̲MAINTYPE refer CPS/DBD/001
MESSAGE ̲SUBTYPE refer CPS/DBD/001
SEND ̲PARAMS refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
ANQ ̲OP ̲PENDING refer 4.2.2.5
MDOS ̲RECV ̲ATTR refer 4.1.4
ANQ ̲OP (m) refer 4.1.4
MDOS ̲SEND ̲PARAMS refer 4.1.4
MDOS ̲ANQ refer 4.1.4
MDQ refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR MDP ̲Q: QUEUE ̲REFERENCE
4.2.2.6.20.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
The type of message is analyzed and Send-parameters
are set up. Test the MDOS ̲ATTR ̲HEADER.SUBTYPE, when
the subtype is for incoming or alternative distribution
the ANQ ̲OP ̲PENDING is set to SEND ̲MSQ ̲DIST ̲ASSISTANCE.
4.2.2.6.2l S̲E̲N̲D̲ ̲T̲O̲ ̲T̲H̲P̲
4.2.2.6.2l.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced CIF is sent to THP for conversion. The
queue elements main, subtype and flags are set in accordance
with the message ̲type. In order to wait for acknowledge
input in answer queue, ANQ ̲OP.CMD is updated with either
Send ̲abb ̲plain ̲service or Send ̲abb ̲service. The ANQ
̲OP.CMD is not updated for PREP.
4.2.2.6.2l.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲TO ̲THP (QEL : VIEW ̲REFERENCE,
MAIN: QELEMENT ̲MAIN ̲TYPE)
b) SEND ̲TO ̲THP (R2,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̲
R2 QEL (DEST)
R3 MAIN (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.21.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 refer CPS/DBD/001
QELEMENT ̲MAIN ̲TYPE refer CPS/DBD/001
MESSAGE ̲SUBTYPE refer CPS/DBD/001
SEND ̲PARAMS refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
ANQ ̲OP ̲PENDING refer 4.2.2.5
MDOS ̲RECV ̲ATTR refer 4.2.2.5
MDOS ̲ANQ refer 4.1.4
ANQ ̲OP (m) refer 4.1.4
MDOS ̲SEND ̲PARAMS refer 4.1.4
TMP ̲Q refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR THP ̲Q: QUEUE ̲REFERENCE
4.2.2.6.21.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
The type of message is analysed and Send ̲parameters
are set up. Depending on type of message information
to
Send ̲parameters are read from MDOS ̲RECV ̲ATTR or the
CIF administration fields and the type of sending the
QEL in either SEND or SEND ̲REQUEST. In cases concerning
Service Messages also the ANQ ̲OP is updated.
4.2.2.6.22 S̲E̲N̲D̲ ̲R̲E̲Q̲U̲E̲S̲T̲ ̲T̲O̲ ̲U̲M̲A̲M̲
4.2.2.6.22.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A request of the specified type is sent to UMAM.
4.2.2.6.22.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲REQUEST ̲TO ̲UMAM(REQUEST : MDOS ̲UMAM ̲REQUEST,
MESSAGE : EDIT ̲REQ ̲TYPE,
b) SEND ̲REQUEST ̲TO ̲UMAM(R0,Rl,R2)
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̲
R0 REQUEST (DEST)
Rl MESSAGE (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.22.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̲
TEP ̲INTERNAL ̲SUBTYPE refer CPS/DBD/001
STATUS ̲SUBTYPE refer CPS/DBD/001
MDOS ̲UMAN ̲REQUEST refer 4.2.2.5
EDIT ̲REQ ̲TYPE refer 4.2.2.5
QUEUE ̲REFERENCE refer CPS/DBD/001
SEND ̲PARAMS refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
EDIT ̲PARAMETERS (m) refer 4.2.2.5
MDOS ̲ANQ refer 4.1.4
INIT ̲AREA refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR UMAM ̲QREF = QUEUE ̲REFERENCE
CONST REQ ̲QUEUE =
CONST REQ ̲SUBQ =
4.2.2.6.22.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
The VUS ̲UMAM ̲REQUEST is analyzed and in cases where
EDIT is specified the EDIT ̲REC ̲TYPE is analyzed and
EDIT ̲PARAMETERS are updated. Logical ̲terminal ̲number
is read from INIT ̲AREA. SEND ̲PARAMS are set up and
a QEL is sent to UMAM.
4.2.2.6.23 S̲E̲N̲D̲ ̲R̲E̲Q̲U̲E̲S̲T̲ ̲T̲O̲ ̲S̲A̲R̲
4.2.2.6.23.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
This procedure sends a retrieval request to SAR.
4.2.2.6.23.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲REQUEST ̲TO ̲SAR(REQUEST :MDOS ̲RETR ̲REQUEST,
QEL : BUFFER ̲REFERENCE)
b) SEND ̲REQUEST ̲TO ̲SAR (Rl,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̲
Rl REQUEST (DEST)
R2 QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.23.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̲
QUEUE ̲REFERENCE refer CPS/DBD/001
MDOS ̲RETR ̲REQUEST refer 4.2.2.5
QEL ̲REFERENCE refer CPS/DBD/001
SEND ̲PARAMS refer CPS/DBD/001
SVUP ̲MSOS ̲MDOS ̲SYSTEM ̲Q ̲GROUP refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲SEND ̲PARAMS refer 4.1.4
MDOS ̲Q NAME refer 4.1.4
SAR ̲Q = SVUP ̲MSOS ̲MDOS ̲SYSTEM ̲GROUP
SHIFT + SVUP ̲RRQ refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
4.2.2.6.2#.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
Send parameters are set up and a QEL referencing a
buffer is sent to SAR with the Send request mechanism.
4.2.2.6.24 S̲E̲N̲D̲ ̲T̲O̲ ̲A̲S̲S̲ ̲P̲R̲I̲N̲T̲E̲R̲
4.2.2.6.24.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced CIF will be sent to either the associated
printer or to the atomal printer.
A flash-notification will be generated if the message
is of flash-precedence or superflash-precedence, the
flashnotification will be sent to PRIS ̲CMDQ.
4.2.2.6.24.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲TO ̲ASS ̲PRINTER (Status: Boolean,
QEL:VIEW ̲REFERENCE,
lCOPY ̲2COPY : BOOLEAN)
b) SEND ̲TO ̲ASS ̲PRINTER (R2,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̲
R1 STATUS (DEST)
R2 QEL (DEST)
R3 lCOPY ̲2COPY (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.24.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 refer CPS/DBD/001
LOGICAL ̲DEVICE ̲NO ̲TYPE refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
SEND ̲PARAMS refer CPS/DBD/001
MDOS ̲SUBPROCESS ̲SINGLE ̲CAP refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
PRIS ̲PRINTQ refer 4.1.4
PRIS ̲CMQ refer 4.1.4
PRIS ̲PRINTQ ̲A refer 4.1.4
PRIS ̲CMDQ ̲A refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR PRIS ̲Q ̲REF = QUEUE ̲REFERENCE
4.2.2.6.24.3 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A QEL referencing a view is sent to associated printer.If
the message is rejected the errors are analyzed and
if the rejection reason is because of atomal bit is
set to true, the message is sent to atomal printer.
If other error codes are returned the processing is
stopped. If the boolean STATUS is false the precedence
is read from the CIF administration field and the subqueue
to which the item is sent is updated in accordance
with the precedence. If STATUS is true precedence set
to Routine.
4.2.2.6.25 T̲E̲P̲ ̲C̲L̲O̲S̲E̲ ̲V̲I̲E̲W̲
4.2.2.6.25.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The referenced CIF will be closed.
4.2.2.6.25.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲CLOSE ̲VIEW (QEL: VIEW REFERENCE)
b) TEP ̲CLOSE ̲VIEW (Rl,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̲
Rl …02…QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.25.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̲
QELEMENT ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
NONE
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
NONE
4.2.2.6.25.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A call to MMS is issued in order to close a specified
CIF.
4.2.2.6.26 T̲E̲P̲ ̲O̲P̲E̲N̲ ̲V̲I̲E̲W̲
4.2.2.6.26.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 referenced CIF will be open
4.2.2.6.26.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) TEP ̲OPEN ̲VIEW (QEL:VIEW ̲REFERENCE)
b) TEP ̲CLOSE ̲VIEW (R1,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…02……02……02……02……02……02…(DEST)
R6 LINK…02……02……02……02……02……02…(DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R0 R7 (DEST)
4.2.2.6.26.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 refer CPS/DBD/001
ERROR ̲NO ̲TYPE refer 4.2.2.5
VIEW ̲REFERENCE refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
ERROR ̲NO refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
N/A
4.2.2.6.26.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A OPEN ̲VIEW call is issued. If completion code is STOPPED
then MDOS ̲RECV ̲NEXT and DISPLAY ̲ERROR ̲MSG are called.
If completion code is OPEN ̲NOT ̲ACCEPTED the item is
send to the queue which is pointed out by current naming
and current subq. then is an error message displayed.
4.2.2.6.27 S̲E̲N̲D̲ ̲S̲P̲E̲C̲I̲A̲L̲ ̲P̲R̲I̲N̲T̲
4.2.2.6.27.l F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A copy of the Message Distribution assistance format
is sent for print.
(MAINTYPE : SUPERVISORY ̲PRINT)
A flash-notification is sent if the message is of flash-precedence.
4.2.2.6.27.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) SEND ̲SPECIAL ̲PRINT (SUBTYPE : SUPERVISORY SUBTYPE
QEL : QEL REFERENCE)
b) SEND ̲SPECIAL ̲PRINT (Rl,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̲
Rl SUBTYPE
R2 QEL (DEST)
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.6.27.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̲
SEND ̲PARAMS refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
QELEMENT ̲MAIN ̲TYPE refer CPS/DBD/001
MDOS ̲RECV ̲QUEUE ̲TYPE refer 4.2.2.5
QELEMENT ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
CURRENT ̲SUBQ refer 4.1.4
PRIS ̲PRINTQ refer 4.1.4
PRIS ̲CMDQ refer 4.1.4
PRIS ̲PRINTQ ̲A refer 4.1.4
PRIS ̲CMD ̲A refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
VAR QUEUE ̲REF: QUEUE ̲REFERENCE
4.2.2.6.27.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A QEL referencing a CIF is sent to PRIS ̲PRINTQ and
if precedence is flash or above a flash notification
is sent to PRIS ̲CMDQ also.
4.2.2.6.28 C̲O̲P̲Y̲ ̲C̲I̲F̲ ̲F̲I̲E̲L̲D̲
4.2.2.6.28.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 contents of the first referenced CIF is copied
into the second referenced CIF.
4.2.2.6.28.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) COPY ̲CIF ̲FIELD(CIF: VIEW ̲REFERENCE
CIF: VIEW ̲REFERENCE
b) COPY ̲CIF ̲FIELD (R2, 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̲
R2 CIF (DEST)
R3 CIF (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.2.6.28.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̲
QELEMENT ̲REFERENCE refer CPS/DBD/001
VIEW ̲REFERENCE 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̲
N/A
4.2.2.6.28.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
A GET ̲VIEW ̲ATTRIBUTES call is issued. A loop is entered
and a READ ̲VIEW followed by a WRITE ̲VIEW call is issued
until the total view is copied.
4.2.2.6.29 M̲D̲O̲S̲ ̲F̲I̲R̲S̲T̲ ̲Q̲E̲L̲
4.2.2.6.29.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 completion CC from the procedure call MDOS ̲RECV
̲FIRST is analysed and the necessarily action is taken.
4.2.2.6.29.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MDOS ̲FIRST ̲QEL(RECV ̲QUEUE: QUEUE ̲REFERENCE)
(NEW ̲CIF: QEL ̲REFERENCE)
b) MDOS ̲FIRST ̲QEL(R2, 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̲
R2 REQ ̲QUEUE
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R3 NEW CIF
4.2.2.6.29.3 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
QEL ̲REFERENCE refer CPS/DBD/001
QUEUE ̲REFERENCE refer CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
MDOS ̲RECV ̲ATTR refer 4.2.2.5
CURRENT ̲MAINQ refer 4.2.2.5
CURRENT ̲SUBQ refer 4.2.2.5
NEW CIF refer 4.2.2.5
OUT CIF refer 4.1.4
OLD CIF refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
TYPE: CC ̲TYPE = (NOT ̲OPENED, Q ̲EMPTY,
RECV ̲OK, RECV ̲NEXT)
4.2.2.6.29.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
See fig. 4.2.2.6.29.1
MDOS ̲FIRST ̲QEL
M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲F̲I̲R̲S̲T̲ ̲(̲R̲E̲C̲V̲ ̲Q̲U̲E̲U̲E̲)̲(̲C̲C̲,̲N̲E̲W̲ ̲C̲I̲F̲)̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲3̲)̲
CASE CC OF CC ̲TYPE
NOT OPENED? SEQ ̲REC.DIDIA CMD = NULL
SEQ ̲REC.CURSOR ̲SPLIT = NO ̲SLIT
Q ̲EMPTY? - D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲M̲E̲N̲U̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲2̲)̲
U̲P̲D̲A̲T̲E̲ ̲H̲E̲A̲D̲E̲R̲(̲C̲L̲E̲A̲R̲ ̲H̲E̲A̲D̲E̲R̲,̲M̲A̲X̲
̲C̲L̲A̲S̲S̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲9̲
RECV ̲OK? - U̲P̲D̲A̲T̲E̲ ̲V̲D̲U̲ ̲H̲E̲A̲D̲E̲R̲(̲H̲E̲A̲D̲E̲R̲ ̲T̲E̲X̲T̲,̲C̲U̲R̲R̲E̲N̲T̲
̲C̲L̲A̲S̲S̲ ̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲9̲)̲
T̲E̲P̲ ̲T̲R̲S̲E̲R̲N̲O̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲1̲)̲
RECV ̲NEXT- OLD ̲CIF = NEW ̲CIF
M̲D̲O̲S̲ ̲R̲E̲C̲V̲ ̲N̲E̲X̲T̲(̲O̲L̲D̲ ̲C̲I̲F̲,̲ ̲(̲N̲E̲W̲
̲C̲I̲F̲,̲ ̲C̲C̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲6̲)̲
CASE CC OF CC ̲TYPE
NOT OPENED? SEQ ̲REQ.DIDIA
CMD = NULL
SEQ ̲REQ.CURSOR
̲SPLIT = NO ̲SPLIT
Q ̲EMPTY? - D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲
̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
C̲A̲L̲C̲U̲L̲A̲T̲E̲ ̲M̲E̲N̲U̲
̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲2̲)̲
U̲P̲D̲A̲T̲E̲ ̲V̲D̲U̲ ̲H̲E̲A̲D̲E̲R̲
̲(̲C̲L̲E̲A̲R̲ ̲H̲E̲A̲D̲E̲R̲,
M̲A̲X̲ ̲C̲L̲A̲S̲S̲)̲
̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲9̲)̲
RECV ̲OK? - U̲P̲D̲A̲T̲E̲ ̲H̲E̲A̲D̲E̲R̲(̲H̲E̲A̲D̲E̲R̲
̲T̲E̲X̲T̲,̲C̲U̲R̲R̲E̲N̲T̲
(̲C̲L̲A̲S̲S̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲9̲)̲
T̲E̲P̲ ̲T̲R̲S̲E̲R̲N̲O̲ ̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲1̲)̲
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̲)̲
E̲N̲D̲ ̲C̲A̲S̲E̲
T̲E̲P̲ ̲R̲E̲T̲U̲R̲N̲ ̲V̲I̲E̲W̲ ̲(̲O̲L̲D̲ ̲C̲I̲F̲)̲(̲C̲L̲O̲S̲E̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲1̲3̲)̲
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
FIG. 4.2.2.6.29-1
4.2.2.6.30 ̲F̲r̲e̲e̲ ̲D̲I̲F̲C̲O̲ ̲O̲p̲e̲r̲a̲t̲i̲o̲n̲
4.2.2.6.30.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 DIFCO Coroutine operation is returned to the free
set of DIFCO coroutine operations. The count of outstanding
commands is decremented for the coroutine DIDIA which
returned the operation.
4.2.2.6.30.2 ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) FREE ̲DIFCO ̲OP
(DIFCO ̲OP: MDOS ̲COROUTINE ̲OP): ERROR ̲OK
b) FREE ̲DIFCO ̲OP (R5, R6): ERROR ̲OK
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̲
R5 Pointer to Operation
R6 LINK
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 - R7 (DEST)
4.2.2.6.30.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̲
MDOS ̲COROUTINE ̲OP refer 4.1.4
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
DIFCO ̲OP
NO ̲OF ̲USED ̲DIFCO ̲OP (m)
DIDIA ̲CMD ̲OUT (m)
FREE ̲DIFCO ̲OP ̲SET (m)
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.30.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
It is checked, if the DIFCO ̲OP may be inserted in the
FREE ̲DIFCO ̲OP ̲SET, if not a return via the error exit
takes place. Otherwise the coroutine which returned
the operation is identitified and the count CMD ̲OUT
for the relevant coroutine is decremented. The SFCO
̲OP is returned to the FREE ̲SFCO ̲OP ̲SET and a return
via the OK exit takes place. Refer figure 4.2.2.6.4-1.
FREE ̲DIFCO ̲OPERATION
NO ̲OF ̲USED ̲DIFCO ̲OP LE 0? TEP ̲INTERNAL
̲ERROR(GIVE UP)
(4.1.5.2)
DECREMENT NO ̲OF ̲USED ̲DIFCO ̲OP
DIDIA ̲CMD ̲OUT = DIDIA ̲CMD ̲OUT-1
RETURN DIFCO ̲OP TO FREE DIFCO ̲OP ̲SET
RETURN (OK)
END
FIG. 4.2.2.6.30-1
4.2.2.6.31 F̲E̲T̲C̲H̲ ̲D̲I̲F̲C̲O̲ ̲O̲P̲E̲R̲A̲T̲I̲O̲N̲
A DIFCO coroutine operation is fetched
from the free set of DIFCO coroutine operations
and returned to the caller.
4.2.2.6.31 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
A DIFCO coroutine operation is fetched
from the free set of DIFCO coroutine operations
and returned to the caller.
4.2.2.6.31 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) FETCH ̲DIFCO ̲OP( )(DIFCO ̲OP: MDOS ̲COROUTINE
̲OP):
ERROR
̲OK
b) FETCH ̲DIFCO ̲OP (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̲
R6 LINK
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 - R4 (DEST)
R5 Pointer
to
Operation
R6 - R7 (DEST)
4.2.2.6.31 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̲
MDOS ̲COROUTINE ̲OP refer 4.1.4
NO ̲OF ̲USED ̲DIFCO ̲OP refer 4.2.2.5
FREE ̲DIFCO ̲OP ̲SET refer 4.1.4
DIFCO ̲OP refer 4.2.2.5
DIFCO ̲MAX ̲OP refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
NO ̲OF ̲USED ̲DIFCO ̲OP (m)
FREE ̲DIFCO ̲OP ̲SET (m) DIFCO
̲OP
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
None
4.2.2.6.31.1 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
It is checked if the NO ̲OF ̲USED ̲DIFCO
̲OP is greater or equal, the available
number of DIFCO operations (DIFCO ̲MAX
̲OP), and if a return via the error exit
takes place. Otherwise a DIFCO ̲OP is fetched
from the FREE ̲DIFCO ̲OP ̲SET; NO ̲OF ̲USED
̲DIFCO ̲OP is incremented and a return via
the ok exit takes place.
4.2.2.7 S̲U̲B̲P̲A̲C̲K̲A̲G̲E̲ ̲I̲N̲T̲E̲R̲F̲A̲C̲E̲S̲
4.2.2.7.l D̲I̲F̲C̲O̲ ̲D̲I̲D̲I̲A̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
CLOSE
CANCEL ̲I ̲O
CLEAR ̲VDU
INPUT ̲DATA
OUTPUT ̲DATA
OUTPUT ̲FORMAT
L ̲INSERT
L ̲DELETE
DISPLAY ̲MENU
4.2.2.7.2 D̲I̲V̲C̲O̲ ̲D̲I̲F̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
INIT ̲CMD
RESTART ̲DIFCO ̲CMD
START ̲DIFCO ̲CMD
STOP ̲DIFCO ̲CMD
CLOSE ̲DIFCO ̲CMD
BLOCK ̲DIFCO ̲CMD
4.2.2.7.3 D̲I̲R̲T̲ ̲D̲I̲F̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
ONLINE ̲NOTIFICATION
OFFLINE ̲NOTIFICATION
RETRIEVAL ̲NOTOFICATION
RETRIEVAL ̲ERROR ̲NOTIFICATION
IN DIRT ̲OP.PARA1 the QEL ̲ATTR.MAINTYPE
and in DIRT ̲OP.PAR2 the QEL ̲ATTR.FLAGS
4.2.2.7.4 D̲I̲D̲I̲A̲ ̲D̲I̲F̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
L ̲INSERTED
L ̲DELETED
CLEAR ̲VDU
CANCEL ̲I-O
OUTPUT ̲FORMAT
OUTPUT ̲DATA
INPUT ̲DATA
VALIDATION ̲RESULT:
ERROR
OK
PRINT ̲REQ
4.2.2.7.5 D̲I̲F̲C̲O̲ ̲D̲I̲V̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
INITIALIZE CC
STOP ̲DIVCO ̲CC
CLOSE ̲DOWN ̲CC
BLOCK ̲VDU ̲CC
START ̲DIFCO ̲CC
RESTART ̲DIFCO ̲CC
FLASH ̲NOT
ANTIFLASH ̲NOT
4.2.2.7.6 D̲I̲F̲C̲O̲ ̲U̲M̲A̲M̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
Refer CPS/ICD/009
4.2.2.7.7 U̲M̲A̲M̲ ̲D̲I̲F̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
Refer CPS/ICD/009
