| <![CDATA[
#!/usr/local/bin/perl
#######################################################################
# pgmsel.pl : Active Perl
# Copyright(C)2002 Sannomiya , All Rights Reserved.
#######################################################################
#
# 履歴
# 2002.03.01 新規作成 Ver 1.00
#
#######################################################################
# 設定
#######################################################################
$PGMINDEX = "csv/PGM_INDEX.csv";
$rscexp = "cb";
$libid = "BATCH";
#######################################################################
$seq1 = 0;
$no1 = 0;
#######################################################################
# 1.開始処理 #
if (!open(IN1,"< rcv/rscin.out")) { # 入力ファイル
print '(E001):Open Error = rcv/rscin.out'."\n"; # オープン
exit; # オープンできない
}
open(OTA1,"| sort > $PGMINDEX"); # > 出力 SORT
# :mbr>libfile
print OTA1 ', JCL,LIB,,STEP,NAME,,,CREATE,UPDATE,REMARKS' . "\n";
open(OTB1,"> bat/pgmsel.bat"); # > 出力 bat file
#######################################################################
# 2.メイン 処理 #
while( <IN1> ) { # IN からのデータ $_ がある限り、以下を実行。
$selsw = 1;
# <2.1 対象ライブラリ決定 > #
#1 DATASET: AAAA.BATCH.PGMSRC .... DATE: 02/01/23
if ($_ =~ /DATASET:/){
s/ / /g; # スペース２個を１個に
s/ / /g; # ３回繰返し、スペース１個のみ
s/ / /g;
($fil1,$fil2,$lib,$fil3) = split(/ /,$_,4); # 4 個分離
$libfile = $lib; # lib 取得
}
# <2.2 対象ラインの決定 > #
#selsw = 0;
# <以下の文字列を含む行は出力対象外です。>
if ($_ =~ /: /){ $selsw = 0; }
if ($_ =~ /MEMBER/){ $selsw = 0; }
if ($_ =~ /EXTENT/){ $selsw = 0; }
if ($_ =~ /TRACKS/){ $selsw = 0; }
if ($_ =~ /DIRECTORY/){ $selsw = 0; }
if ($_ =~ /MODIFIED/){ $selsw = 0; }
# <2.3 PROGRAM MEMBER の情報抜き出し > #
if ($selsw == 1){ # 対象ラインのとき
$line = substr($_,2); # 3カラム〜最後まで
# <Pgm-Index-Output> #
$line =~ s/ / /g; # g option is repeat change
$line =~ s/ / /g; # 4 回繰り返すと最大16から
$line =~ s/ / /g; # 1個のブランクになる
$line =~ s/ / /g;
($mbr,$ttr,$ver,$cday,$lday,$ltim,$stp,$ini,$mst,$usr)=split(/ /,$line,10);
$rec = ',' . $mbr . ',' . $libfile;
$rec = $rec . ',#0' . ',' . $stp . ',#1,#2,#3,';
$rmk = '';
$hip = '-';
if ($stp eq ''){$rmk = 'NO DATA'; $hip = ''; }
$rec = $rec . $cday . ',' . $lday . $hip . $ltim;
$rec = $rec . ',' . $rmk;
print OTA1 $rec . "\n";
# <Pgm-Recieve-BatchFile-Output> #
$libnm = ' 1:\'' . $libfile . '(' . $mbr . ')\' ';
$dir = 'c:\\usrown/resrc/' . $rscexp . '/';
$batrec = 'receive ' . $dir . $mbr . '.' . $rscexp;
$batrec = $batrec . $libnm . ' [jiscii crlf';
print OTB1 $batrec . "\n";
#receive c:\usrown/resrc/cb/PGM0100.cb
# 1:'AAAA.BATCH.PGMSRC(PGM0100)' [jiscii crlf
# <100件毎にシーケンスを表示し、プロンプト要求する> #
$seq1 = $seq1 + 1; $no1 = $no1 + 1;
if ($no1 == 100){ $no1 = 0;
print OTB1 'echo ' . $seq1 . "\n";
print OTB1 'pause ' . "\n"; }
}
} # while end
#######################################################################
# <3.終了処理> #
print OTB1 'echo COMPLETED CNT=' . $seq1 . "\n"; # bat file 件数
close(IN1); # while の操作後 に OUT を閉じる。
close(OTA1); #
close(OTB1); #
#######################################################################
##########End_Of_Script
]]> |