最大値・最小値も求め方
全ての文字を全角にする方法
COBOL97 強調表示定義ファイルの紹介
ディレクトリの作成
バッチファイルを起動
コンピュータ名の取得
解像度の取得
ディレクトリ内にあるファイル名の取得
関連付けられたプログラムでファイルを起動
EXCEL 形式のファイルを作成
CSV 形式のファイルを作成
テーブルの中から最大値や最小値をＳＯＲＴを使用せず簡単に探す方法はありませんか？
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-AREA.
03 TBL9 PIC 9(02) OCCURS 03.
03 TBLX PIC X(02) OCCURS 03.
01 MIN9 PIC 9(02).
01 MAX9 PIC 9(02).
01 MINX PIC X(02).
01 MAXX PIC X(02).
PROCEDURE DIVISION.
MOVE 11 TO TBL9 (1)
MOVE 22 TO TBL9 (2)
MOVE 33 TO TBL9 (3)
COMPUTE MIN9 = FUNCTION MIN (TBL9(ALL))
COMPUTE MAX9 = FUNCTION MAX (TBL9(ALL))
*
MOVE "AA" TO TBLX (1)
MOVE "BB" TO TBLX (2)
MOVE "CC" TO TBLX (3)
MOVE FUNCTION MIN (TBLX(ALL))
TO MINX
MOVE FUNCTION MAX (TBLX(ALL))
TO MAXX
*
DISPLAY " MIN = " MIN9 " MAX = " MAX9
" MIN = " MINX " MAX = " MAXX
FUNCTION MAX や FUNCTION MIN の引数指定は通常 FUCTION MAX(A B …) のように指定しますが、
配列から探す場合は FUCTION MAX(TBL(ALL)) のように添字に ALL を書くことで簡単に探せます。
全ての文字を全角にする方法はありませんか？
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N PIC N(256).
01 X PIC X(256).
PROCEDURE DIVISION.
MOVE "ABCあいう123" TO X.
MOVE FUNCTION NATIONAL(X)
TO N.
DISPLAY "BEFORE " X.
DISPLAY "AFTER " N.
EXIT PROGRAM.
組込関数 NATIONAL を利用すれば簡単に変換出来ます。
『秀丸』で使用できる COBOL 強調表示ファイル があります。