Perl の例題

２. ＪＣＬ＆プログラム一覧の作成

　ホストからＪＣＬライブラリのプログラム検索結果をＰＣ側に転送し、ＪＣＬ別にプログラム一覧ファイル(CSV)を作成します。

・ホストはＩＢＭ汎用機を想定しています。
・検索結果は、ＴＳＯのライブラリ保守の検索コマンドでアウトプットされたものです。

検索条件は、



 SRCHFOR 'PROGRAM'DB2 を検索
SRCHFOR 'MEMBER'EASY を検索
SRCHFOR 'EXEC'PGM を検索

・転送はＴＳＯのエミュレータの recieve コマンドか ftp で転送してください。
・転送時、シフトジィスに変換してください。

　1.仕様

■動作環境 [Windows 版] -- Windows 95/NT/98/Me/2000 対応 Active Perl 5.6.1.630 FreeWare (http://www2j.biglobe.ne.jp/~apollo/server/server.html)
■実行環境 ・作成モジュール: jclsel.pl ・処理時間 30,000 行の入力で　約３０秒　(800mhz memory=768k) ・入力ファイル rcv/jclin.out ・出力ファイル csv/JCLPGM_INDEX.csv (csv 形式) ・中間ファイル temp/sr1.out temp/sr2.out
■入出力ファイルの仕様 ・入力ファイル 1 ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR OS/390 2001/12/05 16.11 PAGE 1 LINE-# SOURCE SECTION SRCH DSN: BBBB.JCL.CNTL JCL0100 CONCAT#(02) ----------- STRING(S) FOUND ------------------- 6 //S010 EXEC PGM=IEFBR14,COND=(0,NE) 21 //S020 EXEC PGM=PGM0100,COND=(0,NE) 35 RUN PROGRAM(PGM350) PLAN(PGM0350) - 00210009 37 //S030 EXEC PGM=IEBGENER,REGION=4096K,COND=(0,NE) JCL0200 CONCAT#(02) ----------- STRING(S) FOUND ------------------- 1065 //UNLOAD EXEC PGM=IKJEFT01,DYNAMNBR=20 00013900 1072 //STP25130 EXEC EASYRUN,MEMBER=EASY010,SOUT=H,SUBID=BATCH, 00120000 ・出力ファイル nnn jjjjjjj lib ppppppp DB 001,JCL0100 ,BBBB.JCL.CNTL,PGM0100, , 002,JCL0100 ,BBBB.JCL.CNTL,PGM0350,D, 001,JCL0200 ,BBBB.JCL.CNTL,EASY010,E,



　2.プログラミング

仕様にもとづき、Perl でコーディングすると、次のとおりです。

コーディング　例
#!/usr/local/bin/perl ####################################################################### # jclsel.pl : Active Perl # Copyright(C)2002 Sannomiya , All Rights Reserved. ####################################################################### # # EXEC PGM=XXXXXX & PROGRAM RUN(XXXXXXX) MEMBER=　タイプ用 # STEP1 : JCL とそのJCL 内のプログラムも抜き出して、対で出力する # 不要なプログラムはカットします（追加、削除可能） # 連続ＰＧＭの重複をカットします # コメントのJCL　のコメント　//* もカットします # STEP2 : 5ｶﾗﾑ目以降でソートし、重複JCL&PGMをカットする # STEP3 : 一覧表編集出力 # (所要時間：５万行で３５秒 /800mhz memory=768k) ####################################################################### # # 履歴 # 2002.03.01 新規作成 Ver 1.00 # ####################################################################### #■設定値 ####################################################################### $JCPINDEX = '/usrown/make/csv/JCLPGM_INDEX.csv'; ####################################################################### $save = '%%%%%%%%'; # 重複チェック用初期VALUE $cnt = 0; ##STEP1################################################################ # jclin.out -> jclsel_sr1.out # ##STEP1################################################################ open(IN1,"< /usrown/rcv/jclin.out"); # 入力(HOSTのサーチ結果) open(SR1,"| sort /+5 > temp/jclsel_sr1.out"); # 出力(5 byte目以降sort) while( <IN1> ) { ################################# # 1.不要 line の　処理 # ################################# $sw = 1; # 以下のPGM=XXXXXXは出力対象外です。 if ($_ =~ /=LINE-#/){ $sw = 0; } if ($_ =~ /=CJ0BS/){ $sw = 0; } if ($_ =~ /=AMBLIST/){ $sw = 0; } if ($_ =~ /=ASMA90/){ $sw = 0; } if ($_ =~ /=CICSPARS/){ $sw = 0; } if ($_ =~ /=DBYGO/){ $sw = 0; } if ($_ =~ /=DSNTIAUL/){ $sw = 0; } if ($_ =~ /\(DSNTIAUL/){ $sw = 0; } if ($_ =~ /=DSNTIAD/){ $sw = 0; } if ($_ =~ /\(DSNTIAD/){ $sw = 0; } if ($_ =~ /=FTP/){ $sw = 0; } if ($_ =~ /=ICEMAN/){ $sw = 0; } if ($_ =~ /=IDCAMS/){ $sw = 0; } if ($_ =~ /=IEBCOMPR/){ $sw = 0; } if ($_ =~ /=IEBDG/){ $sw = 0; } if ($_ =~ /=IEFBR14/){ $sw = 0; } if ($_ =~ /=IEHLIST/){ $sw = 0; } if ($_ =~ /=ISRSUPC/){ $sw = 0; } if ($_ =~ /=IKJEFT01/){ $sw = 0; } if ($_ =~ /=IEBGENER/){ $sw = 0; } if ($_ =~ /=IEBCOPY/){ $sw = 0; } if ($_ =~ /=IEBPTPCH/){ $sw = 0; } if ($_ =~ /=IEFBBR14/){ $sw = 0; } if ($_ =~ /=IEFACTRT/){ $sw = 0; } if ($_ =~ /=IEHINITT/){ $sw = 0; } if ($_ =~ /=IEWL/){ $sw = 0; } if ($_ =~ /=JDJDUMMY/){ $sw = 0; } if ($_ =~ /=SIMPLEX/){ $sw = 0; } if ($_ =~ /=SORT/){ $sw = 0; } if ($_ =~ /\/\/\*/){ $sw = 0; } # コメント行 ################################# # 2.JCL name line の　処理 # ################################# # LINE-# SOURCE SECTION SRCH DSN: BBBB.JCL.CNTL if ($_ =~ /SRCH DSN:/){ # LIB NAME chop($_); # 改行カット ($fil1,$lib) = split(/: /,$_,2); # 2 つに分離 $libname = $lib; # lib 取得 } ################################# # 3.JCL member line の　処理 # ################################# # JCL0100 CONCAT#(03) ----------- STRING(S) FOUND ------------------- #0123456789 if ($_ =~ /STRING/){ # JCL MEMBER $sw = 0; $pseq = 0; $jcl = substr($_,2,9); $jcl2 = $jcl ; } ################################# # 4.PGM member line の　処理 # ################################# if ($sw == 1){ # 対象PGMメンバー名のとき # 34 RUN PROGRAM(PGM0350) PLAN(PGM0350) - $DB2 = ' '; # NOT DB2 if ($_ =~ / PROGRAM\(/){ # DB2 をPGM=XXXXXXにする $DB2 = 'D'; ($dbkey, $dbvalue) = split(/PROGRAM\(/,$_,2); ($dbkey2, $dbvalue2) = split(/\) /,$dbvalue,2); $_ = 'PGM=' . $dbkey2 . "\n"; } # 34 MEMBER=EASY010 - if ($_ =~ /MEMBER\=/){ # EAZY をPGM=XXXXXXにする $DB2 = 'E'; ($dbkey, $dbvalue) = split(/MEMBER\=/,$_,2); $_ = 'PGM=' . $dbvalue ; } ($key, $value) = split(/=/,$_,2); if ($key =~ /PGM/){ # DB2,EAZY,PGMメンバー抜出 if ($value =~ /,/){ # PGM=XXXXXXX,..カンマ以降除外 ($key2, $gomi) = split(/,/,$value,2); } elsif ($value =~ / /){ # PGM=XXXXXXX△ は空白以降除外 ($key2, $gomi) = split(/ /,$value,2); } else { # PGM=XXXXXXX改行の改行をカット ($key2, $gomi) = split(/\n/,$value,2); } ################################# # 5.出力編集　処理 # ################################# # 出力例　⇒ nnn,JCL0100 ,BBBB.JCL.CNTL,PGM0350,D $pgm = $jcl2 . ',' . $libname; # YZP16401 ,A $pgm = $pgm . ',' . $key2; # ZP16401 ,A,YCBZBB3 $pgm = $pgm . ',' . $DB2; # ZP16401 ,A,YCBZBB3,D $chkdat = $pgm; # 重複データセーブ if ($key2 =~ /'/){ $dum = 1; }else{ ## JCL/PGM順ではないので、この処理後、SORTして(最初のカンマまでのSEQを見ない) ## で重複分をカットします。 ## ここでは、連続して同一PGを出力しないようにするだけです。 if ("$chkdat" ne "$save") { # 重複カット $save = "$chkdat" ; $pseq = $pseq + 1; ###---- program seq no set -----------------------------------------------# if ($pseq < 10){ # 1 --> 001 $pgm = '00' . $pseq . ',' . $pgm ; } elsif ($pseq < 100){ # 10 --> 010 $pgm = '0' . $pseq . ',' . $pgm ; } else { # 100 --> 100 $pgm = $pseq . ',' . $pgm ; } ###-----------------------------------------------------------------------# $pgm = $pgm . ',' . "\n"; # 改行 print SR1 $pgm ; } } } } } close(IN1); # while の操作後 にIN1 を閉じる。 close(SR1); # SR1 も閉じる。 ##STEP2################################################################## # jclsel_sr1.out -> | sort -> jclsel_sr2.out # ##STEP2################################################################## ################################# # 6.重複カット # ################################# open(IN2,"< temp/jclsel_sr1.out"); # ソート後のファイルを入力 open(SR2,"| sort > temp/jclsel_sr2.out") ; # > 出力 (csv 形式) while( <IN2> ) { ($seq, $chkdat) = split(/\,/,$_,2); # 最初のカンマで分離 if ("$chkdat" ne "$save") { $save = "$chkdat" ; ($no, $jcl, $lib, $pgm, $db2, $name) = split(/\,/,$_,6); $rec = $jcl . ',' . $lib . ',' . $no; $rec = $rec . ',' . $pgm . ',' . $db2 . ',' . $name; print SR2 $rec ; # SR2に $_ を出力。 } } close(IN2); # IN も閉じる。 close(SR2); # while の操作後 に OUT を閉じる。 ##STEP3################################################################## ## jclsel_sr2.out -> $JCINDEX # ##STEP3################################################################## ################################# # 7.編集 # ################################# open(IN3,"< temp/jclsel_sr2.out"); # ソート後のファイルを入力 open(OUT,"> $JCPINDEX"); # > 出力 (csv 形式) $rec = 'No' . ',JCL NAME' . ',LIB'; $rec = $rec . ',SEQ' . ',PGM-ID' . ',DB2' . ',名称'. "\n"; print OUT $rec ; while( <IN3> ) { ($jcl, $lib, $no, $pgm, $db2, $name) = split(/\,/,$_,6); $cnt = $cnt + 1; $rec = $cnt . ',' . $jcl . ',' . $lib; $rec = $rec . ',' . $no . ',' . $pgm . ',' . $db2 . ',' . $name; print OUT $rec ; # OUT に $_ を出力。 } close (IN3); # IN も閉じる。 close(OUT); # while の操作後 に OUT を閉じる。 #--------- End of Script ------------------------------------------------#



　3.注意事項

ホストのライブラリがＪＣＬでもＣＯＰＹ句でもかまいません。索引情報のフォーマットが異なる
場合は、この入力仕様にあわせるか、カスタマイズします。

ＪＣＬの中にはユーティリティなど、一覧出力対象外にしたい場合、ソース上の
if ($_ =~ /=XXXXXX/){ $sw = 0; } を追加します。

違反ＪＣＬ(PROGRAM ソース　など)は、ゴミとして出力される場合があります。
結果から削除してください。

左フレームに汎用的なＪＣＬ＆ＰＧＭ一覧作成のツールがダウンロードできます。
一度、お試しください。