home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / hlpisec.dbd < prev    next >
Text File  |  1997-09-11  |  6KB  |  70 lines

  1.          TITLE   'MMDECODE OF DBDNAME=HLPISEC  '                        0000000
  2. *        DSNAME=CICS61.DBDLIB                                           0000000
  3. *        VOL=IMSQAU                                                     0000000
  4.   DBD       NAME=HLPISEC,                                              C0000000
  5.                ACCESS=(HDAM,VSAM),                                     C0000000
  6.                RMNAME=(DFSHDC40,4,10,500)                               0000000
  7. *********************************************************************** 0000000
  8. *        DATASET GROUP NUMBER 1                                         0000000
  9. *********************************************************************** 0000000
  10. DSG001 DATASET DD1=HLPISEC,                                            C0000000
  11.                DEVICE=3330,                                            C0000000
  12.                SIZE=(2048),                                            C0000000
  13.                SCAN=3                                                   0000000
  14. *********************************************************************** 0000000
  15. *        SEGMENT NUMBER 1                                             * 0000000
  16. *********************************************************************** 0000000
  17.     SEGM    NAME=SEGK,                                                 C0000000
  18.                PARENT=0,                                               C0000000
  19.                BYTES=(80,40),                                          C0000000
  20.                RULES=(PLV,LAST),                                       C0000000
  21.                PTR=(TWIN,,,,)                                           0000000
  22.       FIELD NAME=(KEYK,SEQ,U),                                         C0000000
  23.                START=3,                                                C0000000
  24.                BYTES=4,                                                C0000000
  25.                TYPE=C                                                   0000000
  26.       FIELD NAME=(FILLK),                                              C0000000
  27.                START=7,                                                C0000000
  28.                BYTES=1,                                                C0000000
  29.                TYPE=C                                                   0000000
  30.       FIELD NAME=(DATAK),                                              C0000000
  31.                START=8,                                                C0000000
  32.                BYTES=3,                                                C0000000
  33.                TYPE=C                                                   0000000
  34.       FIELD NAME=(FILLRK),                                             C0000000
  35.                START=11,                                               C0000000
  36.                BYTES=70,                                               C0000000
  37.                TYPE=C                                                   0000000
  38. *********************************************************************** 0000000
  39. *        SEGMENT NUMBER 2                                             * 0000000
  40. *********************************************************************** 0000000
  41.     SEGM    NAME=SEGL,                                                 C0000000
  42.                PARENT=((SEGK,DBLE),                                    C0000000
  43.                (SEGJ,PHYSICAL,HLPIMAN)),                               C0000000
  44.                BYTES=104,                                              C0000000
  45.                RULES=(VVV,LAST),                                       C0000000
  46.                PTR=(TWINBWD,LTWINBWD,LPARNT,,)                          0000000
  47.       FIELD NAME=(KEYL,SEQ,U),                                         C0000000
  48.                START=21,                                               C0000000
  49.                BYTES=4,                                                C0000000
  50.                TYPE=C                                                   0000000
  51.       FIELD NAME=(CONCAT),                                             C0000000
  52.                START=1,                                                C0000000
  53.                BYTES=20,                                               C0000000
  54.                TYPE=C                                                   0000000
  55.       FIELD NAME=(FILLL),                                              C0000000
  56.                START=25,                                               C0000000
  57.                BYTES=1,                                                C0000000
  58.                TYPE=C                                                   0000000
  59.       FIELD NAME=(DATAL),                                              C0000000
  60.                START=26,                                               C0000000
  61.                BYTES=3,                                                C0000000
  62.                TYPE=C                                                   0000000
  63.       FIELD NAME=(FILLRL),                                             C0000000
  64.                START=29,                                               C0000000
  65.                BYTES=72,                                               C0000000
  66.                TYPE=C                                                   0000000
  67.     DBDGEN                                                              0000000
  68.     FINISH                                                              0000000
  69.     END                                                                 0000000
  70.