qiuqiuqiu
56 lines
3.1 KiB
COBOL
56 lines
3.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. SUB01DAT.
|
|
*****************************************************************
|
|
* システム名 : 残業統計管理システム *
|
|
* プログラムID : SUB01DAT *
|
|
* プログラム名 : 運用日付取得サブ *
|
|
* 作成日 : 2026-06-14 *
|
|
* 処理概要 : FUNCTION CURRENT-DATEにより現在日付を取得 *
|
|
* しYYYYMMDD形式で返す *
|
|
* *
|
|
*****************************************************************
|
|
* 更新履歴 *
|
|
*---------------------------------------------------------------*
|
|
* 更新日付 担当者 更新内容 *
|
|
*---------------------------------------------------------------*
|
|
* 26-06-14 @@@ 新規作成 *
|
|
* *
|
|
*****************************************************************
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SOURCE-COMPUTER. IBM-ZSERIES.
|
|
OBJECT-COMPUTER. IBM-ZSERIES.
|
|
*
|
|
DATA DIVISION.
|
|
*****************************************************************
|
|
WORKING-STORAGE SECTION.
|
|
*****************************************************************
|
|
01 WRKARA.
|
|
03 WRK-SYS-DATE PIC X(026).
|
|
03 WRK-DATE-8 PIC 9(008).
|
|
*
|
|
*****************************************************************
|
|
* リンケージエリア *
|
|
*****************************************************************
|
|
LINKAGE SECTION.
|
|
*
|
|
COPY ZANDATAC.
|
|
*
|
|
PROCEDURE DIVISION USING D01UBSPAR.
|
|
*****************************************************************
|
|
* サブモジュールNO: (0.0) *
|
|
* サブモジュール名: 制御処理 *
|
|
* 処理概要 : メインコントロール処理 *
|
|
*****************************************************************
|
|
0000MAINSOR SECTION.
|
|
*
|
|
*** 現在日付を取得する
|
|
MOVE FUNCTION CURRENT-DATE TO WRK-SYS-DATE.
|
|
*** YYYYMMDD部分を抽出
|
|
MOVE WRK-SYS-DATE(1:8) TO D01UBSUDATE.
|
|
*** 正常終了
|
|
MOVE ZERO TO D01FKICOD.
|
|
*
|
|
0000MAINSOR-EXT.
|
|
GOBACK.
|