home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 September / VPR9809B.ISO / TERMINAL / NIFTY95 / DATA.Z / FENICS.SCR < prev    next >
Text File  |  1998-06-24  |  4KB  |  170 lines
  1. #
  2. #  FENICS-ROAD
  3. #
  4.  
  5. WaitMsg = "\x0Dしばらくしてからやりなおしてください";
  6. CR = "\x0D";
  7. TryID = 3;
  8. TryPass = 3;
  9.  
  10. show "FENICS" & ROAD & "に接続開始";
  11.  
  12. Tries = 8;
  13. Wait_FENICS:
  14.     if Tries == 0 goto Return_Failure;
  15.     Tries = Tries - 1;
  16.     wait
  17.         "*"            goto Send_C_NIM_Host,
  18.         "HOST NAME?"        goto Send_C_NIM_Host1,
  19.         "Connection-ID  --->"    goto Send_SHP_Host,
  20.         "User-ID  --->"        goto Start_LOGIN,
  21.         "Clear DTE"        goto Send_C_NIM_Host2,
  22.         "Clear OCC"        goto Return_Failure_OCC,
  23.         "Clear PAD"        goto Send_C_NIM_Host2,
  24.         "Clear NA"        goto Return_Failure_NA,
  25.         "Clear NP"        goto Return_Failure_NP,
  26.         "Clear NC"        goto Return_Failure_NC,
  27.         "Clear DER"        goto Return_Failure_DER,
  28.         "Clear RPE"        goto Return_Failure_RPE,
  29.     until 80;
  30.     send CR;
  31.     goto Wait_FENICS;
  32.  
  33. Send_C_NIM_Host:
  34.     show "ホストネーム送信中...";
  35.     wait until 10;
  36.     send "C NIM" & CR; 
  37.     goto Wait_FENICS;
  38. Send_C_NIM_Host1:
  39.     wait until 10;
  40.     goto Wait_FENICS;
  41. Send_C_NIM_Host2:
  42.     show "センターホストに再接続中...";
  43.     wait until 10;
  44.     goto Wait_FENICS;
  45. Send_SHP_Host:
  46.     show "コネクションＩＤ送出中...";
  47.     wait until 10;
  48.     send "SHP" & CR;
  49.     goto Wait_FENICS;
  50.     
  51. Start_LOGIN:
  52. UID = %UserID;
  53. Tries = 8;
  54. Send_UID:
  55.     TryID = TryID - 1;
  56.     show "ユーザーＩＤ送出中...";
  57.     wait until 10;
  58.     send UID & CR;
  59. Wait_LOGIN:
  60.     if Tries == 0 goto Return_Failure;
  61.     Tries = Tries - 1;
  62.     wait
  63.         "User-ID  --->"            goto Send_UID,
  64.         "User-ID Error"            goto Enter_UID,
  65.         "Password --->"            goto Start_PSW,
  66.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  67.         "保守作業の"    goto Return_MENTE2,
  68.         "Clear DTE"            goto Return_Failure_DTE,
  69.         "Clear PAD"            goto Return_Failure_PAD,
  70.         "Clear NC"            goto Return_Failure_NC,
  71.     until 80;
  72.     goto Wait_LOGIN;
  73.  
  74. Enter_UID:
  75.     if TryID == 0 goto Return_Failure;
  76.     input "正しいユーザーＩＤを入力して下さい" UID EON 1200;
  77.     if UID goto Wait_LOGIN;
  78.     errexit "ユーザーＩＤ入力タイムアウト";
  79.  
  80. Start_PSW:
  81.     PWD = %Password;
  82.     Tries = 8;
  83. Send_PSW:
  84.     TryPass = TryPass - 1;
  85.     show "パスワード送出中...";
  86.     wait until 10;
  87.     send PWD & CR;
  88. Wait_PASSWORD:
  89.     if Tries == 0 goto Return_Failure;
  90.     Tries = Tries - 1;
  91.     wait
  92.         "Password --->"            goto Send_PSW,
  93.         "Password ERROR"        goto Enter_PSW,
  94.         %ESC & "I"            goto Return_Success,
  95.         "大変混雑"            goto Return_BUSY,
  96.         "◆あなたのIDは都合により"    goto Return_ID_NG_1,
  97.         "定期保守"            goto Return_MENTE,
  98.         "Service is currently"    goto Return_MENTE,
  99.         "◆只今の時間はご利用"        goto Return_MHA,
  100.         "◆二重ログイン"        goto Return_LOGIN,
  101.         "Clear DTE"            goto Return_Failure_DTE,
  102.         "Clear PAD"            goto Return_Failure_PAD,
  103.         "Clear NC"            goto Return_Failure_NC,
  104.     until 80;
  105.     goto Wait_PASSWORD;
  106.  
  107. Enter_PSW:
  108.     if TryPass == 0 goto Return_Failure;
  109.     input "正しいパスワードを入力して下さい" PWD EOFF 1200;
  110.     if PWD goto Wait_PASSWORD;
  111.     errexit "パスワード入力タイムアウト";
  112.  
  113. Return_Success:
  114.   show "FENICS" & ROAD & "に接続しました";
  115.   exit;
  116.  
  117. Return_Failure:
  118.   errexit "FENICS" & ROAD & "に接続できません";
  119.  
  120. Return_Failure_DTE:
  121.   errexit "ホストから着信が拒否されました。"
  122.       & WaitMsg;
  123.  
  124. Return_Failure_OCC:
  125.   errexit "ホストビジー(ホストの論理回線がすべて使用中です)";
  126.  
  127. Return_Failure_PAD:
  128.   errexit "ホストからの解放要求により通信を切断した。"
  129.           & WaitMsg;
  130.  
  131. Return_Failure_NA:
  132.   errexit "接続規制(当該ホストへの接続が禁止されています)";
  133.  
  134. Return_Failure_NP:
  135.   errexit "欠番(当該ホストのセンターアドレスは存在しません)";
  136.  
  137. Return_Failure_NC:
  138.   errexit "接続回線が一時的に込み合っていて、ご使用できません"
  139.           & WaitMsg;
  140. Return_Failure_DER:
  141.   errexit "接続不可(当該ホストは定期メンテナンス、あるいは障害中です)"
  142.           & WaitMsg;
  143. Return_Failure_RPE:
  144.   errexit "ホストの手順エラーによる切断(リモート手順誤り)"
  145.           & WaitMsg;
  146. Return_BUSY:
  147.   errexit "◆現在、サ－ビスは大変混雑しております... ◆";
  148.  
  149. Return_ID_NG_1:
  150.   errexit 
  151.   "◆あなたのIDは都合によりご利用頂けません。" &
  152.   "カスタマーサポートへご連絡ください◆" &
  153.   CR &
  154.   "  フリーダイヤル 0120-22-1200  (平日 9時～19時、土曜日 9時～17時45分)";
  155.  
  156. Return_MENTE:
  157.   errexit 
  158.   "只今の時間、定期保守をしております。";
  159.  
  160. Return_MENTE2:
  161.   errexit 
  162.   "◆保守作業のためしばらくの間ご利用いただけません◆";
  163.  
  164. Return_MHA:
  165.   errexit "◆只今の時間はご利用になれません◆";
  166.  
  167. Return_LOGIN:
  168.   errexit "◆二重ログインです◆";
  169.  
  170.