*****************
*M*      P0DCBS - PASS0(GHOST1) DCBS
*****************
         SYSTEM   SIG7FDP
************************************************************************
DCB1     CNAME
         PROC
LF       DATA     AF(1)
         DATA     AF(2)
         GEN,8,24 AF(3),0
         DO       19
         DATA     0
         FIN
         PEND
************************************************************************
         PAGE
*P*
*P*      NAME:    P0DCBS
*P*      PURPOSE: PROVIDE NECESSARY DCBS FOR GHOST1
*P*
************************************************************************
         REF      ERRABN0           ROUTINE
*,*                           ERROR/ABNORMAL ROUTINE FOR DCBS
************************************************************************
         PAGE
************************************************************************
M:LL     DSECT    2
         DCB1     3,4,10
M:BI     DSECT    2
         DATA     3,10
         GEN,8,24 10,0
         DATA     ERRABN0,ERRABN0,0
         DATA     BIXF
         DATA     0,0,0
         GEN,15,17 0,KBUFB
         DO       11
         DATA     0
         FIN
BIXF     DATA     X'01000008'
         TEXTC    'FIRST FILE'
         RES      5
         DATA     X'02000002'
         RES      2
         DATA     X'07010008'
         RES      8
KBUFB    RES      8
M:TM     DSECT    2
         DATA     0,0
         GEN,8,24 10,0
         DATA     ERRABN0,ERRABN0,0
         DATA     TMXF
         DATA     0,0,0
         GEN,15,17 0,KBUF
         DO       11
         DATA     0
         FIN
TMXF     DATA     X'01000008',0
         RES      7
         DATA     X'02000002'
         RES      2
         DATA     X'03000002'
         RES      2
         DATA     X'04000002'
         RES      2
         DATA     X'0E000202'
         TEXT     '01010000'
         DATA     X'0A000202'
         TEXT     '01010000'
         DATA     X'05000010'
         RES      16
         DATA     X'06000010'
         RES      16
         DATA     X'14000010'
         RES      16
         DATA     X'15000003'
         RES      3
         DATA     X'0B000008'
         RES      8
         DATA     X'11010101'
         DATA     X'F00'            FOR BACKUP
KBUF     RES      8
************************************************************************
         END

