TITLE   'ASSEMBLE OF DBDNAME=DFCCRP01 '                                
*        DSNAME=ENDH2.A02TIC01.SDBDLIB                                          
*        VOL=END12S                                                             
  DBD       NAME=DFCCRP01,                                             C        
               ACCESS=(PHDAM,VSAM),                                    C        
               RMNAME=(DFSHDC40,4,25000),                              C        
               PASSWD=NO,                                              C        
               VERSION=             DATE 04/06/98 TIME 07.29                    
***********************************************************************         
*        DATASET GROUP NUMBER 1                                                 
***********************************************************************         
***********************************************************************         
*        SEGMENT NUMBER 1                                             *         
***********************************************************************         
    SEGM    NAME=SCRROOT,                                              C        
               PARENT=0,                                               C        
               BYTES=4000,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(CLAIMKEY,SEQ,U),                                     C        
               START=1,                                                C        
               BYTES=7,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 2                                             *         
***********************************************************************         
    SEGM    NAME=SCRCLMT,                                              C        
               PARENT=((SCRROOT,SNGL)),                                C        
               BYTES=4000,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(CLMTKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 3                                             *         
***********************************************************************         
    SEGM    NAME=SCRSUM,                                               C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=100,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(SUMKEY,SEQ,U),                                       C        
               START=1,                                                C        
               BYTES=9,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 4                                             *         
***********************************************************************         
    SEGM    NAME=SCRHIST,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=100,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(HISTKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=21,                                               C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 5                                             *         
***********************************************************************         
    SEGM    NAME=SCRPAY,                                               C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=1500,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(PAYKEY,SEQ,U),                                       C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 6                                             *         
***********************************************************************         
    SEGM    NAME=SCRCRED,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=300,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(CREDKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 7                                             *         
***********************************************************************         
    SEGM    NAME=SCRNAME,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=300,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(NAMEKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 8                                             *         
***********************************************************************         
    SEGM    NAME=SCREVAL,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=700,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(EVALKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=7,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 9                                             *         
***********************************************************************         
    SEGM    NAME=SCRTRAC,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=250,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(TRACKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=7,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 10                                            *         
***********************************************************************         
    SEGM    NAME=SCRDAMG,                                              C        
               PARENT=((SCRCLMT,SNGL)),                                C        
               BYTES=1850,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(DAMGKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 11                                            *         
***********************************************************************         
    SEGM    NAME=SCRPART,                                              C        
               PARENT=((SCRDAMG,SNGL)),                                C        
               BYTES=120,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(PARTKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 12                                            *         
***********************************************************************         
    SEGM    NAME=SCRXCHG,                                              C        
               PARENT=((SCRDAMG,SNGL)),                                C        
               BYTES=300,                                              C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(XCHGKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=3,                                                C        
               TYPE=C                                                           
***********************************************************************         
*        SEGMENT NUMBER 13                                            *         
***********************************************************************         
    SEGM    NAME=SCRPOLY,                                              C        
               PARENT=((SCRROOT,SNGL)),                                C        
               BYTES=5000,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(NOTWIN,,,,),                                       C        
               COMPRTN=DFSCMPX0                                                 
***********************************************************************         
*        SEGMENT NUMBER 14                                            *         
***********************************************************************         
    SEGM    NAME=SCRNOTE,                                              C        
               PARENT=((SCRROOT,SNGL)),                                C        
               BYTES=3000,                                             C        
               RULES=(LLL,LAST),                                       C        
               PTR=(TWIN,,,,),                                         C        
               COMPRTN=DFSCMPX0                                                 
      FIELD NAME=(NOTEKEY,SEQ,U),                                      C        
               START=1,                                                C        
               BYTES=5,                                                C        
               TYPE=C                                                           
    DBDGEN                                                                      
    FINISH                                                                      
    END