cobol-tna-system/詳細設計書/詳細設計書_JIN06SRT.md

JIN06SRT 詳細設計書

プログラム概要

項目	内容
プログラムID	JIN06SRT（人事→JINji, 06, 社員データ並替→SRT）
プログラムタイプ	34（SORT）
機能	EMP-VALID（200B）を INPUT PROCEDURE で読込み、EMP-ID 昇順に SORT し、OUTPUT PROCEDURE で RETURN して SORTED-EMP へ書出す
CALL方式	メインプログラム（JCLからCALL）
DBアクセス	なし
使用サブプログラム	SUB01DAT（日付）, SUB02MSG（メッセージ）, SUB03END（アベンド）

前提条件

NO	対象ファイル	条件
1	EMP-VALID	JIN01KNS でチェック済のデータであること
2	EMP-VALID	並替は COBOL の SORT 文で実施（本プログラム内）

キーワードカバー目的で、並替は COBOL の SORT 文（INPUT/OUTPUT PROCEDURE）を明示使用する。本番では JCL の SORTWK* でソートワーク領域を確保する。

使用ファイル一覧

NO	使用ファイル名	識別子	DD名	I/O	COPY群	形式	レコード長	媒体	備考
1	EMP-VALID	R01	JIN06R01	I	JIN01REC	FB	200	PS	チェック済社員データ
2	SORTED-EMP	W01	JIN06W01	O	JIN01REC	FB	200	PS	並替済社員データ
3	VALID-ERROR	W02	JIN06W02	O	VALID-ERROR-REC	FB	80	PS	上限超過エラー
4	SORTWORK	SD	SORTWK01	—	JIN01REC	FB	200	ワーク	SORTファイル

キー項目一覧

NO	ファイル名	ソート条件(キー項目)	キー条件
1	SORTWORK	EMP-ID 昇順	ON ASCENDING KEY

使用モジュール一覧

NO	機能	プログラムID	使用COPY名
1	運用日付取得SUB	SUB01DAT	JINDATAC
2	メッセージ編集出力SUB	SUB02MSG	JINMSGAC
3	ABEND処理SUB	SUB03END	JINENDAC

---

処理詳細

段落一覧（SOR規約名）

段落名	機能
0000MAJCOLSOR	メインコントロール（初期→SORT→終了）
1000ITTSOR	初期処理（開始MSG・初期化・運用日付・出力OPEN）
2000MAJSOR	SORT実行（ON ASCENDING KEY + INPUT/OUTPUT PROCEDURE + 復帰コード判定）
2110INPUTSOR	INPUT PROCEDURE（EOF 到達まで読込ループ + R01読込→RELEASE）
2110READSOR	1件読込→SORTレコード転記→RELEASE / 上限超過はVALID-ERROR
2120OUTPUSOR	OUTPUT PROCEDURE（RETURN→SORTED-EMP書出）
3000STPSOR	終了処理（統計表示・CLOSE・終了MSG）
4000MSGOUTSOR	メッセージ編集出力SUB呼出
9000ERRSOR	エラー処理（ABEND）

処理フロー

1. 0000MAJCOLSOR
   1-1. PERFORM 1000ITTSOR（初期処理）
   1-2. PERFORM 2000MAJSOR（SORT処理）
   1-3. PERFORM 3000STPSOR（終了処理）
   1-4. GOBACK

2. 1000ITTSOR（初期処理）
   2-1. DISPLAY 'JIN06SRT START' UPON CONSOLE
   2-2. SUB02MSG で開始メッセージ（001）出力
   2-3. INITIALIZE WRKARA, CUNARA
   2-4. CALL SUB01DAT（運用日付取得）。異常時は 4000MSGOUTSOR＋9000ERRSOR
   2-5. OPEN OUTPUT W01OUTFIL, W02OUTFIL

3. 2000MAJSOR（SORT実行）
   3-1. SORT SORTWORK
        ON ASCENDING KEY SREMP-ID
        INPUT PROCEDURE 2110INPUTSOR
        OUTPUT PROCEDURE 2120OUTPUSOR
   3-2. MOVE RETURN-CODE TO WRK-SORT-STAT
   3-3. WRK-SORT-STAT ≠ 0 → 4000MSGOUTSOR + CALL SUB03END（ABEND）

4. 2110INPUTSOR（INPUT PROCEDURE）
   4-1. OPEN INPUT R01INNFIL
   4-2. PERFORM UNTIL WRK-R01EOF-Y（EOF 到達まで 2110READSOR を繰返す）
        ※READ は EOF まで行い、上限超過（WRK-SORT-CNT > 999）分を VALID-ERROR へ出力する
   4-3. CLOSE R01INNFIL

5. 2110READSOR（読込・RELEASE）
   5-1. WRK-R01EOF-Y なら EXIT SECTION（上限到達後の空処理）
   5-2. READ R01INNFIL
        AT END → WRK-R01EOF='1'
        NOT AT END → CUN-R01INN +1、WRK-SORT-CNT +1
        R01→SR へ全項目転記
        WRK-SORT-CNT <= 999 → RELEASE SORTREC、CUN-SORT-IN +1
        WRK-SORT-CNT >  999 → VALID-ERROR（9999）WRITE、CUN-W02OUT +1

6. 2120OUTPUSOR（OUTPUT PROCEDURE）
   6-1. PERFORM UNTIL 1=2
        RETURN SORTWORK RECORD
          AT END → EXIT PERFORM
          NOT AT END → SR→W01 へ転記 → WRITE W01OUTREC、CUN-W01OUT +1
        END-RETURN

7. 3000STPSOR（終了処理）
   7-1. DISPLAY READ/SORT/OUT/ERROR 件数 UPON CONSOLE
   7-2. CLOSE W01OUTFIL, W02OUTFIL
   7-3. SUB02MSG で終了メッセージ（002）出力

8. 9000ERRSOR（エラー処理）
   8-1. CALL SUB03END（ABEND）

上限超過時のエラー出力（W02/VALID-ERROR）

項目名	設定値	PIC	備考
ERR-PROGRAMID	CNS-PRGIDX	X(8)	'JIN06SRT'
ERR-EMP-ID	SREMP-ID	X(8)	超過レコードの社員番号
ERR-CODE	'9999'	X(4)	上限超過
ERR-DETAIL	'SORT LIMIT OVER'	X(60)

---

カバレッジ対象キーワード

予約語/記号	区分	使用箇所
SORT	予約語	2000MAJSOR: SORT ファイル ON ASCENDING KEY + INPUT/OUTPUT PROCEDURE
RELEASE	予約語	2110READSOR: INPUT PROCEDURE 内で RELEASE 送出
RETURN	予約語	2120OUTPUSOR: RETURN SORTWORK RECORD / END-RETURN
PERFORM UNTIL	予約語	2110INPUTSOR: EOF 到達まで 2110READSOR を繰返す
SD（Sort Description）	予約語	FILE SECTION: SD SORTWORK
SAME SORT AREA	予約語	ENVIRONMENT DIVISION: SAME SORT AREA 句（SHA08SRT と同様）