         TITLE    'SUBROUTINE TOPOLOGY - QSTABLE # 1'
         SYSTEM   SIG7FDP
         SYSTEM   FORTLIB
         DEF      TOPOLOGY,V#TOPOLOGY
QSCCB    DSECT    0
         RES,1    520
PUSHPOP  DSECT    0
         RES,1    808
STACKGRP DSECT    0
         RES,1    408
STACKSET DSECT    0
         RES,1    808
LISTING  DSECT    0
         RES,1    24
         CSECT    1
TOPOLOGY BAL,LL   9SETUP0
         STW,LC   RETURN
         LI,FP    S101
         BAL,LL   9PRINT
         BAL,LL   9ENDIOL
         LI,X4    1
         STW,X4   TEMP3A
         AI,X4    -131
TOP08    LI,AI    0
         STW,AI   QSCCB+130,X4
         MTW,1    TEMP3A
         BIR,X4   TOP08
         LI,AI    0
         STW,AI   TEMP39
         LI,NA    0
         BAL,LC   SUBSCHEM
         LW,AI    QSCCB
         BNE      TOP170
TOP12    LI,NA    0
         BAL,LC   AREALK
         LI,AI    1
         CW,AI    QSCCB
         BE       TOP167
         LI,AI    1
         STW,AI   PUSHPOP+200
         LI,AI    0
         STW,AI   PUSHPOP
         LI,AI    0
         STW,AI   STACKGRP+100
         LI,AI    1
         STW,AI   TEMP30
         LI,AI    0
         STW,AI   TEMP32
         LI,AI    0
         STW,AI   TEMP33
TOP23    LI,NA    0
         BAL,LC   GROUPLK
         LI,AI    1
         STW,AI   TEMP30
         LI,AI    1
         STW,AI   STACKSET+200
         LI,AI    1
         CW,AI    QSCCB
         BE       TOP12
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+61
         INTG,P   ZERO
         INTG,P   TEN
         CI,AI    1000
         BGE      TOP23
         LW,AI    STACKGRP+100
         BE       TOP3B
         LI,NA    1
         BAL,LC   USED
         INTG     TEMP3B
         LI,AI    1
         CW,AI    TEMP3B
         BE       TOP23
TOP3B    LI,NA    0
         BAL,LC   MEMBERLK
         LI,AI    1
         CW,AI    QSCCB
         BE       TOP5F
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+104
         INTG,P   FIFTEEN
         INTG,P   SEVENTEEN
         STW,AI   TEMP41
         LI,NA    1
         BAL,LC   FINDIREC
         INTG,P   TEMP41
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+111
         INTG,P   ZERO
         INTG,P   TEN
         CI,AI    1000
         BGE      TOP3B
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+100
         INTG,P   NINE
         INTG,P   ONE
         CI,AI    1
         BE       TOP3B
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+100
         INTG,P   TEN
         INTG,P   ONE
         CI,AI    1
         BE       TOP3B
         B        TOP23
TOP5F    LI,AI    0
         STW,AI   TEMP32
         LI,AI    0
         STW,AI   QSCCB+9
         LI,AI    0
         STW,AI   QSCCB+8
         LI,AI    0
         STW,AI   QSCCB+12
         LW,AI    QSCCB+4
         STW,AI   TEMP31
         LI,NA    6
         BAL,LC   READV
         INTG,P   ONE
         INTG     TEMP1
         INTG     TEMP3C
         INTG     TEMP31
         INTG,P   FOUR
         PZE,P    ERROR
         LI,FP    S100
         BAL,LL   9PRINT
         BAL,LL   9IODATA
         INTG     TEMP30
         LI,AI    1
         STW,AI   TEMP3C
TOP77    LW,X1    TEMP3C
         BAL,LL   9IODATA
         INTG     V#TOPOLOGY,X1
         MTW,1    TEMP3C
         LI,AI    4
         CW,AI    TEMP3C
         BGE      TOP77
         BAL,LL   9ENDIOL
         MTW,1    TEMP39
         LI,NA    6
         BAL,LC   RWRITC
         INTG,P   ONE
         INTG     TEMP30
         INTG,P   SIXTEEN
         INTG     TEMP38
         INTG,P   EIGHT
         PZE,P    ERROR
TOP88    LI,NA    0
         BAL,LC   OWNERLK
         LI,AI    1
         CW,AI    QSCCB
         BNE      TOP90
         LI,NA    0
         BAL,LC   PUT
         B        TOP10B
TOP90    LI,AI    1
         STW,AI   TEMP33
         LI,NA    0
         BAL,LC   SETLK
         LI,AI    1
         CW,AI    QSCCB
         BE       TOP88
         LW,AI    QSCCB+9
         STW,AI   TEMP32
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+105
         INTG,P   FIFTEEN
         INTG,P   SEVENTEEN
         STW,AI   TEMP31
         LI,X4    1
         STW,X4   TEMP3B
TOPA1    LW,AI    TEMP31
         CW,AI    STACKSET-1,X4
         BNE      TOPA7
         LW,AI    TEMP32
         CW,AI    STACKSET,X4
         BE       TOP90
TOPA7    LW,X4    TEMP3B
         AI,X4    2
         STW,X4   TEMP3B
         CW,X4    STACKSET+200
         BLE      TOPA1
TOPAC    MTW,1    TEMP30
         LI,NA    6
         BAL,LC   READV
         INTG,P   ONE
         INTG     TEMP1
         INTG     TEMP3C
         INTG     TEMP31
         INTG,P   FOUR
         PZE,P    ERROR
         LI,NA    6
         BAL,LC   READV
         INTG,P   ONE
         INTG     TEMP16
         INTG     TEMP3C
         INTG     TEMP32
         INTG,P   FOUR
         PZE,P    ERROR
         MTW,1    TEMP39
         LI,NA    6
         BAL,LC   RWRITC
         INTG,P   ONE
         INTG     TEMP30
         INTG,P   SIXTEEN
         INTG     TEMP38
         INTG,P   EIGHT
         PZE,P    ERROR
         LI,FP    S100
         BAL,LL   9PRINT
         BAL,LL   9IODATA
         INTG     TEMP30
         LI,AI    1
         STW,AI   TEMP3C
TOPCC    LW,X1    TEMP3C
         BAL,LL   9IODATA
         INTG     V#TOPOLOGY,X1
         MTW,1    TEMP3C
         LI,AI    4
         CW,AI    TEMP3C
         BGE      TOPCC
         LI,AI    1
         STW,AI   TEMP3C
TOPD5    LW,X1    TEMP3C
         BAL,LL   9IODATA
         INTG     TEMP15,X1
         MTW,1    TEMP3C
         LI,AI    4
         CW,AI    TEMP3C
         BGE      TOPD5
         BAL,LL   9IODATA
         INTG,E   TEMP33
S100     B        S101
         TEXT     '(1X,I3,1X,4A4,1X,4A4,1X,I2)'
S101     B        TOPF5
         TEXT     '(''LEVL GROUP NAMES      SET NAMES       ',;
                  '  ACCESS METH'')'
TOPF5    LW,AI    TEMP30
         AI,AI    -1
         STW,AI   TEMP41
         LI,NA    5
         BAL,LC   PUSH
         INTG,P   TEMP41
         INTG     QSCCB+4
         INTG     QSCCB+9
         INTG     QSCCB+12
         INTG     QSCCB+8
         LI,NA    2
         BAL,LC   PUSHSET
         INTG     TEMP31
         INTG     TEMP32
         LI,NA    2
         BAL,LC   PUSHSET
         INTG     QSCCB+4
         INTG     TEMP32
         LI,NA    1
         BAL,LC   FINDIREC
         INTG     TEMP31
         B        TOP88
TOP10B   LW,AI    QSCCB+9
         STW,AI   TEMP3D
         LW,AI    QSCCB+8
         STW,AI   TEMP3E
TOP10F   LI,NA    0
         BAL,LC   MEMBERLK
         LI,AI    0
         STW,AI   TEMP33
         LI,AI    1
         CW,AI    QSCCB
         BE       TOP13E
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+104
         INTG,P   FIFTEEN
         INTG,P   SEVENTEEN
         STW,AI   TEMP41
         LI,NA    1
         BAL,LC   FINDIREC
         INTG,P   TEMP41
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+111
         INTG,P   ZERO
         INTG,P   TEN
         CI,AI    1000
         BGE      TOP10F
         LW,AI    QSCCB+9
         STW,AI   TEMP32
         LI,NA    3
         BAL,LC   IFIELD
         INTG     QSCCB+112
         INTG,P   FIFTEEN
         INTG,P   SEVENTEEN
         STW,AI   TEMP31
         LW,AI    QSCCB+12
         STW,AI   QSCCB+8
         LI,X4    1
         STW,X4   TEMP3B
TOP132   LW,AI    TEMP31
         CW,AI    STACKSET-1,X4
         BNE      TOP138
         LW,AI    TEMP32
         CW,AI    STACKSET,X4
         BE       TOP10F
TOP138   LW,X4    TEMP3B
         AI,X4    2
         STW,X4   TEMP3B
         CW,X4    STACKSET+200
         BLE      TOP132
         B        TOPAC
TOP13E   LI,AI    1
         CW,AI    PUSHPOP+200
         BE       TOP23
         LI,NA    5
         BAL,LC   POP
         INTG     TEMP30
         INTG     TEMP31
         INTG     TEMP32
         INTG     TEMP3F
         INTG     TEMP40
         LI,NA    1
         BAL,LC   FINDIREC
         INTG     TEMP31
         LW,AI    TEMP32
         BE       TOP150
         LI,NA    1
         BAL,LC   FINDIREC
         INTG     TEMP32
TOP150   LW,AI    TEMP3F
         BE       TOP155
         LI,NA    1
         BAL,LC   FINDIREC
         INTG     TEMP3F
TOP155   LW,AI    TEMP40
         BE       TOP15A
         LI,NA    1
         BAL,LC   FINDIREC
         INTG     TEMP40
TOP15A   LW,AI    TEMP40
         STW,AI   QSCCB+8
         LW,AI    TEMP32
         STW,AI   QSCCB+9
         LW,AI    TEMP3F
         STW,AI   QSCCB+12
         LI,NA    1
         BAL,LC   USED
         INTG     TEMP3B
         LI,AI    1
         CW,AI    TEMP3B
         BE       TOP10B
         B        TOP90
TOP167   LI,NA    6
         BAL,LC   RWRITC
         INTG,P   ONE
         INTG     TEMP39
         INTG,P   FOUR
         INTG     TEMP34
         INTG,P   EIGHT
         PZE,P    ERROR
         B        *RETURN
TOP170   LI,NA    0
         BAL,LC   CLOSEDB
         LI,AI    900
         BAL,LL   9STOP
TOP174   LI,FP    S102
         BAL,LL   9PRINT
         BAL,LL   9IODATA
         INTG,E   LISTING+4
S102     B        TOP183
         TEXT     '(''***ERROR IN EXECUTING TOPOLOGY: '',I2)'
TOP183   LI,NA    0
         BAL,LC   CLOSEDB
         LI,AI    0
         BAL,LL   9STOP
ERROR    B        TOP174
ONE      DATA     1
FOUR     DATA     4
ZERO     DATA     0
TEN      DATA     10
FIFTEEN  DATA     15
SEVENTEEN DATA    17
NINE     DATA     9
EIGHT    DATA     8
SIXTEEN  DATA     16
SIX      DATA     6
         CSECT    0
V#TOPOLOGY RES    1
TEMP1    RES      20
TEMP15   RES      1
TEMP16   RES      26
TEMP30   RES      1
TEMP31   RES      1
TEMP32   RES      1
TEMP33   RES      1
TEMP34   TEXT     'TOPOLOGY'
TEMP36   RES      1
TEMP37   RES      1
TEMP38   TEXT     'HIER'
TEMP39   RES      1
TEMP3A   RES      1
TEMP3B   RES      1
TEMP3C   RES      1
TEMP3D   RES      1
TEMP3E   RES      1
TEMP3F   RES      1
TEMP40   RES      1
TEMP41   RES      1
RETURN   RES      1
         RES      1
         REF      SUBSCHEM,AREALK,GROUPLK,IFIELD,USED
         REF      MEMBERLK,FINDIREC,READV,RWRITC,OWNERLK
         REF      PUT,SETLK,PUSH,PUSHSET,POP,CLOSEDB
         REF      9SETUP0,9PRINT,9ENDIOL,9IODATA,9STOP
         END
