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.