From 127ec7e6dfc9a16140f2173c37bbd159ffcbcb42 Mon Sep 17 00:00:00 2001 From: qiuqiuqiu Date: Wed, 22 Jul 2026 22:55:08 +0800 Subject: [PATCH] =?UTF-8?q?src/=E3=81=AE21=E3=83=95=E3=82=A1=E3=82=A4?= =?UTF-8?q?=E3=83=AB=E3=82=92IBM=20COBOL=E5=AE=8C=E5=85=A8=E7=89=88?= =?UTF-8?q?=E3=81=AB=E7=B5=B1=E4=B8=80=EF=BC=88production/=E5=81=B4?= =?UTF-8?q?=E3=81=AF=E6=84=8F=E5=9B=B3=E7=9A=84=E3=81=AB=E7=B0=A1=E7=95=A5?= =?UTF-8?q?=E5=8C=96=E3=81=95=E3=82=8C=E3=81=A6=E3=81=84=E3=81=9F=EF=BC=89?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/JIN01KNS.cbl | 23 +++-- src/JIN02SKL.cbl | 76 +++++++++++------ src/KYU01CVT.cbl | 19 ++++- src/KYU02REG.cbl | 11 ++- src/KYU03AGG.cbl | 17 +++- src/KYU04CAL.cbl | 19 ++++- src/KYU05DED.cbl | 17 +++- src/KYU06UPD.cbl | 11 ++- src/KYU07DIV.cbl | 217 +++++++++++++++++++++++++++++++++++------------ src/KYU08PRI.cbl | 42 +++++---- src/KYU09MRG.cbl | 23 +++-- src/SHA01CVT.cbl | 17 +++- src/SHA02MNC.cbl | 11 ++- src/SHA03MNP.cbl | 17 +++- src/SHA04TWO.cbl | 29 +++++-- src/SHA05TWN.cbl | 21 ++++- src/SHA06TWM.cbl | 21 ++++- src/SHA07KBR.cbl | 15 +++- src/SHA08SRT.cbl | 17 +++- src/SHA09S25.cbl | 20 +++-- src/SHA10S10.cbl | 69 +++++++++------ 21 files changed, 529 insertions(+), 183 deletions(-) diff --git a/src/JIN01KNS.cbl b/src/JIN01KNS.cbl index dced3d4..a0ae620 100644 --- a/src/JIN01KNS.cbl +++ b/src/JIN01KNS.cbl @@ -21,10 +21,18 @@ OBJECT-COMPUTER. IBM-ZSERIES. * INPUT-OUTPUT SECTION. - FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL JIN01R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL JIN01W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL JIN01W02. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL JIN01R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL JIN01W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL JIN01W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -104,8 +112,11 @@ 88 WRK-ERR-Y VALUE '1'. *** エラーコード 03 WRK-ERR-CODE PIC X(004). - *** カナ長さWORK - 03 WRK-KANA-LEN PIC 9(002). + *** カナ長さWORK + 03 WRK-KANA-LEN PIC 9(002). + *** SELECT用パディング文字・ファイルステータス + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/JIN02SKL.cbl b/src/JIN02SKL.cbl index ff572d3..0bb1796 100644 --- a/src/JIN02SKL.cbl +++ b/src/JIN02SKL.cbl @@ -21,11 +21,23 @@ OBJECT-COMPUTER. IBM-ZSERIES. * INPUT-OUTPUT SECTION. - FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL JIN02R01. - SELECT R02INNFIL ASSIGN TO EXTERNAL JIN02R02. - SELECT W01OUTFIL ASSIGN TO EXTERNAL JIN02W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL JIN02W02. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL JIN02R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT R02INNFIL ASSIGN TO EXTERNAL JIN02R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL JIN02W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL JIN02W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -111,10 +123,13 @@ 88 WRK-R01EOF-Y VALUE '1'. 03 WRK-R02EOF PIC X(001). 88 WRK-R02EOF-Y VALUE '1'. - *** 内部表走査用 - 03 WRK-IDX PIC 9(004) BINARY. - 03 WRK-AVG-TEMP PIC 9(006)V9(002). - 03 WRK-REM PIC 9(003). + *** 内部表走査用 + 03 WRK-IDX PIC 9(004) BINARY. + 03 WRK-AVG-TEMP PIC 9(006)V9(002). + 03 WRK-REM PIC 9(003). + *** SELECT用パディング文字・ファイルステータス + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** @@ -174,10 +189,13 @@ * サブモジュール名: 初期処理 * * 処理概要 : 開始メッセージ出力・各種初期化処理 * ***************************************************************** - 1000ITTSOR SECTION. - * - *** 開始メッセージ出力 - INITIALIZE M00MHOPAR. + 1000ITTSOR SECTION. + * + *** プログラム開始表示（UPON 予約語カバー） + DISPLAY 'JIN02SKL START' UPON CONSOLE. + * + *** 開始メッセージ出力 + INITIALIZE M00MHOPAR. MOVE CNS-MSGSTR TO M00MSGCOD. PERFORM 6000MSGOUTSOR. * @@ -195,19 +213,25 @@ *** 内部表サイズ初期化 MOVE ZERO TO WS-TBL-MAX-IDX. * - *** 運用日付取得 - INITIALIZE D01UBSPAR. - CALL 'SUB01DAT' USING D01UBSPAR. - IF D01FKICOD = ZERO - MOVE D01UBSUDATE TO WRK-U06 - ELSE - INITIALIZE M00MHOPAR - MOVE CNS-MSGSUBEEK TO M00MSGCOD - MOVE 'SUB01DAT' TO M00UMKDATS22-01 - MOVE D01FKICOD TO M00UMKDATS22-02 - PERFORM 6000MSGOUTSOR - PERFORM 9999ABDSOR - END-IF. + *** 運用日付取得 + INITIALIZE D01UBSPAR. + CALL 'SUB01DAT' USING D01UBSPAR + ON EXCEPTION + DISPLAY 'SUB01DAT CALL ERROR' + MOVE 999 TO D01FKICOD + NOT ON EXCEPTION + CONTINUE + END-CALL. + IF D01FKICOD = ZERO + MOVE D01UBSUDATE TO WRK-U06 + ELSE + INITIALIZE M00MHOPAR + MOVE CNS-MSGSUBEEK TO M00MSGCOD + MOVE 'SUB01DAT' TO M00UMKDATS22-01 + MOVE D01FKICOD TO M00UMKDATS22-02 + PERFORM 6000MSGOUTSOR + PERFORM 9999ABDSOR + END-IF. * *** 入出力ファイルOPEN OPEN INPUT R01INNFIL diff --git a/src/KYU01CVT.cbl b/src/KYU01CVT.cbl index c2da002..6ac7e05 100644 --- a/src/KYU01CVT.cbl +++ b/src/KYU01CVT.cbl @@ -22,10 +22,18 @@ OBJECT-COMPUTER. IBM-ZSERIES. * INPUT-OUTPUT SECTION. - FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL KYU01R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU01W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU01W02. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU01R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU01W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU01W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -114,6 +122,9 @@ 88 WRK-EOF-Y VALUE '1'. *** サブプログラム戻り値 03 WRK-SUB04-RC PIC 9(004). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/KYU02REG.cbl b/src/KYU02REG.cbl index 205bc94..4041a85 100644 --- a/src/KYU02REG.cbl +++ b/src/KYU02REG.cbl @@ -22,8 +22,12 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R02INNFIL ASSIGN TO EXTERNAL KYU02R02. - SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU02W03. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU02R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU02W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -83,6 +87,9 @@ ***************************************************************** 01 WRKARA. 03 WRK-EOF PIC X(001). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). 88 WRK-EOF-Y VALUE '1'. * ***************************************************************** diff --git a/src/KYU03AGG.cbl b/src/KYU03AGG.cbl index 0591d18..d802025 100644 --- a/src/KYU03AGG.cbl +++ b/src/KYU03AGG.cbl @@ -22,9 +22,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL KYU03R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU03W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU03W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU03R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU03W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU03W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -102,6 +110,9 @@ 03 WRK-ABSENT-COUNT PIC 9(002). *** EOF 03 WRK-EOF PIC X(001). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). 88 WRK-EOF-Y VALUE '1'. * ***************************************************************** diff --git a/src/KYU04CAL.cbl b/src/KYU04CAL.cbl index 685ea88..699b198 100644 --- a/src/KYU04CAL.cbl +++ b/src/KYU04CAL.cbl @@ -23,10 +23,18 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R02INNFIL ASSIGN TO EXTERNAL KYU04R02. - SELECT R03INNFIL ASSIGN TO EXTERNAL KYU04R03. - SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU04W03. - SELECT W04OUTFIL ASSIGN TO EXTERNAL KYU04W04. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU04R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT R03INNFIL ASSIGN TO EXTERNAL KYU04R03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU04W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W04OUTFIL ASSIGN TO EXTERNAL KYU04W04 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -131,6 +139,9 @@ 03 WRK-ALLOWANCE-TYPE PIC X(003). 03 WRK-ATTEND-TYPE PIC X(001). 03 WRK-AMOUNT PIC 9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/KYU05DED.cbl b/src/KYU05DED.cbl index f6a8d2d..e0f9de5 100644 --- a/src/KYU05DED.cbl +++ b/src/KYU05DED.cbl @@ -24,9 +24,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL KYU05R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU05W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU05W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU05R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU05W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU05W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -106,6 +114,9 @@ 03 WRK-INSURANCE PIC 9(009). 03 WRK-RESIDENT-TAX PIC 9(009). 03 WRK-NET-PAYMENT PIC 9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * * ***************************************************************** diff --git a/src/KYU06UPD.cbl b/src/KYU06UPD.cbl index 882560f..d42fa1f 100644 --- a/src/KYU06UPD.cbl +++ b/src/KYU06UPD.cbl @@ -22,8 +22,12 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R02INNFIL ASSIGN TO EXTERNAL KYU06R02. - SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU06W03. + SELECT R02INNFIL ASSIGN TO EXTERNAL KYU06R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL KYU06W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -86,6 +90,9 @@ 03 WRK-EOF PIC X(001). 88 WRK-EOF-Y VALUE '1'. 03 WRK-YEAR-MONTH PIC X(006). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/KYU07DIV.cbl b/src/KYU07DIV.cbl index 15effc4..ffc1bbb 100644 --- a/src/KYU07DIV.cbl +++ b/src/KYU07DIV.cbl @@ -23,59 +23,167 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL KYU07R01. - SELECT SYSIN-FILE ASSIGN TO EXTERNAL KYU07SYS. - SELECT W99OUTFIL ASSIGN TO EXTERNAL KYU07W99. - SELECT DEPT01-FILE ASSIGN TO EXTERNAL KYU07D01. - SELECT DEPT02-FILE ASSIGN TO EXTERNAL KYU07D02. - SELECT DEPT03-FILE ASSIGN TO EXTERNAL KYU07D03. - SELECT DEPT04-FILE ASSIGN TO EXTERNAL KYU07D04. - SELECT DEPT05-FILE ASSIGN TO EXTERNAL KYU07D05. - SELECT DEPT06-FILE ASSIGN TO EXTERNAL KYU07D06. - SELECT DEPT07-FILE ASSIGN TO EXTERNAL KYU07D07. - SELECT DEPT08-FILE ASSIGN TO EXTERNAL KYU07D08. - SELECT DEPT09-FILE ASSIGN TO EXTERNAL KYU07D09. - SELECT DEPT10-FILE ASSIGN TO EXTERNAL KYU07D10. - SELECT DEPT11-FILE ASSIGN TO EXTERNAL KYU07D11. - SELECT DEPT12-FILE ASSIGN TO EXTERNAL KYU07D12. - SELECT DEPT13-FILE ASSIGN TO EXTERNAL KYU07D13. - SELECT DEPT14-FILE ASSIGN TO EXTERNAL KYU07D14. - SELECT DEPT15-FILE ASSIGN TO EXTERNAL KYU07D15. - SELECT DEPT16-FILE ASSIGN TO EXTERNAL KYU07D16. - SELECT DEPT17-FILE ASSIGN TO EXTERNAL KYU07D17. - SELECT DEPT18-FILE ASSIGN TO EXTERNAL KYU07D18. - SELECT DEPT19-FILE ASSIGN TO EXTERNAL KYU07D19. - SELECT DEPT20-FILE ASSIGN TO EXTERNAL KYU07D20. - SELECT DEPT21-FILE ASSIGN TO EXTERNAL KYU07D21. - SELECT DEPT22-FILE ASSIGN TO EXTERNAL KYU07D22. - SELECT DEPT23-FILE ASSIGN TO EXTERNAL KYU07D23. - SELECT DEPT24-FILE ASSIGN TO EXTERNAL KYU07D24. - SELECT DEPT25-FILE ASSIGN TO EXTERNAL KYU07D25. - SELECT DEPT26-FILE ASSIGN TO EXTERNAL KYU07D26. - SELECT DEPT27-FILE ASSIGN TO EXTERNAL KYU07D27. - SELECT DEPT28-FILE ASSIGN TO EXTERNAL KYU07D28. - SELECT DEPT29-FILE ASSIGN TO EXTERNAL KYU07D29. - SELECT DEPT30-FILE ASSIGN TO EXTERNAL KYU07D30. - SELECT DEPT31-FILE ASSIGN TO EXTERNAL KYU07D31. - SELECT DEPT32-FILE ASSIGN TO EXTERNAL KYU07D32. - SELECT DEPT33-FILE ASSIGN TO EXTERNAL KYU07D33. - SELECT DEPT34-FILE ASSIGN TO EXTERNAL KYU07D34. - SELECT DEPT35-FILE ASSIGN TO EXTERNAL KYU07D35. - SELECT DEPT36-FILE ASSIGN TO EXTERNAL KYU07D36. - SELECT DEPT37-FILE ASSIGN TO EXTERNAL KYU07D37. - SELECT DEPT38-FILE ASSIGN TO EXTERNAL KYU07D38. - SELECT DEPT39-FILE ASSIGN TO EXTERNAL KYU07D39. - SELECT DEPT40-FILE ASSIGN TO EXTERNAL KYU07D40. - SELECT DEPT41-FILE ASSIGN TO EXTERNAL KYU07D41. - SELECT DEPT42-FILE ASSIGN TO EXTERNAL KYU07D42. - SELECT DEPT43-FILE ASSIGN TO EXTERNAL KYU07D43. - SELECT DEPT44-FILE ASSIGN TO EXTERNAL KYU07D44. - SELECT DEPT45-FILE ASSIGN TO EXTERNAL KYU07D45. - SELECT DEPT46-FILE ASSIGN TO EXTERNAL KYU07D46. - SELECT DEPT47-FILE ASSIGN TO EXTERNAL KYU07D47. - SELECT DEPT48-FILE ASSIGN TO EXTERNAL KYU07D48. - SELECT DEPT49-FILE ASSIGN TO EXTERNAL KYU07D49. - SELECT DEPT50-FILE ASSIGN TO EXTERNAL KYU07D50. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU07R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT SYSIN-FILE ASSIGN TO EXTERNAL KYU07SYS + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W99OUTFIL ASSIGN TO EXTERNAL KYU07W99 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT01-FILE ASSIGN TO EXTERNAL KYU07D01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT02-FILE ASSIGN TO EXTERNAL KYU07D02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT03-FILE ASSIGN TO EXTERNAL KYU07D03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT04-FILE ASSIGN TO EXTERNAL KYU07D04 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT05-FILE ASSIGN TO EXTERNAL KYU07D05 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT06-FILE ASSIGN TO EXTERNAL KYU07D06 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT07-FILE ASSIGN TO EXTERNAL KYU07D07 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT08-FILE ASSIGN TO EXTERNAL KYU07D08 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT09-FILE ASSIGN TO EXTERNAL KYU07D09 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT10-FILE ASSIGN TO EXTERNAL KYU07D10 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT11-FILE ASSIGN TO EXTERNAL KYU07D11 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT12-FILE ASSIGN TO EXTERNAL KYU07D12 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT13-FILE ASSIGN TO EXTERNAL KYU07D13 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT14-FILE ASSIGN TO EXTERNAL KYU07D14 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT15-FILE ASSIGN TO EXTERNAL KYU07D15 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT16-FILE ASSIGN TO EXTERNAL KYU07D16 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT17-FILE ASSIGN TO EXTERNAL KYU07D17 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT18-FILE ASSIGN TO EXTERNAL KYU07D18 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT19-FILE ASSIGN TO EXTERNAL KYU07D19 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT20-FILE ASSIGN TO EXTERNAL KYU07D20 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT21-FILE ASSIGN TO EXTERNAL KYU07D21 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT22-FILE ASSIGN TO EXTERNAL KYU07D22 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT23-FILE ASSIGN TO EXTERNAL KYU07D23 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT24-FILE ASSIGN TO EXTERNAL KYU07D24 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT25-FILE ASSIGN TO EXTERNAL KYU07D25 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT26-FILE ASSIGN TO EXTERNAL KYU07D26 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT27-FILE ASSIGN TO EXTERNAL KYU07D27 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT28-FILE ASSIGN TO EXTERNAL KYU07D28 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT29-FILE ASSIGN TO EXTERNAL KYU07D29 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT30-FILE ASSIGN TO EXTERNAL KYU07D30 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT31-FILE ASSIGN TO EXTERNAL KYU07D31 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT32-FILE ASSIGN TO EXTERNAL KYU07D32 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT33-FILE ASSIGN TO EXTERNAL KYU07D33 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT34-FILE ASSIGN TO EXTERNAL KYU07D34 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT35-FILE ASSIGN TO EXTERNAL KYU07D35 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT36-FILE ASSIGN TO EXTERNAL KYU07D36 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT37-FILE ASSIGN TO EXTERNAL KYU07D37 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT38-FILE ASSIGN TO EXTERNAL KYU07D38 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT39-FILE ASSIGN TO EXTERNAL KYU07D39 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT40-FILE ASSIGN TO EXTERNAL KYU07D40 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT41-FILE ASSIGN TO EXTERNAL KYU07D41 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT42-FILE ASSIGN TO EXTERNAL KYU07D42 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT43-FILE ASSIGN TO EXTERNAL KYU07D43 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT44-FILE ASSIGN TO EXTERNAL KYU07D44 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT45-FILE ASSIGN TO EXTERNAL KYU07D45 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT46-FILE ASSIGN TO EXTERNAL KYU07D46 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT47-FILE ASSIGN TO EXTERNAL KYU07D47 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT48-FILE ASSIGN TO EXTERNAL KYU07D48 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT49-FILE ASSIGN TO EXTERNAL KYU07D49 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT DEPT50-FILE ASSIGN TO EXTERNAL KYU07D50 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -411,6 +519,9 @@ 03 WRK-I PIC 9(002). 03 WRK-J PIC 9(002). 03 WRK-TOKEN PIC X(080). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/KYU08PRI.cbl b/src/KYU08PRI.cbl index d288def..8bc78ad 100644 --- a/src/KYU08PRI.cbl +++ b/src/KYU08PRI.cbl @@ -21,10 +21,18 @@ OBJECT-COMPUTER. IBM-ZSERIES. * INPUT-OUTPUT SECTION. - FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL KYU08R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU08W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU08W02. + FILE-CONTROL. + SELECT R01INNFIL ASSIGN TO EXTERNAL KYU08R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU08W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU08W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -91,11 +99,14 @@ ***************************************************************** * 作業領域 * ***************************************************************** - 01 WRKARA. - 03 WRK-EOF PIC X(001). - 88 WRK-EOF-Y VALUE '1'. - 03 WRK-LINE-NO PIC 9(002). - 03 WRK-PAGE-COUNTER PIC 9(004) VALUE 0. + 01 WRKARA. + 03 WRK-EOF PIC X(001). + 88 WRK-EOF-Y VALUE '1'. + 03 WRK-LINE-NO PIC 9(002). + 03 WRK-PAGE-COUNTER PIC 9(004) VALUE 0. + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). + 03 WS-DISP-PG PIC Z(03)9. * ***************************************************************** * 印刷行定義 * @@ -208,12 +219,13 @@ ***************************************************************** 2000MAJSOR SECTION. * - *** ヘッダ出力（改ページ + ページ番号） - ADD 1 TO WRK-PAGE-COUNTER. - MOVE WRK-PAGE-COUNTER TO HL-PAGE-NO. - WRITE W01OUTREC - FROM HEADER-LINE - BEFORE ADVANCING PAGE. + *** ヘッダ出力（改ページ + ページ番号） + ADD 1 TO WRK-PAGE-COUNTER. + MOVE WRK-PAGE-COUNTER TO HL-PAGE-NO. + MOVE PAGE-COUNTER TO WS-DISP-PG. + WRITE W01OUTREC + FROM HEADER-LINE + BEFORE ADVANCING PAGE. * *** 明細行編集 MOVE R01EMP-ID TO DL-EMP-ID. diff --git a/src/KYU09MRG.cbl b/src/KYU09MRG.cbl index 6b3f2e8..53101a6 100644 --- a/src/KYU09MRG.cbl +++ b/src/KYU09MRG.cbl @@ -23,11 +23,21 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT MERGE-FILE ASSIGN TO EXTERNAL KYU09M99. - SELECT SALARY-FILE ASSIGN TO EXTERNAL KYU09M01. - SELECT BONUS-FILE ASSIGN TO EXTERNAL KYU09M02. - SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU09W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU09W02. + SELECT MERGE-FILE ASSIGN TO EXTERNAL KYU09M99 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT SALARY-FILE ASSIGN TO EXTERNAL KYU09M01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT BONUS-FILE ASSIGN TO EXTERNAL KYU09M02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W01OUTFIL ASSIGN TO EXTERNAL KYU09W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL KYU09W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -130,6 +140,9 @@ 03 WRK-TOTAL-PAYMENT PIC 9(009). 03 WRK-BANK-CODE PIC X(004). 03 WRK-ACCOUNT-NO PIC 9(008). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/SHA01CVT.cbl b/src/SHA01CVT.cbl index 0b3fcdc..a496a5b 100644 --- a/src/SHA01CVT.cbl +++ b/src/SHA01CVT.cbl @@ -22,9 +22,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA01R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA01W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA01W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA01R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA01W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA01W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -108,6 +116,9 @@ 05 WRK-C-STATUS PIC X(001). 03 WRK-CONV-BEFORE PIC X(256). 03 WRK-CONV-AFTER PIC X(256). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/SHA02MNC.cbl b/src/SHA02MNC.cbl index 9913fa2..2b95c7f 100644 --- a/src/SHA02MNC.cbl +++ b/src/SHA02MNC.cbl @@ -22,8 +22,12 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA02W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA02W02. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA02W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA02W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -88,6 +92,9 @@ 03 WRK-IDX PIC 9(004). 03 WRK-RATE-COUNT PIC 9(003) VALUE ZERO. 03 WRK-RATE-TBL. + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). 05 WRK-RATE-ENTRY OCCURS 100 INDEXED BY WRK-RATE-IDX. 07 WRK-GRADE-CODE PIC X(002). diff --git a/src/SHA03MNP.cbl b/src/SHA03MNP.cbl index 65b7d52..e48d989 100644 --- a/src/SHA03MNP.cbl +++ b/src/SHA03MNP.cbl @@ -22,9 +22,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA03R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA03W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA03W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA03R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA03W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA03W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -109,6 +117,9 @@ 07 WRK-PENSION-RATE PIC 9(001)V9(006). 03 WRK-HEALTH-PREMIUM PIC 9(009). 03 WRK-PENSION-PREMIUM PIC 9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/SHA04TWO.cbl b/src/SHA04TWO.cbl index aaa3979..b65251e 100644 --- a/src/SHA04TWO.cbl +++ b/src/SHA04TWO.cbl @@ -23,12 +23,26 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA04R01. - SELECT R02INNFIL ASSIGN TO EXTERNAL SHA04R02. - SELECT R03INNFIL ASSIGN TO EXTERNAL SHA04R03. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA04W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA04W02. - SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA04W03. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA04R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT R02INNFIL ASSIGN TO EXTERNAL SHA04R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT R03INNFIL ASSIGN TO EXTERNAL SHA04R03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA04W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA04W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA04W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -156,6 +170,9 @@ 03 WRK-R03-EOF PIC X(001). 88 R03-EOF-Y VALUE '1'. 03 WS-DISP-INT PIC S9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/SHA05TWN.cbl b/src/SHA05TWN.cbl index 01d8d33..583fbcc 100644 --- a/src/SHA05TWN.cbl +++ b/src/SHA05TWN.cbl @@ -23,10 +23,20 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA05R01. - SELECT R02INNFIL ASSIGN TO EXTERNAL SHA05R02. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA05W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA05W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA05R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT R02INNFIL ASSIGN TO EXTERNAL SHA05R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA05W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA05W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -128,6 +138,9 @@ 03 WRK-NEW-GRADE PIC 9(002). 03 WRK-OLD-GRADE PIC 9(002). 03 WS-DISP-INT PIC S9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * 等級テーブル（内部テーブル） * diff --git a/src/SHA06TWM.cbl b/src/SHA06TWM.cbl index 6fc65e4..1d45ee7 100644 --- a/src/SHA06TWM.cbl +++ b/src/SHA06TWM.cbl @@ -23,10 +23,20 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA06R01. - SELECT R02INNFIL ASSIGN TO EXTERNAL SHA06R02. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA06W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA06W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA06R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT R02INNFIL ASSIGN TO EXTERNAL SHA06R02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA06W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA06W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -134,6 +144,9 @@ 03 WRK-CALC-ERR PIC X(001). 88 WRK-CALC-ERR-Y VALUE 'Y'. 03 WS-DISP-INT PIC S9(009). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/SHA07KBR.cbl b/src/SHA07KBR.cbl index 3d04cb3..54eb612 100644 --- a/src/SHA07KBR.cbl +++ b/src/SHA07KBR.cbl @@ -24,9 +24,15 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA07W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA07W02. - SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA07W03. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA07W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA07W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA07W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -106,6 +112,9 @@ 88 WRK-FIRST-Y VALUE '1'. 03 WRK-PREV-EMP-ID PIC X(008). 03 WRK-PREV-INSURER PIC X(004). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * DB2ホスト変数 * diff --git a/src/SHA08SRT.cbl b/src/SHA08SRT.cbl index 0b0c1df..955b109 100644 --- a/src/SHA08SRT.cbl +++ b/src/SHA08SRT.cbl @@ -24,9 +24,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA08R01. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA08W01. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA08W02. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA08R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA08W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA08W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. SELECT SORTWORK ASSIGN TO EXTERNAL SORTWK01. * I-O-CONTROL. @@ -118,6 +126,9 @@ 03 WRK-U06 PIC 9(008). 03 WRK-R01EOF PIC X(001). 03 WRK-SORT-STAT PIC 9(002). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/SHA09S25.cbl b/src/SHA09S25.cbl index 692b0ba..6429d88 100644 --- a/src/SHA09S25.cbl +++ b/src/SHA09S25.cbl @@ -23,12 +23,17 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA09R01 - ORGANIZATION IS SEQUENTIAL. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA09W01 - ORGANIZATION IS SEQUENTIAL. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA09W02 - ORGANIZATION IS SEQUENTIAL. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA09R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA09W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA09W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA09W03 ORGANIZATION IS SEQUENTIAL. SELECT W04OUTFIL ASSIGN TO EXTERNAL SHA09W04 @@ -405,6 +410,9 @@ 01 WRKARA. 03 WRK-U06 PIC 9(008). 03 WRK-R01EOF PIC X(001). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). * ***************************************************************** * サブプログラム連絡領域 * diff --git a/src/SHA10S10.cbl b/src/SHA10S10.cbl index 6138b43..6f03ded 100644 --- a/src/SHA10S10.cbl +++ b/src/SHA10S10.cbl @@ -1,4 +1,4 @@ - IDENTIFICATION DIVISION. + IDENTIFICATION DIVISION. PROGRAM-ID. SHA10S10. ***************************************************************** * システム名 : 社会保険管理システム * @@ -28,31 +28,45 @@ * INPUT-OUTPUT SECTION. FILE-CONTROL. - SELECT R01INNFIL ASSIGN TO EXTERNAL SHA10R01 - ORGANIZATION IS SEQUENTIAL. - SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA10W01 - ORGANIZATION IS SEQUENTIAL. - SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA10W02 - ORGANIZATION IS SEQUENTIAL. - SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA10W03 - ORGANIZATION IS SEQUENTIAL. - SELECT W04OUTFIL ASSIGN TO EXTERNAL SHA10W04 - ORGANIZATION IS SEQUENTIAL. - SELECT W05OUTFIL ASSIGN TO EXTERNAL SHA10W05 - ORGANIZATION IS SEQUENTIAL. - SELECT W06OUTFIL ASSIGN TO EXTERNAL SHA10W06 - ORGANIZATION IS SEQUENTIAL. - SELECT W07OUTFIL ASSIGN TO EXTERNAL SHA10W07 - ORGANIZATION IS SEQUENTIAL. - SELECT W08OUTFIL ASSIGN TO EXTERNAL SHA10W08 - ORGANIZATION IS SEQUENTIAL. - SELECT W09OUTFIL ASSIGN TO EXTERNAL SHA10W09 - ORGANIZATION IS SEQUENTIAL. - SELECT W10OUTFIL ASSIGN TO EXTERNAL SHA10W10 - ORGANIZATION IS SEQUENTIAL. - *** 銈ㄣ儵銉煎嚭鍔涚敤 - SELECT W99OUTFIL ASSIGN TO EXTERNAL SHA10W98 - ORGANIZATION IS SEQUENTIAL. + SELECT R01INNFIL ASSIGN TO EXTERNAL SHA10R01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL + PADDING CHARACTER IS WS-PAD-CHAR + FILE STATUS IS WS-FILE-STATUS. + SELECT W01OUTFIL ASSIGN TO EXTERNAL SHA10W01 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W02OUTFIL ASSIGN TO EXTERNAL SHA10W02 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W03OUTFIL ASSIGN TO EXTERNAL SHA10W03 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W04OUTFIL ASSIGN TO EXTERNAL SHA10W04 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W05OUTFIL ASSIGN TO EXTERNAL SHA10W05 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W06OUTFIL ASSIGN TO EXTERNAL SHA10W06 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W07OUTFIL ASSIGN TO EXTERNAL SHA10W07 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W08OUTFIL ASSIGN TO EXTERNAL SHA10W08 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W09OUTFIL ASSIGN TO EXTERNAL SHA10W09 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + SELECT W10OUTFIL ASSIGN TO EXTERNAL SHA10W10 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. + *** エラー出力用 + SELECT W99OUTFIL ASSIGN TO EXTERNAL SHA10W98 + ORGANIZATION IS SEQUENTIAL + ACCESS MODE IS SEQUENTIAL. * DATA DIVISION. FILE SECTION. @@ -180,6 +194,9 @@ 01 WRKARA. 03 WRK-U06 PIC 9(008). 03 WRK-R01EOF PIC X(001). + + 03 WS-PAD-CHAR PIC X(001) VALUE SPACE. + 03 WS-FILE-STATUS PIC X(002). 01 WRK-RPT-BODY-BUFFER. 03 WRK-BUF-EMP-ID PIC 9(008). 03 WRK-BUF-EMP-NAME PIC X(040).