         SYSTEM   SIG7FDP
         SYSTEM   BPM
         TITLE    'PHASE 6.0'
*
* PHASE 6.0 DEFINITIONS
*
         DEF      COB60,PH61E,PH62E
         DEF      PH63D0,PH63D1,PH63D2,PH63D3
         DEF      PH63E0,PH63E1,PH63E2,PH63E3,PH63E
*
* PHASE 6.0 REFERENCES
*
         REF      COBIOOOF,COBIOOIF
         REF      COBIOCOF,COBIOCIF
         REF      COBIODB
         REF      PDBCC,PDBA
         REF       PDB,PDBP
         REF      M:OC
         REF      PH6E
         REF      COB63,COB63D,COB63D1,COB63D2,COB63D3
         REF      COB63X,COB63X1,COB63X2,COB63X3
         REF      COB62
         REF      COB61
         REF      TYPE
         REF      COBIOLFC
         REF      M:SI              FOR CLOSE ::: WITH RELEASE EL00775  COBOL60
         PAGE
*
* PHASE 6.0 EQUATES
*
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
R8       EQU      8
R9       EQU      9
R10      EQU      10
R11      EQU      11
R12      EQU      12
R13      EQU      13
R14      EQU      14
R15      EQU      15
         PAGE
*
* PHASE 6.0 ENTRY
*
COB60    RES      0
         LI,R4    MESS60
         BAL,R11  TYPE
         CAL1,8   PLIST2
         LW,R2    PDBP
         CI,R2    X'4000'
         BANZ     COB601            ABORT FLAG SET - NO MPF
         LI,R5    10
         AND,R5   PDB
         BEZ      COB601            NO PMAP REQUESTED
         LI,R2    BA(MPFBUF)
         LI,R4    1
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN MPF FOR INPUT
         LI,R2    BA(MPFSBUF)
         LI,R4    1
         LI,R5    0
         BAL,R11  COBIOOIF          OPEN MPFS FOR INPUT
COB601   LI,R2    1                 SET TO SAVE
         LI,R5    8
         BAL,R11  COBIOCOF          CLOSE DMF
         LI,R2    X'16'
         STB,R2   PDBCC
         LW,15    ECB
         BLZ      %-1
         LI,R4    MESS61
         BAL,R11  TYPE
         B        COB61
         PAGE
*
* RETURN FROM PHASE 6.1
*
PH61E    RES      0
         LI,R2    -1                SET TO RELEASE
         LI,R5    8
         BAL,R11  COBIOCIF          CLOSE DMF
         LI,R2    -1                SET TO RELEASE
         LI,R5    7
         BAL,R11  COBIOCIF          CLOSE SPF
         LW,R5    PDBP
         CI,R5    X'4000'
         BAZ      PH61E1            ABORT FLAG-RESET
         LI,R2    -1                SET TO RELEASE
         LI,R5    4
         BAL,R11  COBIOCIF          CLOSE POF
         B        PH62E1
*
* IS OBJECT LISTING SPECIFIED
*
PH61E1   LI,R5    10
         AND,R5   PDB
         BEZ      PH61E2
         LI,R2    -1                SET TO RELEASE
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE MPF
         LI,R2    -1                SET TO RELEASE
         LI,R5    0
         BAL,R11  COBIOCIF          CLOSE MPFS
PH61E2   LW,R2    PDBCC
         CI,R2    X'4000'
         BAZ      PH62E1
         CAL1,8   PLIST3            M:SEGLD PHASE 6.2
         LI,R2    BA(OLFBUF)
         LI,R4    1
         LI,R5    1
         BAL,R11  COBIOOIF          OPEN OLF TO INPUT(CLUSTERED)
         LI,R2    BA(OLFSBUF)
         LI,R4    1
         LI,R5    2
         BAL,R11  COBIOOIF          OPEN OLFS TO INPUT (CLUSTERED)
         LI,R2    X'17'
         STB,R2   PDBCC
         LW,15    ECB
         BLZ      %-1
         LI,R4    MESS62
         BAL,R11  TYPE
         B        COB62
         PAGE
*
* RETURN FROM PHASE 6.2
*
PH62E    RES      0
         LI,R2    -1                SET TO RELEASE
         LI,R5    1
         BAL,R11  COBIOCIF          CLOSE OLF
         LI,R2    -1                SET TO RELEASE
         LI,R5    2
         BAL,R11  COBIOCIF          CLOSE OLFS
*
* IS CROSS REFERENCE SPECIFIED
*
PH62E1   LI,R2    X'2006'
         AND,R2   PDBCC
         REF      ON:LINE                                               COBOL60
         OR,R2    ON:LINE                                               COBOL60
         BEZ      PH6E              NO XRF AND/OR MDF
         LI,R2    X'4000'
         AND,R2   PDBP
         BEZ      PH62E2            NO ABORT FLAG SET
         LI,R2    -1                SET TO RELEASE
         LI,R5    6
         BAL,R11  COBIOCIF          CLOSE XRF
         B        PH6E
PH62E2   CAL1,8   PLIST4            M:SEGLD PHASE 6.3
         LW,R2    PDBA+7
         XW,R2    PDBA+8
         STW,R2   PDBA+7
         LI,R2    1                 SET TO SAVE
         LI,R5    6
         BAL,R11  COBIOCOF          CLOSE XRF
         LI,R2    BA(XRFBUF)
         LI,R4    1
         LI,R5    6
         BAL,R11  COBIOOIF          OPEN XRF TO INPUT (CLUSTERED)
         LI,R2    0
         STH,R2   PDBCC             INIT PASS COUNTER
         LI,R2    X'18'
         STB,R2   PDBCC
         LW,15    ECB
         BLZ      %-1
         LI,R4    MESS63
         BAL,R11  TYPE
         B        COB63
         PAGE
*
* PHASE 6.3 RETURN FROM NAME TABLE CREATION
*
PH63D0   RES      0
         LI,R2    X'0006'
         AND,R2   PDBCC
         OR,R2    ON:LINE                                               COBOL60
         BEZ      PH63E02           NO DMAP REQUESTED
         LI,R2    X'4000'
         AND,R2   PDBP
         BNEZ     PH63E1            ABORT FLAG SET
         LI,R2    0
         LI,R4    1
         LI,R5    9
         BAL,R11  COBIOOIF          OPEN MDF TO INPUT(NONCLUSTERED)
         LI,R2    BA(MDFSBUF)
         LI,R5    5
         BAL,R11  COBIOOOF          OPEN MDFS TO OUTPUT (CLUSTERED)     COBOL60
         LI,R2    27
         LI,R3    5
         LW,R4    L(C'MDFS')
         BAL,R11  COBIODB           PRINT CONTROL
         B        COB63D
         PAGE
*
* RETURN FROM READING MDF - DATA MAP
*
PH63D1   RES      0
         LI,R2    -1                SET TO RELEASE
         LI,R5    9
         BAL,R11  COBIOCIF          CLOSE MDF
         LI,R2    1                 SET TO SAVE
         LI,R5    5
         BAL,R11  COBIOCOF          CLOSE MDFS
         LI,R2    -1
         LI,R3    BA(MDF0BUF)
         LI,R5    0
         BAL,R11  COBIOOOF          OPEN MDF0 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    0
         LW,R4    L(C'MDF0')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF1BUF)
         LI,R5    1
         BAL,R11  COBIOOOF          OPEN MDF1 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    1
         LW,R4    L(C'MDF1')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF2BUF)
         LI,R5    2
         BAL,R11  COBIOOOF          OPEN MDF2 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    2
         LW,R4    L(C'MDF2')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF3BUF)
         LI,R5    3
         BAL,R11  COBIOOOF          OPEN XRF3 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    3
         LW,R4    L(C'MDF3')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    BA(MDFSBUF)
         LI,R4    1
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN MDFS TO INPUT(CLUSTERED)
         B        COB63D1           GO SORT MDFS
         PAGE
*
* RETURN FROM READING MDFS - DATA MAP
*
PH63D2   LI,R2    -1                SET TO RELEASE
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE MDFS
PH63D21  LI,R2    1                 SET TO SAVE
         LI,R5    0
         BAL,R11  COBIOCOF          CLOSE MDF0
         LW,R2    COBIOLFC
         CI,R2    1
         BE       PH63D31
         LI,R2    1
         LI,R5    1
         BAL,R11  COBIOCOF          CLOSE MDF1
         LI,R2    1
         LI,R5    2
         BAL,R11  COBIOCOF          CLOSE MDF2
         LI,R2    1
         LI,R5    3
         BAL,R11  COBIOCOF          CLOSE MDF3
         BAL,R11  CHPDBA
         MTW,1    EXCHF
         LI,R2    BA(MDF4BUF)
         LI,R4    0
         LI,R5    4
         BAL,R11  COBIOOIF          OPEN MDF4 TO INPUT(CLUSTERED,SCAT)
         LI,R2    BA(MDF5BUF)
         LI,R4    0
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN MDF5 TO INPUT(CLUSTERED,SCAT)
         LI,R2    BA(MDF6BUF)
         LI,R4    0
         LI,R5    8
         BAL,R11  COBIOOIF          OPEN MDF6 TO INPUT(CLUSTERED,SCAT)
         LI,R2    BA(MDF7BUF)
         LI,R4    0
         LI,R5    7
         BAL,R11  COBIOOIF          OPEN MDF7 TO INPUT(CLUSTERED,SCAT)
         LI,R2    -1
         LI,R3    BA(MDF0BUF)
         LI,R5    0
         BAL,R11  COBIOOOF          OPEN MDF0 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    0
         LW,R4    L(C'MDF0')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF1BUF)
         LI,R5    1
         BAL,R11  COBIOOOF          OPEN MDF1 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    1
         LW,R4    L(C'MDF1')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF2BUF)
         LI,R5    2
         BAL,R11  COBIOOOF          OPEN MDF2 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    2
         LW,R4    L(C'MDF2')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(MDF3BUF)
         LI,R5    3
         BAL,R11  COBIOOOF          OPEN MDF3 TO OUTPUT(CLUSTERED,SCAT)
         LI,R2    27
         LI,R3    3
         LW,R4    L(C'MDF3')
         BAL,R11  COBIODB           PRINT CONTROL
         B        COB63D2           GO MERGE MDF0-3 TO MDF4-7
         PAGE
*
* RETURN FROM MERGING MDF0-3 TO MDF4-7
*
PH63D3   LI,R2    -1                SET TO RELEASE
         LI,R5    4
         BAL,R11  COBIOCIF          CLOSE MDF4
         LI,R2    -1
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE MDF5
         LI,R2    -1
         LI,R5    8
         BAL,R11  COBIOCIF          CLOSE MDF6
         LI,R2    -1
         LI,R5    7
         BAL,R11  COBIOCIF          CLOSE MDF7
         B        PH63D21           GO MERGE AGAIN
*
* DATA MAP PRINT-OUT SET-UP
*
PH63D31  LI,R2    -1                SET TO RELEASE
         LI,R5    1
         BAL,R11  COBIOCOF          CLOSE MDF1
         LI,R2    -1
         LI,R5    2
         BAL,R11  COBIOCOF          CLOSE MDF2
         LI,R2    -1
         LI,R5    3
         BAL,R11  COBIOCOF          CLOSE MDF3
         LI,R2    BA(MDFSBUF)
         LI,R4    1
         LI,R5    0
         BAL,R11  COBIOOIF          OPEN MDFM TO INPUT(CLUSTERED)
         B        COB63D3
         PAGE
*
* START CROSS-REFERENCE
*
PH63E0   LI,R2    -1                SET TO RELEASE
         REF      M:EO
         M:CLOSE  M:EO,(SAVE)
         LI,R5    0
         BAL,R11  COBIOCIF          CLOSE MDFM
         LI,R2    1
         AND,R2   EXCHF             CHECK EXCHF
         BEZ      PH63E01
         BAL,R11  CHPDBA
PH63E01  STW,R2   COBIOLFC          RESET
         LI,R2    X'2000'
         AND,R2   PDBCC
         BEZ      PH63E03
PH63E02  LI,R2    BA(XRFSBUF)
         LI,R5    5
         BAL,R11  COBIOOOF          OPEN XRFS TO OUTPUT(CLUSTERED)
         LI,R2    12
         LI,R3    5
         LW,R4    L(C'XRFS')
         BAL,R11  COBIODB           PRINT CONTROL
         B        COB63X            GO READ XRF
PH63E03  LI,R2    -1                SET TO RELEASE
         LI,R5    6
         BAL,R11  COBIOCIF          CLOSE XRF
         B        PH63F             JUMP TO RELEASE :::        EL00775  COBOL60
         PAGE
*
* PHASE 6.3 RETURN FROM READING XRF
*
PH63E1   RES      0
         LI,R2    -1                SET TO RELEASE
         LI,R5    6
         BAL,R11  COBIOCIF          CLOSE XRF
         LW,R2    PDBP
         CI,R2    X'4000'
         BANZ     PH6E              ABORT FLAG SET - SKIP XREF
         LI,R2    1                 SET TO SAVE
         LI,R5    5
         BAL,R11  COBIOCOF          CLOSE XRFS
         LI,R2    -1
         LI,R3    BA(XRF0BUF)
         LI,R5    0
         BAL,R11  COBIOOOF          OPEN XRF0 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    0
         LW,R4    L(C'XRF0')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF1BUF)
         LI,R5    1
         BAL,R11  COBIOOOF          OPEN XRF1 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    1
         LW,R4    L(C'XRF1')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF2BUF)
         LI,R5    2
         BAL,R11  COBIOOOF          OPEN XRF2 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    2
         LW,R4    L(C'XRF2')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF3BUF)
         LI,R5    3
         BAL,R11  COBIOOOF          OPEN XRF3 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    3
         LW,R4    L(C'XRF3')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    BA(XRFSBUF)
         LI,R4    1
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN XRFS TO INPUT (CLUSTERED)
         B        COB63X1           GO SORT XRFS
         PAGE
*
* PHASE 6.3 RETURN FROM READING XRFS
*
PH63E2   LI,R2    -1                SET TO RELEASE
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE XRFS
PH63E21  LI,R2    1                 SET TO SAVE
         LI,R5    0
         BAL,R11  COBIOCOF          CLOSE XRF0
         LW,R2    COBIOLFC
         CI,R2    1
         BE       PH63E31
         LI,R2    1
         LI,R5    1
         BAL,R11  COBIOCOF          CLOSE XRF1
         LI,R2    1                 SET TO SAVE
         LI,R5    2
         BAL,R11  COBIOCOF          CLOSE XRF2
         LI,R2    1                 SET TO SAVE
         LI,R5    3
         BAL,R11  COBIOCOF          CLOSE XRF3
         BAL,R11  CHPDBA
         LI,R2    BA(XRF4BUF)
         LI,R4    0
         LI,R5    4
         BAL,R11  COBIOOIF          OPEN XRF4 TO INPUT(CLUSTERED,SCAT)
         LI,R2    BA(XRF5BUF)
         LI,R4    0
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN XRF5 TO INPUT (CLUSTERED,SCAT)
         LI,R2    BA(XRF6BUF)
         LI,R4    0
         LI,R5    8
         BAL,R11  COBIOOIF          OPEN XRF6 TO INOUT (CLUSTERED,SCAT)
         LI,R2    BA(XRF7BUF)
         LI,R4    0
         LI,R5    7
         BAL,R11  COBIOOIF          OPEN XRF7 TO INPUT (CLUSTERED,SCAT)
         LI,R2    -1
         LI,R3    BA(XRF0BUF)
         LI,R5    0
         BAL,R11  COBIOOOF          OPEN XRF0 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    0
         LW,R4    L(C'XRF0')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF1BUF)
         LI,R5    1
         BAL,R11  COBIOOOF          OPEN XRF1 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    1
         LW,R4    L(C'XRF1')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF2BUF)
         LI,R5    2
         BAL,R11  COBIOOOF          OPEN XRF2 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    2
         LW,R4    L(C'XRF2')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    -1
         LI,R3    BA(XRF3BUF)
         LI,R5    3
         BAL,R11  COBIOOOF          OPENXRF3 TO OUTPUT (CLUSTERED,SCAT)
         LI,R2    12
         LI,R3    3
         LW,R4    L(C'XRF3')
         BAL,R11  COBIODB           PRINT CONTROL
         B        COB63X2
         PAGE
*
* RETURN FROM MERGING XRF0-3 TO XRF4-7
*
PH63E3   LI,R2    -1                SET TO RELEASE
         LI,R5    4
         BAL,R11  COBIOCIF          CLOSE XRK4
         LI,R2    -1                SET TO RELEASE
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE XRF5
         LI,R2    -1                SET TO RELEASE
         LI,R5    8
         BAL,R11  COBIOCIF          CLOSE XRF6
         LI,R2    -1                SET TO RELEASE
         LI,R5    7
         BAL,R11  COBIOCIF          CLOSE XRF7
         B        PH63E21           GO MERGE AGAIN
*
* PHASE 6.3 PRINT-OUT SET-UP
*
PH63E31  RES      0
         LI,R2    -1                SET TO RELEASE
         LI,R5    1
         BAL,R11  COBIOCOF          CLOSE XRF1
         LI,R2    -1                SET TO RELEASE
         LI,R5    2
         BAL,R11  COBIOCOF          CLOSE XRF2
         LI,R2    -1                SET TO RELEASE
         LI,R5    3
         BAL,R11  COBIOCOF          CLOSE XRF3
         LI,R2    BA(XRFSBUF)
         LI,R4    1
         LI,R5    0
         BAL,R11  COBIOOIF          OPEN XRFM TO INPUT (CLUSTERED)
         B        COB63X3
         PAGE
*
* PHASE 6.3 RETURN FROM PRINT OUT
*
PH63E    LI,R2    -1                SET TO RELEASE
         LI,R5    0
         BAL,R11  COBIOCIF          CLOSE XRFM (0)
PH63F    RES      0                 ENTRY FOR ONLY DMAP        E00775   COBOL60
         M:CLOSE  M:SI,(REL)        CLOSE ::: FILE WITH RELES  EL00775  COBOL60
         B        PH6E
*
* EXCHANGE PDBA FOR IN-OUT
*
CHPDBA   LW,R2    PDBA+0            0 - 4
         XW,R2    PDBA+4
         STW,R2   PDBA+0
         LW,R2    PDBA+1            1 - 5
         XW,R2    PDBA+5
         STW,R2   PDBA+1
         LW,R2    PDBA+2            2 - 6
         XW,R2    PDBA+8
         STW,R2   PDBA+2
         LW,R2    PDBA+3            3 - 7
         XW,R2    PDBA+7
         STW,R2   PDBA+3
         B        *11
         PAGE
*
* PHASE 6.0 I/O BUFFERS
*
EXCHF    DATA     0
MPFBUF   RES      0                 C00 COBOL60 ITEM 15
OLFBUF   RES      75
MPFSBUF  RES      0
OLFSBUF  RES      75
         REF      XRFBUF
MDF0BUF  RES      0
XRF0BUF  RES      75
MDF1BUF  RES      0
XRF1BUF  RES      75
MDF2BUF  RES      0
XRF2BUF  RES      75
MDF3BUF  RES      0
XRF3BUF  RES      75
MDFSBUF  RES      0
XRFSBUF  RES      0
XRFMBUF  RES      0
MDF4BUF  RES      0
XRF4BUF  RES      75
MDF5BUF  RES      0
XRF5BUF  RES      75
MDF6BUF  RES      0
XRF6BUF  RES      75
MDF7BUF  RES      0
XRF7BUF  RES      75
         PAGE
*
* PHASE 6.0 PLISTS
*
MESS60   TEXTC    'COBOL60  
'
MESS61   TEXTC    'COBOL61  
'
MESS62   TEXTC    'COBOL62  
'
MESS63   TEXTC    'COBOL63  
'
PLIST2   GEN,8,24 X'01',ECB         M:SEGLD
         DATA     PH61
PLIST3   GEN,8,24 X'01',ECB         M:SEGLD
         DATA     PH62
PLIST4   GEN,8,24 X'01',ECB         M:SEGLD
         DATA     PH63
PH61     TEXTC    'COBOL61'
PH62     TEXTC    'COBOL62'
PH63     TEXTC    'COBOL63'
ECB      DATA     0
         END
