月別アーカイブ: 2016年9月

COBOL/IFステートメント


条件によって実行する命令が異なる場合に、判定条件を記述する命令です。
 
【一般的な記述】
 
IF  項目名1 【比較演算子】【項目名2・定数】
「THEN・ELSE」 命令
END-IF.
 
①項目名1
条件判定の基となる項目名を記述します。
 
②比較演算子
・=,EQUAL        :等しい条件を比較
・>,GRATER THAN  :項目名1が大きい条件を比較
・<,LESS THAN    :項目名1が小さい条件を比較
・>=,GRATER EQUAL:等しいか大きい条件を比較
・<=,LESS EQUAL  :等しいか小さい条件を比較
NOTを付けると反対の条件を比較(NOT = は、等しくない条件を比較)
 
③項目名2・定数
項目名1と比較する対象を項目名、又は、定数で記述します。
 
④THEN
条件を満足した場合、THEN以降に記述された命令が実行されます。
THENの記述は省略できますが、命令の記述は必須です。
 
⑤ELSE
条件を満足しない場合、ELSE以降に記述された命令が実行されます。
ELSEを記述する場合、命令の記述は必須です。
ELSEの記述は任意です。
 
⑥END-IF
END-IFの記述は任意です。(一般的には記述する傾向が強いです。)
 
【使用例】
 
以下は、IF(条件分岐命令)を使用したプログラムの例です。
年号を数字で入力して、漢字で表示するプログラムです。
1:明治、2:大正、3:昭和、4:平成 とします。
 
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE05.
*IF(条件判定)命令を使用した例
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01  WORK-AREA.
03  NENGOU     PIC 9(01).
03  NENGOU-KJ  PIC X(08).
PROCEDURE DIVISION.
MAIN.
DISPLAY “年号を入力してください”.
ACCEPT NENGOU.
IF  NENGOU = 1
THEN
MOVE “明治”  TO  NENGOU-KJ
ELSE
IF  NENGOU = 2
THEN
MOVE “大正”  TO  NENGOU-KJ
ELSE
IF  NENGOU = 3
THEN
MOVE “昭和”  TO  NENGOU-KJ
ELSE
IF  NENGOU = 4
THEN
MOVE “平成”  TO  NENGOU-KJ
ELSE
MOVE “該当なし”  TO  NENGOU-KJ
END-IF
END-IF
END-IF
END-IF.
DISPLAY “年号は”  NENGOU-KJ “です。”.
STOP RUN.
 

COBOL/COMPUTEステートメント


【一般的な記述】
 
COMPUTE  項目名1 「ROUNDED」 = 【変数2・数字常数・演算式】「ON SIZE ERROR 命令」
 
①項目名1は、演算結果が格納される領域です。
 
②ROUNDEDを記述すると四捨五入された演算結果となります。(記述しなければ切り捨て)
 
③【項目名2・数字常数・演算式】
 
 それぞれの記述例
 
 項目2 : COMPUTE A = B
 
 数字常数: COMPUTE A = 1
 
 演算式 : COMPUTE A = A + 1(加算)
: COMPUTE A = A – 1(減算)
: COMPUTE A = A * B(乗算)
: COMPUTE A = A / C(除算)
: COMPUTE A = (B + C – D) * E / F
 
④ON SIZE ERROR 命令
 
 桁溢れ(演算結果が項目1の桁を超えた状態)が起きた場合に、命令が実行されます。
 
 エラー処理へ制御を渡すことになりますが通常記述しません。
 
【使用例】
 
以下は、COMPUTE(演算)命令を使用したプログラムの例です。
 
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE04.
*COMPUTE(演算命令)を使用した例
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01  WORK-AREA.
03  TANKA   PIC 9(05).
03  SURYO   PIC 9(05).
03  KINGAKU PIC 9(05).
PROCEDURE DIVISION.
MAIN.
DISPLAY “単価を入力してください”.
ACCEPT TANKA.
DISPLAY “数量を入力してください”.
ACCEPT SURYO.
COMPUTE KINGAKU = TANKA * SURYO.
DISPLAY “金額は” KINGAKU “です。”
STOP RUN.

WordPress/初期設定【設定タブ】


WordPressの初期設定

  WordPress/設定タブ
1. WordPress/一般設定
2. WordPress/表示設定
3. WordPress/ディスカッション
4. WordPress/メディア設定
5. WordPress/パーマリンク設定