top - download
⟦74ec35f95⟧ Wang Wps File
Length: 18547 (0x4873)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN52.00«
Derivation
└─⟦9270f92d5⟧ Bits:30006106 8" Wang WCS floppy, CR 0167A
└─ ⟦this⟧ »~ORPHAN52.00«
WangText
4…05…4…07…3…09…3…0b…3…0d…3…0f…3…01…3 3…07…2…09…2…0b…2…0e…2…00…2…02…2
2…07…1…09…1…0b…1…0d…1…00…1…02…1…05…1…86…1
…02…
…02… …02…
…02…CPS/SDS/041
…02…831205…02……02…
PRINTER
DETAILED
DESIGN
SPECIFICATION…02…ISSUE
1…02…CAMPS
DET SIC ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲SIC ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲SIC ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲SC ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG = TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-7…86…1 …02… …02… …02… …02… …02…
DET ̲SDL ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲SDL ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲SDL ̲T
ABSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲SD ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-8…86…1 …02… …02… …02… …02… …02…
DET ̲SCD ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲SCD ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲SLD ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲SC ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-9…86…1 …02… …02… …02… …02… …02…
DET ̲AIG ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEDER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲AIG ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲AIG ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲AIGT
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-10…86…1 …02… …02… …02… …02… …02…
DET ̲PLA ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET ̲CUM ̲FMT ̲ID=N ̲FU ̲PLA ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲PLA ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲PL ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-11…86…1 …02… …02… …02… …02… …02…
DET ̲RI ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲RI ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲RI ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲OB ̲RI ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-12…86…1 …02… …02… …02… …02… …02…
DET ̲CIRCUIT ̲TABLE ̲FORMAT ̲ID
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.FLAGS OF:
FULL ̲TAB? SET NUM ̲FMT ̲ID=N ̲FU ̲CIR ̲T
FROM ̲TO? SET NUM ̲FMT ̲ID=N ̲FT ̲CIR ̲T
OBSOLETE? SET NUM ̲FMT ̲ID=N ̲O ̲GIR ̲T
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-13…86…1 …02… …02… …02… …02… …02…
DETERMINE ̲SYIP ̲SUBTYPE
CASE SUBTYP OF:
PASS WORD ̲LIST? SET NUM ̲FMT ̲ID=N ̲PSW ̲LST
QUEUE ̲STATE ̲PRINT? SET NUM ̲FMT ̲ID=N ̲Q ̲ST ̲PRT
USER ̲PROFILE ̲PRINT? SET NUM ̲FMT ̲ID=N ̲USR ̲PRO
TERMINAL ̲PROFILE ̲PRINT? SET NUM ̲FMT ̲ID=N ̲TER ̲PROF
DEVICE ̲PROFILE ̲PRINT? SET NUM ̲FMT ̲ID=N ̲DEV ̲PROF
CHANNEL ̲PROFILE ̲PRINT? SET NUM ̲FMT ̲ID=N ̲CHA ̲PROF
COMMAND ̲PRINT? SET NUM ̲FMT ̲ID=N ̲CMD ̲PRT
SYSTEM ̲PARAMETER ̲PRINT? SET NUM ̲FMT ̲ID=N ̲SYS ̲ARM
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-14…86…1 …02… …02… …02… …02… …02… …02…
DETERMINE ̲LOG ̲CIF ̲SUBTYPE
CASE ̲SUBTYP
TRACE ̲ALL? SET
NUM
̲FMT
̲ID=N
̲TRA
̲ALL
TRACE ̲INCOMING ̲MSG? SET
NUM
̲FMT
̲ID=N
̲TRA
̲IC
̲M
TRACE ̲TRACE ̲OUTGOING ̲MSG? SET
NUM
̲FMT
̲ID=
̲TRA
̲OG
̲M
TRACE ̲CH ̲DISCONTINUITY? SET
NUM
̲FMT
̲ID=N
̲TRA
̲CH
̲D
TRACE ̲TERMINAL ̲PROC? SET
NUM
̲FMT
̲ID=N
̲TRA
̲TPRC
TRACE ̲MSG ̲DIST? SET
NUM
̲FMT
̲ID=N
̲TRA
̲DIST
TRACE ̲MSG ̲SERVICE? SET
NUM
̲FMT
̲ID=N
̲TRA
̲SERV
TRACE ̲SUPV ̲TRANS? SET
NUM
̲FMT
̲ID=NTRA
̲SUPV
TRACE ̲SECURITY ̲PROC? SET
NUM
̲FMT
̲ID=N
̲TRA
̲SECP
COLLECT ̲CIF? SET NUM ̲FMT ̲ID=N ̲LOG ̲COLL
OTHERWISE? SET
NOT
̲FOR
̲PRINT
̲FLAG
̲=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-15…86…1 …02… …02… …02… …02… …02… …02…
DETERMINE ̲STAT ̲DELIVERY ̲TYPE
CASE PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.INF OF:
DAY ̲DELIVERY? SET NUM ̲FMT ̲ID=N ̲DAY ̲STAT
WEEK ̲DELIVERY? SET NUM ̲FMT ̲ID=N ̲WEK ̲STAT
MONTH ̲DELIVERY?SET NUM ̲FMT ̲ID=N ̲MON ̲STAT
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-16…86…1…02… …02… …02… …02… …02… …02… …02…
SET ̲PRINT ̲ITEM ̲CATEGORY
NOT ̲FOR ̲PRINT ̲FLAG EQ TRUE?
CASE PRINT ̲ITEM ̲QEL ̲ATTR.OBJECT OF:
SINGLE ̲QEL? SET PRINT ̲ITEM ̲CATEGORY=QEL
̲ITEM
BUFFER? SET PRINT ̲ITEM ̲CATEGORYBUFFER ̲ITEM
VIEW? SET PRINT ̲ITEM ̲CATEGORY=VIEW ̲ITEM
OTHERWISE? SET PRINT ̲ITEM ̲CATEGORY=NOT
̲FOR ̲PRINT
END ̲CASE
SET PRINT ̲ITEM ̲CATEGORY=NOT ̲FOR ̲PRINT
END
Fig. 4.2.1.4.10-17…86…1 …02… …02… …02… …02… …02… …02…
READ ̲PRINT ̲ACCOUNTING ̲TABLE ̲ENTRY
WITH UPCO ̲TMP ̲PARAM DO:
SET .TABLE ̲ID =PRINT ̲ACCOUNTING ̲TABLE
SET .FUNCTION =SEARCH ̲PRIMARY ̲KEY
SET .MASK ̲1 =0
SET .ENTRY =0
SET .BUFFER ̲1 =UPCO ̲KEY ̲LIST
SET .COUNT =1
SET .BUFFER ̲2 =PRINT ̲ACC ̲TABLE ̲BUFFER
SET .BUFFER ̲LENGTH=SIZE(PRINT ̲ACCOUNTING ̲TABLE
̲
ENTRY
̲TYPE)
SET .MASK ̲2 =PRINT ̲ACC ̲TAB ̲READ ̲MASK
END ̲WITH
WITH UPCO ̲KEY ̲LIT DO:
SET .INFO =0
SET .LINK =NIL
SET .KEY =NUM ̲FMT ̲ID
END ̲WITH
CASE SEARCH ̲PRIMARY ̲KEY(UPCO ̲TMP ̲PARAM)
(CC):ERROR ̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
END
Fig. 4.2.1.4.10-18a…86…1 …02… …02… …02… …02… …02… …02…
MOVE ̲TABLE ̲ENTRY ̲VARIABLE ̲VALUES
MOVE VARIABLE VALUES FROM PRINT ̲ACC ̲TABLE
̲BUFFER
TO THE APPROBIATEVARIABLES
END
Fig. 4.2.1.4.10-18b…86…1 …02… …02… …02… …02… …02… …02…
GHK ̲MSG ̲SUB ̲TYP
CASE SUBTYPE OF:
FOR ̲PRINT? SET ACCOUNTING.VDU ̲TRANS
̲ID=6 SPACES
FOR ̲LOCAL ̲PRINT? SET ACCOUNTING.VDU ̲TRANS
̲ID=
PRINT ̲ITEM ̲QEL ̲ATTR.INFORMATION(1..)
OTHERWISE? SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END ̲CASE
END
Fig. 4.2.1.4.10-19…86…1 …02… …02… …02… …02… …02… …02…
GHK ̲GARB ̲SUB ̲TYP
SUBTYP EQ FOR ̲GARBLE ̲PRINT?
SET NOT ̲FOR ̲PRINT ̲FLAG=TRUE
END
Fig. 4.2.1.4.10-20…86…1 …02… …02… …02… …02… …02… …02…
4.2.1.4.11 D̲O̲C̲U̲M̲E̲N̲T̲ ̲A̲C̲C̲ ̲P̲R̲E̲P̲A̲R̲A̲T̲I̲O̲N̲S̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
4.2.1.4.11.1F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
Initialyy it determines whether document accounting
is appropriate for the item i question the
corresponding FORMAT ̲ID is found by reading
an entry from the PRINT ̲ASSOUNTING ̲TABLE
If wanted the module carries out the necessary
preparations in order to perform Document
Accounting during printout of the current
item. The modul is called by the PRINTING
PREPARATIONS Module.
4.2.1.4.11.2I̲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) DOCUMENT ̲ACC ̲PREPARATIONS
B) DOCUMENT ̲ACC ̲PREPARATIONS(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
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s
R0 - R7 DETROYED
F̲a̲t̲a̲l̲ ̲E̲r̲r̲o̲r̲s̲
NONE
4.2.1.4.11.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
4.2.1.4.11.3.1 I̲N̲I̲T̲ ̲D̲O̲C̲ ̲C̲N̲O̲
The procedure initiates an IUC ̲record with
DOCUMENT ̲CONTROL ̲NO dat (TRANSACTION NO, SYSTEM
PRINT CONTROL NO. ETC.)
4.2.1.4.11.4D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
Ref. PRTE̲DATA
E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
Global No Series : Ref. CPS/DBD/001-sec.
5.4
System Parameters : Ref. CPS/DBD/001sec.
5.1
DEVICE TABLE : Ref. CPS/DBD/001-sec.
5.3.3
4.2.1.4.11.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
DOCUMENT ̲ACC ̲PREPARATIONS
R̲E̲A̲D̲ ̲V̲I̲E̲W̲ ̲A̲T̲T̲R̲(-2)
D̲E̲T̲ ̲C̲L̲A̲S̲S̲I̲F̲I̲C̲A̲T̲I̲O̲N̲(̲-3)
D̲E̲T̲ ̲T̲R̲A̲N̲S̲A̲C̲T̲I̲O̲N̲ ̲I̲D̲(-4)
G̲E̲T̲ ̲S̲Y̲S̲P̲R̲I̲N̲T̲ ̲C̲O̲N̲T̲R̲O̲L̲ ̲N̲O̲(-6)
G̲E̲T̲ ̲S̲T̲A̲R̲T̲ ̲O̲F̲ ̲T̲R̲A̲N̲S̲A̲C̲T̲I̲O̲N̲ ̲T̲I̲M̲E̲ (-7)
C̲H̲E̲C̲K̲ ̲S̲P̲E̲C̲A̲L̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(-8)
D̲E̲T̲ ̲N̲O̲ ̲O̲F̲ ̲C̲O̲P̲I̲E̲S̲(-9)
R̲E̲A̲D̲ ̲C̲I̲F̲ ̲F̲I̲E̲L̲D̲ ̲L̲I̲S̲T̲ (-10)
C̲O̲M̲P̲U̲T̲E̲ ̲N̲O̲ ̲O̲F̲ ̲P̲A̲G̲E̲S̲ ̲(-11)
C̲H̲E̲C̲K̲ ̲S̲U̲S̲P̲E̲C̲T̲E̲D̲ ̲D̲U̲P̲L̲I̲C̲A̲T̲I̲O̲N̲ (12)
END
Fig. 4.2.1.4.11-1…86…1 …02… …02… …02… …02… …02… …02…
READ ̲VIEW ̲ATTR
CASE GET ̲VIEW ̲ATTRIBUTES (PRINT ̲ITEM ̲QEL ̲REF)
PRIS ̲VIEW ̲ATTR,CC):ERROR
̲OK
ERROR? -ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
END
Fig. 4.2.1.4.11-2…86…1 …02… …02……02… …02… …02… …02… …02… …02… …02…
DET ̲CLASSIFICATION
WITH ACCOUNTING DO:
SET .CLASS =PRIS ̲VIEW ̲ATTR.PROFILE.LSW IAND
(BIT2 IOR BIT1 IOR BITO)
CASE .CLASS OF:
UNCLASSIFIED?- SET .LONG ̲CLASS ='NTO
̲UNCLASSIFIELD'
SET .SHORT
̲CLASS=UC
RESTRICTED? SET .LONG ̲CLASS ='NATO
̲RESTRICTED'
SET .SHORT
̲CLASS=RE
CONFIDENTIAL?- SET .LONG ̲CLASS ='NATO
̲CONFIDENTIAL'
SET .SHORT
̲CLASS=CO
SECRET? SET .LONG ̲CLASS ='SECRET'
ET .SHORT
̲CLASS=SC
COSMIC ̲TOP ̲SECRET?SET .LONG ̲CLASS ='COSMIC
̲TOP
̲SECRET'
SET .SHORT
̲CLASS=CT
OTHERWISE? E̲R̲R̲O̲R̲ ̲R̲E̲P̲(̲U̲P̲C̲O̲,̲C̲O̲N̲,̲I̲N̲T̲)(4.1.5.1.)
END ̲CASE
END ̲WITH
END
Fig. 4.2.1.4.11-3…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
DET ̲TRANSACTION ̲ID
G̲E̲T̲ ̲D̲E̲V̲I̲C̲E̲ ̲D̲E̲S̲I̲G̲N̲A̲T̲I̲O̲R̲(-5)
CASE GET ̲GSN (TRANSACTION
̲GSN,
TRUE
)
(ACCOUNTING.TRANS
̲SER
̲NO,
CC):ERROR
̲OK
ERROR? ANALSE ̲ERROR(CC.0):OK
OK?
END ̲CASE
END
Fig. 4.2.1.4.11-4…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
GET ̲DEVICE ̲DESIGNATOR
WITH UPCO ̲TMP ̲PARAM DO:
SET .TABLE ̲ID =DEVICE ̲TABLE
SET .FUNCTION =SEARCH ̲PRIMARY ̲KEY
SET .MASK1 =0
SET .ENTRY =0
SET .BUFFER ̲1 =UCO ̲KEY ̲LIST
SET .COUNT =1
SET :BUFFER ̲2 =ACC ̲DD ̲PLY ̲BUF
SET .BUFFER ̲2 ̲LENGTH =SIZE(ACC ̲DD ̲PLY ̲BUF)
SET .MASK ̲2 =DEV ̲DES ̲NO ̲OF ̲PLY
̲S ̲READ ̲MASK
END ̲WITH
WITH UPCO ̲KEY ̲LIST DO:
SET .INFO =0
SET .LINK =NIL
SET .KEY =RINTER ̲NUMBER
END ̲WITH
CASE SEARCH ̲PRIMARY ̲KEY(UPCO ̲TMP ̲PARAM)(CC):ERROR ̲OK
ERROR? -ANALYSE ̲ERROR(CC.0):OK
OK?
END ̲CASE
SET ACCOUNTING.DEV ̲DES =ACC ̲DD ̲PLY ̲BUF.DD
END
Fig.. 4.2.1.4.11-5…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
GET ̲SYSPRINT ̲CONTROL ̲NO
CASE GET ̲GSN (SYSTEM ̲PRINT ̲GSN,
TRUE)
(ACCOUNTING.SYSPRINT
̲CNO,
CC):ERROR ̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
ED
Fig. 4.2.1.4.11-6…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
GET ̲START ̲OF ̲TRANSACTION ̲TIME
WITH ACCOUNTING DO
CASE READ ̲TIME (F ̲TIME ̲TYPE)
(.START ̲TIME,CC):ERROR ̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
CAS CONVERT ̲TIME (TO ̲DTG ̲TYPE, .START ̲TIME)
(.START ̲DTG, CC): ERROR
̲OK
ERROR? ANALYSE ̲ERROR (CC,[): OK
OK?
END ̲CASE
END ̲WITH
END
Fig. 4.2.1.4.11-7…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
CHECK ̲SPECIAL ̲HANDLING
CASE GET ̲SYSTEM ̲PARAMETER(SPECIAL ̲HANDLING ̲PRINT ̲PARAMETER)
(SPEC ̲HANDL ̲SYSPARAM,
CC):ERROR ̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
ND ̲CASE
SET ACCOUNTING.SPEC ̲HANDL=PRIS ̲VIEW ̲ATTR.PROFILE IAND
SPECIAL ̲HANDLING ̲MASK
SPEC ̲HANDL ̲SYSPARAM IAND ACCOUNTING ̲SPEC ̲HANDL EQ 0?
CASE GET ̲GSN (SPECIAL ̲HANDL ̲GSN,TRUE)
(ACCOUNTING.SPEC ̲HANDL ̲CNO,CC)
:ERROR ̲OK
ERROR? AALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
SET ACCOUNTING.SPEC ̲HANDL ̲CNO="4SPACES"
END
Fiig. 4.2.1.4.11-8
SET ̲NO ̲OF ̲COPIES
SET ACCOUNTING.NO ̲OF ̲COPIES=
PRINT ̲ITEM ̲QEL ̲ATTR.HEADER.INF/
ACC ̲DD ̲PLY ̲LUF.NO ̲OF ̲PLY ̲S
DIVISION ̲REMAINDER NE 0? INCREMENT ACCOUNTING.NO
̲OF ̲COPIES
ACCOUNTING.NO ̲OF ̲COPIES GT MAX ̲NO ̲OF ̲COPIES?
SET ACCOUNTING.NO ̲OF ̲COPIES = MAX ̲NO ̲OF
̲COPIES
.SET COPY ̲COUNTER=ACCOUNTING.NO ̲OF ̲COPIES
END
Fig. 4.2.1.4.11-9…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
READ ̲CIF ̲FIELD ̲LIST
READ ̲SELECTED ̲ADM ̲FIELD ̲DATA
MOVE ̲ACC ̲VARIABLES
END
Figure 4.2.1.4.11-10…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
COMPUTE ̲NO ̲OF ̲PAGES
COMPUTE ̲NO ̲OF ̲INCARNATIONS
SET TOTAL ̲NO ̲OF ̲(under score)LINES = PRINT ̲ACC ̲TABLE
̲BUFFER.
FORMAT ̲LINE ̲COUNT + NO ̲OF ̲INCARNATIONS
SET ̲NO ̲OF ̲PAGE = TOTAL ̲NO ̲OF ̲LINES/
(NO ̲OF ̲LINES ̲PR ̲PAGE - NO ̲OF ̲PAGE ̲ACC ̲LINES
DIVIVISION ̲REMAINDER NE 0? INCREMENT NO ̲OF ̲PAGES
SET ACCOUNTING.NO ̲OF ̲PAGES= NO ̲OF ̲PAGES
END
Fig. 4.2.1.4.11-11…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
CHECK ̲SUSPECTED ̲DUPLICATION
PRIS ̲VIEW ̲ATTR.RECOVERY ̲INF EQ TRUE?
SET ACCOUNTING.SUSPECTED ̲DUPL = "21 SPACES"
SET ACCOUNTING.SUSPECTED ̲DUPL =
"SUSPECTED ̲DUPICATION"
END
Fig. 4.2.1.4.11-12…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
4.2.1.4.12 T̲R̲A̲N̲S̲A̲C̲T̲I̲O̲N̲ ̲A̲C̲C̲O̲U̲N̲T̲I̲N̲G̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
4.2.1.4.12.1F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
This Module takes care of the final transaction
accounting, which is required for Cmments, Messages
and Service Messages. The transaction accounting
consists of generation and sending of Log records
and Delivery Status Reports.
4.2.1.4.12.2 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) TRANSACTION ̲ACCOUNTING
b) TRANSACTION ̲ACCOUNTING(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 (DESTROYED)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 - R7 DESTROYED
F̲a̲t̲a̲l̲ ̲E̲r̲r̲o̲r̲s̲
NONE
4.2.1.4.12.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A
4.2.1.4.12.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲s̲
D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
REF PRT ̲DATA
4.2.1.4.12.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
Ref fig. 4.2.1.4.12-1…86…1 …02… …02… …02… …02… …02…
…02… …02… …02…
TRANSACTION ̲ACCOUNTING
G̲E̲T̲ ̲L̲O̲G̲ ̲B̲U̲F̲F̲E̲R̲ ̲D̲A̲T̲A̲ ̲(̲-2)
R̲E̲S̲E̲R̲V̲E̲ ̲A̲N̲D̲ ̲W̲R̲I̲T̲E̲ ̲L̲O̲G̲ ̲B̲U̲F̲F̲E̲R̲ ̲(-3)
S̲E̲N̲D̲ ̲L̲O̲G̲ ̲B̲U̲F̲F̲E̲R̲ ̲(̲-4)
G̲E̲T̲ ̲D̲E̲L̲I̲V̲E̲R̲Y̲ ̲S̲T̲A̲T̲U̲S̲ ̲B̲U̲F̲F̲E̲R̲ ̲D̲A̲T̲A̲(̲.5)
R̲E̲S̲E̲R̲V̲E̲ ̲A̲N̲D̲ ̲W̲R̲I̲T̲E̲ ̲D̲E̲L̲I̲V̲E̲R̲Y̲ ̲T̲A̲T̲U̲S̲ ̲B̲U̲F̲F̲E̲R̲ ̲(̲-6)
S̲E̲N̲D̲ ̲D̲E̲L̲I̲V̲E̲R̲Y̲ ̲S̲T̲A̲T̲U̲S̲ ̲B̲U̲F̲F̲E̲R̲ ̲(-7)
SET AWAITING ̲LOG ̲ACK ̲FLAG=TRUE
END
Fig. 4.2.1.4.12-1…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
GET ̲LOG ̲BUFFER ̲DATA
WITH PRIS ̲LOG ̲BUFFER DO:
SET .DEVICE ̲DESIGNATOR =ACCUNTING.DEV ̲DES
SET .TRANSACTION ̲SERIAL ̲NO =ACCOUNTING.TRANS ̲SER
̲NO
SET .FORMAT ̲ID =ACCOUNTING.N ̲FRMAT ̲ID
SET .ITEM ̲1 ̲REF ̲ID =ACCOUNTING.ITEM ̲REF
SET .EXIT ̲CAUSE =EXIT ̲CAUSE ̲VAR
SET .CLASSIFICATION =ACCOUNTING.CLASS
SET .SPEC ̲HAND =ACCOUNTING.SPEC ̲HANDL
SET .TRANSACTION ̲START ̲TIME =ACCOUNTING.START ̲TIME
SET .SYSTEM ̲PRINT ̲CONT ̲NO =ACOUNTING.SYSPRINT ̲CNO
END ̲WITH
END
Fig. 4.2.1.4.12-2…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
RESERVE ̲AND ̲WRITE ̲LOG ̲BUFFER
SET PRIS ̲TRANSAC ̲QREF.MAIN ̲QUEUE =PRIS ̲CMDQ ̲ID
SET PRIS ̲TRANSAC ̲QREF.SUB ̲QUEUE =MAIN
CASE RESERVE ̲BUFFER (SIZE(PRINTER ̲PTP ̲OCR ̲LOG),
PRI ̲TRANSAC ̲QREF),
(PRIS ̲TRANSAC ̲BUF ̲REF,CC):ERROR
̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
CASE WRITE ̲BUFFER(PRIS ̲TRANSAC ̲BUF ̲REF,
PRIS ̲LOG ̲BUFFER,
SIZE(PRINTER ̲PTP OCR ̲LOG),0)
(WORDS ̲WRITTEN,CC):ERROR ̲OK
ERROR? ANLYSE ̲ERROR(CC,0)OK
OK?
END ̲CASE
END
Fig. 4.2.1.4.12-3…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
SEND ̲LOG ̲BUFFER
SET PRIS ̲SEND ̲LOG ̲QREF.MAIN ̲QUEUE =SYSTEM ̲Q
SET PRIS ̲SEND ̲LOG ̲QREF.SUB ̲QUEUE =LOG
WITH PRIS ̲SEND ̲PARAMS DO:
SET .INFORMATION ̲TYPE =FALSE
SET .CHEC ̲STATUS =FALSE
SET .PROFILE =0
WITH .HEADER DO:
SET .MAINTYPE =LOG ̲RECORD
SET .SUBTYPE =PRINTER ̲LOG
SET .FLAGS =0
SET .INF =0
END ̲WITH
END ̲WITH
CASE SEND ̲REQUEST (PRIS ̲SEND ̲PARAMS,
PRIS ̲TRANSAC ̲BUF ̲RE,
PRIS ̲SEND ̲LOG ̲QREF,
PRIS ̲TRANSAC ̲QREF)
(PRIS ̲SEND ̲PARAMS,CC):ERROR
̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK? CASE DISMANTLE ̲BUFFER (PRIS ̲TRANSAC
̲BUF ̲REF)
(CC):ERROR
̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
O?
END ̲CASE
END ̲CASE
END
Fig. 4.2.1.4.12-4…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
GET ̲DELIVERY ̲STATUS ̲BUFFER ̲DATE
WITH PRIS ̲DELIVERY ̲STATUS ̲BUFFER DO:
SET .MSG ̲TYPE =ACCOUNTING.FORMAT ̲ID
SET .TIME =ACCOUNTING.TIME ̲STAMP
SET .ITEM ̲REF =ACCOUNTING.TEM ̲REF ̲ID
SET .ORIG =ACCOUNTING.FROM ̲PLAREF ̲SCD
SET .DTG =ACCOUNTING.DTG
END ̲WITH
END
Fig. 4.2.1.4.12-5
RESERVE ̲AND ̲WRITE ̲DELIVERY ̲STATUS ̲BUFFER
CASE RESERVE ̲BUFFER(SIZE (DEL ̲STA ̲TYPE),
PRIS ̲TRANSAC ̲QREF)
PRIS ̲TRANSAC ̲BUF ̲REF,CC):ERROR
̲OK
ERROR? ANALYSE ̲ERROR(CC,):OK
OK?
END ̲CASE
CASE WRITE ̲BUFFER (PRIS ̲TRANSAC ̲BUF ̲REF,
PRIS ̲DELIVERY ̲STATUS ̲BUFFER,
SIZE(DEL ̲STA ̲TYPE),0
(WORDS ̲WRITTEN;CC):ERROR ̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
END
Fig. 4.2.1..12-6…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
SEND ̲DELIVERY ̲STATUS ̲BUFFER
WITH PRIS ̲SEND ̲PARAMS DO:
SET .INFORMATION ̲TYPE =FALSE
SET .CHECKP ̲STATUS =FALSE
SET .PROFILE =0
WITH .HEADER DO:
SET .MAINTPE =TEP ̲INTERNAL
SET .SUBTYPE =MSG ̲STATUS
̲CHANGE
SET .FLAGS =0
SET .INF =PRINTER ̲NUMBER
+
MAX ̲NO ̲OF
̲VDUS
END ̲WITH
END ̲WITH
SET PRIS ̲TRANSAC ̲QREF.MAIN ̲QUEUE =UMAM ̲COL
̲Q
SET PRIS ̲TRANSAC ̲QREF.SUB ̲QUEUE =UMAM ̲DLIVERY
CASE SEND ̲QEL (PRIS ̲SEND ̲PARAMS,
PRIS ̲TRANSAC ̲BUF ̲REF,
PRIS ̲TRANSAC ̲QREF)
(PRIS ̲SEND ̲PARAMS,CC):ERROR
̲OK
ERROR? ANALYSE ̲ERROR(CC,0):OK
OK? CASE DISMANTLE ̲BUFFER (PRIS ̲TRANSAC
̲BUF ̲REF)
(CC):ERROR
̲OK
ERRO? ANALYSE ̲ERROR(CC,0):OK
OK?
END ̲CASE
END ̲CASE
END
Fig. 4.2.1.4.12-7…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
4.2.1.4.13 C̲L̲E̲A̲N̲ ̲I̲T̲E̲M̲ Specification
4.2.1.4.13.1F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The module stops executing of an item in a proper
manner. It controls that views are closed and
tat transaction accounting is carried out.
4.2.1.4.13.2I̲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) CLEAN ̲ITEM
b) CLEAN ̲ITEM (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 DESTROYED
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0 - R7 DESTROYED
F̲a̲t̲a̲l̲ ̲E̲r̲o̲r̲s̲
NONE
4.2.1.4.13.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
N/A
