JXALANTE
JXALANTE는 COBOL 애플리케이션(사용자 프로그램)에서 AIM의 시스템 정보를 출력하는 유틸리티 인터페이스이다. OpenFrame에서는 JXALANTE의 APG와 DCWSINF 커맨드에 대해서만 지원한다.
1. APG 정보 조회
APG는 APG의 사용 상태에 대한 정보를 조회하는 기능이다.
APG 정보 조회 시 파라미터 타입은 3가지를 지정할 수 있으나, 현재는 'APG를 사용하는 JOB명 취득’에 대해서만 지원한다.
파라미터 |
파라미터 구분 값 |
OpenFrame 지원 여부 |
APG 상태 정보 조회 |
X'00001' |
미지원 |
기동한 APG 정보 조회 |
X'00002' |
미지원 |
APG를 사용하는 JOB명 취득 |
X'00003' |
지원 |
-
호출 형식
CALL "JXALANTE" USING 'APG' RPL NOTELVL PARAM [AIM DID]
-
파라미터
다음은 JXALANTE의 APG 지정을 위한 각 파라미터 항목에 대한 설명이다.
-
RPL
APG 정보 요청 시 반환되는 결과 정보이다.
항목명 타입 길이 비고 길이
Binary
2
예약 필드
Binary
2
리턴 코드
Binary
2
상세 코드
Binary
2
전체 JOB 갯수
Binary
2
이전 반환 JOB 갯수
Binary
2
반환 JOB 상태
Binary
2
반환 JOB 갯수
Binary
2
예약 필드
Binary
20
-
NOTELVL
JXALANTE 수행 시의 로그 레벨을 지정한다. OpenFrame에서는 지원하지 않으며 호환성을 위해 지정한다.
-
PARM
APG에 대한 요청 정보를 지정한다.
항목명 타입 길이 비고 파라미터 타입
Binary
2
요청 타입
Binary
2
현재 OpenFrame에서는 지원하지 않는다.
요청 JOB 갯수
Binary
2
예약 필드
Binary
2
APG명
Binary
2
필수 입력
-
AIM DID
AIM DID(디렉터리 ID)를 지정한다. 생략 가능하다.
-
-
리턴 코드
다음은 리턴 코드에 대한 설명이다.
에러 코드 설명 0x0000
정상 처리되었다.
0x0004
지정한 APG와 관련된 JOB이 없다.
0x0008
지정한 APG가 기동된 상태가 아니다.
0x000c
파라미터 입력 오류이다.
-
예시
다음은 'OIVPAPG0' APG를 사용 중인 JOB의 목록을 반환하는 예시이다.
ID DIVISION. PROGRAM-ID. CASE7. DATA DIVISION. WORKING-STORAGE SECTION. 01 APG1-AREA. 03 APG1-FIL01 PIC X(08) VALUE 'APG '. 01 APG2-AREA. 03 APG2-FIL01 PIC 9(04) COMP VALUE 4036. 03 APG2-FIL02 PIC X(02) VALUE LOW-VALUE. 03 APG2-RTN PIC 9(04) COMP VALUE ZERO. 03 APG2-FIL03 PIC X(02) VALUE LOW-VALUE. 03 APG2-JOBALL PIC 9(04) COMP VALUE ZERO. 03 APG2-FIL04 PIC X(02) VALUE LOW-VALUE. 03 APG2-INF PIC 9(04) COMP VALUE ZERO. 03 APG2-INF-CNT PIC 9(04) COMP VALUE ZERO. 03 APG2-FIL06 PIC X(20) VALUE LOW-VALUE. 03 APG2-JOB-AREA VALUE LOW-VALUE. 05 APG2-JOB-OC OCCURS 500. 07 APG2-JOB PIC X(08). 01 APG3-AREA. 03 APG3-LEVEL PIC 9(04) COMP. 01 APG4-AREA. 03 APG4-FIL01 PIC X(02) VALUE X'0003'. 03 APG4-FIL02 PIC X(02) VALUE X'0001'. 03 APG4-FIL03 PIC 9(04) COMP VALUE 1. 03 APG4-FIL04 PIC X(02) VALUE X'0000'. 03 APG4-NAME PIC X(08). PROCEDURE DIVISION. MOVE 'OIVPAPG0' TO APG4-NAME. CALL 'JXALANTE' USING APG1-AREA APG2-AREA APG3-AREA APG4-AREA.
2. 워크스테이션 정보 조회
DCWSINF는 워크스테이션에 대한 정보를 조회하는 기능이다.
워크스테이션 정보 조회 시 파라미터 타입은 5가지를 지정할 수 있으나, 현재는 파라미터 타입 'NAME’과 'ALL’에 대해서만 지원한다.
파라미터 |
파라미터 구분 값 |
서브 파라미터명 |
지원 여부 |
NAME 지정 |
x'0014' |
NAME |
지원 |
WSLD 지정 |
x'0014' |
WSLD |
미지원 |
ALL 지정 |
x'000c' |
ALL |
지원 |
ERR 지정 |
x'000c' |
ERR |
미지원 |
CONT 지정 |
x'000c' |
CONT |
미지원 |
-
호출 형식
CALL "JXALANTE" USING 'DCWSINF' RPL NOTELVL PARAM WORKAREA
2.1. NAME 정보 지정으로 워크스테이션 정보 조회
-
파라미터
다음은 JXALANTE의 DCWSINF의 NAME 지정을 위한 각 파라미터 항목에 대한 설명이다.
-
RPL
DCWSINF 정보 요청 시 반환되는 결과 정보이다.
항목명 타입 길이 비고 길이
Binary
2
예약 필드
Binary
2
리턴 코드
Binary
2
AIM 결합 상태
Char
1
언어 종별
Char
1
현재 OpenFrame에서는 지원하지 않는다.
예약 필드
Char
3
BTS 타입
Char
1
현재 OpenFrame에서는 지원하지 않는다.
장애 정보
Char
1
현재 OpenFrame에서는 지원하지 않는다.
송출 메시지 정보
Char
1
현재 OpenFrame에서는 지원하지 않는다.
송출 메시지 종별
Char
1
현재 OpenFrame에서는 지원하지 않는다.
프로시저 결합 상태
Char
1
현재 OpenFrame에서는 지원하지 않는다.
파일 종별
Char
1
현재 OpenFrame에서는 지원하지 않는다.
단말 정보
Char
1
메시지 스케줄링 모드
Char
1
현재 OpenFrame에서는 지원하지 않는다.
제어권 정보
Binary
2
현재 OpenFrame에서는 지원하지 않는다.
결합 중인 논리 목적지 수
Binary
2
현재 OpenFrame에서는 지원하지 않는다.
프로시저 이름
Char
8
MQN명
Char
8
SMQN명
Char
8
예약 필드
Char
8
-
NOTELVL
JXALANTE 수행 시의 로그 레벨을 지정한다. OpenFrame에서는 지원하지 않으며 호환성을 위해 지정한다.
-
PARM
DCWSINF에 대한 요청 정보를 지정한다.
항목명 타입 길이 비고 파라미터 타입
Binary
2
NAME 지정을 위해서는 x'0014’를 지정한다.
예약 필드
Binary
2
서브 파라미터 타입
Char
8
NAME 지정을 위해서는 'NAME’을 지정한다.
워크스테이션 이름
Char
8
필수 입력
APG명
Binary
2
필수 입력
-
WORKAREA
NAME 지정 시 사용하지 않으며 호환성을 위해 지정한다.
-
-
리턴 코드
다음은 리턴 코드에 대한 설명이다.
에러 코드 설명 00
정상 처리되었다.
21
워크스테이션 정보가 존재하지 않는다.
22
파라미터 정보가 잘못되었다.
-
예시
다음은 'OIVPTRM1' 워크스테이션에 대한 정보를 반환하는 예시이다.
ID DIVISION. PROGRAM-ID. CASE13. DATA DIVISION. WORKING-STORAGE SECTION. 01 C1-A. 02 FILLER PIC X(8) VALUE 'DCWSINF '. 01 C1-B. 02 FILLER PIC X(2) VALUE X'0038'. 02 FILLER PIC X(2) VALUE X'0000'. 02 C1-CODE-1 PIC S9(4) COMP. 02 FILLER PIC X(2) VALUE SPACE. 02 C1-INFAIM1 PIC X(1) VALUE SPACE. 02 C1-INFLANG1 PIC X(1) VALUE SPACE. 02 FILLER PIC X(2) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC X(1) VALUE SPACE. 02 FILLER PIC S9(4) COMP. 02 FILLER PIC S9(4) COMP. 02 C1-PRC PIC X(8). 02 C1-MQN PIC X(8). 02 C1-SMQN PIC X(8). 02 FILLER PIC X(8). 02 C5-BB OCCURS 200. 03 C5-R-WS PIC X(8) VALUE SPACE. 03 PROC PIC X(8) VALUE SPACE. 03 AIMC PIC X(1) VALUE SPACE. 03 PROCC PIC X(1) VALUE SPACE. 03 FILLER PIC X(10) VALUE SPACE. 01 C1-C. 02 FILLER PIC X(2) VALUE X'0001'. 01 C1-D. 02 PARM-TYPE PIC X(2) VALUE X'0014'. 02 FILLER PIC X(2) VALUE X'0000'. 02 FILLER PIC X(8) VALUE 'NAME '. 02 C5-WS PIC X(8) VALUE SPACE. 01 C1-E. 02 FILLER PIC X(2) VALUE X'0100'. 02 FILLER PIC X(2) VALUE X'0000'. 02 FILLER PIC X(252) VALUE ALL X'00'. PROCEDURE DIVISION. MOVE 'OIVPTRM1' TO C5-WS. CALL 'JXALANTE' USING C1-A C1-B C1-C C1-D C1-E.
2.2. 전체 워크스테이션 정보 조회
-
파라미터
다음은 JXALANTE의 DCWSINF의 ALL 지정을 위한 각 파라미터 항목에 대한 설명이다.
-
RPL
DCWSINF 정보 요청 시 반환되는 결과 정보이다.
항목명 타입 길이 비고 길이
Binary
2
예약 필드
Binary
2
리턴 코드
Binary
2
예약 필드
Binary
2
전체 워크스테이션 갯수
Binary
2
반환 워크스테이션 갯수
Binary
2
예약 필드
Binary
4
다음은 RPL의 SUB 항목이다.
항목명 타입 길이 비고 워크스테이션 이름
Char
8
프로시져 이름
Char
8
터미널 상태
Char
1
프로시져 결합 상태
Char
1
결합중인 논리 목적지 수
Binary
2
현재 OpenFrame에서는 지원하지 않는다.
예약 필드
Binary
8
-
NOTELVL
JXALANTE 수행 시의 로그 레벨을 지정한다. OpenFrame에서는 지원하지 않으며 호환성을 위해 지정한다.
-
PARM
DCWSINF에 대한 요청 정보를 지정한다.
항목명 타입 길이 비고 파라미터 타입
Binary
2
ALL을 지정하기 위해 x'000c’를 지정한다.
예약 필드
Binary
2
서브 파라미터 타입
Char
8
ALL을 지정하기 위해 'ALL’을 지정한다.
-
WORKAREA
NAME 지정 시 사용하지 않으며 호환성을 위해 지정한다.
-
-
리턴 코드
다음은 리턴 코드에 대한 설명이다.
에러 코드 설명 00
정상 처리되었다.
21
워크스테이션 정보가 존재하지 않는다.
22
파라미터 정보가 잘못되었다.
-
예시
다음은 전체 워크스테이션에 대한 정보를 반환하는 예시이다.
ID DIVISION. PROGRAM-ID. CASE14. DATA DIVISION. WORKING-STORAGE SECTION. 01 C1-A. 02 FILLER PIC X(8) VALUE 'DCWSINF '. 01 C1-B. 02 FILLER PIC S9(4) COMP VALUE 56. 02 FILLER PIC X(2) VALUE X'0000'. 02 C1-CODE-1 PIC S9(4) COMP. 02 FILLER PIC X(2) VALUE SPACE. 02 C1-ENTRY-1 PIC S9(4) COMP. 02 C1-ENTRY1 PIC X(2) VALUE SPACE. 02 FILLER PIC X(4) VALUE SPACE. 02 C1-BB OCCURS 200. 03 C1-WS PIC X(8) VALUE SPACE. 03 PROC PIC X(8) VALUE SPACE. 03 AIMC PIC X(1) VALUE SPACE. 03 PROCC PIC X(1) VALUE SPACE. 03 FILLER PIC X(10) VALUE SPACE. 01 C1-C. 02 FILLER PIC X(2) VALUE X'0001'. 01 C1-D. 02 FILLER PIC X(2) VALUE X'000C'. 02 FILLER PIC X(2) VALUE X'0000'. 02 C1-MODE PIC X(8) VALUE 'ALL '. 01 C1-E. 02 FILLER PIC X(2) VALUE X'0100'. 02 FILLER PIC X(2) VALUE X'0000'. 02 FILLER PIC X(252) VALUE ALL X'00'. PROCEDURE DIVISION. CALL 'JXALANTE' USING C1-A C1-B C1-C C1-D C1-E.