CICS-보조 키
이전 모듈에서 논의했듯이 AID 키는주의 식별자 키로 알려져 있습니다. CICS는 AID 키만 감지 할 수 있습니다. 모든 입력을 입력 한 후 사용자가 AID 키 중 하나를 누를 때만 CICS가 제어합니다. AID 키에는 ENTER, PF1 ~ PF24, PA1 ~ PA3 및 CLEAR가 포함됩니다.
AID 키 확인
사용자가 누른 키는 EIBAID를 사용하여 확인합니다.
EIBAID는 1 바이트 길이이며 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.커서 위치
지도 정의에 지정된 위치를 재정의하는 방법에는 두 가지가 있습니다.
한 가지 방법은 send map 명령의 CURSOR 옵션에서 행 및 열 번호에 상대적인 화면 위치를 지정하는 것입니다.
다른 방법은 L이 붙은 기호 맵 변수로 -1을 이동하는 것입니다. 그런 다음 SEND MAP에서 CURSOR 옵션을 사용하여 맵을 보냅니다.
예
다음 예는 NAME 필드의 커서 위치를 재정의하는 방법을 보여줍니다.
MOVE -1 TO NAMEL
EXEC CICS SEND
MAP ('map-name')
MAPSET ('name-field')
ERASE
FREEKB
CURSOR
END-EXEC.동적으로 속성 수정
맵을 보내는 동안 맵에 지정된 것과 다른 필드에 대해 다른 속성을 가지려면 프로그램에서 필드를 설정하여이를 재정의 할 수 있습니다. 다음은 필드의 속성을 재정의하는 설명입니다-
필드의 속성을 대체하려면 애플리케이션 프로그램에 DFHATTR을 포함해야합니다. CICS에서 제공합니다.
필요한 속성은 목록에서 선택하여 'A'가 붙은 기호 필드 변수로 이동할 수 있습니다.
DFHATTR은 다음 내용을 보유하고 있습니다-
01 CICS-ATTRIBUTES.
05 ATTR-UXN PIC X(01) VALUE SPACE.
05 ATTR-UXMN PIC X(01) VALUE 'A'.
05 ATTR-UXNL PIC X(01) VALUE 'D'.
05 ATTR-UXMNL PIC X(01) VALUE 'E'.
05 ATTR-UXBL PIC X(01) VALUE 'H'.
05 ATTR-UXMBL PIC X(01) VALUE 'I'.
05 ATTR-UXD PIC X(01) VALUE '<'.
05 ATTR-UXMD PIC X(01) VALUE '('.
05 ATTR-U9N PIC X(01) VALUE '&'.
05 ATTR-U9MN PIC X(01) VALUE 'J'.
05 ATTR-U9NL PIC X(01) VALUE 'M'.
05 ATTR-U9MNL PIC X(01) VALUE 'N'.
05 ATTR-U9BL PIC X(01) VALUE 'Q'.
05 ATTR-U9MBL PIC X(01) VALUE 'R'.
05 ATTR-U9D PIC X(01) VALUE '*'.
05 ATTR-U9MD PIC X(01) VALUE ')'.
05 ATTR-PXN PIC X(01) VALUE '-'.
05 ATTR-PXMN PIC X(01) VALUE '/'.
05 ATTR-PXNL PIC X(01) VALUE 'U'.
05 ATTR-PXMNL PIC X(01) VALUE 'V'.
05 ATTR-PXBL PIC X(01) VALUE 'Y'.
05 ATTR-PXMBL PIC X(01) VALUE 'Z'.
05 ATTR-PXD PIC X(01) VALUE '%'.
05 ATTR-PSN PIC X(01) VALUE '0'.
05 ATTR-PSMN PIC X(01) VALUE '1'.
05 ATTR-PSNL PIC X(01) VALUE '4'.
05 ATTR-PSMNL PIC X(01) VALUE '5'.
05 ATTR-PSBL PIC X(01) VALUE '8'.
05 ATTR-PSMBL PIC X(01) VALUE '9'.
05 ATTR-PSD PIC X(01) VALUE '@'.
05 ATTR-PSMD PIC X(01) VALUE "'".