「メインフレーム・コンピューター」で遊ぼうこんな時代に今さらメインフレーム・コンピューターに取り組むハメになったみんなが助けあうサイトです。RSSWordPress.orgコスパのいい社内システムの作り方メインフレームを扱っていると、軽い開発やメンテナンスにリソースを割けない、しかし、BPCも考えねば。解決策のひとつがクラウドにおくFileMakerです。コンソーシアム」設立のお知らせブロードリッジ、IBMと提携しハイブリッド・クラウド戦略を加速。Library”を参照設定する必要はありません仮想テープにバックアップしたボリューム通し番号(VSN)とDCB情報を得る作業で発生したファイルを一時保管先としてVT(仮想テープ)に保存する業務があります。With06行目でバックアップ情報を入れたい箇所の一番左上をクリックするように促します(埋め込みの始まり)08-09行目でTcplinkマクロを実行、終了まで待ちますTcplinkマクロの説明Tcplinkマクロは以下になります。“これからバックアップ一覧のデータ取得処理を始めます。“取得したい情報が入っているジョブの左にカーソルを置いてOKして下さい。“これからバックアップ一覧のデータ取得処理を始めます。“取得したい情報が入っているジョブの左にカーソルを置いてOKして下さい。;28-37行目でワークファイル’BBBBBBBB.8.WORKFILE(BKUPINFO)’を開き、50-66行目で余分なデータを削除します50行目でcopyしている23行目は、画面で何も書かれていない領域ですバックアップ先VSN取得処理その1・・・対象データセット名をJCLのコメント欄から得るVSN1の取得処理について説明します。129行目から202行目の処理は以下と同じです。;68行目のSWAPコマンドで9行目の画面に戻りました。72行目でSDSFの画面に戻った事を確認。7行目で”SJ”が入力されている状態です。(説明に不要な情報は画面から消しました)74行目のENTERでJCL画面を開きます。79行目で赤枠の中をコピーします。189-91行目でJCL画面を閉じ、94-105行目でJOBLOGのバックアップ先のVSN情報があるSYSMSG画面を開きます。VOLS=”が1データセットにつき2件抽出されるためです。VOLS=’を検索します。1118行目でワークファイル画面に移り、123行目で一番目のデータセットの保管先であるVTS001を貼り付けます。続いて、DCB情報を取得します。1208-209行でSYSMSG画面を閉じ、211画面でJOBLOG全体を開き、216行目でFINDコマンドでDCB情報が表示されているメッセージID(IEC090I)を検索。:345行目でISPFのコマンド入力画面を開き、348行目でワークファイルをダウンロードしますこれで、制御がEXCEL(vba)に戻りますTcplink実行後のEXCEL(vba)処理Tcplinkマクロで得た情報がc:\temp\bkupinfo.txtにダウンロードされました。Loop13行目でTcplinkでダウンロードしたファイルをオープンします。16-17行目で選択されているセルの場所を記憶します。28行目で1レコード目を読み込みbufに入れます。SubVSNとデータセットが含まれていない行は改行レコードのみになっています。