From bd791696d35cd93e6437e406350b5109c30dea58 Mon Sep 17 00:00:00 2001 From: hangshuo652 Date: Sun, 9 Aug 2026 13:39:22 +0800 Subject: [PATCH] =?UTF-8?q?SHA02MNC.cbl=E3=81=AEBOM=E9=99=A4=E5=8E=BB?= =?UTF-8?q?=E3=81=A8WRK-RATE-TBL=E3=82=BB=E3=82=AF=E3=82=B7=E3=83=A7?= =?UTF-8?q?=E3=83=B3=E3=81=AE=E3=82=A4=E3=83=B3=E3=83=87=E3=83=B3=E3=83=88?= =?UTF-8?q?=E3=82=92=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/SHA02MNC.cbl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/SHA02MNC.cbl b/src/SHA02MNC.cbl index 096f911..4c652e4 100644 --- a/src/SHA02MNC.cbl +++ b/src/SHA02MNC.cbl @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. SHA02MNC. ***************************************************************** * システム名 : 社会保険管理システム * @@ -89,16 +89,16 @@ 03 WRK-EOF PIC X(001). 88 WRK-EOF-Y VALUE '1'. 03 WRK-YEAR-MONTH PIC X(006). - 03 WRK-IDX PIC 9(004). + 03 WRK-IDX PIC 9(004). 03 WRK-RATE-COUNT PIC 9(003) VALUE ZERO. 03 WRK-RATE-TBL. - 05 WRK-RATE-ENTRY OCCURS 100 - INDEXED BY WRK-RATE-IDX. - 07 WRK-GRADE-CODE PIC X(002). - 07 WRK-MONTHLY-FROM PIC 9(009). - 07 WRK-MONTHLY-TO PIC 9(009). - 07 WRK-HEALTH-RATE PIC 9(001)V9(006). - 07 WRK-PENSION-RATE PIC 9(001)V9(006). + 05 WRK-RATE-ENTRY OCCURS 100 + INDEXED BY WRK-RATE-IDX. + 07 WRK-GRADE-CODE PIC X(002). + 07 WRK-MONTHLY-FROM PIC 9(009). + 07 WRK-MONTHLY-TO PIC 9(009). + 07 WRK-HEALTH-RATE PIC 9(001)V9(006). + 07 WRK-PENSION-RATE PIC 9(001)V9(006). 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. 03 WS-FILE-STATUS PIC X(002). *