DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Wang WCS documentation floppies

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Wang WCS documentation floppies

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦4a28da4e3⟧ Wang Wps File

    Length: 20757 (0x5115)
    Types: Wang Wps File
    Notes: CPS/SDS/038               
    Names: »1899A «

Derivation

└─⟦d6c5ca2c3⟧ Bits:30006095 8" Wang WCS floppy, CR 0149A
    └─ ⟦this⟧ »1899A « 

WangText

…10……00……00……00……00…/…0a……00……00…/…0b…/…0e…/…01…/ /…05…/…07….…08….…0c….…0e……1d……0b……86…1                                             …02…           …02…   …02…        

…02…CPS/SDS/038

…02…JHH/820514…02……02…
MSO VDU
DETAILED DESIGN SPECIFICATION…02……02…CAMPS









         4.2.4.2 Software Structure .................
                     
         4.2.4.3 Data Flow and Control Logic ........
                     
           4.2.4.3.1 Data Flow  .....................
                         
           4.2.4.3.2 Control Logic ..................
                         
         4.2.4.7 Subpackage Interfaces ..............
                     
           4.2.4.7.1 RETR UMAM Interfaces ...........
                         
           4.2.4.7.2 RETR UFCO Interfaces ...........
                         


4.2.4    R̲e̲t̲r̲i̲e̲v̲e̲ ̲S̲u̲b̲p̲a̲c̲k̲a̲g̲e̲

         The Message Service Retrieve Subpackage (RETR) is responsible
         for reception and treatment of retrieval answer from
         SAR.


4.2.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 functions included in this subpackage are the following:

         -   reception of off-line/on-line notification

         -   reception of retrieved items

         -   reception of error notification

         The functional breakdown is shown in figure 4.2.4.1-1.
         Retrieved items and off-line/on-line notifications
         are
         received from SAR in the retrieve queue. After analysis,
         the received item is sent to the destination


4.2.4.2  S̲o̲f̲t̲w̲a̲r̲e̲ ̲S̲t̲r̲u̲c̲t̲u̲r̲e̲

         The retrieve subpackage consists of one coroutine.

         SETR will wait on reception of a QEL in the Retrieve
         Queue. The QEL will identify one of the following events:
         -   on-line/off-line notification
         -   on-line retrieval
         -   off-line retrieval

         Each of the events will constitute a main function.
         A brief description of each function is given below:

         a)  On-line/off-line notification. 

             The received item is sent to SEFCO.

         b)  On-line Retrieval:

             The received item is sent to SEFCO.

         c)  Off-line Retrieval:

             The received item is sent to the Response Queue.

         d)  Retrieval ̲Error ̲Notification.

             The received item is sent to SEFCO






                     figure 4.2.4.2-1



4.2.4.3  D̲a̲t̲a̲ ̲F̲l̲o̲w̲ ̲a̲n̲d̲ ̲C̲o̲n̲t̲r̲o̲l̲ ̲L̲o̲g̲i̲c̲


4.2.4.3.1    D̲a̲t̲a̲ ̲F̲l̲o̲w̲ 

         The HIPO diagram overleaf show the data flow of SETR.
         Refer fig. 4.2.4.3-1 to 3

4.2.4.3.2    C̲o̲n̲t̲r̲o̲l̲ ̲L̲o̲g̲i̲c̲

         The control logic of SETR is contained in one module.




                       Tre hippoer



4.2.4.4  M̲o̲d̲u̲l̲e̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲ 


4.2.4.4.1    S̲E̲T̲R̲ ̲M̲A̲I̲N̲ ̲M̲o̲d̲u̲l̲e̲ 


4.2.4.4.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 module is to receive input from
         the retrieve queue (MSOS ̲ARR, subqueue 3) and to analyse
         the received QEL-attributes (maintype,subtype)


4.2.4.4.1.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)  SETR ̲MAIN
         b)  SETR ̲MAIN (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                    Destroyed

         The procedure is a submodule which is only called by
         the Coroutine Monitor.


4.2.4.4.1.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲



4.2.4.4.1.3.1 O̲F̲F̲L̲I̲N̲E̲ ̲S̲E̲T̲R̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲

             sends off-line retrieved messages to response queue.





4.2.4.4.1.3.2 O̲F̲F̲L̲I̲N̲E̲ ̲S̲Y̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲

             sends off-line retrieved system catalogues to response
             queue.



4.2.4.4.1.3.3 O̲F̲F̲L̲I̲N̲E̲ ̲T̲R̲A̲N̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲

             sends off-line retrived transmission catalogues
             to response queue.




4.2.4.4.1.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̲

             QELEMENT ̲MAIN ̲TYPE           ref. CPS/DBD/001
             ACK ̲SUBTYPE                  ref. CPS/DBD/001
             TRANS ̲CAT ̲SUBTYPE            ref. CPS/DBD/001
             MESSAGE ̲SUBTYPE              ref. CPS/DBD/001
             SYST ̲CAT ̲SUBTYPE             ref. CPS/DBD/001
             COROUTINE ̲SEMAPHORE          ref. CPS/DBD/001
             MSOS ̲RECV ̲QUEUE ̲TYPE         ref. 4.1.4
             QUEUE ̲ERROR ̲TYPE             ref. 4.1.4
             QUEUE ̲REFERENCE ̲TYPE         ref. CPS/DBD/OO1
             QEL ̲REFERENCE ̲TYPE           ref. CPS/DBD/OO1
             QEL ̲ATTRIBUTES ̲TYPE          ref. CPS/DBD/OO1
             QUEUE ̲ERROR ̲TYPE             ref. 4.1.4
             SEFCO ̲SETR ̲ATTR              ref. 4.1.4
             SEND ̲PARAMS ̲TYPE             ref. CPS/DBD/OO1
             SETR ̲QEL                     ref. 4.1.4
             SETR ̲QEL ̲ATTR                ref. 4.1.4
             IDENT ̲TYPE                   ref. 4.1.4
             SETR ̲SEFCO ̲RESPONSE ̲TYPE     ref. 4.1.4

         b)  E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲

             INPUT ̲CIF                    ref. 4.1.4
             USER ̲ACTIV ̲FLAG              ref. 4.1.4
             SETR ̲OP (m)                  ref. 4.1.4
             TRANSACTION ̲ID               ref. 4.1.4
             MSOS ̲SEND ̲PARAMS (m)         ref. 4.1.4
             QERROR ̲INF (m)               ref. 4.1.4
             MSOS ̲S2                      ref. 4.1.4
             SETR ̲IDENT                   ref. 4.1.4
             MSOS ̲ARRQ                    ref. 4.1.4

         c)  L̲o̲c̲a̲l̲ ̲D̲a̲t̲e̲

             CONST RETR ̲SUB =             3
             CONST RESP ̲SUB =             2
             PROFILE ̲FLAG                 BOOLEAN
             INIT PROFILE ̲FLAG=FALSE
             VAR Q ̲REF : QUEUE REFERENCE





4.2.4.4.1.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

         Objects received in the retrieve queue are analysed.
         The following actions are taken:

         -   Unknown QEL-types are sent to SSC.

         -   Online/Offline/SAR-error notifications QEL-types
             are
             signalled to SEFCO

         -   Other QEL-types are analysed and sent to either
             SEFCO or RESPONSE ̲QUEUE.

         System error will be reported by calling the TEP QUEUE
         ̲ERROR procedure (4.1.5.1)




      SETR ̲MAIN

   LOOP

      Q ̲REF.MAINQ = MSOS ̲ARRQ

      Q ̲REF.SUBQ = RETR ̲SUB

      CASE RECEIVE ̲FIRST ̲QEL(WAIT=TRUE, Q ̲REF)

                            (SETR ̲QEL,SETR ̲QEL ̲ATTR,SUBQUEUE,CC):
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 ERROR
                                                                 ̲OK

         ERROR? CASE ANALYSE ̲ERROR(CC,1,QEL ̲PROFILE
         ̲CHECK):(L1)

                     L1? SET PROFILE ̲FLAG=TRUE

                 END CASE

         OK?

      END CASE

      CASE SETR ̲QEL ̲ATTR.HEADER.MAINTYPE OF QELEMENT
      ̲MAIN ̲TYPE

         PLAINDRESS,
         PLAINDRESS ̲DATA,
         PLAINDRESS ̲SERVICE,
         ABB ̲PLAINDRESS,
         ABB ̲PLAINDRESS ̲DATA,
         ABB ̲PLAINDRESS ̲SERVICE,

         ABB ̲SERVICE?   S̲E̲T̲R̲ ̲O̲N̲E̲ ̲I̲N̲S̲P̲E̲C̲T̲ ̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲2̲)̲

         SYSTEM ̲CATALOG ̲DISPLAY? --S̲E̲T̲R̲ ̲T̲W̲O̲ ̲I̲N̲S̲P̲E̲C̲T̲
         ̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲3̲)̲

         TRANSMISSION ̲CATALOG ̲DISPLAY? --S̲E̲T̲R̲ ̲T̲H̲R̲E̲E̲
         ̲I̲N̲S̲P̲E̲C̲T̲
                                                  
                               (̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲4̲)̲

         ACK?                      S̲E̲T̲R̲ ̲F̲O̲U̲R̲ ̲I̲N̲S̲P̲E̲C̲T̲
                              ̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲5̲)̲

         OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲ ̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

      END CASE

   END LOOP

   END SETR ̲MAIN

              Figure 4.2.4.4.1.5-1


   SETR ̲ONE ̲INSPECT

   CASE SETR ̲QEL ̲ATTR.HEADER.SUBTYPE OF MESSAGE SUBTYPE

      FOR ̲DISPLAY? S̲E̲T̲R̲ ̲Q̲E̲L̲ ̲I̲N̲S̲P̲E̲C̲T̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲6̲)̲

      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






































              Figure 4.2.4.4.1.5-2


   SETR ̲TWO ̲INSPECT

   CASE SETR ̲QEL ̲ATTR.HEADER.SUBTYPE OF SYST ̲CAT ̲SUBTYPE

      SYST ̲CAT ̲DISPLAY? S̲E̲T̲R̲ ̲Q̲E̲L̲ ̲1̲ ̲I̲N̲S̲P̲E̲C̲T̲(̲4̲.̲2̲.̲4̲.̲4̲.̲5̲-̲8)̲

      OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   END CASE






































              Figure 4.2.4.4.1.5-3


   SETR ̲THREE ̲INSPECT

   CASE SETR ̲QEL ̲ATTR.HEADER.SUBTYPE OF TRANS ̲CAT ̲SUBTYPE

      TRANS ̲CAT ̲DISPLAY? S̲E̲T̲R̲ ̲Q̲E̲L̲ ̲2̲ ̲I̲N̲S̲P̲E̲C̲T̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲0)̲
      

      OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   END CASE






































              Figure 4.2.4.4.1.5-4


   SETR ̲FOUR ̲INSPECT

   CASE SETR ̲QEL ̲ATTR.HEADER.SUBTYPE OF ACK ̲SUBTYPE

      SAR ̲ONLINE ̲NOTIFICATION ̲ACK? SETR ̲OP.CMD=ONLINE
      ̲NOTIFICATION

                                   SIGNAL ̲OPSEM(MSOS
                              ̲S2,SETR ̲OP):OK

                                   D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲

      SAR ̲OFFLINE ̲NOTIFICATION ̲ACK? SETR ̲OP.CMD=OFFLINE
      ̲NOTIFICATION

                                    SIGNAL ̲OPSEM(MSOS
                              ̲S2,SETR ̲OP):OK

                                    D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲

      SAR ̲ERROR ̲ACK ̲RETRIEVALS?  S̲E̲T̲R̲ ̲Q̲E̲L̲ ̲3̲ ̲I̲N̲S̲P̲E̲C̲T̲(̲4̲.̲2̲.̲2̲.̲4̲.̲1̲.̲5̲-̲1̲2)̲

      OTHERWISE? T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   END CASE


























              Figure 4.2.4.4.1.5-5


   SETR ̲QEL ̲INSPECT

   SETR ̲QEL ̲ATTR.HEADER.INFO.BIT0 EQ BIT0?

                              O̲F̲F̲L̲I̲N̲E̲ ̲S̲E̲T̲R̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲3̲)̲

   O̲N̲L̲I̲N̲E̲ ̲S̲E̲T̲R̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲7̲)̲

   END






































              Figure 4.2.4.4.1.5-6


   ONLINE ̲SETR ̲HANDLING

   SETR ̲QEL ̲ATTR.HEADER.INFO.TRANSACTION ̲SER ̲NO NE
   TRANSACTION.

                  ID ̲SERIAL ̲NO? O̲F̲F̲L̲I̲N̲E̲ ̲S̲E̲T̲R̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲3̲)̲

   USER ̲ACTIVE ̲FLAG EQ FALSE?  O̲F̲F̲L̲I̲N̲E̲ ̲S̲E̲T̲R̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲3̲)̲

   PROFILE ̲FLAG EQ TRUE? M̲S̲O̲S̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   SEFCO ̲SETR ̲ATTR=SETR ̲QEL ̲ATTR

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 2 EQ BIT
   2?


                  SETR ̲OP.CMD=RERUN ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 3 EQ BIT
   3?


                  SETR ̲OP.CMD=READDRESS ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   TEP ̲QUEUE ̲ERROR(CONT)(4.1.5.1)

   END ONLINE ̲SETR ̲HANDLING















              Figure 4.2.4.4.1.5-7


   SETR ̲QEL ̲1 ̲INSPECT

   SETR ̲QEL ̲ATTR.HEADER.INFO.BIT0 EQ BIT0?

                        O̲F̲F̲L̲I̲N̲E̲ ̲S̲Y̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲4̲)̲

   O̲N̲L̲I̲N̲E̲ ̲S̲Y̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲9̲)̲

   END SETR ̲QEL ̲1 ̲INSPECT






































              Figure 4.2.4.4.1.5-8


   ONLINE ̲SYSCAT ̲HANDLING

   SETR ̲QEL ̲ATTR.HEADER.INFO.TRANSACTION ̲SER.NO NE
   TRANSACTION

                  ID.SERIAL ̲NO? O̲F̲F̲L̲I̲N̲E̲ ̲S̲Y̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 (̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲4̲)̲

   USER ̲ACTIVE ̲FLAG EQ FALSE?  O̲F̲F̲L̲I̲N̲E̲ ̲S̲Y̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 (̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲4̲)̲

   PROFILE ̲FLAG 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̲)̲

   SEFCO ̲SETR ̲ATTR=SETR ̲QEL ̲ATTR

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 2 EQ BIT
   2?


                  SETR ̲OP.CMD=RERUN ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 3 EQ BIT
   3?


                  SETR ̲OP.CMD=READDRESS ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   END ONLINE ̲SYSCAT ̲HANDLING












              Figure 4.2.4.4.1.5-9


   SETR ̲QEL ̲2 ̲INSPECT

   SETR ̲QEL ̲ATTR.HEADER.INFO.BIT0 EQ BIT0?


                     O̲F̲F̲L̲I̲N̲E̲ ̲T̲R̲A̲N̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲5̲)̲

   O̲N̲L̲I̲N̲E̲ ̲T̲R̲A̲N̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲(̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲1̲)̲

END SETR ̲QEL2 ̲INSPECT





































              Figure 4.2.4.4.1.5-10


   ONLINE ̲TRANSCAT ̲HANDLING

   SETR ̲QEL ̲ATTR.HEADER.INFO.TRANSACTION ̲SER ̲NO NE
   TRANSACTION

                  ID ̲SERIAL ̲NO? O̲F̲F̲L̲I̲N̲E̲ ̲T̲R̲A̲N̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 (̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲5̲)̲

   USER ̲ACTIVE ̲FLAG EQ FALSE?  O̲F̲F̲L̲I̲N̲E̲ ̲T̲R̲A̲N̲S̲C̲A̲T̲ ̲H̲A̲N̲D̲L̲I̲N̲G̲
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 (̲4̲.̲2̲.̲4̲.̲4̲.̲1̲.̲5̲-̲1̲5̲)̲

   PROFILE ̲FLAG 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̲)̲

   SEFCO ̲SETR ̲ATTR=SETR ̲QEL ̲ATTR

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 2 EQ BIT
   2?


                  SETR ̲OP.CMD=RERUN ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   SETR ̲QEL ̲ATTR.HEADER.INFO.RETR ̲FLAG.BIT 3 EQ BIT
   3?


                  SETR ̲OP.CMD=READDRESS ̲NOTIFICATION

                  INPUT ̲CIF=SETR ̲QEL

                  SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   T̲E̲P̲ ̲Q̲U̲E̲U̲E̲ ̲E̲R̲R̲O̲R̲(̲C̲O̲N̲T̲)̲(̲4̲.̲1̲.̲5̲.̲1̲)̲

   END ONLINE ̲TRANSCAT ̲HANDLING














              Figure 4.2.4.4.1.5-11


   SETR ̲QEL ̲3 ̲INSPECT

   SETR ̲QEL ̲ATTR.HEADER.SUBTYPE.RETR ̲FLAGS.BIT0 EQ
   BIT0?

          MOVE DATA TO MSOS ̲SEND ̲PARAMS

          Q ̲REF.MAINQ = MSOS ̲ARRQ

          Q ̲REF.SUBQ = RESP ̲SUB

         CASE SEND(MSOS ̲SEND ̲PARAMS,SETR ̲QEL,Q ̲REF)

                   (MSOS ̲SEND ̲PARAMS,CC):ERROR ̲OK

             ERROR? CASE ANALYSE ̲ERROR(CC,1,BLOCKED
             ̲QUEUE):(L1)

                        L1?

                     END CASE

             OK?

         END CASE

         D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲

   SETR ̲OP.CMD=RETRIEVAL ̲ERROR

   SIGNAL ̲OPSEM(MSOS ̲S2,SETR ̲OP):OK

   D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲

   END SETR ̲QEL3 ̲INSPECT


















              Figure 4.2.4.4.1.5-12


 OFFLINE ̲SETR ̲HANDLING

 MOVE DATA TO MSOS ̲SEND ̲PARAMS

 Q ̲REF.MAINQ = MSOS ̲ARRQ

 Q ̲REF.SUBQ = RESP ̲SUB

 CASE SEND (MSOS ̲SEND ̲PARAMS,SETR ̲QEL,Q ̲REF)

           (MSOS ̲SEND ̲PARAMS,CC) : ERROR ̲OK

    ERROR? CASE ANALYSE ̲ERROR(CC,1,BLOCKED ̲QUEUE) :
 (L1)

              L1?

          END CASE

    OK?

 END CASE

 D̲I̲S̲M̲(̲S̲E̲T̲R̲-̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲























               Figure 4.2.4.4.5-13



 OFFLINE ̲SYSCAT ̲HANDLING

 MOVE DATA TO MSOS ̲SEND ̲PARAMS

 Q ̲REF.MAINQ = MSOS ̲ARRQ

 Q ̲REF.SUBQ = RESP ̲SUB

 CASE SEND (MSOS ̲SEND ̲PARAMS,SETR ̲QEL,Q ̲REF)

           (MSOS ̲SEND ̲PARAMS,CC) : ERAROR ̲OK

     ERROR? CASE ANALYSE ̲ERROR(CC,1,BLOCKED ̲QUEUE) :
 (L1)

               L1?

         END CASE

     OK?

 END CASE

 D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲























              Figure 4.2.4.4.1.5-14



 OFFLINE ̲TRANSCAT ̲HANDLING

 MOVE DATA TO MSOS ̲SEND ̲PARAMS

 Q ̲REF.MAINQ = MSOS ̲ARRQ

 Q ̲REF.SUBQ = RESP ̲SUB

 CASE SEND (MSOS ̲SEND ̲PARAMS,SETR ̲QEL,Q ̲REF)

           (MSOS ̲SEND ̲PARAMS,CC) :  ERROR ̲OK

     ERROR? CASE ANALYSE ̲ERROR (CC,1,BLOCKED ̲QUEUE)
 : (L1)

               L1?

             END CASE

     OK?

 END CASE

 D̲I̲S̲M̲(̲S̲E̲T̲R̲ ̲Q̲E̲L̲)̲(̲4̲.̲1̲.̲5̲.̲3̲)̲























              Figure 4.2.4.4.1.5-15


4.2.4.5  C̲o̲m̲m̲o̲n̲ ̲S̲u̲b̲p̲a̲c̲k̲a̲g̲e̲ ̲D̲a̲t̲a̲

         N/A.



4.2.4.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̲

         N/A.



4.2.4.7  S̲u̲b̲p̲a̲c̲k̲a̲g̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲



4.2.4.7.1    S̲E̲T̲R̲ ̲U̲M̲A̲M̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲

         Refer CPS/ICD/009


4.2.4.7.2    S̲E̲T̲R̲ ̲S̲E̲F̲C̲O̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲

         The following notifications are sent from SETR
         to SEFCO via operation semaphore MSOS ̲S2:

         ONLINE ̲NOTIFICATION
         OFFLINE ̲NOTIFICATION
         RERUN ̲NOTIFICATION
         READDRESS ̲NOTIFICATION
         RETRIEVAL ̲ERROR.



4.3      M̲E̲M̲O̲R̲Y̲ ̲L̲A̲Y̲O̲U̲T̲

         As a basis for calculation the following figures
         are used:

         S̲E̲V̲C̲O̲ ̲C̲O̲R̲O̲U̲T̲I̲N̲E̲

          7  MODULES    x 0,125 K STATEMENT = 0,875
         K
         14 PROCEDURES  x 0,025 K STATEMENT = 0̲,̲3̲5̲ ̲
                                            ̲ ̲ 
                                              1,225
                                            K               1,2K



         S̲E̲F̲C̲O̲ ̲C̲O̲R̲O̲U̲T̲I̲N̲E̲

         12 MODULES     x 0,15 K STATEMENT  = 1,8  
                                            K
         28 PROCEDURES  x 0,075K STATEMENT  = 2̲,̲1̲ ̲ ̲
                                            ̲K̲
                                              3,9  
                                            K               4
                                                            K

         S̲E̲D̲I̲A̲ ̲C̲O̲R̲O̲U̲T̲I̲N̲E̲

          7 MODULES     x 0,175K STATEMENT  = 1,225
                                            K
         24 PROCEDURES  x 0,05 K STATMENT   = 1̲,̲2̲ ̲ ̲
                                            ̲K̲
                                              4,425
                                            K               2,4K

         S̲E̲T̲R̲ ̲C̲O̲R̲O̲U̲T̲I̲N̲E̲

          1 MODULE      x 0,25 K STATEMENT  = 0,25 
                                            K               0̲,̲3̲K̲
         TOTAL                                              7,9K

         Thus 1 source statment equals 2 words and DATA
         AREA is estimated to 3 K words the total Memory
         Consumption is 7.9K Works x 2 x 3K Words =
         1̲8̲,̲8̲K̲ ̲W̲o̲r̲d̲s̲



                    A̲P̲P̲E̲N̲D̲I̲X̲ ̲A̲

         This appendix contains the part of the MMI
         CONTROL ̲TABLE that is specific to the MSO together
         with specification of DISPLAY/VALIDATION procedures
         referenced via the table.

         Specification of the remaining part of the
         MMI ̲CONTROL TABLE relevant to the MSO can be
         found in CPS/SDS/039 and CPS/SDS/035 together
         with specification of referenced procedures…86…1
         …02…       …02…   …02…   …02…   …02…  …02…                   …02…     
                  …02…        
 I̲N̲S̲E̲R̲T̲ ̲B̲T̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 Outputs "BT" to buffer

 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)      INSERT ̲BY   (READ ̲ITEM ̲PT          INTEGER
                      ITEM ̲LENGTH           INTEGER
                     WRITE ̲ITEM ̲PT          INTEGER)
                      ITEM ̲LENGTH)          INTEGER)
                                            : ERROR
                                            ̲OK

 b)      INSERT ̲BY   (R0,R1,R2,R6) : OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2      Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 None

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 Sets ITEM ̲LENGTH equal 2 and transfers BT to addr.
 WRITE ITEM ̲PT



                        I̲N̲S̲E̲R̲T̲ ̲N̲N̲N̲N̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 Outputs NNNN to buffer

 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)      INSERT ̲NNNN    (READ ̲ITEM ̲PT       INTEGER
                         ITEM ̲LENGTH        INTEGER
                         WRITE ̲ITEM ̲PT      INTEGER)
                        (ITEM ̲LENGTH        INTEGER)
                                            : ERROR
                                            ̲OK

 b)      INSERT ̲NNNN    (R0,R1,R2,R6) . ERROR ̲OK

         C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

         R0-R1   Pointer to Item to be converted
         R2      Length of Item to be converted
         R3-R4   Pointer to where item is to be stored
         R6      LINK

         R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

         R0-R1   Destroyed
         R2      Length of converted item
         R3-R7   Destroyed

         M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

         N/A

         D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

         None

         M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

         Sets ITEM ̲LENGTH equal 4 and transfers "NNNN"
         to addr WRITE ̲ITEM ̲PT.


 O̲U̲T̲ ̲S̲T̲A̲T̲I̲O̲N̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 Ifd TEXT ̲ENDING ̲LINE ̲COUNT is zero STATION ̲ID is output

 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)      OUT ̲STATION    (READ ̲ITEM ̲PT)      INTEGER
                         ITEM ̲LENGTH        INTEGER
                         WRITE ̲ITEM ̲PT      INTEGER)
                        (ITEM ̲LENGTH        INTEGER)
                                            : ERROR
                                            ̲OK

 b)      OUT ̲STATION (R0,R1,R2,R6) : ERROR ̲OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2          Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 None

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 TEXT ̲ENDING ̲LINE ̲COUNT is tested. If equal 0 ITEM
 LENGTH is set to 4, and data is transferred to WRITE
 ITEM ̲PT, otherwise no data is transferred.





 O̲U̲T̲ ̲G̲R̲O̲U̲P̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 If TEXT ̲ENDING ̲LINE ̲COUNT is zero GROUP ̲COUNT is output

 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)      OUTGROUP    (READ ̲ITEM ̲PT          INTEGER
                      ITEM ̲LENGTH           INTEGER
                      WRITE ̲ITEM ̲PT         INTEGER)
                     (ITEM ̲LENGTH           INTEGER)
                                            : ERROR
                                            ̲OK

 b)      OUTGROUP    (R0,R1,R2,R6) : ERROR ̲OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2      Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 None

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 TEXT ̲ENDING ̲LINE ̲COUNT is tested.  If equal to zero
 ITEM LENGTH is set to 9 and data is transferred to
 IOC BUFFER.  Otherwise no data is transferred.


 P̲R̲I̲N̲T̲ ̲R̲E̲Q̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 If Y is inserted in the local-print area on the DVU
 PRINT ̲FLAG is set to true.

 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)      PRINT ̲REQ   (READ ̲ITEM ̲PT          INTEGER
                      ITEM ̲LENGTH           INTEGER
                      WRITE ̲ITEM ̲PT         INTEGER)
                     (ITEM ̲LENGTH           INTEGER)
                                            : ERROR
                                            ̲OK

 b)      PRINT ̲REQ   (R0,R1,R2,R6) : ERROR ̲OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2      Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 PRINT ̲FLAG : ref. 4.3.2.5

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 The local print is compared with a Y and if it corresponds
 PRINT ̲FLAG is set to true.  Otherwise PRINT FLAG is
 false.



 C̲L̲E̲A̲R̲ ̲R̲E̲Q̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 If a Y is inserted in the CLEAR area on the VDU CLEAR
 FLAG is set to true.

 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)      CLEAR ̲REQ   (READ ̲ITEM ̲PT          INTEGER
                      ITEM ̲LENGTH           INTEGER
                      WRITE ̲ITEM ̲PT         INTEGER)
                     (ITEM ̲LENGTH           INTEGER)
                                            : ERROR
                                            ̲OK

 b)      CLEAR ̲REQ   R0,R1,R2,R6) : ERROR ̲OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2      Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 CLEAR ̲FLAG: ref. 4.3.2.5

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 The CLEAR area is compared with a Y and if it corresponds
 CLEAR ̲FLAG is set to true.  Otherwise CLEAR FLAG is
 set to false.




 P̲U̲N̲C̲H̲ ̲R̲E̲Q̲

 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲

 If Y is inserted in the PUNMCH area on the VDU PUNCH
 FLAG is set to true.

 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)      PUNCH ̲REQ   (READ ̲ITEM ̲PT          INTEGER
                      ITEM ̲LENGTH           INTEGER
                      WRITE ̲ITEM ̲PT         INTEGER)
                     (ITEM ̲LENGTH           INTEGER)
                                            : ERROR
                                            ̲OK

 B)      PUNCH ̲REQ   (R0,R1,R2,R6) : ERROR ̲OK

 C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Pointer to Item to be converted
 R2      Length of Item to be converted
 R3-R4   Pointer to where item is to be stored
 R6      LINK

 R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲

 R0-R1   Destroyed
 R2      Length of converted item
 R3-R7   Destroyed

 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲

 N/A

 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲

 PUNCH ̲FLAG :    ref.4.3.2.5

 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲

 The PUNCH area is compared with a Y and if it corresponds
 PUNCH ̲FLAG is set to true.  Otherwise PUNCH FLAG is
 set to false.




                    A̲P̲P̲E̲N̲D̲I̲X̲ ̲B̲




         S̲e̲q̲u̲e̲n̲c̲e̲ ̲T̲a̲b̲l̲e̲s̲:

         Mask 1 is at the moment left blank.  Column
         not filled in is null.