home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / hlpiman.dbd < prev    next >
Text File  |  1997-09-11  |  21KB  |  259 lines
  1.          TITLE   'MMDECODE OF DBDNAME=HLPIMAN  '                        0000000
  2. *        DSNAME=IMS210A.CICS.DBDLIB                                     0000000
  3. *        VOL=IMSQAT                                                     0000000
  4.   DBD       NAME=HLPIMAN,                                              C0000000
  5.                ACCESS=(HIDAM,VSAM),                                    C0000000
  6.                PASSWD=NO                                                0000000
  7. *********************************************************************** 0000000
  8. *        DATASET GROUP NUMBER 1                                         0000000
  9. *********************************************************************** 0000000
  10. DSG001 DATASET DD1=HLPIMAN,                                            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=SEGA,                                                 C0000000
  18.                PARENT=0,                                               C0000000
  19.                BYTES=80,                                               C0000000
  20.                RULES=(PLV,LAST),                                       C0000000
  21.                PTR=(TWINBWD,,,,)                                        0000000
  22.       FIELD NAME=(KEYA,SEQ,U),                                         C0000000
  23.                START=1,                                                C0000000
  24.                BYTES=4,                                                C0000000
  25.                TYPE=C                                                   0000000
  26.       FIELD NAME=(FILLA),                                              C0000000
  27.                START=5,                                                C0000000
  28.                BYTES=1,                                                C0000000
  29.                TYPE=C                                                   0000000
  30.       FIELD NAME=(DATAA),                                              C0000000
  31.                START=6,                                                C0000000
  32.                BYTES=3,                                                C0000000
  33.                TYPE=C                                                   0000000
  34.       FIELD NAME=(FILLRA),                                             C0000000
  35.                START=9,                                                C0000000
  36.                BYTES=72,                                               C0000000
  37.                TYPE=C                                                   0000000
  38.        LCHILD  NAME=(SEGN,HLPINDX),                                    C0000000
  39.                PTR=INDX,                                               C0000000
  40.                RULES=LAST                                               0000000
  41. *********************************************************************** 0000000
  42. *        SEGMENT NUMBER 2                                             * 0000000
  43. *********************************************************************** 0000000
  44.     SEGM    NAME=SEGB,                                                 C0000000
  45.                PARENT=((SEGA,SNGL)),                                   C0000000
  46.                BYTES=80,                                               C0000000
  47.                RULES=(LLL,LAST),                                       C0000000
  48.                PTR=(TWIN,,,,)                                           0000000
  49.       FIELD NAME=(KEYB,SEQ,U),                                         C0000000
  50.                START=1,                                                C0000000
  51.                BYTES=4,                                                C0000000
  52.                TYPE=C                                                   0000000
  53.       FIELD NAME=(FILLB),                                              C0000000
  54.                START=5,                                                C0000000
  55.                BYTES=1,                                                C0000000
  56.                TYPE=C                                                   0000000
  57.       FIELD NAME=(DATAB),                                              C0000000
  58.                START=6,                                                C0000000
  59.                BYTES=3,                                                C0000000
  60.                TYPE=C                                                   0000000
  61.       FIELD NAME=(FILLRB),                                             C0000000
  62.                START=9,                                                C0000000
  63.                BYTES=72,                                               C0000000
  64.                TYPE=C                                                   0000000
  65. *********************************************************************** 0000000
  66. *        SEGMENT NUMBER 3                                             * 0000000
  67. *********************************************************************** 0000000
  68.     SEGM    NAME=SEGC,                                                 C0000000
  69.                PARENT=((SEGB,SNGL)),                                   C0000000
  70.                BYTES=80,                                               C0000000
  71.                RULES=(LLL,LAST),                                       C0000000
  72.                PTR=(TWIN,,,,)                                           0000000
  73.       FIELD NAME=(KEYC,SEQ,U),                                         C0000000
  74.                START=1,                                                C0000000
  75.                BYTES=4,                                                C0000000
  76.                TYPE=C                                                   0000000
  77.       FIELD NAME=(FILLC),                                              C0000000
  78.                START=5,                                                C0000000
  79.                BYTES=1,                                                C0000000
  80.                TYPE=C                                                   0000000
  81.       FIELD NAME=(DATAC),                                              C0000000
  82.                START=6,                                                C0000000
  83.                BYTES=3,                                                C0000000
  84.                TYPE=C                                                   0000000
  85.       FIELD NAME=(FILLRC),                                             C0000000
  86.                START=9,                                                C0000000
  87.                BYTES=72,                                               C0000000
  88.                TYPE=C                                                   0000000
  89. *********************************************************************** 0000000
  90. *        SEGMENT NUMBER 4                                             * 0000000
  91. *********************************************************************** 0000000
  92.     SEGM    NAME=SEGD,                                                 C0000000
  93.                PARENT=((SEGB,SNGL)),                                   C0000000
  94.                BYTES=80,                                               C0000000
  95.                RULES=(LLL,LAST),                                       C0000000
  96.                PTR=(TWIN,,,,)                                           0000000
  97.       FIELD NAME=(KEYD,SEQ,U),                                         C0000000
  98.                START=1,                                                C0000000
  99.                BYTES=4,                                                C0000000
  100.                TYPE=C                                                   0000000
  101.       FIELD NAME=(FILLD),                                              C0000000
  102.                START=5,                                                C0000000
  103.                BYTES=1,                                                C0000000
  104.                TYPE=C                                                   0000000
  105.       FIELD NAME=(DATAD),                                              C0000000
  106.                START=6,                                                C0000000
  107.                BYTES=3,                                                C0000000
  108.                TYPE=C                                                   0000000
  109.       FIELD NAME=(FILLRD),                                             C0000000
  110.                START=9,                                                C0000000
  111.                BYTES=72,                                               C0000000
  112.                TYPE=C                                                   0000000
  113. *********************************************************************** 0000000
  114. *        SEGMENT NUMBER 5                                             * 0000000
  115. *********************************************************************** 0000000
  116.     SEGM    NAME=SEGE,                                                 C0000000
  117.                PARENT=((SEGB,SNGL)),                                   C0000000
  118.                BYTES=80,                                               C0000000
  119.                RULES=(LLL,LAST),                                       C0000000
  120.                PTR=(TWIN,,,,)                                           0000000
  121.       FIELD NAME=(KEYE,SEQ,U),                                         C0000000
  122.                START=1,                                                C0000000
  123.                BYTES=4,                                                C0000000
  124.                TYPE=C                                                   0000000
  125.       FIELD NAME=(FILLE),                                              C0000000
  126.                START=5,                                                C0000000
  127.                BYTES=1,                                                C0000000
  128.                TYPE=C                                                   0000000
  129.       FIELD NAME=(DATAE),                                              C0000000
  130.                START=6,                                                C0000000
  131.                BYTES=3,                                                C0000000
  132.                TYPE=C                                                   0000000
  133.       FIELD NAME=(FILLRE),                                             C0000000
  134.                START=9,                                                C0000000
  135.                BYTES=72,                                               C0000000
  136.                TYPE=C                                                   0000000
  137. *********************************************************************** 0000000
  138. *        SEGMENT NUMBER 6                                             * 0000000
  139. *********************************************************************** 0000000
  140.     SEGM    NAME=SEGF,                                                 C0000000
  141.                PARENT=((SEGA,SNGL)),                                   C0000000
  142.                BYTES=80,                                               C0000000
  143.                RULES=(LLL,LAST),                                       C0000000
  144.                PTR=(TWIN,,,,)                                           0000000
  145.       FIELD NAME=(KEYF,SEQ,U),                                         C0000000
  146.                START=1,                                                C0000000
  147.                BYTES=4,                                                C0000000
  148.                TYPE=C                                                   0000000
  149.       FIELD NAME=(FILLF),                                              C0000000
  150.                START=5,                                                C0000000
  151.                BYTES=1,                                                C0000000
  152.                TYPE=C                                                   0000000
  153.       FIELD NAME=(DATAF),                                              C0000000
  154.                START=6,                                                C0000000
  155.                BYTES=3,                                                C0000000
  156.                TYPE=C                                                   0000000
  157.       FIELD NAME=(FILLRF),                                             C0000000
  158.                START=9,                                                C0000000
  159.                BYTES=72,                                               C0000000
  160.                TYPE=C                                                   0000000
  161. *********************************************************************** 0000000
  162. *        SEGMENT NUMBER 7                                             * 0000000
  163. *********************************************************************** 0000000
  164.     SEGM    NAME=SEGG,                                                 C0000000
  165.                PARENT=((SEGF,SNGL)),                                   C0000000
  166.                BYTES=80,                                               C0000000
  167.                RULES=(LLL,LAST),                                       C0000000
  168.                PTR=(TWIN,,,,)                                           0000000
  169.       FIELD NAME=(KEYG,SEQ,U),                                         C0000000
  170.                START=1,                                                C0000000
  171.                BYTES=4,                                                C0000000
  172.                TYPE=C                                                   0000000
  173.       FIELD NAME=(FILLG),                                              C0000000
  174.                START=5,                                                C0000000
  175.                BYTES=1,                                                C0000000
  176.                TYPE=C                                                   0000000
  177.       FIELD NAME=(DATAG),                                              C0000000
  178.                START=6,                                                C0000000
  179.                BYTES=3,                                                C0000000
  180.                TYPE=C                                                   0000000
  181.       FIELD NAME=(FILLRG),                                             C0000000
  182.                START=9,                                                C0000000
  183.                BYTES=72,                                               C0000000
  184.                TYPE=C                                                   0000000
  185. *********************************************************************** 0000000
  186. *        SEGMENT NUMBER 8                                             * 0000000
  187. *********************************************************************** 0000000
  188.     SEGM    NAME=SEGH,                                                 C0000000
  189.                PARENT=((SEGF,SNGL)),                                   C0000000
  190.                BYTES=80,                                               C0000000
  191.                RULES=(LLL,LAST),                                       C0000000
  192.                PTR=(TWIN,,,,)                                           0000000
  193.       FIELD NAME=(KEYH,SEQ,U),                                         C0000000
  194.                START=1,                                                C0000000
  195.                BYTES=4,                                                C0000000
  196.                TYPE=C                                                   0000000
  197.       FIELD NAME=(FILLH),                                              C0000000
  198.                START=5,                                                C0000000
  199.                BYTES=1,                                                C0000000
  200.                TYPE=C                                                   0000000
  201.       FIELD NAME=(DATAH),                                              C0000000
  202.                START=6,                                                C0000000
  203.                BYTES=3,                                                C0000000
  204.                TYPE=C                                                   0000000
  205.       FIELD NAME=(FILLRH),                                             C0000000
  206.                START=9,                                                C0000000
  207.                BYTES=72,                                               C0000000
  208.                TYPE=C                                                   0000000
  209. *********************************************************************** 0000000
  210. *        SEGMENT NUMBER 9                                             * 0000000
  211. *********************************************************************** 0000000
  212.     SEGM    NAME=SEGI,                                                 C0000000
  213.                PARENT=((SEGH,SNGL)),                                   C0000000
  214.                BYTES=(250,242),                                        C0000000
  215.                RULES=(PLV,LAST),                                       C0000000
  216.                PTR=(TWIN,,,,)                                           0000000
  217.       FIELD NAME=(KEYI,SEQ,U),                                         C0000000
  218.                START=3,                                                C0000000
  219.                BYTES=4,                                                C0000000
  220.                TYPE=C                                                   0000000
  221.       FIELD NAME=(DATAI),                                              C0000000
  222.                START=8,                                                C0000000
  223.                BYTES=240,                                              C0000000
  224.                TYPE=C                                                   0000000
  225. *********************************************************************** 0000000
  226. *        SEGMENT NUMBER 10                                            * 0000000
  227. *********************************************************************** 0000000
  228.     SEGM    NAME=SEGJ,                                                 C0000000
  229.                PARENT=((SEGI,SNGL)),                                   C0000000
  230.                BYTES=164,                                              C0000000
  231.                RULES=(LLL,LAST),                                       C0000000
  232.                PTR=(TWIN,,,,)                                           0000000
  233.       FIELD NAME=(KEYJ,SEQ,U),                                         C0000000
  234.                START=1,                                                C0000000
  235.                BYTES=4,                                                C0000000
  236.                TYPE=C                                                   0000000
  237.       FIELD NAME=(DATAJ),                                              C0000000
  238.                START=5,                                                C0000000
  239.                BYTES=4,                                                C0000000
  240.                TYPE=C                                                   0000000
  241.        LCHILD  NAME=(SEGL,HLPISEC),                                    C0000000
  242.                PTR=DBLE,                                               C0000000
  243.                PAIR=SEGZ,                                              C0000000
  244.                RULES=LAST                                               0000000
  245. *********************************************************************** 0000000
  246. *        SEGMENT NUMBER 11                                            * 0000000
  247. *********************************************************************** 0000000
  248.     SEGM    NAME=SEGZ,                                                 C0000000
  249.                PARENT=((SEGJ)),                                        C0000000
  250.                PTR=PAIRED,                                             C0000000
  251.                SOURCE=((SEGL,DATA,HLPISEC))                             0000000
  252.       FIELD NAME=(KEYZ,SEQ,U),                                         C0000000
  253.                START=1,                                                C0000000
  254.                BYTES=4,                                                C0000000
  255.                TYPE=C                                                   0000000
  256.     DBDGEN                                                              0000000
  257.     FINISH                                                              0000000
  258.     END                                                                 0000000
  259.