      *>****************************************************************
      *> Author: Erik Eriksen
      *> Create Date: 2021-05-11
      *> Last Updated: 2021-05-18
      *> Purpose: Shared copy book with working storage definition of
      *>          item list data record and related variables.
      *> Tectonics:
      *>     ./build_editor.sh 
      *>     ./build_item_creator.sh
      *>****************************************************************

       01  ws-item-list-data.
           05  ws-cur-num-list-items       pic 999 comp.
           05  ws-item-list-data-record    occurs 0 to 999 depending 
                                           on ws-cur-num-list-items.
               
               10  ws-item-list-id                 pic 999.
               10  ws-item-list-name               pic x(16).                                          
               10  ws-item-list-effect-id          pic 99.
               10  ws-item-list-worth              pic 999.
               10  ws-item-list-color              pic 9. 
               10  ws-item-list-char               pic x.
               10  ws-item-list-highlight-sw       pic a value 'N'.
                   88  ws-item-list-is-highlight   value 'Y'.
                   88  ws-item-lsit-not-highlight  value 'N'.
               10  ws-item-list-blink-sw           pic a value 'N'.    
                   88  ws-item-list-is-blink       value 'Y'.
                   88  ws-item-list-not-blink      value 'N'.           
               