IMSGEN処理手順(本番)
デ-タセット SYSG.IMSGENの中 *:サフィックス A,B,Cのどれか
1.マクロ修正
  端末の変更 ==>TERMINAL
    TRANの変更 ==>TRANSACT 準本番・本番共通
  9121 TSOへ入る。
2.ステージ1
  (1) IMS310*で一番古いものをさがす
       ==>3.4(ユーティリティの中デ-タ・リスト・メニュー)
          DS名==>SYSG.STG* 実行
    PF11でCREATE日付の一番古いものに'D'を入れDELする
 (2) 一番古いIMS310*を修正する
    A.中身を全てDELする。  'D9999'
    B.一番新しいIMS310*をまるごとCOPYしてくる。
      (1)のようにSYSG.STG*のCREATE日付で確認.
    C.今回変更のあったものの START-ENDをさがし中身を
       DELする。
    D.DELしたところに1.で修正したマクロをまるごとCOPYする
    E.SAVEする
 (3) IMSSTG1Jを修正する
    A.SYSPUNCHのDSN を今回のサフックスに合わせる。
    B.SYSIN   のDSN を今回のサフックスに合わせる。
  (4) IMSSTG1Jをサブミットする
      JCL結果で'ERROR','MNOTE'をFIND(LINKはOK)

2.ステージ2
  (1) ステージ1で作られたJCL SYSG.STGOUT*を分割・修正
    A.ヘッダ-をつける
    B.SYSA==>DISKWに修正.
   G.IMSGEN05のDFSAOUE0に関する指定を削除
      (DFSAOUE0というINCLは無い)(通常2行)    
 (2) 各JOBをサブミット
      1つめはやらなくてよい
      6つめはMFSに関するものなので通常やらなくてよい。
  (4) セキュリティ-GEN
      SECTABLJ を修正(準本のSECTBLからSYSINをコピ-) 
      SECTABLJ をサブミット
  (5) コールドスタート
      TSOの S LOGから NN IMS1 XX 
  A.本番のSTOP
      /NN/ CHE FREEZE
    B.オンラインチェンジ
      ・TOPICS.UU.JCL(ONLCHNG)を修正
     IMSGENの場合 MODBLKS,MATRIXを行う
      ・ONLCHNGをサブミット
     現在使用されていないライブラリ-へGENの内容をコピー
         する(オンライン停止前でも可)
      ・IMST01.MODSTATを変更・SAVE
     MODBLKSが AならB BならAへ変更
         (IMSが使用するライブラリ-の変更)
    C.ネットビューのSTOP
       /nnCLOSE IMMED     
        nn(CNM27のリプライ番号)
       (ネットビューを止めておかないと NORMAL RESTARTが
    入ってしまう)
    D.コールドスタート
       /S IMS1
       /NN/NRE CHKPT 0 (COLD START COMPLETED 確認)
      (/NN/STA DC 通信開放
      /STA REG MSGXX) 本番ではやらない(自動立ち上げ)
    E.ネットビュー起動
       /S CNMPROC
  (5) 後処理
  A.MASTERPRのアサイン
    ・ネットビュ-を開く
     ・??? MASTER 実行(マスターをうごかす)
     ・オンライン画面で
       /ASS LTREM MASTER NODE MASTER
    B.TSOのQUEを消しておく
       SDSFの画面で
         O 実行
         H 実行 それぞれ関連分'P'(PURGE)する。
SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送