Учебники

CICS — Ключи помощи

Сентябрь 19, 2018

Как мы уже обсуждали в предыдущих модулях, ключи AID известны как ключи идентификатора внимания. CICS может определять только ключи AID. После ввода всех вводимых данных, только когда пользователь нажимает одну из клавиш AID, CICS получает контроль. Клавиши AID включают ENTER, PF1 до PF24, PA1 до PA3 ​​и CLEAR.

Проверка ключей AID

Нажатая пользователем клавиша проверяется с помощью EIBAID.

  • EIBAID имеет длину в один байт и содержит фактическое значение идентификатора внимания, используемое во входном потоке 3270.

  • CICS предоставляет нам предварительно закодированный набор переменных, которые можно использовать в прикладной программе, написав следующее утверждение:

    КОПИЯ DFHAID

EIBAID имеет длину в один байт и содержит фактическое значение идентификатора внимания, используемое во входном потоке 3270.

CICS предоставляет нам предварительно закодированный набор переменных, которые можно использовать в прикладной программе, написав следующее утверждение:

КОПИЯ DFHAID

DFHAID

DFHAID — это тетрадь, которая используется в прикладных программах для включения предварительно кодированного набора переменных CICS. Следующее содержание присутствует в тетради DFHAID — 

01    DFHAID.                             
   02  DFHNULL   PIC  X  VALUE IS ' '.     
   02  DFHENTER  PIC  X  VALUE IS ''''.    
   02  DFHCLEAR  PIC  X  VALUE IS '_'.     
   02  DFHCLRP   PIC  X  VALUE IS '¦'.     
   02  DFHPEN    PIC  X  VALUE IS '='.     
   02  DFHOPID   PIC  X  VALUE IS 'W'.     
   02  DFHMSRE   PIC  X  VALUE IS 'X'.     
   02  DFHSTRF   PIC  X  VALUE IS 'h'.     
   02  DFHTRIG   PIC  X  VALUE IS '"'.     
   02  DFHPA1    PIC  X  VALUE IS '%'.     
   02  DFHPA2    PIC  X  VALUE IS '>'.     
   02  DFHPA3    PIC  X  VALUE IS ','.     
   02  DFHPF1    PIC  X  VALUE IS '1'.     
   02  DFHPF2    PIC  X  VALUE IS '2'.     
   02  DFHPF3    PIC  X  VALUE IS '3'.     
   02  DFHPF4    PIC  X  VALUE IS '4'.     
   02  DFHPF5    PIC  X  VALUE IS '5'.     
   02  DFHPF6    PIC  X  VALUE IS '6'.     
   02  DFHPF7    PIC  X  VALUE IS '7'.     
   02  DFHPF8    PIC  X  VALUE IS '8'.     
   02  DFHPF9    PIC  X  VALUE IS '9'.     
   02  DFHPF10   PIC  X  VALUE IS ':'.     
   02  DFHPF11   PIC  X  VALUE IS '#'.     
   02  DFHPF12   PIC  X  VALUE IS '@'.     
   02  DFHPF13   PIC  X  VALUE IS 'A'.     
   02  DFHPF14   PIC  X  VALUE IS 'B'.     
   02  DFHPF15   PIC  X  VALUE IS 'C'.   
   02  DFHPF16   PIC  X  VALUE IS 'D'.   
   02  DFHPF17   PIC  X  VALUE IS 'E'.   
   02  DFHPF18   PIC  X  VALUE IS 'F'.   
   02  DFHPF19   PIC  X  VALUE IS 'G'.   
   02  DFHPF20   PIC  X  VALUE IS 'H'.   
   02  DFHPF21   PIC  X  VALUE IS 'I'.   
   02  DFHPF22   PIC  X  VALUE IS '¢'.   
   02  DFHPF23   PIC  X  VALUE IS '.'.   
   02  DFHPF24   PIC  X  VALUE IS '<'.

пример

В следующем примере показано, как использовать тетрадь DFHAID в прикладной программе: 

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
DATA DIVISION.   
WORKING-STORAGE SECTION.
COPY DFHAID.
PROCEDURE DIVISION.
A000-AIDKEY-PARA.
   EVALUATE EIBAID
      WHEN DFHAID
         PERFORM A000-PROCES-PARA
      WHEN DFHPF1
         PERFORM A001-HELP-PARA
      WHEN DFHPF3
         PERFORM A001-EXIT-PARA
    END-EVALUATE.

Позиционирование курсора

Есть два способа переопределить положение, указанное в определении карты.

  • Один из способов — указать положение экрана относительно номера строки и столбца в опции CURSOR команды send map.

  • Другой способ — переместить -1 в символьную переменную карты с суффиксом L. Затем отправьте карту с опцией CURSOR в SEND MAP.

Один из способов — указать положение экрана относительно номера строки и столбца в опции CURSOR команды send map.

Другой способ — переместить -1 в символьную переменную карты с суффиксом L. Затем отправьте карту с опцией CURSOR в SEND MAP.

пример

В следующем примере показано, как переопределить положение курсора для поля NAME. 

MOVE -1 TO NAMEL
   EXEC CICS SEND 
      MAP ('map-name')
      MAPSET ('name-field')
      ERASE
      FREEKB
      CURSOR
   END-EXEC.

Динамически Изменяемые Атрибуты

При отправке карты, если мы хотим иметь другие атрибуты для поля, отличного от указанного на карте, мы можем переопределить это, установив поле в программе. Ниже приведено объяснение переопределения атрибутов поля:

  • Чтобы переопределить атрибуты поля, мы должны включить DFHATTR в прикладную программу. Это обеспечивается CICS.

  • Требуемый атрибут можно выбрать из списка и переместить в переменную символического поля с суффиксом «A».

Чтобы переопределить атрибуты поля, мы должны включить DFHATTR в прикладную программу. Это обеспечивается CICS.

Требуемый атрибут можно выбрать из списка и переместить в переменную символического поля с суффиксом «A».

DFHATTR содержит следующее содержание —

38
Share: