戻る

出力サンプル　－SU00400―

元のRPGソースコード

     H*****************************************************************
     H*  COPYRIGHT SEC 1992                                           *
     H*  LICENSED MATERIAL  PROGRAM PROPERTY OF SEC.C                 *
     H*****************************************************************
     H*                                                               *
00.02H*   SU00400 : 人事考課　評定ランク算出処理　条件指定          *
     H* 2005.12.1 考課区分マスタ化対応                              *
     H*                      　　　               　　            *
     H*****************************************************************
     H            Y/                                    1
      * ﾘﾌｧﾚﾝｽﾌｧｲﾙ *
     FREF     IF  E                    DISK
      *現在処理年月ﾌｧｲﾙ*
     FGENSYMP IF  E                    DISK
      *管理ﾏｽﾀ *
     FCONTRLP IF  E           K        DISK
0511  *考課区分マスタ
0511 FJIKKKBLAIF  E           K        DISK
      *人事考課　評定入力ﾌｧｲﾙ
     F*JIKNYULBIF  E           K        DISK
      *人事考課　評定ﾗﾝｸ ﾏｽﾀ
     FJIKKKAP IF  E           K        DISK
      *画面ﾌｧｲﾙ *
00.02FSU00400DCF  E                    WORKSTN
     F                                              KINFDS INF1
     E                    JSKC       10  4 0
     E                    TSKC       10  4 0
     IINF1        DS
     I                                      370 370 CPOSY1
     I                                      371 371 CPOSX1
     I                                    B 378 3790SFPAGE
     I            DS
     I                                    B   1   20CGYO
     I                                        1   1 B1
     I                                        2   2 CPOSY2
     I                                    B   3   40CKETA
     I                                        3   3 B2
     I                                        4   4 CPOSX2
      *改定年月
     I           UDS
     I                                      101 1060#KTYM
     I                                      107 1100#KTYM4
     I                                      107 110 #KTYMX
      *
      * ﾊﾟﾗﾒｰﾀ *
     C           *ENTRY    PLIST
     C                     PARM           WSYYYY  40       対象年(YYYY)
     C                     PARM           WSYY    20       対象年(  YY)
     C                     PARM           WSKKKB           考課区分
     C                     PARM           INKC    1
      *
     C           *LIKE     DEFN YMD       #YMD
      *ｷｰﾘｽﾄ
     C*          K#INS     KLIST
     C*                    KFLD           INHTYY
     C*                    KFLD           INKKKB
     C*                    KFLD           INSYCD
      *ｷｰﾘｽﾄ
     C*          K#IN      KLIST
     C*                    KFLD           INHTYY
     C*                    KFLD           INKKKB
      *
     C           K#LNK     KLIST
     C                     KFLD           WSKKKB
     C                     KFLD           IKKTYM
05.12 *考課区分マスタ
  :  C           K#KK      KLIST
  :  C                     KFLD           KKKKKB
05.12C                     KFLD           KKHTYY           DESCEND
      *****************************************************************
      *
      *                    ＭＡＩＮ
      *
      *****************************************************************
      *******************
      *    初期処理   *
      *******************
     C           @MA010    TAG
     C                     EXSR \INIT
     C   LR                GOTO @MAEXT
      *******************
      *見出し１       *
      *******************
     C           @MA020    TAG
     C                     EXSR \HD1
     C   KC                GOTO @MAEXT
     C   KL                GOTO @MAEXT
      *
      ************
      *終了処理*
      ************
     C           @MAEXT    TAG
     C                     SETON                         LR
     C   LR                RETRN
      *
     C           1         CHAINREF                  99
      *****************************************************************
      *
      *                     初　期　処　理
      *
      *****************************************************************
     C           \INIT     BEGSR
      * ｶｰｿﾙ取り出し用*
     C                     BITOF'01234567'B1
     C                     BITOF'01234567'B2
      *
      *現在処理年月ﾌｧｲﾙ CHAIN
     C           1         CHAINGENSYMP              75
      *管理ﾏｽﾀ SETGT READP
     C           GEGSYM    SETGTCONTRLP
     C                     READPCONTRLP                  LR
     C   LR                RETRN
      *改定年月のﾃﾞﾌｵﾙﾄ値を画面にセット
     C           #KTYMX    IFEQ *BLANK
     C                     CALL '\DAY6TO4'
     C                     PARM           GEGSYM
     C                     PARM           WSYM    40
     C                     Z-ADDGEGSYM    #KTYM
     C                     Z-ADDWSYM      #KTYM4
     C                     END
     C                     Z-ADD#KTYM4    WSYM
     C                     Z-ADD#KTYM4    WSGSYM
     C                     MOVELWSYM      WSYY
      *
     C           @INEXT    ENDSR
      *****************************************************************
      *
      *                   第一画面処理
      *
      *****************************************************************
     C           \HD1      BEGSR
      *
      *日付指定画面表示*
     C           @HD010    TAG
     C                     EXFMT#HD1
     C                     SETOF                     010203
      *
     C                     MOVELCPOSY1    CPOSY2
     C                     MOVELCPOSX1    CPOSX2
      *
     C   KC                MOVEL'1'       INKC
     C   KC                GOTO @HDEXT
     C   KL                MOVEL'1'       INKC
     C   KL                GOTO @HDEXT
0511 C   KI                DO
 |   C                     EXSR \F09
 |   C                     Z-ADDWSKKKB    KKKKKB
 |   C           WSYY      IFGT 50
 |   C           1900      ADD  WSYY      KKHTYY
 |   C                     ELSE
 |   C           2000      ADD  WSYY      KKHTYY
 |   C                     ENDIF
 |   C           K#KK      SETLLJIKKKBLA
 |   C           WSKKKB    READEJIKKKBLA                 90
 |   C   90                MOVEL*BLANK    WSKKNM
 |   C  N90                MOVELKKKKNM    WSKKNM
 |   C                     GOTO @HD010
0511 C                     ENDDO
      *
     C                     SETOF                     0405
      *
      *考課区分1,2,3以外はｴﾗｰ *
00.02C*//////////WSKKKB////IFLT/1//////////////////////////////////////
00.02C*//////////WSKKKB////ORGT/3//////////////////////////////////////
0511 C*//////////WSKKKB    IFNE 1
 |   C*//////////WSKKKB    ANDNE3
 |   C*//////////WSKKKB    ANDNE5
 |   C                     Z-ADDWSKKKB    KKKKKB
 |   C           WSYY      IFGT 50
 |   C           1900      ADD  WSYY      KKHTYY
 |   C                     ELSE
 |   C           2000      ADD  WSYY      KKHTYY
 |   C                     ENDIF
 |   C           K#KK      SETLLJIKKKBLA
 |   C           WSKKKB    READEJIKKKBLA                 90
 |   C  N90                MOVELKKKKNM    WSKKNM
 |   C   90                MOVEL*BLANK    WSKKNM
 |   C   90                SETON                     01
 |   C   90                GOTO @HD010
0511 C*////////////////////END
      *
03.11C           *INKM     IFEQ *ON
03.11C                     EXSR \HD2
03.01C   KC                GOTO @HDEXT
03.11C                     GOTO @HD010
03.11C                     ENDIF
      *考課年度ﾁｪｯｸ *
     C                     Z-ADD0101      #YMD
     C                     MOVELWSYY      #YMD
     C                     CALL '\DCHK'
     C                     PARM           #YMD
     C                     PARM           STS     1
     C           STS       IFNE ' '
     C                     SETON                     02
     C                     GOTO @HD010
     C                     END
      *日付形式変換
     C                     MOVELWSYY      @@YM4
     C                     MOVE 01        @@YM4
     C                     EXSR \4TO6
     C                     MOVEL@@YYM6    WKHTYY  40
      *
      *考課区分1,2,3存在ﾁｪｯｸ
     C*                    Z-ADDWKHTYY    INHTYY
     C*                    Z-ADDWSKKKB    INKKKB
     C*                    Z-ADD*LOVAL    INSYCD
     C*          K#INS     SETLLJIKNYULB
     C*          K#IN      READEJIKNYULB                 03
     C*  03                GOTO @HD010
      *
      *
      *日付形式変換
     C                     MOVELWSYY      @@YM4
     C                     MOVE 01        @@YM4
     C                     EXSR \4TO6
     C                     MOVEL@@YYM6    IKKTYM
     C                     MOVEL@@YYM6    #SYYM   60
95.05C           K#LNK     SETGTJIKKKAP
95.05C           WSKKKB    REDPEJIKKKAP                  75
95.05C*//////////K#LNK     CHAINJIKKKAP              75
     C   75                DO
     C           'ｼﾞﾝｼﾞｺｳｶ'DSPLY
     C           'ﾋｮｳﾃｲﾗﾝｸ'DSPLY
     C           'INV     'DSPLY
     C           'ｽｷｯﾌﾟｼﾀ 'DSPLY
     C                     END
      *
00.02C*//////////WSKKKB////IFEQ/3//////////////////////////////////////
00.02C*//////////IKMTSY////ANDLE3//////////////////////////////////////
00.02C*////////////////////ADD//100///////#SYYM////////////////////////
00.02C*////////////////////END/////////////////////////////////////////
      *
     C                     MOVE IKMTSY    #SYYM
      *
      *処理年月のLDA ｾｯﾄ
      *
     C                     Z-ADD#SYYM     P#KTYM  60
     C                     CALL '\LDASET'
     C                     PARM           P#KTYM
     C                     Z-ADDP#KTYM    #KTYM
00.02 *パラメータセット
00.02C                     MOVEL#KTYM     WSYYYY
      *
      *
00.02 *追加役職グループ
03.11C*//KM                CALL 'SU00402C'
03.11C*//                  PARM           WSKKKB
03.11C*//KM                GOTO @HD010
00.02 *
00.02 *甘辛計算地区割り
03.11C*//KN                CALL 'YP210C'
03.11C*//KN                GOTO @HD010
00.02 *
00.02 *甘辛計算除外資格
03.11C*//KP                CALL 'SU00401C'
03.11C*//                  PARM           WSKKKB
03.11C*//KP                GOTO @HD010
00.02 *
00.02 *甘辛目標除外職掌
03.11C*//KQ                CALL 'SU00404C'
03.11C*//                  PARM           WSKKKB
03.11C*//KQ                GOTO @HD010
00.02 *
00.02 *改善貢献除外資格
03.11C*//KR                CALL 'SU00403C'
03.11C*//                  PARM           WSKKKB
03.11C*//KR                GOTO @HD010
01.03 *
01.03 *素点換算対象資格
03.11C*//KS                CALL 'SU00405C'
03.11C*//                  PARM           WSKKKB
03.11C*//KS                GOTO @HD010
01.03 *
01.03 *素点換算値
03.11C*//KT                CALL 'SU00406C'
03.11C*//                  PARM           WSKKKB
03.11C*//KT                GOTO @HD010
00.02 *
     C  NKJ                GOTO @HD010
      *
     C           @HDEXT    ENDSR
      *****************************************************************
      *
      *                   ﾊﾟﾗﾒｰﾀ保守画面
      *
      *****************************************************************
     C           \HD2      BEGSR
      *
     C                     DO   *HIVAL
     C                     EXFMT#HD2
      *F13=終了
     C           *INKC     IFEQ *ON
     C                     MOVEL'1'       INKC
     C                     LEAVE
     C                     ENDIF
      *F12=前画面
     C           *INKL     IFEQ *ON
     C                     LEAVE
     C                     ENDIF
      *
     C                     SELEC
      * 1.追加役職グループ
     C           WSNO      WHEQ 1
     C                     CALL 'SU00402C'
     C                     PARM           WSKKKB
      * 2.甘辛計算地区割り
     C           WSNO      WHEQ 2
     C                     CALL 'YP210C'
      * 3.甘辛計算除外資格
     C           WSNO      WHEQ 3
     C                     CALL 'SU00401C'
     C                     PARM           WSKKKB
      * 4.甘辛目標除外資格
     C           WSNO      WHEQ 4
     C                     CALL 'SU00404C'
     C                     PARM           WSKKKB
      * 5.改善貢献除外資格
     C           WSNO      WHEQ 5
     C                     CALL 'SU00403C'
     C                     PARM           WSKKKB
      * 6.素点換算対象資格
     C           WSNO      WHEQ 6
     C                     CALL 'SU00405C'
     C                     PARM           WSKKKB
      * 7.素点換算値
     C           WSNO      WHEQ 7
     C                     CALL 'SU00406C'
     C                     PARM           WSKKKB
      *<---総合職用--->
      * 20.年俸者資格
     C           WSNO      WHEQ 20
     C                     CALL 'SU0040AC'
      * 21.組織評価素点調整
     C           WSNO      WHEQ 21
     C                     CALL 'SU0040BC'
08.01 * 22.組織評価持ち点
  :  C           WSNO      WHEQ 22
08.01C                     CALL 'SU0040HC'
      * 23.年俸種類
08.01C*//////////WSNO//////WHEQ 22
08.01C           WSNO      WHEQ 23
     C                     CALL 'SU0040CC'
      * 24.組織評価加算額
08.01C*//////////WSNO//////WHEQ 23
08.01C           WSNO      WHEQ 24
     C                     CALL 'SU0040DC'
      * 25.間接成果評価加算額
08.01C*//////////WSNO//////WHEQ 24
08.01C           WSNO      WHEQ 25
     C                     CALL 'SU0040EC'
      * 26.標準年令
08.01C*//////////WSNO//////WHEQ 25
08.01C           WSNO      WHEQ 26
     C                     CALL 'SU0040FC'
      * 27.甘辛素点算出マスタ
08.01C*//////////WSNO//////WHEQ 26
08.01C           WSNO      WHEQ 27
     C                     CALL 'SU0040GC'
     C                     ENDSL
      *
     C                     ENDDO
      *
     C                     ENDSR
      ****************************************************************
      *                                                              *
      *                   日付の変換                               *
      *                                                              *
      ****************************************************************
      **************************
      *表示用４桁からＤＢ６桁*
      **************************
     C           \4TO6     BEGSR
      *
     C                     CALL '\DAY4TO6'
     C                     PARM           @@YM4   40
     C                     PARM           @@YYM6  60
      *
     C                     ENDSR
      *
      *****************************************************************
0511  * \F09       考課区分照会
 |    *****************************************************************
 |   C           \F09      BEGSR
 |    *考課区分照会
 |   C           CGYO      IFEQ 4
 |    *
 |   C           CKETA     ANDEQ34
 |   C                     MOVEL*BLANK    WKK     10
 |   C                     MOVEL*BLANK    STS     1
 |   C                     CALL 'KD04600'
 |   C                     PARM           WKK
 |   C                     PARM           STS
 |   C           STS       IFEQ ' '
 |   C                     MOVELWKK       WSKKKB
 |   C                     ENDIF
 |   C                     ENDIF
 |    *
0511 C           F09EX     ENDSR
      *****************************************************************

フローチャート図で表現したもの

C演算仕様書 サブルーチン以外

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize':'15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
s([演算　開始])-->
1["【パラメータリスト】
46：*ENTRY|PLIST|"]
2["【パラメータ定義】
47： PARM  WSYYYY"]
3["【パラメータ定義】
48： PARM  WSYY"]
4["【パラメータ定義】
49： PARM  WSKKKB"]
6["【変数定義】
52：*LIKE DEFN YMD #YMD"]
7["【キーリスト】
63：K#LNK|KLIST|"]
8["【キー定義】
64：KFLD|WSKKKB|"]
9["【キー定義】
65：KFLD|IKKTYM|"]
10["【キーリスト】
67：K#KK|KLIST|"]
11["【キー定義】
68：KFLD|KKKKKB|"]
12["【キー定義】
69：KFLD|KKHTYY|"]
13["【制御入力】
78：TAG|@MA010|"]
14[["【ｻﾌﾞﾙｰﾁﾝ呼出】
79：¥INIT"]]:::clrPattern3
15{"80_1:条件文"}:::clrPattern1
17["【制御出力】
80_2：GOTO|@MAEXT|"]
18(["80_3：ENDIF"])
19["【制御入力】
84：TAG|@MA020|"]
20[["【ｻﾌﾞﾙｰﾁﾝ呼出】
85：¥HD1"]]:::clrPattern3
21{"86_1:条件文"}:::clrPattern1
23["【制御出力】
86_2：GOTO|@MAEXT|"]
24(["86_3：ENDIF"])
25{"87_1:条件文"}:::clrPattern1
27["【制御出力】
87_2：GOTO|@MAEXT|"]
28(["87_3：ENDIF"])
29["【制御入力】
92：TAG|@MAEXT|"]
30["【SETON】
93：SETON|LR|"]
31{"94_1:条件文"}:::clrPattern1
33["【ﾌﾟﾛｸﾞﾗﾑ終了】
94_2：RETRN"]
34(["94_3：ENDIF"])
35[/"CRUD＜READ＞
【CHAIN】
96：REF|99|"/]:::clrPatternR

%%ルート設定
1-->2
2-->3
3-->4
4--中略-->6

6-->7
7-->8
8-->9
9-->10
10-->11
11-->12
12-->13
13-->14
14-->15
15-->|条件文　真　|17
15-->|条件文　偽　|18
17-->29
18-->19
19-->20
20-->21
21-->|条件文　真　|23
21-->|条件文　偽　|24
23-->29
24-->25
25-->|条件文　真　|27
25-->|条件文　偽　|28
27-->29
28-->29
29-->30
30-->31
31-->|条件文　真　|33
31-->|条件文　偽　|34
33["【ﾌﾟﾛｸﾞﾗﾑ終了】
94_2：RETRN"]
34-->35
35-->K1(["演算 終了"])
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["LR真"]
15
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["KC真"]
21
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["KL真"]
25
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["LR真"]
31
end

C演算仕様書 サブルーチン：¥INIT

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
36(["【ｻﾌﾞﾙｰﾁﾝ開始】
102：¥INIT"])
37["【BITOF】
104：BITOF"]
38["【BITOF】
105：BITOF"]
39[/"CRUD＜READ＞
【CHAIN】
108：GENSYMP|75|"/]:::clrPatternR
40["CRUD＜READ＞
【SETGT】
110：SETGT||"]:::clrPatternR
41[/"CRUD＜READ＞
【READP】
111：CONTRLP|LR|"/]:::clrPatternR
42{"112_1:条件文"}:::clrPattern1
44["【ﾌﾟﾛｸﾞﾗﾑ終了】
112_2：RETRN"]
45(["112_3：ENDIF"])
46{"114:条件文"}:::clrPattern1
48[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
115：¥DAY6TO4'"]]:::clrPattern3
49["【パラメータ定義】
116： PARM  GEGSYM"]
50["【パラメータ定義】
117： PARM  WSYM"]
51["【Z-ADD】
118：#KTYM = GEGSYM"]
52["【Z-ADD】
119：#KTYM4 = WSYM"]
53(["120：END"])
54["【Z-ADD】
121：WSYM = #KTYM4"]
55["【Z-ADD】
122：WSGSYM = #KTYM4"]
56["【MOVEL】
123：WSYY = WSYM"]
57(["【ｻﾌﾞﾙｰﾁﾝ終了】
125：ENDSR
@INEXT"])

%%ルート設定
36-->37
37-->38
38-->39
39-->40
40-->41
41-->42
42-->|条件文　真　|44
42-->|条件文　偽　|45
45-->46
46-->|条件文　真　|48
46-->|条件文　偽　|53
48-->49
49-->50
50-->51
51-->52
52-->53
53-->54
54-->55
55-->56
56-->57
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["LR真"]
42
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if #KTYMX = *BLANK"]
46
end

C演算仕様書 サブルーチン：¥HD1

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
58(["【ｻﾌﾞﾙｰﾁﾝ開始】
131：¥HD1"])
59["【制御入力】
134：TAG|@HD010|"]
60[/"CRUD＜CREATE＞
【EXFMT】
135：#HD1||"/]:::clrPatternC
61["【SETOF】
136：SETOF|10203|"]
62["【MOVEL】
138：CPOSY2 = CPOSY1"]
63["【MOVEL】
139：CPOSX2 = CPOSX1"]
64{"141_1:条件文"}:::clrPattern1
66["【MOVEL】
141_2：INKC = '1'"]
67(["141_3：ENDIF"])
68{"142_1:条件文"}:::clrPattern1
70["【制御出力】
142_2：GOTO|@HDEXT|"]
71(["142_3：ENDIF"])
72{"143_1:条件文"}:::clrPattern1
74["【MOVEL】
143_2：INKC = '1'"]
75(["143_3：ENDIF"])
76{"144_1:条件文"}:::clrPattern1
78["【制御出力】
144_2：GOTO|@HDEXT|"]
79(["144_3：ENDIF"])
80{"145_1:条件文"}:::clrPattern1
82["【DO】
145_2：DO"]:::clrPattern2
83[["【ｻﾌﾞﾙｰﾁﾝ呼出】
146：¥F09"]]:::clrPattern3
84["【Z-ADD】
147：KKKKKB = WSKKKB"]
85{"148:条件文"}:::clrPattern1
87["【ADD】
149：KKHTYY = 1900 + WSYY"]
88["150：ELSE"]
89["【ADD】
151：KKHTYY = 2000 + WSYY"]
90(["152：ENDIF"])
91["CRUD＜READ＞
【SETLL】
153：JIKKKBLA||"]:::clrPatternR
92[/"CRUD＜READ＞
【READE】
154：JIKKKBLA|90|"/]:::clrPatternR
93{"155_1:条件文"}:::clrPattern1
95["【MOVEL】
155_2：WSKKNM = *BLANK"]
96(["155_3：ENDIF"])
97{"156_1:条件文"}:::clrPattern1
99["【MOVEL】
156_2：WSKKNM = KKKKNM"]
100(["156_3：ENDIF"])
101["【制御出力】
157：GOTO|@HD010|"]
102["【繰返文終了】
158：ENDDO"]
103(["158_1：ENDIF"])
104["【SETOF】
160：SETOF|405|"]
105["【Z-ADD】
168：KKKKKB = WSKKKB"]
106{"169:条件文"}:::clrPattern1
108["【ADD】
170：KKHTYY = 1900 + WSYY"]
109["171：ELSE"]
110["【ADD】
172：KKHTYY = 2000 + WSYY"]
111(["173：ENDIF"])
112["CRUD＜READ＞
【SETLL】
174：JIKKKBLA||"]:::clrPatternR
113[/"CRUD＜READ＞
【READE】
175：JIKKKBLA|90|"/]:::clrPatternR
114{"176_1:条件文"}:::clrPattern1
116["【MOVEL】
176_2：WSKKNM = KKKKNM"]
117(["176_3：ENDIF"])
118{"177_1:条件文"}:::clrPattern1
120["【MOVEL】
177_2：WSKKNM = *BLANK"]
121(["177_3：ENDIF"])
122{"178_1:条件文"}:::clrPattern1
124["【SETON】
178_2：SETON|1|"]
125(["178_3：ENDIF"])
126{"179_1:条件文"}:::clrPattern1
128["【制御出力】
179_2：GOTO|@HD010|"]
129(["179_3：ENDIF"])
130{"182:条件文"}:::clrPattern1
132[["【ｻﾌﾞﾙｰﾁﾝ呼出】
183：¥HD2"]]:::clrPattern3
133{"184_1:条件文"}:::clrPattern1
135["【制御出力】
184_2：GOTO|@HDEXT|"]
136(["184_3：ENDIF"])
137["【制御出力】
185：GOTO|@HD010|"]
138(["186：ENDIF"])
139["【Z-ADD】
188：#YMD = 101"]
140["【MOVEL】
189：#YMD = WSYY"]
141[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
190：¥DCHK'"]]:::clrPattern3
142["【パラメータ定義】
191： PARM  #YMD"]
143["【パラメータ定義】
192： PARM  STS"]
144{"193:条件文"}:::clrPattern1
146["【SETON】
194：SETON|2|"]
147["【制御出力】
195：GOTO|@HD010|"]
148(["196：END"])
149["【MOVEL】
198：@@YM4 = WSYY"]
150["【MOVE】
199：@@YM4 = 1"]
151[["【ｻﾌﾞﾙｰﾁﾝ呼出】
200：¥4TO6"]]:::clrPattern3
152["【MOVEL】
201：WKHTYY = @@YYM6"]
153["【MOVEL】
213：@@YM4 = WSYY"]
154["【MOVE】
214：@@YM4 = 1"]
155[["【ｻﾌﾞﾙｰﾁﾝ呼出】
215：¥4TO6"]]:::clrPattern3
156["【MOVEL】
216：IKKTYM = @@YYM6"]
157["【MOVEL】
217：#SYYM = @@YYM6"]
158["CRUD＜READ＞
【SETGT】
218：SETGT||"]:::clrPatternR
159[/"CRUD＜READ＞
【REDPE】
219：JIKKKAP|75|"/]:::clrPatternR
160{"221_1:条件文"}:::clrPattern1
162["【DO】
221_2：DO"]:::clrPattern2
163[/"【DSPLY】
222：||"/]
164[/"【DSPLY】
223：||"/]
165[/"【DSPLY】
224：||"/]
167["【繰返文終了】
226：END"]
168(["226_1：ENDIF"])
169["【MOVE】
233：#SYYM = IKMTSY"]
170["【Z-ADD】
237：P#KTYM = #SYYM"]
171[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
238：¥LDASET'"]]:::clrPattern3
172["【パラメータ定義】
239： PARM  P#KTYM"]
173["【Z-ADD】
240：#KTYM = P#KTYM"]
174["【MOVEL】
242：WSYYYY = #KTYM"]
175{"279_1:条件文"}:::clrPattern1
177["【制御出力】
279_2：GOTO|@HD010|"]
178(["279_3：ENDIF"])
179(["【ｻﾌﾞﾙｰﾁﾝ終了】
281：ENDSR
@HDEXT"])

%%ルート設定
58-->59
59-->60
60-->61
61-->62
62-->63
63-->64
64-->|条件文　真　|66
64-->|条件文　偽　|67
66-->67
67-->68
68-->|条件文　真　|70
68-->|条件文　偽　|71
70-->179
71-->72
72-->|条件文　真　|74
72-->|条件文　偽　|75
74-->75
75-->76
76-->|条件文　真　|78
76-->|条件文　偽　|79
78-->179
79-->80
80-->|条件文　真　|82
80-->|条件文　偽　|103
82-->83
83-->84
84-->85
85-->|条件文　真　|87
85-->|条件文　偽　|88
87-->90
88-->89
89-->90
90-->91
91-->92
92-->93
93-->|条件文　真　|95
93-->|条件文　偽　|96
95-->96
96-->97
97-->|条件文　真　|100
97-->|条件文　偽　|99
99-->100
100-->101
101-->59
102-->103
103-->104
104-->105
105-->106
106-->|条件文　真　|108
106-->|条件文　偽　|109
108-->111
109-->110
110-->111
111-->112
112-->113
113-->114
114-->|条件文　真　|117
114-->|条件文　偽　|116
116-->117
117-->118
118-->|条件文　真　|120
118-->|条件文　偽　|121
120-->121
121-->122
122-->|条件文　真　|124
122-->|条件文　偽　|125
124-->125
125-->126
126-->|条件文　真　|128
126-->|条件文　偽　|129
128-->59
129-->130
130-->|条件文　真　|132
130-->|条件文　偽　|138
132-->133
133-->|条件文　真　|135
133-->|条件文　偽　|136
135-->179
136-->137
137-->59
138-->139
139-->140
140-->141
141-->142
142-->143
143-->144
144-->|条件文　真　|146
144-->|条件文　偽　|148
146-->147
147-->59
148-->149
149-->150
150-->151
151-->152
152-->153
153-->154
154-->155
155-->156
156-->157
157-->158
158-->159
159-->160
160-->|条件文　真　|162
160-->|条件文　偽　|168
162-->163
163-->164
164-->165
165--中略-->167
167-->168
168-->169
169-->170
170-->171
171-->172
172-->173
173-->174
174-->175
175-->|条件文　真　|178
175-->|条件文　偽　|177
177-->59
178-->179
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["KC真"]
64
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["KC真"]
68
end
style sg3 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg3["KL真"]
72
end
style sg4 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg4["KL真"]
76
end
style sg5 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg5["KI真"]
80
end
style sg6 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg6["if WSYY > 50"]
85
end
style sg7 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg7["90真"]
93
end
style sg8 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg8["if WSYY > 50"]
106
end
style sg9 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg9["90真"]
118
end
style sg10 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg10["90真"]
122
end
style sg11 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg11["90真"]
126
end
style sg12 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg12["if *INKM = 1"]
130
end
style sg13 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg13["KC真"]
133
end
style sg14 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg14["if STS != ''"]
144
end
style sg15 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg15["75真"]
160
end

C演算仕様書 サブルーチン：¥HD2

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
180(["【ｻﾌﾞﾙｰﾁﾝ開始】
287：¥HD2"])
181[/"【繰返文開始】
Do 文
289：
if 1 < *HIVAL"\]:::clrPattern2
182[/"CRUD＜CREATE＞
【EXFMT】
290：#HD2||"/]:::clrPatternC
183{"292:条件文"}:::clrPattern1
185["【MOVEL】
293：INKC = '1'"]
186["【LEAVE】
294：LEAVE"]
187(["295：ENDIF"])
188{"297:条件文"}:::clrPattern1
190["【LEAVE】
298：LEAVE"]
191(["299：ENDIF"])
192["【SELEC開始】
301：SELEC"]:::clrPattern2
193["【WH文】303：
if WSNO = 1"]:::clrPattern1
194[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
304：SU00402C'"]]:::clrPattern3
195["【パラメータ定義】
305： PARM  WSKKKB"]
196(["WH終了"])
197["【WH文】307：
if WSNO = 2"]:::clrPattern1
198[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
308：YP210C'"]]:::clrPattern3
199(["WH終了"])
200["【WH文】310：
if WSNO = 3"]:::clrPattern1
201[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
311：SU00401C'"]]:::clrPattern3
202["【パラメータ定義】
312： PARM  WSKKKB"]
203(["WH終了"])
204["【WH文】314：
if WSNO = 4"]:::clrPattern1
205[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
315：SU00404C'"]]:::clrPattern3
206["【パラメータ定義】
316： PARM  WSKKKB"]
207(["WH終了"])
208["【WH文】318：
if WSNO = 5"]:::clrPattern1
209[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
319：SU00403C'"]]:::clrPattern3
210["【パラメータ定義】
320： PARM  WSKKKB"]
211(["WH終了"])
212["【WH文】322：
if WSNO = 6"]:::clrPattern1
213[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
323：SU00405C'"]]:::clrPattern3
214["【パラメータ定義】
324： PARM  WSKKKB"]
215(["WH終了"])
216["【WH文】326：
if WSNO = 7"]:::clrPattern1
217[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
327：SU00406C'"]]:::clrPattern3
218["【パラメータ定義】
328： PARM  WSKKKB"]
219(["WH終了"])
220["【WH文】331：
if WSNO = 20"]:::clrPattern1
221[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
332：SU0040AC'"]]:::clrPattern3
222(["WH終了"])
223["【WH文】334：
if WSNO = 21"]:::clrPattern1
224[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
335：SU0040BC'"]]:::clrPattern3
225(["WH終了"])
226["【WH文】337：
if WSNO = 22"]:::clrPattern1
227[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
338：SU0040HC'"]]:::clrPattern3
228(["WH終了"])
229["【WH文】341：
if WSNO = 23"]:::clrPattern1
230[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
342：SU0040CC'"]]:::clrPattern3
231(["WH終了"])
232["【WH文】345：
if WSNO = 24"]:::clrPattern1
233[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
346：SU0040DC'"]]:::clrPattern3
234(["WH終了"])
235["【WH文】349：
if WSNO = 25"]:::clrPattern1
236[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
350：SU0040EC'"]]:::clrPattern3
237(["WH終了"])
238["【WH文】353：
if WSNO = 26"]:::clrPattern1
239[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
354：SU0040FC'"]]:::clrPattern3
240(["WH終了"])
241["【WH文】357：
if WSNO = 27"]:::clrPattern1
242[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
358：SU0040GC'"]]:::clrPattern3
243(["WH終了"])
244["【SELECT終了】
359：ENDSL"]:::clrPattern2
245[\"【繰返文終了】
361：ENDDO"/]:::clrPattern2
246(["【ｻﾌﾞﾙｰﾁﾝ終了】
363：ENDSR"])

%%ルート設定
180-->181
181-->|ループ開始|182
182-->183
183-->|条件文　真　|185
183-->|条件文　偽　|187
185-->186
186-->187
187-->188
188-->|条件文　真　|190
188-->|条件文　偽　|191
190-->191
191-->192
192-->|WH文へ|193
192-->|WH文へ|197
192-->|WH文へ|200
192-->|WH文へ|204
192-->|WH文へ|208
192-->|WH文へ|212
192-->|WH文へ|216
192-->|WH文へ|220
192-->|WH文へ|223
192-->|WH文へ|226
192-->|WH文へ|229
192-->|WH文へ|232
192-->|WH文へ|235
192-->|WH文へ|238
192-->|WH文へ|241
193-->194
194-->195
195-->196
196-->244
197-->198
198-->199
199-->244
200-->201
201-->202
202-->203
203-->244
204-->205
205-->206
206-->207
207-->244
208-->209
209-->210
210-->211
211-->244
212-->213
213-->214
214-->215
215-->244
216-->217
217-->218
218-->219
219-->244
220-->221
221-->222
222-->244
223-->224
224-->225
225-->244
226-->227
227-->228
228-->244
229-->230
230-->231
231-->244
232-->233
233-->234
234-->244
235-->236
236-->237
237-->244
238-->239
239-->240
240-->244
241-->242
242-->243
243-->244
244-->245
245-->|ループ終了|246
245-->|ループ継続| 181
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if *INKC = 1"]
183
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if *INKL = 1"]
188
end

C演算仕様書 サブルーチン：¥4TO6

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
247(["【ｻﾌﾞﾙｰﾁﾝ開始】
372：¥4TO6"])
248[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
374：¥DAY4TO6'"]]:::clrPattern3
249["【パラメータ定義】
375： PARM  @@YM4"]
250["【パラメータ定義】
376： PARM  @@YYM6"]
251(["【ｻﾌﾞﾙｰﾁﾝ終了】
378：ENDSR"])

%%ルート設定
247-->248
248-->249
249-->250
250-->251

C演算仕様書 サブルーチン：¥F09

%%{init: {'theme':'base','themeVariables':{
'primaryColor':'white',
'primaryTextColor':'#000000',
'primaryBorderColor':'#000000',
'lineColor':'#808080',
'textColor':'#6A7FABCC',
'fontSize''15px'}}}%%
%%{ init: { 'flowchart': { 'curve': 'basis' } } }%%
graph TD;

classDef default fill:#FFFFE0,stroke:#333,stroke-width:2px;
classDef clrPattern1 fill:#FFFF00,stroke:#333,stroke-width:2px;
classDef clrPattern2 fill:#FFA500,stroke:#333,stroke-width:2px;
classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px;
classDef clrPatternC fill:#ADFF2F,stroke:#333,stroke-width:2px;
classDef clrPatternR fill:#FFC0CB,stroke:#333,stroke-width:2px;
classDef clrPatternU fill:#E6E6FA,stroke:#333,stroke-width:2px;
classDef clrPatternD fill:#00FFFF,stroke:#333,stroke-width:2px;
classDef clrPatternCU fill:#00FF7F,stroke:#333,stroke-width:2px;
linkStyle default stroke:#808080,stroke-width:2px;

%%データ項目
252(["【ｻﾌﾞﾙｰﾁﾝ開始】
383：¥F09"])
253{"385:条件文"}:::clrPattern1
257["【MOVEL】
388：WKK = *BLANK"]
258["【MOVEL】
389：STS = *BLANK"]
259[["【ﾌﾟﾛｸﾞﾗﾑ呼出】
390：KD04600'"]]:::clrPattern3
260["【パラメータ定義】
391： PARM  WKK"]
261["【パラメータ定義】
392： PARM  STS"]
262{"393:条件文"}:::clrPattern1
264["【MOVEL】
394：WSKKKB = WKK"]
265(["395：ENDIF"])
266(["396：ENDIF"])
267(["【ｻﾌﾞﾙｰﾁﾝ終了】
398：ENDSR
F09EX"])

%%ルート設定
252-->253
253-->|条件文　真　|257
253-->|条件文　偽　|266
257-->258
258-->259
259-->260
260-->261
261-->262
262-->|条件文　真　|264
262-->|条件文　偽　|265
264-->265
265-->266
266-->267
style sg1 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg1["if CGYO = 4& if CKETA = 34"]
253
end
style sg2 color:red,fill-opacity:0, stroke-opacity:0;
subgraph sg2["if STS = ''"]
262
end