******************************************************************
*        Copyright (C) 2010-2016 Heirloom Computing Inc.         *
*                                                                *
*                        ALL RIGHTS RESERVED                     *
******************************************************************
*                                                                *
* Property of Heirloom Computing Inc.  This software contains    *
* confidential and proprietary information of Heirloom Computing *
* Inc. and is made available solely pursuant to the terms of a   *
* software license agreement, which governs its use.             *
*                                                                *
* No disclosure, reproduction or use of any portion of these     *
* materials may be made without the express written consent of   *
* Heirloom Computing Inc.                                        *
*                                                                *
******************************************************************
*23456789|123456789|123456789|123456789|123456789|123456789|123456789|1 3456789|
BMSEIMS DFHMSD CTRL=(FREEKB,FRSET),                                    -
               DATA=FIELD,                                             -
               EXTATT=NO,                                              -
               HILIGHT=OFF,                                            -
               LANG=COBOL,                                             -
               MODE=INOUT,                                             -
               OBFMT=NO,                                               -
               STORAGE=AUTO,                                           -
               TERM=3270,                                              -
               TIOAPFX=YES,                                            -
               TYPE=&&SYSPARM 
BMSEIMS DFHMDI DATA=FIELD,                                             -
               HILIGHT=OFF,                                            -
               OBFMT=NO,                                               -
               SIZE=(24,80),                                           -
               TIOAPFX=YES 
EIMSTRN DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=4,                                               -
               POS=(1,1),                                              -
               INITIAL='EIMS' 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=22,                                              -
               POS=(1,20),                                             -
               INITIAL='HCI ETP - IMS DB Support' 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=7,                                               -
               POS=(1,72),                                             -
               INITIAL='BMSEIMS' 
* 05 HCI ETP banner
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(3,3),                                              -
               INITIAL=' **      **      ******     **         ********-
                   **********    ******* '
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(4,3),                                              -
               INITIAL='/**     /**     **////**   /**        /**///// -
                  /////**///    /**////**'
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(5,3),                                              -
               INITIAL='/**     /**    **    //    /**        /**      -
                      /**       /**   /**'
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(6,3),                                              -
               INITIAL='/**********   /**          /**        /******* -
                      /**       /******* '
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(7,3),                                              -
               INITIAL='/**//////**   /**          /**        /**////  -
                      /**       /**////  '
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(8,3),                                              -
               INITIAL='/**     /**   //**    **   /**        /**      -
                      /**       /**      '
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(9,3),                                              -
               INITIAL='/**     /**    //******    /**        /********-
                      /**       /**      '
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(10,3),                                             -
               INITIAL='//      //      //////     //         //////// -
                      //        //       '
* 12 message
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(12,10),                                            -
               INITIAL='Run EBP JOB TEST98 to create an IMS DB'
* 13 message
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(13,10),                                            -
               INITIAL='named LIBRARY with segments LIBSEG, BOOKSEG,'
* 14 message
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(14,10),                                            -
               INITIAL='and MAGSEG.  Fill key fields below and use GU'
* 15 message
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(15,10),                                            -
               INITIAL='to retrieve that unique segment. Use GN to get'
* 16 message
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(16,10),                                            -
               INITIAL='the next logical segment. '
* 18 segment number
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(18,1),                                             -
               INITIAL='Segment Number:' 
EIMSSNO DFHMDF ATTRB=(UNPROT,NORM,FSET),                               -
               LENGTH=1,                                               -
               POS=(18,17) 
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(18,20),                                            -
               INITIAL='(0-Library, 1-Book, 2-Magazine)' 
* 19 Keys (lib, book, mag); always send library
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(19,1),                                             -
               INITIAL='Keys: Library:' 
EIMSLIB DFHMDF ATTRB=(UNPROT,NORM,FSET),                               -
               LENGTH=10,                                              -
               POS=(19,16) 
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(19,27),                                            -
               INITIAL='Book:' 
EIMSBOK DFHMDF ATTRB=(UNPROT,NORM,FSET),                               -
               LENGTH=20,                                              -
               POS=(19,33) 
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(19,54),                                            -
               INITIAL='Magazine:' 
EIMSMAG DFHMDF ATTRB=(UNPROT,NORM,FSET),                               -
               LENGTH=15,                                              -
               POS=(19,64) 
* 20 Segment input/output
        DFHMDF ATTRB=(PROT,BRT),                                       -
               POS=(20,1),                                             -
               INITIAL='Segment:' 
EIMSSEG DFHMDF ATTRB=(UNPROT,NORM,FSET),                               -
               LENGTH=50,                                              -
               POS=(20,12) 
* 23
EIMSMSG DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=79,                                              -
               POS=(23,1) 
* 24
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(24,1),                                             -
               INITIAL='Enter=GU,GN PF3=Menu PF4=GU PF5=GN PF6=GNP' 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               POS=(24,44),                                            -
               INITIAL='PF7=ISRT PF8=DLET PF9=REPL PF12=Quit' 
        DFHMSD TYPE=FINAL
        END