インストールの検証

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

1. 概要

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

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

サーバーの起動

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

$ tmadmin
--- 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
    0   obmjtimr   (  19)      RDY         0        0         0        0

COBOLの作成

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

       IDENTIFICATION                     DIVISION.
       PROGRAM-ID.                        COBOLA.
       AUTHOR.                            COBOLA.
       ENVIRONMENT                        DIVISION.
       DATA                               DIVISION.
       WORKING-STORAGE                    SECTION.
       PROCEDURE                         DIVISION.

       DISPLAY '  ***   BATCH JOB TEST   *** '.

JCLの作成

作成されたCOBOLA(COBOLプログラム)を呼び出すためのNVS JCLを作成します。以下に例を示します。
```
//TEST JOB
//JOBLIB DD DSN=PROD.BATCHLIB,DISP=SHR
//STEP01 EXEC PGM=COBOLA
//SYSOUT DD SYSOUT=*
```
ジョブ・サブミット

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).
```

正常動作の確認

tjesmgrツールのオプションを使用してジョブのステータスを確認し、正常に動作することを確認します。

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

JOB  ID    : JOB00405      NODE NAME  : NODE1
JOBG NAME  : SYSGRP        JOB  NAME  : TEST
JOB  CLASS : A , JOB STATUS : Done(R00000) , JOB PRTY : 0 , JCLRUNNER INDEX : 0
JOB  USER  : ROOT
JCL  PATH  : /home/binstall64/OpenFrame/volume_DEFVOL/SYS1.JCLLIB/TEST
TIME STAMP : READY : 20250701/18:18:32, START : 20250701/18:20:05
                                        END   : 20250701/18:20:07
RES  USAGE : PROCESS - 2s CPU - (0s,0%)  MEM - 0Byte

STEP LIST  :
-
[        ] START : 20250701/18:20:06, RC=R0000, CPU - 0s (0s)
-

SPOOL LIST :
-
NO  STEP              DDNAME       SIZE  DSNAME
-
0   -                 INPJCL          88 INPJCL
1   -                 SYSMSG          1K SYSMSG
2   -                 CATPROC         88 CATPROC
3   -                 CONVJCL        723 CONVJCL
4   -                 CONMSG         665 CONMSG
5   -                 JESMSG         582 JESMSG
6   -                 JESJCL         1K  JESJCL
7   STEP01            SYSOUT         1K  oframe3.TEST.JOB00405.D000001
-

OUTPUT PROCESSING STATUS : all outputs were processed

tjesmgr PODD [JOBID] [DI=<dd-index> | DN=<dd-name>]コマンドを使用し、COBOLで出力したDISPLAY文が正常に実行されたことを確認します。
```
   ***   BATCH JOB TEST   ***
```