PythonからMVSデータセットにアクセスする – 「メインフレーム・コンピューター」で遊ぼう

ZOAUを呼び出すことで、PythonプログラムからMVSデータセットにアクセスすることができます。以下は、MVSデータセットの内容を読み込んで別のデータセットにコピーするプログラム・サンプルです。ZOA UtilitiesのDatasetsを使用しています。

#
# ZOAU and Python Program under z/OS.
#
import os
from zoautil_py import Datasets
#
records = Datasets.read('userid.WORK(MSG1)')
Datasets.write('userid.WORK(MSG2)',records)
print(records)

# ZOAU and Python Program under z/OS.

import os

from zoautil_py import Datasets

records = Datasets.read('userid.WORK(MSG1)')

Datasets.write('userid.WORK(MSG2)',records)

print(records)

以下が、USSシェルから実行した結果です。

/u/userid > python3 zoau_test1.py
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
44444444444444444444444444444444444444444444444444444444444444444444444444444444
77777777777777777777777777777777777777777777777777777777777777777777777777777777
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
/u/userid >

/u/userid > python3 zoau_test1.py

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

44444444444444444444444444444444444444444444444444444444444444444444444444444444

77777777777777777777777777777777777777777777777777777777777777777777777777777777

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ

/u/userid >

USSシェルからPythonを実行する他に、MVSバッチ・ジョブとして実行することもできます。

//         JOB
//*********************************************************************
//BUILDSRC EXEC PGM=IKJEFT01
//SYSTSPRT DD DUMMY
//SYSTSIN  DD *
  OCOPY INDD(SYSUT1) OUTDD(SYSUT2) TEXT
//SYSUT2   DD PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
//            PATH='/u/userid/zoau_test1.py',PATHMODE=SIRWXU
//SYSUT1   DD *,DLM='++'
#
# ZOAU and Python Program under z/OS.
#
import os
from zoautil_py import Datasets
#
records = Datasets.read('userid.WORK(MSG1)')
Datasets.write('userid.WORK(MSG2)',records)
print(records)
++
//*********************************************************************
//BPXBATCH EXEC PGM=BPXBATCH,REGION=0M
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDPARM  DD *
SH python3 zoau_test1.py
/*
//*********************************************************************
//
//

// JOB

//*********************************************************************

//BUILDSRC EXEC PGM=IKJEFT01

//SYSTSPRT DD DUMMY

//SYSTSIN DD *

OCOPY INDD(SYSUT1) OUTDD(SYSUT2) TEXT

//SYSUT2 DD PATHOPTS=(OWRONLY,OCREAT,OTRUNC),

// PATH='/u/userid/zoau_test1.py',PATHMODE=SIRWXU

//SYSUT1 DD *,DLM='++'

# ZOAU and Python Program under z/OS.

import os

from zoautil_py import Datasets

records = Datasets.read('userid.WORK(MSG1)')

Datasets.write('userid.WORK(MSG2)',records)

print(records)

//*********************************************************************

//BPXBATCH EXEC PGM=BPXBATCH,REGION=0M

//STDOUT DD SYSOUT=*

//STDERR DD SYSOUT=*

//STDPARM DD *

SH python3 zoau_test1.py

//*********************************************************************

バッチ処理での実行結果です（ステップBPXBATCHのSTDOUT）。出力側データセット（userid.WORK(MSG2)）にも入力側データセットの内容が書き込まれています。

 SDSF OUTPUT DISPLAY jobname  JOB06529  DSID   104 LINE 0       COLS 02- 133
 COMMAND INPUT ===>                                            SCROLL ===> CSR
********************************* TOP OF DATA **********************************
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
44444444444444444444444444444444444444444444444444444444444444444444444444444444
77777777777777777777777777777777777777777777777777777777777777777777777777777777
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
******************************** BOTTOM OF DATA ********************************

SDSF OUTPUT DISPLAY jobname JOB06529 DSID 104 LINE 0 COLS 02- 133

COMMAND INPUT ===> SCROLL ===> CSR

********************************* TOP OF DATA **********************************