インストールの検証

本章では、OpenFrame Batch(以下、Batch)のインストール後にCOBOLを使用してインストールを検証する方法について説明します。

1. 概要

Batchシステムは、JCLで作成されたジョブを実行するためのシステムであり、メインフレームのバッチ・ジョブを同様に実行するためのTJES環境を提供します。

2. インストールの検証手順

以下は、COBOLを使用してインストールを検証する方法です。

  1. サーバーの起動

    tmadminツールを使用してバッチ・ジョブを実行するためのサーバーが起動していることを確認します。

    $ tmamdin
    
    --- Welcome to Tmax Admin (Type "quit" to leave) ---
    
    $$1 NODE1 (tmadm): si
    ------------------------------------------------------------------------
      clh   svrname    (svri)   status     count   qcount   qpcount  emcount
    ------------------------------------------------------------------------
        0   TPFMAGENT  (   4)      RDY         0        0         0        0
        0   ofrsasvr   (   5)      RDY         0        0         0        0
        0   ofrlhsvr   (   6)      RDY         0        0         0        0
        0   ofrdmsvr   (   7)      RDY         0        0         0        0
        0   ofrdsedt   (   8)      RDY         0        0         0        0
        0   ofrcmsvr   (   9)      RDY         0        0         0        0
        0   ofruisvr   (  10)      RDY         0        0         0        0
        0   ofrsmlog   (  11)      RDY         0        0         0        0
        0   obmjmsvr   (  12)      RDY         0        0         0        0
        0   obmjschd   (  13)      RDY         1        0         0        0
        0   obmjinit   (  14)      RDY         2        0         0        0
        0   obmjhist   (  15)      RDY         0        0         0        0
        0   obmjspbk   (  16)      RDY         0        0         0        0
        0   ofrpmsvr   (  17)      RDY         0        0         0        0
        0   obmtsmgr   (  18)      RDY         0        0         0        0
  2. COBOLの作成

    文字列を出力する基本的なCOBOLを作成します。COBOLが作成されたら、NetCOBOLを使用してコンパイルして登録します。以下に例を示します。

           IDENTIFICATION                     DIVISION.
           PROGRAM-ID.                        COBOLA.
           AUTHOR.                            COBOLA.
           ENVIRONMENT                        DIVISION.
           DATA                               DIVISION.
           WORKING-STORAGE                    SECTION.
           PROCEDURE                         DIVISION.
    
           DISPLAY '  ***   BATCH JOB TEST   *** '.
  3. JCLの作成

    作成されたCOBOLA(COBOLプログラム)を呼び出すためのXSP JCLを作成します。以下に例を示します。

    \ JOB TEST
    \ EX  COBOLA
    \ FD  PRGLIB=DA,FILE=PROD.BATCHLIB
    \ FD  LIST=DA,SOUT=A
    \ JEND
  4. JOBサブミット

    tjesmgr runオプションを使用してジョブをサブミットします。サブミットされたジョブは、START状態でJOBQにロードされます。JOBQにロードされたジョブは、PSコマンドを使用して確認できます。

    tjesmgr RUN TEST NODE=NODE1
    
    >
    Command : [RUN /home/binstall64/OpenFrame/volume_DEFVOL/SYS1.JCLLIB/TEST NODE=NODE1]
    Node name : NODE1
    (JOB00405) /home/binstall64/OpenFrame/volume_DEFVOL/SYS1.JCLLIB/TEST is submitted as TEST(JOB00405).
  5. JOBステータスの確認

    tjesmgrツールのオプションを使用してジョブのステータスや詳細を確認することができます。

    • tjesmgr PSJ [ JOBID ]コマンドを使用してジョブがDone(R00010)で終了したことを確認します。

      JOB  ID    : JOB00405      NODE NAME  : NODE1
      JOBG NAME  : SYSGRP        JOB  NAME  : TEST
      JOB  CLASS : A , JOB STATUS : Done(R00010) , JOB PRTY : 0 , JCLRUNNER INDEX : 0
      JOB  USER  : ROOT
      JCL  PATH  : /home/binstall64/OpenFrame/volume_DEFVOL/SYS1.JCLLIB/TEST
      TIME STAMP : READY : 20240502/18:18:32, START : 20240502/18:20:05
                                              END   : 20240502/18:20:07
      RES  USAGE : PROCESS - 2s CPU - (0s,0%)  MEM - 0Byte
      
      STEP LIST  :
      -
      [        ] START : 20240502/18:20:06, RC=R0010, CPU - 0s (0s)
      -
      
      SPOOL LIST :
      -
      NO  STEP              DDNAME       SIZE  DSNAME
      -
      0   -                 INPJCL          88 INPJCL
      1   -                 SYSMSG          1K SYSMSG
      2   -                 EXPJCL          88 EXPJCL
      3   -                 JESMSG         723 JESMSG
      4   -                 JESJCL         665 JESJCL
      5                     LIST            1K ROOT.TEST.JOB00405.D000001
      -
      OUTPUT PROCESSING STATUS : all outputs were processed
    • tjesmgr PODD [JOBID] [DI=<dd-index> | DN=<dd-name>]コマンドを使用し、COBOLのDISPLAY文によって出力されたデータがスプールに表示されることを確認します。

      [2024-05-02T18:20:06.124268] [OSAMFRUN(3837195) ] [D] [DEBUGP0D] Application without PED
      [2024-05-02T18:20:06.124286] [OSAMFRUN(3837195) ] [D] [DEBUGP0D] Application without APG
      [2024-05-02T18:20:06.133110] [OSAMFRUN(3837195) ] [M] [AIM0302M] AMS has been initialized.
      [2024-05-02T18:20:06.133128] [OSAMFRUN(3837195) ] [M] [AIM0302M] DDMS has been initialized.
      [2024-05-02T18:20:06.134617] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] TSAM connection was successfully established.
      [2024-05-02T18:20:06.134626] [OSAMFRUN(3837195) ] [D] [DEBUGP0D] [DB_CONN] Check the conn_cd value
      [2024-05-02T18:20:06.134631] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] - CONN CD : 1
      [2024-05-02T18:20:06.134698] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] osamfrun_ap_init: argument given()
      [2024-05-02T18:20:06.135094] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] [AP_EXEC]looking for handle(COBOLA)
      [2024-05-02T18:20:06.135106] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] Run the COBOLA application
        ***   BATCH JOB TEST   ***
      [2024-05-02T18:20:06.135534] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] The COBOLA application is terminated.
      [2024-05-02T18:20:06.135875] [OSAMFRUN(3837195) ] [D] [DEBUGP1D] TSAM was successfully disconnected.