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). *