src/の21ファイルをIBM COBOL完全版に統一（production/側は意図的に簡略化されていた）
This commit is contained in:
qiuqiuqiu
+17
-6
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+50
-26
@@ -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
|
||||
|
||||
+15
-4
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+9
-2
@@ -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'.
|
||||
*
|
||||
*****************************************************************
|
||||
|
||||
+14
-3
@@ -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'.
|
||||
*
|
||||
*****************************************************************
|
||||
|
||||
+15
-4
@@ -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ホスト変数 *
|
||||
|
||||
+14
-3
@@ -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).
|
||||
*
|
||||
*
|
||||
*****************************************************************
|
||||
|
||||
+9
-2
@@ -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ホスト変数 *
|
||||
|
||||
+164
-53
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+27
-15
@@ -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.
|
||||
|
||||
+18
-5
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+14
-3
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+9
-2
@@ -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).
|
||||
|
||||
+14
-3
@@ -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ホスト変数 *
|
||||
|
||||
+23
-6
@@ -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ホスト変数 *
|
||||
|
||||
+17
-4
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* 等級テーブル（内部テーブル） *
|
||||
|
||||
+17
-4
@@ -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ホスト変数 *
|
||||
|
||||
+12
-3
@@ -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ホスト変数 *
|
||||
|
||||
+14
-3
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+14
-6
@@ -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).
|
||||
*
|
||||
*****************************************************************
|
||||
* サブプログラム連絡領域 *
|
||||
|
||||
+43
-26
@@ -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).
|
||||
|
||||
Reference in New Issue
Block a user