インストールの検証
本章では、OpenFrame Batch(以下、Batch)のインストール後にCOBOLを使用してインストールを検証する方法について説明します。
2. インストールの検証手順
以下は、COBOLを使用してインストールを検証する方法です。
-
サーバーの起動
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
-
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プログラム)を呼び出すためのXSP JCLを作成します。以下に例を示します。
\ JOB TEST \ EX COBOLA \ FD PRGLIB=DA,FILE=PROD.BATCHLIB \ FD LIST=DA,SOUT=A \ JEND
-
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).
-
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.
-