         SYSTEM   SIG7FDP
         TITLE    'PHASE 2.0'
*
* PHASE 2.0 REFERENCES
*
         REF      COBIODB
         REF      COBIOOOF,COBIOOIF
         REF      COBIOCOF,COBIOCIF
         REF      M:OC,PDBCC
         REF      COB21
         REF      COB22
         REF      PH2E
         REF      PH5E
         REF      PDBP
         REF      ON:LINE                                               COBOL20
*
* PHASE 2.0 DEFINITIONS
*
         DEF      COB20,PH21E,PH22E
         REF      TYPE
         PAGE
*
* REGISTER 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 2.0 ENTRY
*
COB20    RES      0
         LI,R4    MESS20
         BAL,R11  TYPE
         CAL1,8   PLIST2            M:SEGLD PHASE 2.1
         LI,R2    BA(EDFBUF)
         LI,R4    1
         LI,R5    1
         BAL,R11  COBIOOIF          OPEN EDF TO INPUT (CLUSTERED)
         LI,R2    BA(IVFBUF)
         LI,R4    1
         LI,R5    2
         BAL,R11  COBIOOIF          OPEN IVF INPUT (CLUSTERED)
         LI,R2    0
         LI,R5    3
         BAL,R11  COBIOOOF          OPEN DDD TO OUTPUT (NONCLUSTERED)
         LI,R2    8
         LI,R3    3
         LW,R4    L(C'DDD ')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    BA(POFBUF)
         LI,R5    4
         BAL,R11  COBIOOOF          OPEN POF TO OUTPUT (CLUSTERED)
         LI,R2    11
         LI,R3    4
         LW,R4    L(C'POF ')
         BAL,R11  COBIODB           PRINT CONTROL
         LI,R2    6
         AND,R2   PDBCC
         OR,R2    ON:LINE                                               COBOL20
         BEZ      COB201            NO DMAP
         LI,R2    0
         LI,R5    9
         BAL,R11  COBIOOOF          OPEN MDF OUTPUT (NON-CLUSTERED)
         LI,R2    27
         LI,R3    9
         LW,R4    L(C'MDF ')
         BAL,R11  COBIODB           PRINT CONTROL
COB201   LI,R2    X'08'
         STB,R2   PDBCC
         LW,15    ECB
         BLZ      %-1
         LI,R4    MESS21
         BAL,R11  TYPE
         B        COB21
         PAGE
*
* RETURN FROM PHASE 2.1
*
PH21E    CAL1,8   PLIST3            M SEGLD PHASE 2.2
         LI,R2    -1                SET TO RELEASE
         LI,R5    2
         BAL,R11  COBIOCIF          CLOSE IVF
         LI,R2    -1                SET TO RELEASE
         LI,R5    1
         BAL,R11  COBIOCIF          CLOSE EDF
         LI,R2    6
         AND,R2   PDBCC
         OR,R2    ON:LINE                                               COBOL20
         BEZ      PH21E1            NO DMAP
         LI,R2    1                 SET TO SAVE
         LI,R5    9
         BAL,R11  COBIOCOF          CLOSE MDF
PH21E1   LW,R5    PDBP
         CI,R5    X'4000'
         BANZ     PH22E2            ABORT FLAG
         LI,R2    BA(EPFBUF)
         LI,R4    1
         LI,R5    0
         BAL,R11  COBIOOIF          OPEN EPF TO INPUT (CLUSTERED)
         LI,R2    BA(SPDBUF)
         LI,R4    1
         LI,R5    5
         BAL,R11  COBIOOIF          OPEN SPD TO INPUT (CLUSTERED)
         LI,R2    X'09'
         STB,R2   PDBCC
         LW,15    ECB
         BLZ      %-1
         LI,R4    MESS22
         BAL,R11  TYPE
         B        COB22
         PAGE
*
* RETURN FROM PHASE 2.2
*
PH22E    LI,R2    -1                SET TO RELEASE
         LI,R5    5
         BAL,R11  COBIOCIF          CLOSE SPD
         LW,R5    PDBP
         CI,R5    X'4000'
         BANZ     PH22E1            ABORT FLAG
         LI,R2    0                 SET TO SAVE
         LI,R5    3
         BAL,R11  COBIOCOF          CLOSE DDD
         LI,R2    0                 SET TO SAVE
         LI,R5    0
         BAL,R11  COBIOCIF          CLOSE EPF
         B        PH2E              RETURN TO PHASE 0
PH22E1   LI,R2    -1                SET TO RELEASE
         LI,R5    0
         BAL,R11  COBIOCIF          CLOSE EPF
PH22E2   LI,R2    -1                SET TO RELEASE
         LI,R5    3
         BAL,R11  COBIOCIF          CLOSE DDD
         B        PH5E              GOTO PHASE 6 FOR LISTING
         PAGE
*
* PHASE 2.0 I/O BUFFERS
*
         REF      POFBUF
EDFBUF   EQU      EPFBUF
IVFBUF   EQU      SPDBUF
SPDBUF   RES      75
EPFBUF   RES      104
         PAGE
*
* PHASE 2.0 CONSTANTS AND PLISTS
*
MESS20   TEXTC    'COBOL20  
'
MESS21   TEXTC    'COBOL21  
'
MESS22   TEXTC    'COBOL22  
'
PLIST2   DATA,1   X'01'
         DATA,3   ECB
         DATA     PH21
PLIST3   DATA,1   X'01'
         DATA,3   ECB
         DATA     PH22
ECB      DATA     0
PH21     TEXTC    'COBOL21'
PH22     TEXTC    'COBOL22'
         END
