1 개요[ | ]
- AID 키 = Attention Identifier키.
- CICS는 AID 키들만 감지할 수 있다. 모든 입력을 입력한 다음 사용자가 AID 키들 중 하나를 입력할 때 CICS가 제어권을 가져간다. AID 키들에는 ENTER, PF1 ~ PF24, PA1 ~ PA3, CLEAR가 있다.
2 AID 키의 유효성 확인[ | ]
사용자가 누른 키는 EIBAID를 사용하여 검사한다.
- EIBAID는 1바이트 길이이며 3270 input stream에 사용되는 실제 attention identifier 값을 보유한다.
- 다음의 문을 작성함으로써 CICS는 애플리케이션에 사용할 수 있는 미리 코딩된 변수 집합을 제공해준다.
COPY DFHAID
3 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 '<'.
3.1 예[ | ]
다음의 예는 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.
4 커서의 위치 지정[ | ]
맵 정의에 지정된 위치를 override하는 방법에는 두 가지가 있다.
- 첫 번째 방법은 SEND MAP 명령의 CURSOR 옵션에 line, column 번호에 상대적인 화면 위치를 지정하는 것이다.
- 다른 방법으로는 L로 끝나는 symbolic map 변수에 -1으르 이동하는 것이다. 그러면 SEND MAP의 CURSOR 옵션으로 맵을 send한다.
4.1 예[ | ]
다음의 예는 NAME 필드의 커서 위치를 override하는 방법을 보여준다.
MOVE -1 TO NAMEL
EXEC CICS SEND
MAP ('map-name')
MAPSET ('name-field')
ERASE
FREEKB
CURSOR
END-EXEC.
5 동적 수정 attribute(Dynamically Modifying Attributes)[ | ]
맵을 send할 때 맵에 지정된 것 외에 필드에 대한 다른 속성을 지정하고 싶을 때 프로그램 내의 필드를 설정함으로써 이를 override할 수 있다. 다음은 필드의 속성을 oveerride하는 설명이다.
- 필드의 속성을 override하려면 애플리케이션에 DFHATTR을 포함해야 한다. 이것은 CICS가 제공한다.
- 필요한 속성은 리스트에서 선택할 수 있으며 'A'로 끝나는 symbolic field로 이동할 수 있다.
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 "'".
편집자
로그인하시면 댓글을 쓸 수 있습니다.
{{ comment.name }}
{{ comment.created | snstime }}
-
{{comment.page_title}} ―{{comment.name}}