SU00415.md

H***************************************************************** H* COPYRIGHT SEC 1992 * H* LICENSED MATERIAL PROGRAM PROPERTY OF SEC.C * H***************************************************************** H* * H* SU00415 : 人事考課　総合職　年俸額算出処理 * H* * H***************************************************************** H Y/ 1 H***************************************************************** *評定入力ファイルKEY= HTYY/KKKB/SYCD FJIKNYULBUF E K DISK *年俸種類マスタKEY= POCD/KTYM FNENPOUP IF E K DISK *評定ランクマスタKEY= KKKB/KTYM FJIKKKAP IF E K DISK *評定要素点数マスタKEY= KKKB/SOCD/CKKB/SSCD/SEQN/KTYM FJIKYSPLBIF E K DISK *評定要素点数マスタ（間接成果用）KEY=KKKB/SOCD/CKKB/SSCD/SNID/KTYM FJIKYSP2AIF E K DISK *評定項目別素点ファイルKEY=HTYY/KKKB/CKKB/BUCD/SYCD FWSU004DPUF E K DISK A *評定入力ファイルＷＯＲＫ FJIKNYUW IF E K DISK *年俸種類ﾊﾟﾗﾒｰﾀ KEY= POCD/KTYM FJIKPRYP IF E K DISK *組織評価加算額ﾊﾟﾗﾒｰﾀ KEY=SSCD/CKKB FJIKPRZP IF E K DISK *間接成果評価加算額ﾊﾟﾗﾒｰﾀ KEY=SSCD/CKKB FJIKPR1P IF E K DISK *年俸者　資格ﾊﾟﾗﾒｰﾀ FJIKPRWP IF E K DISK 08.01 *項目ﾊﾟﾗﾒｰﾀ 08.01FKOMPRPP IF E K DISK ****************************************************** * 配列 * ****************************************************** E SSC 10 4 0 資格ＣＤ E CPO 10 2 0 直接　年俸 E KPO 10 2 0 間接　年俸 E KGN 10 9 0 年俸範囲下 E JGN 10 9 0 年俸範囲上 E RNK 10 2 ランク E HT1 10 1 評定ランク E NID 5 1 難易度 E SPT 10 5 2 直接成果点数 E SP2 10 5 2 間接成果点数 E KPT 10 5 2 行動点数 07.12E*///////////////////KS1 99 9 0 組織評価加算額 07.12E KS1 150 9 0 組織評価加算額 E KS2 99 9 0 間接成果評価加算額 E SSP 10 4 0 年俸者資格ﾊﾟﾗﾒｰﾀ ****************************************************** * 構造化データ * ****************************************************** *改定年月 I UDS I 101 1060DSKTYM I 101 106 X#KTYM I 107 1100DSKTY2 *年俸種類ＣＤ取得用 *資格ＣＤ I DS I 1 400SSC I 1 40PYSSC1 I 5 80PYSSC2 I 9 120PYSSC3 I 13 160PYSSC4 I 17 200PYSSC5 I 21 240PYSSC6 I 25 280PYSSC7 I 29 320PYSSC8 I 33 360PYSSC9 I 37 400PYSSCA *直接　年俸種類ＣＤ I DS I 1 200CPO I 1 20PYCPO1 I 3 40PYCPO2 I 5 60PYCPO3 I 7 80PYCPO4 I 9 100PYCPO5 I 11 120PYCPO6 I 13 140PYCPO7 I 15 160PYCPO8 I 17 180PYCPO9 I 19 200PYCPOA *間接　年俸種類ＣＤ I DS I 1 200KPO I 1 20PYKPO1 I 3 40PYKPO2 I 5 60PYKPO3 I 7 80PYKPO4 I 9 100PYKPO5 I 11 120PYKPO6 I 13 140PYKPO7 I 15 160PYKPO8 I 17 180PYKPO9 I 19 200PYKPOA I DS I 1 10 HT1 I 1 1 IKSYO1 I 2 2 IKSYO2 I 3 3 IKSYO3 I 4 4 IKSYO4 I 5 5 IKSYO5 I 6 6 IKSYO6 I 7 7 IKSYO7 I 8 8 IKSYO8 I 9 9 IKSYO9 I 10 10 IKSY10 I DS I 1 502SPT I 1 52IPSHT1 I 6 102IPSHT2 I 11 152IPSHT3 I 16 202IPSHT4 I 21 252IPSHT5 I 26 302IPSHT6 I 31 352IPSHT7 I 36 402IPSHT8 I 41 452IPSHT9 I 46 502IPSHTA *要素点数（間接／成果） I DS I 1 502SP2 I 1 52IPSPT1 I 6 102IPSPT2 I 11 152IPSPT3 I 16 202IPSPT4 I 21 252IPSPT5 I 26 302IPSPT6 I 31 352IPSPT7 I 36 402IPSPT8 I 41 452IPSPT9 I 46 502IPSPTA *要素点数（行動） I DS I 1 502KPT I 1 52IPKHT1 I 6 102IPKHT2 I 11 152IPKHT3 I 16 202IPKHT4 I 21 252IPKHT5 I 26 302IPKHT6 I 31 352IPKHT7 I 36 402IPKHT8 I 41 452IPKHT9 I 46 502IPKHTA *難易度 I DS I 1 5 NID I 1 1 INK1N1 I 2 2 INK2N1 I 3 3 INK3N1 I 4 4 INK4N1 I 5 5 INK5N1 *年俸範囲下限 I DS I 1 900KGN I 1 90NEKAG1 I 10 180NEKAG2 I 19 270NEKAG3 I 28 360NEKAG4 I 37 450NEKAG5 I 46 540NEKAG6 I 55 630NEKAG7 I 64 720NEKAG8 I 73 810NEKAG9 I 82 900NEKAGA *年俸範囲上限 I DS I 1 900JGN I 1 90NEJOG1 I 10 180NEJOG2 I 19 270NEJOG3 I 28 360NEJOG4 I 37 450NEJOG5 I 46 540NEJOG6 I 55 630NEJOG7 I 64 720NEJOG8 I 73 810NEJOG9 I 82 900NEJOGA *ランク I DS I 1 20 RNK I 1 2 NERNK1 I 3 4 NERNK2 I 5 6 NERNK3 I 7 8 NERNK4 I 9 10 NERNK5 I 11 12 NERNK6 I 13 14 NERNK7 I 15 16 NERNK8 I 17 18 NERNK9 I 19 20 NERNKA *組織評価　加算額ﾊﾟﾗﾒｰﾀ I DS 07.12I*///////////////////////////////////////1 8910KS1 07.12I 113500KS1 I 1 90PZKS01 I 10 180PZKS02 I 19 270PZKS03 I 28 360PZKS04 I 37 450PZKS05 I 46 540PZKS06 I 55 630PZKS07 I 64 720PZKS08 I 73 810PZKS09 I 82 900PZKS10 I 91 990PZKS11 I 100 1080PZKS12 I 109 1170PZKS13 I 118 1260PZKS14 I 127 1350PZKS15 I 136 1440PZKS16 I 145 1530PZKS17 I 154 1620PZKS18 I 163 1710PZKS19 I 172 1800PZKS20 I 181 1890PZKS21 I 190 1980PZKS22 I 199 2070PZKS23 I 208 2160PZKS24 I 217 2250PZKS25 I 226 2340PZKS26 I 235 2430PZKS27 I 244 2520PZKS28 I 253 2610PZKS29 I 262 2700PZKS30 I 271 2790PZKS31 I 280 2880PZKS32 I 289 2970PZKS33 I 298 3060PZKS34 I 307 3150PZKS35 I 316 3240PZKS36 I 325 3330PZKS37 I 334 3420PZKS38 I 343 3510PZKS39 I 352 3600PZKS40 I 361 3690PZKS41 I 370 3780PZKS42 I 379 3870PZKS43 I 388 3960PZKS44 I 397 4050PZKS45 I 406 4140PZKS46 I 415 4230PZKS47 I 424 4320PZKS48 I 433 4410PZKS49 I 442 4500PZKS50 I 451 4590PZKS51 I 460 4680PZKS52 I 469 4770PZKS53 I 478 4860PZKS54 I 487 4950PZKS55 I 496 5040PZKS56 I 505 5130PZKS57 I 514 5220PZKS58 I 523 5310PZKS59 I 532 5400PZKS60 I 541 5490PZKS61 I 550 5580PZKS62 I 559 5670PZKS63 I 568 5760PZKS64 I 577 5850PZKS65 I 586 5940PZKS66 I 595 6030PZKS67 I 604 6120PZKS68 I 613 6210PZKS69 I 622 6300PZKS70 I 631 6390PZKS71 I 640 6480PZKS72 I 649 6570PZKS73 I 658 6660PZKS74 I 667 6750PZKS75 I 676 6840PZKS76 I 685 6930PZKS77 I 694 7020PZKS78 I 703 7110PZKS79 I 712 7200PZKS80 I 721 7290PZKS81 I 730 7380PZKS82 I 739 7470PZKS83 I 748 7560PZKS84 I 757 7650PZKS85 I 766 7740PZKS86 I 775 7830PZKS87 I 784 7920PZKS88 I 793 8010PZKS89 I 802 8100PZKS90 I 811 8190PZKS91 I 820 8280PZKS92 I 829 8370PZKS93 I 838 8460PZKS94 I 847 8550PZKS95 I 856 8640PZKS96 I 865 8730PZKS97 I 874 8820PZKS98 I 883 8910PZKS99 07.12I 892 9000PZK100 : I 901 9090PZK101 : I 910 9180PZK102 : I 919 9270PZK103 : I 928 9360PZK104 : I 937 9450PZK105 : I 946 9540PZK106 : I 955 9630PZK107 : I 964 9720PZK108 : I 973 9810PZK109 : I 982 9900PZK110 : I 991 9990PZK111 : I 100010080PZK112 : I 100910170PZK113 : I 101810260PZK114 : I 102710350PZK115 : I 103610440PZK116 : I 104510530PZK117 : I 105410620PZK118 : I 106310710PZK119 : I 107210800PZK120 : I 108110890PZK121 : I 109010980PZK122 : I 109911070PZK123 : I 110811160PZK124 : I 111711250PZK125 : I 112611340PZK126 : I 113511430PZK127 : I 114411520PZK128 : I 115311610PZK129 : I 116211700PZK130 : I 117111790PZK131 : I 118011880PZK132 : I 118911970PZK133 : I 119812060PZK134 : I 120712150PZK135 : I 121612240PZK136 : I 122512330PZK137 : I 123412420PZK138 : I 124312510PZK139 : I 125212600PZK140 : I 126112690PZK141 : I 127012780PZK142 : I 127912870PZK143 : I 128812960PZK144 : I 129713050PZK145 : I 130613140PZK146 : I 131513230PZK147 : I 132413320PZK148 : I 133313410PZK149 07.12I 134213500PZK150 *間接成果評価　加算額ﾊﾟﾗﾒｰﾀ I DS I 1 8910KS2 I 1 90P1KS01 I 10 180P1KS02 I 19 270P1KS03 I 28 360P1KS04 I 37 450P1KS05 I 46 540P1KS06 I 55 630P1KS07 I 64 720P1KS08 I 73 810P1KS09 I 82 900P1KS10 I 91 990P1KS11 I 100 1080P1KS12 I 109 1170P1KS13 I 118 1260P1KS14 I 127 1350P1KS15 I 136 1440P1KS16 I 145 1530P1KS17 I 154 1620P1KS18 I 163 1710P1KS19 I 172 1800P1KS20 I 181 1890P1KS21 I 190 1980P1KS22 I 199 2070P1KS23 I 208 2160P1KS24 I 217 2250P1KS25 I 226 2340P1KS26 I 235 2430P1KS27 I 244 2520P1KS28 I 253 2610P1KS29 I 262 2700P1KS30 I 271 2790P1KS31 I 280 2880P1KS32 I 289 2970P1KS33 I 298 3060P1KS34 I 307 3150P1KS35 I 316 3240P1KS36 I 325 3330P1KS37 I 334 3420P1KS38 I 343 3510P1KS39 I 352 3600P1KS40 I 361 3690P1KS41 I 370 3780P1KS42 I 379 3870P1KS43 I 388 3960P1KS44 I 397 4050P1KS45 I 406 4140P1KS46 I 415 4230P1KS47 I 424 4320P1KS48 I 433 4410P1KS49 I 442 4500P1KS50 I 451 4590P1KS51 I 460 4680P1KS52 I 469 4770P1KS53 I 478 4860P1KS54 I 487 4950P1KS55 I 496 5040P1KS56 I 505 5130P1KS57 I 514 5220P1KS58 I 523 5310P1KS59 I 532 5400P1KS60 I 541 5490P1KS61 I 550 5580P1KS62 I 559 5670P1KS63 I 568 5760P1KS64 I 577 5850P1KS65 I 586 5940P1KS66 I 595 6030P1KS67 I 604 6120P1KS68 I 613 6210P1KS69 I 622 6300P1KS70 I 631 6390P1KS71 I 640 6480P1KS72 I 649 6570P1KS73 I 658 6660P1KS74 I 667 6750P1KS75 I 676 6840P1KS76 I 685 6930P1KS77 I 694 7020P1KS78 I 703 7110P1KS79 I 712 7200P1KS80 I 721 7290P1KS81 I 730 7380P1KS82 I 739 7470P1KS83 I 748 7560P1KS84 I 757 7650P1KS85 I 766 7740P1KS86 I 775 7830P1KS87 I 784 7920P1KS88 I 793 8010P1KS89 I 802 8100P1KS90 I 811 8190P1KS91 I 820 8280P1KS92 I 829 8370P1KS93 I 838 8460P1KS94 I 847 8550P1KS95 I 856 8640P1KS96 I 865 8730P1KS97 I 874 8820P1KS98 I 883 8910P1KS99 *年俸者　資格ﾊﾟﾗﾒｰﾀ I DS I 1 400SSP I 1 40PWSSC1 I 5 80PWSSC2 I 9 120PWSSC3 I 13 160PWSSC4 I 17 200PWSSC5 I 21 240PWSSC6 I 25 280PWSSC7 I 29 320PWSSC8 I 33 360PWSSC9 I 37 400PWSSCA *加算額ワーク I DS I 1 112W1KASN I 10 112W1SYSU ****************************************************** * ＰＡＲＭ　ＬＩＳＴ * ****************************************************** C *ENTRY PLIST C PARM PRHTYY 40 C PARM PRKKKB 10 ****************************************************** * ＫＥＹ　ＬＩＳＴ * ****************************************************** *評定入力マスタ C K\INB KLIST C KFLD INHTYY C KFLD INKKKB C KFLD INSYCD C K\INBB KLIST C KFLD INHTYY C KFLD INKKKB *ﾜｰｸ C K\IW KLIST C KFLD IWSYCD C KFLD IWHTYY C KFLD IWKKKB *年俸種類マスタ C K\NE KLIST C KFLD NEPOCD C KFLD NEKTYM *評定ランクマスタ C K\IK KLIST C KFLD IKKKKB C KFLD IKKTYM *評定要素点数マスタ C K\IP KLIST C KFLD IPKKKB C KFLD IPSOCD C KFLD IPCKKB C KFLD IPSSCD C KFLD IPSEQN C KFLD IPKTYM C K\IPB KLIST C KFLD IPKKKB C KFLD IPSOCD C KFLD IPCKKB C KFLD IPSSCD C KFLD IPSEQN *評定要素点数マスタ（間接成果用） C K\IP2 KLIST C KFLD IPKKKB C KFLD IPSOCD C KFLD IPCKKB C KFLD IPSSCD C KFLD IPSNID C KFLD IPKTYM C K\IP2B KLIST C KFLD IPKKKB C KFLD IPSOCD C KFLD IPCKKB C KFLD IPSSCD C KFLD IPSNID *評定項目別素点ファイル C K\WD KLIST C KFLD WDHTYY C KFLD WDKKKB C KFLD WDCKKB C KFLD WDBUCD C KFLD WDSYCD *組織評価加算額ﾊﾟﾗﾒｰﾀ C K\PZ KLIST C KFLD PZSSCD C KFLD PZCKKB *間接成果評価加算額ﾊﾟﾗﾒｰﾀ C K\P1 KLIST C KFLD P1SSCD C KFLD P1CKKB 08.01 *評定要素マスタ : C K#KP KLIST : C KFLD KPPRID 08.01C KFLD KPSEQ ****************************************************** * ＭＡＩＮ * ****************************************************** C EXSR \INIT C EXSR \MAIN C EXSR \END ****************************************************** * 初期処理 * ****************************************************** C \INIT BEGSR *ワーク定義 C Z-ADD*ZERO IX 20 配列指標 C Z-ADD*ZERO IY 20 配列指標 C Z-ADD*ZERO IZ 30 配列指標 C Z-ADD*ZERO W1BUCD 50 部署ＣＤ C Z-ADD*ZERO W1CKCD 50 地区ＣＤ C Z-ADD*ZERO W1KTYM 60 改定年月 C Z-ADD*ZERO W1SKAG 90 最下限 C Z-ADD*ZERO W1SEQ 30 内容番号 04.02C*/////////////// Z-ADD*ZERO W1SPT 101 成果点数 04.02C Z-ADD*ZERO W1SPT 102 成果点数 C Z-ADD*ZERO W2SPT 105 素点算出用 08.01C Z-ADD*ZERO W1JKPT 102 間接重点課題 C Z-ADD*ZERO W1KPT 101 行動点数 04.02C*/////////////// Z-ADD*ZERO W1KASN 90 加算額合計 04.02C Z-ADD*ZERO W1KASN 112 加算額合計 C Z-ADD*ZERO W1SGHK 101 総合評価額 C Z-ADD*ZERO W1NNPO 90 年俸額 C Z-ADD*ZERO W1POCD 20 年俸種類 C Z-ADD*ZERO W1MNTN 52 満点 C MOVEL*BLANK W1SNID 1 難易度 C MOVEL*BLANK W1RANK 2 ランク * C Z-ADD*ZERO SSC C Z-ADD*ZERO CPO C Z-ADD*ZERO KPO C Z-ADD*ZERO KGN C Z-ADD*ZERO JGN C MOVEL*BLANK RNK C MOVEL*BLANK HT1 C MOVEL*BLANK NID C Z-ADD*ZERO SPT C Z-ADD*ZERO SP2 C Z-ADD*ZERO KPT C Z-ADD*ZERO KS1 C Z-ADD*ZERO KS2 C Z-ADD*ZERO SSP *改定年月 C Z-ADDDSKTYM W1KTYM *年俸者　資格ﾊﾟﾗﾒｰﾀ C READ JIKPRWP 90 C 90 CLEARJIKPRW *年俸種類コード C READ JIKPRYP 90 C 90 CLEARJIKPRY * C Z-ADDPRKKKB IKKKKB C Z-ADD*HIVAL IKKTYM C K\IK SETLLJIKKKAP C PRKKKB REDPEJIKKKAP 90 C 90 CLEARJIKKKA *前年年俸取得用ワークファイル C PRHTYY SUB 1 W1HTYY 40 C CALL '#JIKNYUW' C PARM W1HTYY C PARM PRKKKB 08.01 *項目パラメータより年俸額算出用掛け率取得 : C MOVEL'JIK-' KPPRID : C MOVE 'NPMULT' KPPRID : C Z-ADD1 KPSEQ : C K#KP CHAINKOMPRPP 90 : C N90 Z-ADDKPSJ01 WKMULT 100 08.01C 90 Z-ADD*ZERO WKMULT 100 * C ENDSR ****************************************************** * メイン * ****************************************************** C \MAIN BEGSR C Z-ADDPRHTYY INHTYY C Z-ADDPRKKKB INKKKB C Z-ADD*LOVAL INSYCD C K\INB SETLLJIKNYULB C K\INBB READEJIKNYULB 91 C *IN91 DOWEQ*OFF *対象チェック C EXSR \CHK01 C *IN90 IFEQ *ON *年俸種類マスタ参照 C EXSR \NNPO *直間区分別に加算額算出 C Z-ADD*ZERO W1KASN C INTAIS IFEQ *ZERO C SELEC C INCKKB WHEQ 1 直接の時 C EXSR \KSNS1 成果加算額 C EXSR \KSNK1 行動加算額 * （総合評価含まず） C INCKKB WHEQ 0 間接の時 C EXSR \KSNS2 成果加算額 C EXSR \KSNK1 行動加算額 * （総合評価含まず） C ENDSL C ENDIF *年俸額算出 C EXSR \NENPO *ランク算出 C EXSR \RANK *評定入力ファイル更新 C EXSR \UPDIN C ELSE C UNLCKJIKNYULB C ENDIF * C K\INBB READEJIKNYULB 91 C ENDDO * C ENDSR ****************************************************** * 終了処理 * ****************************************************** C \END BEGSR C SETON LR C RETRN C ENDSR ****************************************************** * 対象チェック * ****************************************************** C \CHK01 BEGSR * C MOVEL'0' *IN90 * C DO *取込区分チェック C INTKKB IFNE *BLANK C SETON 90 C LEAVE C ENDIF *年俸者チェック C SETOF 90 C Z-ADD1 IX 20 C INSSCD LOKUPSSP,IX 90 * C ENDDO * C ENDSR ****************************************************** * 年俸種類マスタ参照 * ****************************************************** C \NNPO BEGSR *年俸種類コード取得 C SETOF 90 C Z-ADD1 IX C INSSCD LOKUPSSC,IX 90 C *IN90 IFEQ *ON C SELEC C INCKKB WHEQ 1 C Z-ADDCPO,IX W1POCD C INCKKB WHEQ *ZERO C Z-ADDKPO,IX W1POCD C ENDSL C ELSE C Z-ADD*ZERO W1POCD C ENDIF *年俸種類マスタ参照 C Z-ADDW1POCD NEPOCD C Z-ADDW1KTYM NEKTYM C K\NE SETGTNENPOU C W1POCD REDPENENPOU 90 C *IN90 IFEQ *ON C CLEARNENPOU C Z-ADD*ZERO KGN C Z-ADD*ZERO JGN C ENDIF C Z-ADDNESKAG W1SKAG * C ENDSR ****************************************************** * 加算額算出（直接，成果） * ****************************************************** C \KSNS1 BEGSR *＜評定項目別加算額ファイル参照＞ C Z-ADDPRHTYY WDHTYY C Z-ADDPRKKKB WDKKKB C Z-ADDINCKKB WDCKKB C Z-ADDINBUCD WDBUCD C Z-ADDINSYCD WDSYCD C K\WD CHAINWSU004DP 98 C 98 CLEARWSU004D * 07.12C*//////////1 DO 5 IX 07.12C 1 DO 8 IX C Z-ADD*ZERO W1SPT 成果点数 *＜成果用点数マスタ参照＞ C Z-ADDIX W1SEQ 項目�� C EXSR \YSPP 点数Ｍ参照 *＜項目別加算額算出＞ C SETOF 90 C SELEC *評定項目01 C IX WHEQ 1 C Z-ADD1 IY C INC1HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ C SPT,IY MULT INWAT1 W2SPT H 既存取引 04.02C*///////// W2SPT DIV 100 W1SPT H 04.02C W2SPT DIV 100 W1SPT C Z-ADDW1SPT WDSN01 08.01C*////////////////////MULT 10000 W1SPT C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN01 C ENDIF *評定項目02 C IX WHEQ 2 C Z-ADD1 IY C INC2HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON C SPT,IY MULT INWAT2 W2SPT H 新規ﾋﾞｼﾞﾈｽ 04.02C*///////// W2SPT DIV 100 W1SPT H 04.02C W2SPT DIV 100 W1SPT C Z-ADDW1SPT WDSN02 08.01C*////////////////////MULT 10000 W1SPT C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN02 C ENDIF *評定項目03 C IX WHEQ 3 C Z-ADD1 IY C INC3HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON C Z-ADDSPT,IY W1SPT C Z-ADDW1SPT WDSN03 08.01C*////////////////////MULT 10000 W1SPT C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN03 C ENDIF *評定項目04 C IX WHEQ 4 C Z-ADD1 IY C INC4HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON C Z-ADDSPT,IY W1SPT C Z-ADDW1SPT WDSN04 08.01C*////////////////////MULT 10000 W1SPT C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN04 C ENDIF *評定項目05 C IX WHEQ 5 C Z-ADDINC5P1 WDSN05 07.12 *評定項目06 : C IX WHEQ 6 : C Z-ADD1 IY : C INC6HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDW1SPT WDSN06 08.01C*////////////////////MULT 10000 W1SPT : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN06 07.12C ENDIF 07.12 *評定項目07 : C IX WHEQ 7 : C Z-ADD1 IY : C INC7HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDW1SPT WDSN07 08.01C*////////////////////MULT 10000 W1SPT : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN07 07.12C ENDIF 07.12 *評定項目08 : C IX WHEQ 8 : C Z-ADD1 IY : C INC8HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDW1SPT WDSN08 08.01C*////////////////////MULT 10000 W1SPT : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN08 07.12C ENDIF C ENDSL *＜加算額集計＞ C ADD W1SPT W1KASN 成果 * C ENDDO *評定項目別素点ファイル更新 C *IN98 IFEQ *ON C Z-ADDPRHTYY WDHTYY 評定年度 C Z-ADDPRKKKB WDKKKB 考課区分 C Z-ADDINCKKB WDCKKB 直間区分 C Z-ADDINBUCD WDBUCD 部署ＣＤ C Z-ADDINSYCD WDSYCD 社員ＣＤ C Z-ADDINYKCD WDYKCD 職制ＣＤ C Z-ADDINSOCD WDSOCD 職掌ＣＤ C Z-ADDINSSCD WDSSCD 資格ＣＤ C Z-ADDINWAT1 WDWAT1 既存取引 C Z-ADDINWAT2 WDWAT2 新規ﾋﾞｼﾞﾈｽ C MOVELINC5R1 WDC5R1 純益ﾗﾝｸ C MOVELINC5R2 WDC5R2 改善ﾗﾝｸ C MOVELINC5KK WDC5KK 達成度 C Z-ADDINC5P1 WDC5P1 配分点 C Z-ADDINC5P2 WDC5P2 持ち点 C MOVELINK1N1 WDK1NI 行動１難易度 C Z-ADDINK1WT WDK1WT 行動１ｳｪｲﾄ C MOVELINK2N1 WDK2NI 行動２難易度 C Z-ADDINK2WT WDK2WT 行動２ｳｪｲﾄ C MOVELINK3N1 WDK3NI 行動３難易度 C Z-ADDINK3WT WDK3WT 行動３ｳｪｲﾄ C MOVELINK4N1 WDK4NI 行動４難易度 C Z-ADDINK4WT WDK4WT 行動４ｳｪｲﾄ C MOVELINK5N1 WDK5NI 行動５難易度 C Z-ADDINK5WT WDK5WT 行動５ｳｪｲﾄ 07.12C MOVELINK6N1 WDK6NI 行動６難易度 : C Z-ADDINK6WT WDK6WT 行動６ｳｪｲﾄ : C MOVELINK7N1 WDK7NI 行動７難易度 : C Z-ADDINK7WT WDK7WT 行動７ｳｪｲﾄ : C MOVELINK8N1 WDK8NI 行動８難易度 07.12C Z-ADDINK8WT WDK8WT 行動８ｳｪｲﾄ C WRITEWSU004D C ELSE C UPDATWSU004D C ENDIF * C ENDSR ****************************************************** * 加算額算出（行動） * ****************************************************** C \KSNK1 BEGSR *＜評定項目別素点ファイル参照＞ C Z-ADDPRHTYY WDHTYY C Z-ADDPRKKKB WDKKKB C Z-ADDINCKKB WDCKKB C Z-ADDINBUCD WDBUCD C Z-ADDINSYCD WDSYCD C K\WD CHAINWSU004DP 98 C 98 CLEARWSU004D * 07.12C*//////////1 DO 5 IX 07.12C 1 DO 8 IX C Z-ADD*ZERO W1KPT 行動点数 *＜点数マスタ参照＞ C Z-ADDIX W1SEQ 項目�� C EXSR \YSPP 点数Ｍ参照 *＜項目別加算額算出＞ C SETOF 90 C SELEC *評定項目01 C IX WHEQ 1 C Z-ADD1 IY C INKD01 LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ C Z-ADDKPT,IY W1KPT 既存取引 C Z-ADDW1KPT WDKN01 08.01C*////////////////////MULT 10000 W1KPT C ELSE C Z-ADD*ZERO W1KPT C Z-ADD*ZERO WDKN01 C ENDIF *評定項目02 C IX WHEQ 2 C Z-ADD1 IY C INKD02 LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ C Z-ADDKPT,IY W1KPT 既存取引 C Z-ADDW1KPT WDKN02 08.01C*////////////////////MULT 10000 W1KPT C ELSE C Z-ADD*ZERO W1KPT C Z-ADD*ZERO WDKN02 C ENDIF *評定項目03 C IX WHEQ 3 C Z-ADD1 IY C INKD03 LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON C Z-ADDKPT,IY W1KPT C Z-ADDW1KPT WDKN03 08.01C*////////////////////MULT 10000 W1KPT C ELSE C Z-ADD*ZERO W1KPT C Z-ADD*ZERO WDKN03 C ENDIF 08.03 *後輩の指導加味 : C KPT,4 IFNE *ZERO : C INKD04 ANDEQ*BLANK : C Z-ADD4 W1SEQ : C EXSR \YSPP : C Z-ADD1 IY : C INKD03 LOKUPHT1,IY 90 : C *IN90 IFEQ *ON : C ADD KPT,IY W1KPT : C Z-ADDW1KPT WDKN03 : C ENDIF 08.03C ENDIF *評定項目04 C IX WHEQ 4 C Z-ADD1 IY C INKD04 LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON C Z-ADDKPT,IY W1KPT C Z-ADDW1KPT WDKN04 08.01C*////////////////////MULT 10000 W1KPT C ELSE C Z-ADD*ZERO W1KPT C Z-ADD*ZERO WDKN04 C ENDIF 07.12 *評定項目05 : C IX WHEQ 5 : C Z-ADD1 IY : C INKD05 LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDKPT,IY W1KPT : C Z-ADDW1KPT WDKN05 08.01C*////////////////////MULT 10000 W1KPT : C ELSE : C Z-ADD*ZERO W1KPT : C Z-ADD*ZERO WDKN05 07.12C ENDIF 07.12 *評定項目06 : C IX WHEQ 6 : C Z-ADD1 IY : C INKD06 LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDKPT,IY W1KPT : C Z-ADDW1KPT WDKN06 08.01C*////////////////////MULT 10000 W1KPT : C ELSE : C Z-ADD*ZERO W1KPT : C Z-ADD*ZERO WDKN06 07.12C ENDIF *評定項目07 <---総合評価----> * ※総合評価は年俸加算額の素点には含めない C IX WHEQ 7 C Z-ADD1 IY C INKD07 LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON 08.01C KPT,IY MULT WKMULT W1SGHK : C Z-ADDKPT,IY WDKN07 08.01C*////////////////////MULT 10000 W1SGHK C ELSE C Z-ADD*ZERO W1KPT C Z-ADD*ZERO WDKN07 C ENDIF 07.12 *評定項目08 : C IX WHEQ 8 : C Z-ADD1 IY : C INKD08 LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDKPT,IY W1KPT : C Z-ADDW1KPT WDKN08 08.01C*////////////////////MULT 10000 W1KPT : C ELSE : C Z-ADD*ZERO W1KPT : C Z-ADD*ZERO WDKN08 07.12C ENDIF C ENDSL *＜加算額集計＞ C ADD W1KPT W1KASN 成果 * C ENDDO *評定項目別素点ファイル更新 C *IN98 IFEQ *ON C Z-ADDPRHTYY WDHTYY C Z-ADDPRKKKB WDKKKB C Z-ADDINCKKB WDCKKB C Z-ADDINBUCD WDBUCD C Z-ADDINSYCD WDSYCD C Z-ADDINYKCD WDYKCD C Z-ADDINSOCD WDSOCD C Z-ADDINSSCD WDSSCD C Z-ADDINWAT1 WDWAT1 C Z-ADDINWAT2 WDWAT2 C MOVELINC5R1 WDC5R1 C MOVELINC5R2 WDC5R2 C MOVELINC5KK WDC5KK C MOVELINK1N1 WDK1NI C Z-ADDINK1WT WDK1WT C MOVELINK2N1 WDK2NI C Z-ADDINK2WT WDK2WT C MOVELINK3N1 WDK3NI C Z-ADDINK3WT WDK3WT C MOVELINK4N1 WDK4NI C Z-ADDINK4WT WDK4WT C MOVELINK5N1 WDK5NI C Z-ADDINK5WT WDK5WT 07.12C MOVELINK6N1 WDK6NI : C Z-ADDINK6WT WDK6WT : C MOVELINK7N1 WDK7NI : C Z-ADDINK7WT WDK7WT : C MOVELINK8N1 WDK8NI 07.12C Z-ADDINK8WT WDK8WT C WRITEWSU004D C ELSE C UPDATWSU004D C ENDIF * C ENDSR ****************************************************** * 加算額算出（間接，成果） * ****************************************************** C \KSNS2 BEGSR * *＜評定項目別素点ファイル参照＞ C Z-ADDPRHTYY WDHTYY C Z-ADDPRKKKB WDKKKB C Z-ADDINCKKB WDCKKB C Z-ADDINBUCD WDBUCD C Z-ADDINSYCD WDSYCD C K\WD CHAINWSU004DP 98 C 98 CLEARWSU004D * 08.01C Z-ADD*ZERO W1JKPT 重点課題 07.12C*//////////1 DO 5 IX 07.12C 1 DO 8 IX C Z-ADD*ZERO W1SPT 成果点数 *＜成果用点数マスタ参照＞ C Z-ADDIX W1SEQ 項目�� 07.12C*////////////////////MOVELNID,IX W1SNID 項目�� : C*////////////////////EXSR \YSP2 点数Ｍ参照 07.12C EXSR \YSPP 点数Ｍ参照 *＜項目別加算額算出＞ * ※間接定量的評価の重点課題の加算額の求め方 * 評価項目１～３のＳ４項目点数をウェイトを掛け集計し * 求められた素点で間接加算額パラメータを参照し求める * 重点課題以外は点数がそののまま加算額（点数×掛け率）となる。 * 重点課題以外の点数設定に注意！掛け率によって桁が変る。 C SETOF 90 C SELEC *評定項目01 C IX WHEQ 1 C Z-ADD1 IY C INK1HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON ｳｪｲﾄｦｶｹﾙ 07.12C*//////////SP2,IY MULT INK1WT W2SPT H 07.12C SPT,IY MULT INK1WT W2SPT H C W2SPT DIV 100 W1SPT H C Z-ADDW1SPT WDSN01 C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN01 C ENDIF 08.01C ADD W1SPT W1JKPT 重点課題 *評定項目02 C IX WHEQ 2 C Z-ADD1 IY C INK2HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON 07.12C*//////////SP2,IY MULT INK2WT W2SPT H 07.12C SPT,IY MULT INK2WT W2SPT H C W2SPT DIV 100 W1SPT H C Z-ADDW1SPT WDSN02 C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN02 C ENDIF 08.01C ADD W1SPT W1JKPT 重点課題 *評定項目03 C IX WHEQ 3 C Z-ADD1 IY C INK3HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON 07.12C*//////////SP2,IY MULT INK3WT W2SPT H 07.12C SPT,IY MULT INK3WT W2SPT H C W2SPT DIV 100 W1SPT H C Z-ADDW1SPT WDSN03 C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN03 C ENDIF 08.01C ADD W1SPT W1JKPT 重点課題 *評定項目04 C IX WHEQ 4 C Z-ADD1 IY C INK4HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON 07.12C*//////////SP2,IY MULT INK4WT W2SPT H : C*//////////W2SPT DIV 100 W1SPT H : C Z-ADDSPT,IY W1SPT 07.12C Z-ADDSPT,IY WDSN04 C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDSN04 C ENDIF *評定項目05 C IX WHEQ 5 C Z-ADD1 IY C INK5HT LOKUPHT1,IY 90ﾗﾝｸ参照 C *IN90 IFEQ *ON 07.12C*//////////SP2,IY MULT INK5WT W2SPT H : C*//////////W2SPT DIV 100 W1SPT H : C*////////// Z-ADDW1SPT WDK5HT : C Z-ADDSPT,IY W1SPT 07.12C Z-ADDSPT,IY WDSN05 C ELSE C Z-ADD*ZERO W1SPT C Z-ADD*ZERO WDK5HT C ENDIF 07.12 *評定項目06 : C IX WHEQ 6 : C Z-ADD1 IY : C INK6HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDSPT,IY WDSN06 : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN06 07.12C ENDIF 07.12 *評定項目07 : C IX WHEQ 7 : C Z-ADD1 IY : C INK7HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDSPT,IY WDSN07 : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN08 07.12C ENDIF 07.12 *評定項目08 : C IX WHEQ 8 : C Z-ADD1 IY : C INK8HT LOKUPHT1,IY 90ﾗﾝｸ参照 : C *IN90 IFEQ *ON : C Z-ADDSPT,IY W1SPT : C Z-ADDSPT,IY WDSN08 : C ELSE : C Z-ADD*ZERO W1SPT : C Z-ADD*ZERO WDSN08 07.12C ENDIF C ENDSL *＜加算額集計＞ 08.01C IX IFGE 4 C ADD W1SPT W1KASN 成果 08.01C ENDIF * C ENDDO *評定項目別素点ファイル更新 C *IN98 IFEQ *ON C Z-ADDPRHTYY WDHTYY C Z-ADDPRKKKB WDKKKB C Z-ADDINCKKB WDCKKB C Z-ADDINBUCD WDBUCD C Z-ADDINSYCD WDSYCD C Z-ADDINYKCD WDYKCD C Z-ADDINSOCD WDSOCD C Z-ADDINSSCD WDSSCD C Z-ADDINWAT1 WDWAT1 C Z-ADDINWAT2 WDWAT2 C MOVELINC5R1 WDC5R1 C MOVELINC5R2 WDC5R2 C MOVELINC5KK WDC5KK C MOVELINK1N1 WDK1NI C Z-ADDINK1WT WDK1WT C MOVELINK2N1 WDK2NI C Z-ADDINK2WT WDK2WT C MOVELINK3N1 WDK3NI C Z-ADDINK3WT WDK3WT C MOVELINK4N1 WDK4NI C Z-ADDINK4WT WDK4WT C MOVELINK5N1 WDK5NI C Z-ADDINK5WT WDK5WT 07.12C MOVELINK6N1 WDK6NI : C Z-ADDINK6WT WDK6WT : C MOVELINK7N1 WDK7NI : C Z-ADDINK7WT WDK7WT : C MOVELINK8N1 WDK8NI 07.12C Z-ADDINK8WT WDK8WT C WRITEWSU004D C ELSE C UPDATWSU004D C ENDIF * C ENDSR ****************************************************** * 年俸額算出 * ****************************************************** C \NENPO BEGSR *＜加算額算出＞ * 重点課題以外 C MULT WKMULT W1KASN * C INCKKB IFEQ 0 *＜間接　重点課題加算額取得＞ *重点課題分をパラメータより取得 C Z-ADDINSSCD P1SSCD C Z-ADDINCKKB P1CKKB C K\P1 CHAINJIKPR1P 90 C 90 CLEARJIKPR1 C W1JKPT IFGE 1 C W1JKPT ANDLE99 C W1JKPT ADD 0.9 IZ C ADD KS2,IZ W1KASN C ENDIF C ELSE *＜直接　組織評価加算額取得＞ C Z-ADDINSSCD PZSSCD C Z-ADDINCKKB PZCKKB C K\PZ CHAINJIKPRZP 90 C 90 CLEARJIKPRZ C INC5P1 IFGE 1 07.12C*//////////INC5P1 ANDLE99 07.12C INC5P1 ANDLE150 C Z-ADDINC5P1 IZ C ADD KS1,IZ W1KASN C ENDIF C ENDIF *＜年俸額＝最下限＋加算額＋調整額＋総合評価額＞ * 最下限＋加算額 C W1SKAG ADD W1KASN W1NNPO * ＋調整額 C INNPCK IFNE *ZERO C ADD INNPCK W1NNPO C ELSE C ADD INNPCJ W1NNPO C ENDIF * ＋総合評価額 C ADD W1SGHK W1NNPO * C ENDSR ****************************************************** * ランク算出 * ****************************************************** C \RANK BEGSR * C MOVEL*BLANK W1RANK C Z-ADD1 IX C 1 DO 10 IX * C W1NNPO IFGE KGN,IX 下限 C W1NNPO ANDLEJGN,IX 上限 C MOVELRNK,IX W1RANK C LEAVE C ENDIF * C ENDDO * C ENDSR ****************************************************** * 要素項目点数マスタ参照 * ****************************************************** C \YSPP BEGSR * C Z-ADDPRKKKB IPKKKB C Z-ADDINSOCD IPSOCD C Z-ADDINCKKB IPCKKB C Z-ADDINSSCD IPSSCD C Z-ADDIX IPSEQN C Z-ADDW1KTYM IPKTYM C K\IP SETGTJIKYSP C K\IPB REDPEJIKYSP 90 C 90 CLEARJIKYSP * C ENDSR ****************************************************** * 評定入力ファイル更新 * ****************************************************** C \UPDIN BEGSR * C Z-ADDW1SKAG INNPSK 最下限額 C Z-ADDW1KASN INNPKG 加算額 C Z-ADDW1SGHK INSGHK 総合評価 C MOVELW1RANK INKTRK 決定ﾗﾝｸ５段階 C MOVELW1RANK INKTR7 決定ﾗﾝｸ７段階 C Z-ADDW1POCD INNKCD 給与／年俸種類 C Z-ADDW1NNPO INNGKY 年俸額 C Z-ADDW1POCD INNTCD 退職／年俸種類 *前年年俸額 C Z-ADDINSYCD IWSYCD C INHTYY SUB 1 IWHTYY C Z-ADDINKKKB IWKKKB C K\IW CHAINJIKNYW 90 C 90 CLEARJIKNYW C Z-ADDIWNGKY INNGRN * C UPDATJIKNYU * C Z-ADD*ZERO W1SKAG C Z-ADD*ZERO W1KASN C Z-ADD*ZERO W1SGHK * C ENDSR ****************************************************** * 要素項目点数マスタ（間接用） * ****************************************************** C \YSP2 BEGSR * C Z-ADDPRKKKB IPKKKB C Z-ADDINSOCD IPSOCD C Z-ADDINCKKB IPCKKB C Z-ADDINSSCD IPSSCD C MOVELW1SNID IPSNID C Z-ADDW1KTYM IPKTYM C K\IP2 SETGTJIKYP2 C K\IP2B REDPEJIKYP2 90 C 90 CLEARJIKYP2 * C ENDSR ******************************************************

%%{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; %%データ項目 215(["【ｻﾌﾞﾙｰﾁﾝ開始】 728：¥KSNS1"]) 216["【Z-ADD】 730：WDHTYY = PRHTYY"] 217["【Z-ADD】 731：WDKKKB = PRKKKB"] 218["【Z-ADD】 732：WDCKKB = INCKKB"] 221[/"CRUD＜READ＞【CHAIN】 735：WSU004DP|98|"/]:::clrPatternR 222{"736_1:条件文"}:::clrPattern1 224["【CLEAR】 736_2：CLEAR"] 225(["736_3：ENDIF"]) 226[/"【繰返文開始】 Do 文 739： if 1 < 8"\]:::clrPattern2 227["【Z-ADD】 740：W1SPT = 0"] 228["【Z-ADD】 742：W1SEQ = IX"] 229[["【ｻﾌﾞﾙｰﾁﾝ呼出】 743：¥YSPP"]]:::clrPattern3 230["【SETOF】 745：SETOF|90|"] 231["【SELEC開始】 746：SELEC"]:::clrPattern2 232["【WH文】748： if IX = 1"]:::clrPattern1 233["【Z-ADD】 749：IY = 1"] 234["【LOKUP】 750：LOKUP||"] 235{"751:条件文"}:::clrPattern1 237["【MULT】 752：W2SPT = SPT,IY * INWAT1"] 238["【DIV】 754：W1SPT = W2SPT ÷ 100"] 239["【Z-ADD】 755：WDSN01 = W1SPT"] 240["757：ELSE"] 241["【Z-ADD】 758：W1SPT = 0"] 242["【Z-ADD】 759：WDSN01 = 0"] 243(["760：ENDIF"]) 244(["WH終了"]) 245["【WH文】762： if IX = 2"]:::clrPattern1 246["【Z-ADD】 763：IY = 1"] 247["【LOKUP】 764：LOKUP||"] 248{"765:条件文"}:::clrPattern1 250["【MULT】 766：W2SPT = SPT,IY * INWAT2"] 251["【DIV】 768：W1SPT = W2SPT ÷ 100"] 252["【Z-ADD】 769：WDSN02 = W1SPT"] 253["771：ELSE"] 254["【Z-ADD】 772：W1SPT = 0"] 255["【Z-ADD】 773：WDSN02 = 0"] 256(["774：ENDIF"]) 257(["WH終了"]) 258["【WH文】776： if IX = 3"]:::clrPattern1 259["【Z-ADD】 777：IY = 1"] 260["【LOKUP】 778：LOKUP||"] 261{"779:条件文"}:::clrPattern1 263["【Z-ADD】 780：W1SPT = SPT,IY"] 264["【Z-ADD】 781：WDSN03 = W1SPT"] 265["783：ELSE"] 266["【Z-ADD】 784：W1SPT = 0"] 267["【Z-ADD】 785：WDSN03 = 0"] 268(["786：ENDIF"]) 269(["WH終了"]) 270["【WH文】788： if IX = 4"]:::clrPattern1 271["【Z-ADD】 789：IY = 1"] 272["【LOKUP】 790：LOKUP||"] 273{"791:条件文"}:::clrPattern1 275["【Z-ADD】 792：W1SPT = SPT,IY"] 276["【Z-ADD】 793：WDSN04 = W1SPT"] 277["795：ELSE"] 278["【Z-ADD】 796：W1SPT = 0"] 279["【Z-ADD】 797：WDSN04 = 0"] 280(["798：ENDIF"]) 281(["WH終了"]) 282["【WH文】800： if IX = 5"]:::clrPattern1 283["【Z-ADD】 801：WDSN05 = INC5P1"] 284(["WH終了"]) 285["【WH文】803： if IX = 6"]:::clrPattern1 286["【Z-ADD】 804：IY = 1"] 287["【LOKUP】 805：LOKUP||"] 288{"806:条件文"}:::clrPattern1 290["【Z-ADD】 807：W1SPT = SPT,IY"] 291["【Z-ADD】 808：WDSN06 = W1SPT"] 292["810：ELSE"] 293["【Z-ADD】 811：W1SPT = 0"] 294["【Z-ADD】 812：WDSN06 = 0"] 295(["813：ENDIF"]) 296(["WH終了"]) 297["【WH文】815： if IX = 7"]:::clrPattern1 298["【Z-ADD】 816：IY = 1"] 299["【LOKUP】 817：LOKUP||"] 300{"818:条件文"}:::clrPattern1 302["【Z-ADD】 819：W1SPT = SPT,IY"] 303["【Z-ADD】 820：WDSN07 = W1SPT"] 304["822：ELSE"] 305["【Z-ADD】 823：W1SPT = 0"] 306["【Z-ADD】 824：WDSN07 = 0"] 307(["825：ENDIF"]) 308(["WH終了"]) 309["【WH文】827： if IX = 8"]:::clrPattern1 310["【Z-ADD】 828：IY = 1"] 311["【LOKUP】 829：LOKUP||"] 312{"830:条件文"}:::clrPattern1 314["【Z-ADD】 831：W1SPT = SPT,IY"] 315["【Z-ADD】 832：WDSN08 = W1SPT"] 316["834：ELSE"] 317["【Z-ADD】 835：W1SPT = 0"] 318["【Z-ADD】 836：WDSN08 = 0"] 319(["837：ENDIF"]) 320(["WH終了"]) 321["【SELECT終了】 838：ENDSL"]:::clrPattern2 322["【ADD】 840：W1KASN = W1KASN + W1SPT"] 323[\"【繰返文終了】 842：ENDDO"/]:::clrPattern2 324{"844:条件文"}:::clrPattern1 326["【Z-ADD】 845：WDHTYY = PRHTYY"] 327["【Z-ADD】 846：WDKKKB = PRKKKB"] 328["【Z-ADD】 847：WDCKKB = INCKKB"] 357[/"CRUD＜CREATE＞【WRITE】 876：WSU004D||"/]:::clrPatternC 358["877：ELSE"] 359[/"CRUD＜UPDATE＞【UPDAT】 878：UPDAT"/]:::clrPatternU 360(["879：ENDIF"]) 361(["【ｻﾌﾞﾙｰﾁﾝ終了】 881：ENDSR"]) %%ルート設定 215-->216 216-->217 217-->218 218--中略-->221 221-->222 222-->|条件文　真　|224 222-->|条件文　偽　|225 224-->225 225-->226 226-->|ループ開始|227 227-->228 228-->229 229-->230 230-->231 231-->|WH文へ|232 231-->|WH文へ|245 231-->|WH文へ|258 231-->|WH文へ|270 231-->|WH文へ|282 231-->|WH文へ|285 231-->|WH文へ|297 231-->|WH文へ|309 232-->233 233-->234 234-->235 235-->|条件文　真　|237 235-->|条件文　偽　|240 237-->238 238-->239 239-->243 240-->241 241-->242 242-->243 243-->244 244-->321 245-->246 246-->247 247-->248 248-->|条件文　真　|250 248-->|条件文　偽　|253 250-->251 251-->252 252-->256 253-->254 254-->255 255-->256 256-->257 257-->321 258-->259 259-->260 260-->261 261-->|条件文　真　|263 261-->|条件文　偽　|265 263-->264 264-->268 265-->266 266-->267 267-->268 268-->269 269-->321 270-->271 271-->272 272-->273 273-->|条件文　真　|275 273-->|条件文　偽　|277 275-->276 276-->280 277-->278 278-->279 279-->280 280-->281 281-->321 282-->283 283-->284 284-->321 285-->286 286-->287 287-->288 288-->|条件文　真　|290 288-->|条件文　偽　|292 290-->291 291-->295 292-->293 293-->294 294-->295 295-->296 296-->321 297-->298 298-->299 299-->300 300-->|条件文　真　|302 300-->|条件文　偽　|304 302-->303 303-->307 304-->305 305-->306 306-->307 307-->308 308-->321 309-->310 310-->311 311-->312 312-->|条件文　真　|314 312-->|条件文　偽　|316 314-->315 315-->319 316-->317 317-->318 318-->319 319-->320 320-->321 321-->322 322-->323 323-->|ループ終了|324 323-->|ループ継続| 226 324-->|条件文　真　|326 324-->|条件文　偽　|358 326-->327 327-->328 328--中略-->357 357-->360 358-->359 359-->360 360-->361 style sg1 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["98真"] 222 end style sg2 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["if *IN90 = 1"] 235 end style sg3 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["if *IN90 = 1"] 248 end style sg4 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg4["if *IN90 = 1"] 261 end style sg5 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg5["if *IN90 = 1"] 273 end style sg6 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg6["if *IN90 = 1"] 288 end style sg7 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg7["if *IN90 = 1"] 300 end style sg8 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg8["if *IN90 = 1"] 312 end style sg9 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg9["if *IN98 = 1"] 324 end

%%{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; %%データ項目 362(["【ｻﾌﾞﾙｰﾁﾝ開始】 885：¥KSNK1"]) 363["【Z-ADD】 887：WDHTYY = PRHTYY"] 364["【Z-ADD】 888：WDKKKB = PRKKKB"] 365["【Z-ADD】 889：WDCKKB = INCKKB"] 368[/"CRUD＜READ＞【CHAIN】 892：WSU004DP|98|"/]:::clrPatternR 369{"893_1:条件文"}:::clrPattern1 371["【CLEAR】 893_2：CLEAR"] 372(["893_3：ENDIF"]) 373[/"【繰返文開始】 Do 文 896： if 1 < 8"\]:::clrPattern2 374["【Z-ADD】 897：W1KPT = 0"] 375["【Z-ADD】 899：W1SEQ = IX"] 376[["【ｻﾌﾞﾙｰﾁﾝ呼出】 900：¥YSPP"]]:::clrPattern3 377["【SETOF】 902：SETOF|90|"] 378["【SELEC開始】 903：SELEC"]:::clrPattern2 379["【WH文】905： if IX = 1"]:::clrPattern1 380["【Z-ADD】 906：IY = 1"] 381["【LOKUP】 907：LOKUP||"] 382{"908:条件文"}:::clrPattern1 384["【Z-ADD】 909：W1KPT = KPT,IY"] 385["【Z-ADD】 910：WDKN01 = W1KPT"] 386["912：ELSE"] 387["【Z-ADD】 913：W1KPT = 0"] 388["【Z-ADD】 914：WDKN01 = 0"] 389(["915：ENDIF"]) 390(["WH終了"]) 391["【WH文】917： if IX = 2"]:::clrPattern1 392["【Z-ADD】 918：IY = 1"] 393["【LOKUP】 919：LOKUP||"] 394{"920:条件文"}:::clrPattern1 396["【Z-ADD】 921：W1KPT = KPT,IY"] 397["【Z-ADD】 922：WDKN02 = W1KPT"] 398["924：ELSE"] 399["【Z-ADD】 925：W1KPT = 0"] 400["【Z-ADD】 926：WDKN02 = 0"] 401(["927：ENDIF"]) 402(["WH終了"]) 403["【WH文】929： if IX = 3"]:::clrPattern1 404["【Z-ADD】 930：IY = 1"] 405["【LOKUP】 931：LOKUP||"] 406{"932:条件文"}:::clrPattern1 408["【Z-ADD】 933：W1KPT = KPT,IY"] 409["【Z-ADD】 934：WDKN03 = W1KPT"] 410["936：ELSE"] 411["【Z-ADD】 937：W1KPT = 0"] 412["【Z-ADD】 938：WDKN03 = 0"] 413(["939：ENDIF"]) 414{"941:条件文"}:::clrPattern1 418["【Z-ADD】 943：W1SEQ = 4"] 419[["【ｻﾌﾞﾙｰﾁﾝ呼出】 944：¥YSPP"]]:::clrPattern3 420["【Z-ADD】 945：IY = 1"] 421["【LOKUP】 946：LOKUP||"] 422{"947:条件文"}:::clrPattern1 424["【ADD】 948：W1KPT = W1KPT + KPT,IY"] 425["【Z-ADD】 949：WDKN03 = W1KPT"] 426(["950：ENDIF"]) 427(["951：ENDIF"]) 428(["WH終了"]) 429["【WH文】953： if IX = 4"]:::clrPattern1 430["【Z-ADD】 954：IY = 1"] 431["【LOKUP】 955：LOKUP||"] 432{"956:条件文"}:::clrPattern1 434["【Z-ADD】 957：W1KPT = KPT,IY"] 435["【Z-ADD】 958：WDKN04 = W1KPT"] 436["960：ELSE"] 437["【Z-ADD】 961：W1KPT = 0"] 438["【Z-ADD】 962：WDKN04 = 0"] 439(["963：ENDIF"]) 440(["WH終了"]) 441["【WH文】965： if IX = 5"]:::clrPattern1 442["【Z-ADD】 966：IY = 1"] 443["【LOKUP】 967：LOKUP||"] 444{"968:条件文"}:::clrPattern1 446["【Z-ADD】 969：W1KPT = KPT,IY"] 447["【Z-ADD】 970：WDKN05 = W1KPT"] 448["972：ELSE"] 449["【Z-ADD】 973：W1KPT = 0"] 450["【Z-ADD】 974：WDKN05 = 0"] 451(["975：ENDIF"]) 452(["WH終了"]) 453["【WH文】977： if IX = 6"]:::clrPattern1 454["【Z-ADD】 978：IY = 1"] 455["【LOKUP】 979：LOKUP||"] 456{"980:条件文"}:::clrPattern1 458["【Z-ADD】 981：W1KPT = KPT,IY"] 459["【Z-ADD】 982：WDKN06 = W1KPT"] 460["984：ELSE"] 461["【Z-ADD】 985：W1KPT = 0"] 462["【Z-ADD】 986：WDKN06 = 0"] 463(["987：ENDIF"]) 464(["WH終了"]) 465["【WH文】990： if IX = 7"]:::clrPattern1 466["【Z-ADD】 991：IY = 1"] 467["【LOKUP】 992：LOKUP||"] 468{"993:条件文"}:::clrPattern1 470["【MULT】 994：W1SGHK = KPT,IY * WKMULT"] 471["【Z-ADD】 995：WDKN07 = KPT,IY"] 472["997：ELSE"] 473["【Z-ADD】 998：W1KPT = 0"] 474["【Z-ADD】 999：WDKN07 = 0"] 475(["1000：ENDIF"]) 476(["WH終了"]) 477["【WH文】1002： if IX = 8"]:::clrPattern1 478["【Z-ADD】 1003：IY = 1"] 479["【LOKUP】 1004：LOKUP||"] 480{"1005:条件文"}:::clrPattern1 482["【Z-ADD】 1006：W1KPT = KPT,IY"] 483["【Z-ADD】 1007：WDKN08 = W1KPT"] 484["1009：ELSE"] 485["【Z-ADD】 1010：W1KPT = 0"] 486["【Z-ADD】 1011：WDKN08 = 0"] 487(["1012：ENDIF"]) 488(["WH終了"]) 489["【SELECT終了】 1013：ENDSL"]:::clrPattern2 490["【ADD】 1015：W1KASN = W1KASN + W1KPT"] 491[\"【繰返文終了】 1017：ENDDO"/]:::clrPattern2 492{"1019:条件文"}:::clrPattern1 494["【Z-ADD】 1020：WDHTYY = PRHTYY"] 495["【Z-ADD】 1021：WDKKKB = PRKKKB"] 496["【Z-ADD】 1022：WDCKKB = INCKKB"] 523[/"CRUD＜CREATE＞【WRITE】 1049：WSU004D||"/]:::clrPatternC 524["1050：ELSE"] 525[/"CRUD＜UPDATE＞【UPDAT】 1051：UPDAT"/]:::clrPatternU 526(["1052：ENDIF"]) 527(["【ｻﾌﾞﾙｰﾁﾝ終了】 1054：ENDSR"]) %%ルート設定 362-->363 363-->364 364-->365 365--中略-->368 368-->369 369-->|条件文　真　|371 369-->|条件文　偽　|372 371-->372 372-->373 373-->|ループ開始|374 374-->375 375-->376 376-->377 377-->378 378-->|WH文へ|379 378-->|WH文へ|391 378-->|WH文へ|403 378-->|WH文へ|429 378-->|WH文へ|441 378-->|WH文へ|453 378-->|WH文へ|465 378-->|WH文へ|477 379-->380 380-->381 381-->382 382-->|条件文　真　|384 382-->|条件文　偽　|386 384-->385 385-->389 386-->387 387-->388 388-->389 389-->390 390-->489 391-->392 392-->393 393-->394 394-->|条件文　真　|396 394-->|条件文　偽　|398 396-->397 397-->401 398-->399 399-->400 400-->401 401-->402 402-->489 403-->404 404-->405 405-->406 406-->|条件文　真　|408 406-->|条件文　偽　|410 408-->409 409-->413 410-->411 411-->412 412-->413 413-->414 414-->|条件文　真　|418 414-->|条件文　偽　|427 418-->419 419-->420 420-->421 421-->422 422-->|条件文　真　|424 422-->|条件文　偽　|426 424-->425 425-->426 426-->427 427-->428 428-->489 429-->430 430-->431 431-->432 432-->|条件文　真　|434 432-->|条件文　偽　|436 434-->435 435-->439 436-->437 437-->438 438-->439 439-->440 440-->489 441-->442 442-->443 443-->444 444-->|条件文　真　|446 444-->|条件文　偽　|448 446-->447 447-->451 448-->449 449-->450 450-->451 451-->452 452-->489 453-->454 454-->455 455-->456 456-->|条件文　真　|458 456-->|条件文　偽　|460 458-->459 459-->463 460-->461 461-->462 462-->463 463-->464 464-->489 465-->466 466-->467 467-->468 468-->|条件文　真　|470 468-->|条件文　偽　|472 470-->471 471-->475 472-->473 473-->474 474-->475 475-->476 476-->489 477-->478 478-->479 479-->480 480-->|条件文　真　|482 480-->|条件文　偽　|484 482-->483 483-->487 484-->485 485-->486 486-->487 487-->488 488-->489 489-->490 490-->491 491-->|ループ終了|492 491-->|ループ継続| 373 492-->|条件文　真　|494 492-->|条件文　偽　|524 494-->495 495-->496 496--中略-->523 523-->526 524-->525 525-->526 526-->527 style sg1 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["98真"] 369 end style sg2 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["if *IN90 = 1"] 382 end style sg3 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["if *IN90 = 1"] 394 end style sg4 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg4["if *IN90 = 1"] 406 end style sg5 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg5["if KPT,4 != *ZERO& if INKD04 = *BLANK"] 414 end style sg6 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg6["if *IN90 = 1"] 422 end style sg7 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg7["if *IN90 = 1"] 432 end style sg8 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg8["if *IN90 = 1"] 444 end style sg9 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg9["if *IN90 = 1"] 456 end style sg10 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg10["if *IN90 = 1"] 468 end style sg11 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg11["if *IN90 = 1"] 480 end style sg12 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg12["if *IN98 = 1"] 492 end

%%{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; %%データ項目 528(["【ｻﾌﾞﾙｰﾁﾝ開始】 1058：¥KSNS2"]) 529["【Z-ADD】 1061：WDHTYY = PRHTYY"] 530["【Z-ADD】 1062：WDKKKB = PRKKKB"] 531["【Z-ADD】 1063：WDCKKB = INCKKB"] 534[/"CRUD＜READ＞【CHAIN】 1066：WSU004DP|98|"/]:::clrPatternR 535{"1067_1:条件文"}:::clrPattern1 537["【CLEAR】 1067_2：CLEAR"] 538(["1067_3：ENDIF"]) 539["【Z-ADD】 1069：W1JKPT = 0"] 540[/"【繰返文開始】 Do 文 1071： if 1 < 8"\]:::clrPattern2 541["【Z-ADD】 1072：W1SPT = 0"] 542["【Z-ADD】 1074：W1SEQ = IX"] 543[["【ｻﾌﾞﾙｰﾁﾝ呼出】 1077：¥YSPP"]]:::clrPattern3 544["【SETOF】 1084：SETOF|90|"] 545["【SELEC開始】 1085：SELEC"]:::clrPattern2 546["【WH文】1087： if IX = 1"]:::clrPattern1 547["【Z-ADD】 1088：IY = 1"] 548["【LOKUP】 1089：LOKUP||"] 549{"1090:条件文"}:::clrPattern1 551["【MULT】 1092：W2SPT = SPT,IY * INK1WT"] 552["【DIV】 1093：W1SPT = W2SPT ÷ 100"] 553["【Z-ADD】 1094：WDSN01 = W1SPT"] 554["1095：ELSE"] 555["【Z-ADD】 1096：W1SPT = 0"] 556["【Z-ADD】 1097：WDSN01 = 0"] 557(["1098：ENDIF"]) 558["【ADD】 1099：W1JKPT = W1JKPT + W1SPT"] 559(["WH終了"]) 560["【WH文】1101： if IX = 2"]:::clrPattern1 561["【Z-ADD】 1102：IY = 1"] 562["【LOKUP】 1103：LOKUP||"] 563{"1104:条件文"}:::clrPattern1 565["【MULT】 1106：W2SPT = SPT,IY * INK2WT"] 566["【DIV】 1107：W1SPT = W2SPT ÷ 100"] 567["【Z-ADD】 1108：WDSN02 = W1SPT"] 568["1109：ELSE"] 569["【Z-ADD】 1110：W1SPT = 0"] 570["【Z-ADD】 1111：WDSN02 = 0"] 571(["1112：ENDIF"]) 572["【ADD】 1113：W1JKPT = W1JKPT + W1SPT"] 573(["WH終了"]) 574["【WH文】1115： if IX = 3"]:::clrPattern1 575["【Z-ADD】 1116：IY = 1"] 576["【LOKUP】 1117：LOKUP||"] 577{"1118:条件文"}:::clrPattern1 579["【MULT】 1120：W2SPT = SPT,IY * INK3WT"] 580["【DIV】 1121：W1SPT = W2SPT ÷ 100"] 581["【Z-ADD】 1122：WDSN03 = W1SPT"] 582["1123：ELSE"] 583["【Z-ADD】 1124：W1SPT = 0"] 584["【Z-ADD】 1125：WDSN03 = 0"] 585(["1126：ENDIF"]) 586["【ADD】 1127：W1JKPT = W1JKPT + W1SPT"] 587(["WH終了"]) 588["【WH文】1129： if IX = 4"]:::clrPattern1 589["【Z-ADD】 1130：IY = 1"] 590["【LOKUP】 1131：LOKUP||"] 591{"1132:条件文"}:::clrPattern1 593["【Z-ADD】 1135：W1SPT = SPT,IY"] 594["【Z-ADD】 1136：WDSN04 = SPT,IY"] 595["1137：ELSE"] 596["【Z-ADD】 1138：W1SPT = 0"] 597["【Z-ADD】 1139：WDSN04 = 0"] 598(["1140：ENDIF"]) 599(["WH終了"]) 600["【WH文】1142： if IX = 5"]:::clrPattern1 601["【Z-ADD】 1143：IY = 1"] 602["【LOKUP】 1144：LOKUP||"] 603{"1145:条件文"}:::clrPattern1 605["【Z-ADD】 1149：W1SPT = SPT,IY"] 606["【Z-ADD】 1150：WDSN05 = SPT,IY"] 607["1151：ELSE"] 608["【Z-ADD】 1152：W1SPT = 0"] 609["【Z-ADD】 1153：WDK5HT = 0"] 610(["1154：ENDIF"]) 611(["WH終了"]) 612["【WH文】1156： if IX = 6"]:::clrPattern1 613["【Z-ADD】 1157：IY = 1"] 614["【LOKUP】 1158：LOKUP||"] 615{"1159:条件文"}:::clrPattern1 617["【Z-ADD】 1160：W1SPT = SPT,IY"] 618["【Z-ADD】 1161：WDSN06 = SPT,IY"] 619["1162：ELSE"] 620["【Z-ADD】 1163：W1SPT = 0"] 621["【Z-ADD】 1164：WDSN06 = 0"] 622(["1165：ENDIF"]) 623(["WH終了"]) 624["【WH文】1167： if IX = 7"]:::clrPattern1 625["【Z-ADD】 1168：IY = 1"] 626["【LOKUP】 1169：LOKUP||"] 627{"1170:条件文"}:::clrPattern1 629["【Z-ADD】 1171：W1SPT = SPT,IY"] 630["【Z-ADD】 1172：WDSN07 = SPT,IY"] 631["1173：ELSE"] 632["【Z-ADD】 1174：W1SPT = 0"] 633["【Z-ADD】 1175：WDSN08 = 0"] 634(["1176：ENDIF"]) 635(["WH終了"]) 636["【WH文】1178： if IX = 8"]:::clrPattern1 637["【Z-ADD】 1179：IY = 1"] 638["【LOKUP】 1180：LOKUP||"] 639{"1181:条件文"}:::clrPattern1 641["【Z-ADD】 1182：W1SPT = SPT,IY"] 642["【Z-ADD】 1183：WDSN08 = SPT,IY"] 643["1184：ELSE"] 644["【Z-ADD】 1185：W1SPT = 0"] 645["【Z-ADD】 1186：WDSN08 = 0"] 646(["1187：ENDIF"]) 647(["WH終了"]) 648["【SELECT終了】 1188：ENDSL"]:::clrPattern2 649{"1190:条件文"}:::clrPattern1 651["【ADD】 1191：W1KASN = W1KASN + W1SPT"] 652(["1192：ENDIF"]) 653[\"【繰返文終了】 1194：ENDDO"/]:::clrPattern2 654{"1196:条件文"}:::clrPattern1 656["【Z-ADD】 1197：WDHTYY = PRHTYY"] 657["【Z-ADD】 1198：WDKKKB = PRKKKB"] 658["【Z-ADD】 1199：WDCKKB = INCKKB"] 685[/"CRUD＜CREATE＞【WRITE】 1226：WSU004D||"/]:::clrPatternC 686["1227：ELSE"] 687[/"CRUD＜UPDATE＞【UPDAT】 1228：UPDAT"/]:::clrPatternU 688(["1229：ENDIF"]) 689(["【ｻﾌﾞﾙｰﾁﾝ終了】 1231：ENDSR"]) %%ルート設定 528-->529 529-->530 530-->531 531--中略-->534 534-->535 535-->|条件文　真　|537 535-->|条件文　偽　|538 537-->538 538-->539 539-->540 540-->|ループ開始|541 541-->542 542-->543 543-->544 544-->545 545-->|WH文へ|546 545-->|WH文へ|560 545-->|WH文へ|574 545-->|WH文へ|588 545-->|WH文へ|600 545-->|WH文へ|612 545-->|WH文へ|624 545-->|WH文へ|636 546-->547 547-->548 548-->549 549-->|条件文　真　|551 549-->|条件文　偽　|554 551-->552 552-->553 553-->557 554-->555 555-->556 556-->557 557-->558 558-->559 559-->648 560-->561 561-->562 562-->563 563-->|条件文　真　|565 563-->|条件文　偽　|568 565-->566 566-->567 567-->571 568-->569 569-->570 570-->571 571-->572 572-->573 573-->648 574-->575 575-->576 576-->577 577-->|条件文　真　|579 577-->|条件文　偽　|582 579-->580 580-->581 581-->585 582-->583 583-->584 584-->585 585-->586 586-->587 587-->648 588-->589 589-->590 590-->591 591-->|条件文　真　|593 591-->|条件文　偽　|595 593-->594 594-->598 595-->596 596-->597 597-->598 598-->599 599-->648 600-->601 601-->602 602-->603 603-->|条件文　真　|605 603-->|条件文　偽　|607 605-->606 606-->610 607-->608 608-->609 609-->610 610-->611 611-->648 612-->613 613-->614 614-->615 615-->|条件文　真　|617 615-->|条件文　偽　|619 617-->618 618-->622 619-->620 620-->621 621-->622 622-->623 623-->648 624-->625 625-->626 626-->627 627-->|条件文　真　|629 627-->|条件文　偽　|631 629-->630 630-->634 631-->632 632-->633 633-->634 634-->635 635-->648 636-->637 637-->638 638-->639 639-->|条件文　真　|641 639-->|条件文　偽　|643 641-->642 642-->646 643-->644 644-->645 645-->646 646-->647 647-->648 648-->649 649-->|条件文　真　|651 649-->|条件文　偽　|652 651-->652 652-->653 653-->|ループ終了|654 653-->|ループ継続| 540 654-->|条件文　真　|656 654-->|条件文　偽　|686 656-->657 657-->658 658--中略-->685 685-->688 686-->687 687-->688 688-->689 style sg1 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["98真"] 535 end style sg2 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["if *IN90 = 1"] 549 end style sg3 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["if *IN90 = 1"] 563 end style sg4 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg4["if *IN90 = 1"] 577 end style sg5 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg5["if *IN90 = 1"] 591 end style sg6 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg6["if *IN90 = 1"] 603 end style sg7 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg7["if *IN90 = 1"] 615 end style sg8 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg8["if *IN90 = 1"] 627 end style sg9 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg9["if *IN90 = 1"] 639 end style sg10 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg10["if IX >= 4"] 649 end style sg11 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg11["if *IN98 = 1"] 654 end

出力サンプル　－SU00415―

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

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

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

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

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

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

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

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

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

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

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

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

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

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

出力サンプル －SU00415―

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

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

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

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

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

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

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

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

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

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

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

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

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

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