JP_SU00415.txt.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:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,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["730行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 217["731行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 218["732行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 219["733行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 220["734行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 221[/"735行目:【CHAIN】 WSU004DPファイルでK¥WDをキーとしてCHAIN操作する読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR 222{"736_1行目:【98】標識[98]はオンか"}:::clrPattern4 224["736_2行目:【CLEAR】 WSU004Dデータ構造を初期化する"] 225(["736_3行目: 条件文を終了する"]) 226[/"739行目:【DO】開始値 1から限界値 8 の条件でループをする"\]:::clrPattern2 227["740行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 228["742行目:【Z-ADD】 IXをW1SEQにゼロ加算する"] 229[["743行目:【EXSR】 ¥YSPPサブルーチンを実行する"]]:::clrPattern3 230["745行目:【SETOF】標識[90]をオフにセットする"] 231["746行目: 選択処理を開始する"]:::clrPattern2 232["748行目:【WHEQ】 IXが1と等しいか"]:::clrPattern1 233["749行目:【Z-ADD】 1をIYにゼロ加算する"] 234["750行目:【LOKUP】 HT1,IYでINC1HTを検索する"] 235{"751行目:【IFEQ】標識90が*オンか"}:::clrPattern1 237["752行目:【MULT】 SPT,IYとINWAT1を乗算、積をW2SPTに代入する"] 238["754行目:【DIV】 W2SPTを100で除算、商をW1SPTに代入する"] 239["755行目:【Z-ADD】 W1SPTをWDSN01にゼロ加算する"] 240(["757行目: ELSE"]) 241["758行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 242["759行目:【Z-ADD】 *ZEROをWDSN01にゼロ加算する"] 243(["760行目: 条件文を終了する"]) 244(["WH文の終了"]) 245["762行目:【WHEQ】 IXが2と等しいか"]:::clrPattern1 246["763行目:【Z-ADD】 1をIYにゼロ加算する"] 247["764行目:【LOKUP】 HT1,IYでINC2HTを検索する"] 248{"765行目:【IFEQ】標識90が*オンか"}:::clrPattern1 250["766行目:【MULT】 SPT,IYとINWAT2を乗算、積をW2SPTに代入する"] 251["768行目:【DIV】 W2SPTを100で除算、商をW1SPTに代入する"] 252["769行目:【Z-ADD】 W1SPTをWDSN02にゼロ加算する"] 253(["771行目: ELSE"]) 254["772行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 255["773行目:【Z-ADD】 *ZEROをWDSN02にゼロ加算する"] 256(["774行目: 条件文を終了する"]) 257(["WH文の終了"]) 258["776行目:【WHEQ】 IXが3と等しいか"]:::clrPattern1 259["777行目:【Z-ADD】 1をIYにゼロ加算する"] 260["778行目:【LOKUP】 HT1,IYでINC3HTを検索する"] 261{"779行目:【IFEQ】標識90が*オンか"}:::clrPattern1 263["780行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 264["781行目:【Z-ADD】 W1SPTをWDSN03にゼロ加算する"] 265(["783行目: ELSE"]) 266["784行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 267["785行目:【Z-ADD】 *ZEROをWDSN03にゼロ加算する"] 268(["786行目: 条件文を終了する"]) 269(["WH文の終了"]) 270["788行目:【WHEQ】 IXが4と等しいか"]:::clrPattern1 271["789行目:【Z-ADD】 1をIYにゼロ加算する"] 272["790行目:【LOKUP】 HT1,IYでINC4HTを検索する"] 273{"791行目:【IFEQ】標識90が*オンか"}:::clrPattern1 275["792行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 276["793行目:【Z-ADD】 W1SPTをWDSN04にゼロ加算する"] 277(["795行目: ELSE"]) 278["796行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 279["797行目:【Z-ADD】 *ZEROをWDSN04にゼロ加算する"] 280(["798行目: 条件文を終了する"]) 281(["WH文の終了"]) 282["800行目:【WHEQ】 IXが5と等しいか"]:::clrPattern1 283["801行目:【Z-ADD】 INC5P1をWDSN05にゼロ加算する"] 284(["WH文の終了"]) 285["803行目:【WHEQ】 IXが6と等しいか"]:::clrPattern1 286["804行目:【Z-ADD】 1をIYにゼロ加算する"] 287["805行目:【LOKUP】 HT1,IYでINC6HTを検索する"] 288{"806行目:【IFEQ】標識90が*オンか"}:::clrPattern1 290["807行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 291["808行目:【Z-ADD】 W1SPTをWDSN06にゼロ加算する"] 292(["810行目: ELSE"]) 293["811行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 294["812行目:【Z-ADD】 *ZEROをWDSN06にゼロ加算する"] 295(["813行目: 条件文を終了する"]) 296(["WH文の終了"]) 297["815行目:【WHEQ】 IXが7と等しいか"]:::clrPattern1 298["816行目:【Z-ADD】 1をIYにゼロ加算する"] 299["817行目:【LOKUP】 HT1,IYでINC7HTを検索する"] 300{"818行目:【IFEQ】標識90が*オンか"}:::clrPattern1 302["819行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 303["820行目:【Z-ADD】 W1SPTをWDSN07にゼロ加算する"] 304(["822行目: ELSE"]) 305["823行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 306["824行目:【Z-ADD】 *ZEROをWDSN07にゼロ加算する"] 307(["825行目: 条件文を終了する"]) 308(["WH文の終了"]) 309["827行目:【WHEQ】 IXが8と等しいか"]:::clrPattern1 310["828行目:【Z-ADD】 1をIYにゼロ加算する"] 311["829行目:【LOKUP】 HT1,IYでINC8HTを検索する"] 312{"830行目:【IFEQ】標識90が*オンか"}:::clrPattern1 314["831行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 315["832行目:【Z-ADD】 W1SPTをWDSN08にゼロ加算する"] 316(["834行目: ELSE"]) 317["835行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 318["836行目:【Z-ADD】 *ZEROをWDSN08にゼロ加算する"] 319(["837行目: 条件文を終了する"]) 320(["WH文の終了"]) 321["838行目: 選択処理を終了する"]:::clrPattern2 322["840行目:【ADD】 W1KASNにW1SPTを加算する"] 323[\"842行目: ループを終了する"/]:::clrPattern2 324{"844行目:【IFEQ】標識98が*オンか"}:::clrPattern1 326["845行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 327["846行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 328["847行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 329["848行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 330["849行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 331["850行目:【Z-ADD】 INYKCDをWDYKCDにゼロ加算する"] 332["851行目:【Z-ADD】 INSOCDをWDSOCDにゼロ加算する"] 333["852行目:【Z-ADD】 INSSCDをWDSSCDにゼロ加算する"] 334["853行目:【Z-ADD】 INWAT1をWDWAT1にゼロ加算する"] 335["854行目:【Z-ADD】 INWAT2をWDWAT2にゼロ加算する"] 336["855行目:【MOVEL】 INC5R1の値をWDC5R1に左詰めで移動する"] 337["856行目:【MOVEL】 INC5R2の値をWDC5R2に左詰めで移動する"] 338["857行目:【MOVEL】 INC5KKの値をWDC5KKに左詰めで移動する"] 339["858行目:【Z-ADD】 INC5P1をWDC5P1にゼロ加算する"] 340["859行目:【Z-ADD】 INC5P2をWDC5P2にゼロ加算する"] 341["860行目:【MOVEL】 INK1N1の値をWDK1NIに左詰めで移動する"] 342["861行目:【Z-ADD】 INK1WTをWDK1WTにゼロ加算する"] 343["862行目:【MOVEL】 INK2N1の値をWDK2NIに左詰めで移動する"] 344["863行目:【Z-ADD】 INK2WTをWDK2WTにゼロ加算する"] 345["864行目:【MOVEL】 INK3N1の値をWDK3NIに左詰めで移動する"] 346["865行目:【Z-ADD】 INK3WTをWDK3WTにゼロ加算する"] 347["866行目:【MOVEL】 INK4N1の値をWDK4NIに左詰めで移動する"] 348["867行目:【Z-ADD】 INK4WTをWDK4WTにゼロ加算する"] 349["868行目:【MOVEL】 INK5N1の値をWDK5NIに左詰めで移動する"] 350["869行目:【Z-ADD】 INK5WTをWDK5WTにゼロ加算する"] 351["870行目:【MOVEL】 INK6N1の値をWDK6NIに左詰めで移動する"] 352["871行目:【Z-ADD】 INK6WTをWDK6WTにゼロ加算する"] 353["872行目:【MOVEL】 INK7N1の値をWDK7NIに左詰めで移動する"] 354["873行目:【Z-ADD】 INK7WTをWDK7WTにゼロ加算する"] 355["874行目:【MOVEL】 INK8N1の値をWDK8NIに左詰めで移動する"] 356["875行目:【Z-ADD】 INK8WTをWDK8WTにゼロ加算する"] 357[/"876行目:【WRITE】 WSU004Dに新しいレコードを追加する"/]:::clrPatternC 358(["877行目: ELSE"]) 359[/"878行目:【UPDAT】 WSU004Dファイル更新する"/]:::clrPatternU 360(["879行目: 条件文を終了する"]) 361(["881行目: ¥KSNS1サブルーチンを終了する"]) %%ルート設定 215-->216 216-->217 217-->218 218-->219 219-->220 220-->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-->329 329-->330 330-->331 331-->332 332-->333 333-->334 334-->335 335-->336 336-->337 337-->338 338-->339 339-->340 340-->341 341-->342 342-->343 343-->344 344-->345 345-->346 346-->347 347-->348 348-->349 349-->350 350-->351 351-->352 352-->353 353-->354 354-->355 355-->356 356-->357 357-->360 358-->359 359-->360 360-->361 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S221 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD＜Read＞"] subgraph S221[" "] 221 end end style sg2 color:red,fill-opacity:0, stroke-opacity:0; style S357 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["CRUD＜Create＞"] subgraph S357[" "] 357 end end style sg3 color:red,fill-opacity:0, stroke-opacity:0; style S359 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["CRUD＜Update＞"] subgraph S359[" "] 359 end 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:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,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["887行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 364["888行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 365["889行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 366["890行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 367["891行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 368[/"892行目:【CHAIN】 WSU004DPファイルでK¥WDをキーとしてCHAIN操作する読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR 369{"893_1行目:【98】標識[98]はオンか"}:::clrPattern4 371["893_2行目:【CLEAR】 WSU004Dデータ構造を初期化する"] 372(["893_3行目: 条件文を終了する"]) 373[/"896行目:【DO】開始値 1から限界値 8 の条件でループをする"\]:::clrPattern2 374["897行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 375["899行目:【Z-ADD】 IXをW1SEQにゼロ加算する"] 376[["900行目:【EXSR】 ¥YSPPサブルーチンを実行する"]]:::clrPattern3 377["902行目:【SETOF】標識[90]をオフにセットする"] 378["903行目: 選択処理を開始する"]:::clrPattern2 379["905行目:【WHEQ】 IXが1と等しいか"]:::clrPattern1 380["906行目:【Z-ADD】 1をIYにゼロ加算する"] 381["907行目:【LOKUP】 HT1,IYでINKD01を検索する"] 382{"908行目:【IFEQ】標識90が*オンか"}:::clrPattern1 384["909行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 385["910行目:【Z-ADD】 W1KPTをWDKN01にゼロ加算する"] 386(["912行目: ELSE"]) 387["913行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 388["914行目:【Z-ADD】 *ZEROをWDKN01にゼロ加算する"] 389(["915行目: 条件文を終了する"]) 390(["WH文の終了"]) 391["917行目:【WHEQ】 IXが2と等しいか"]:::clrPattern1 392["918行目:【Z-ADD】 1をIYにゼロ加算する"] 393["919行目:【LOKUP】 HT1,IYでINKD02を検索する"] 394{"920行目:【IFEQ】標識90が*オンか"}:::clrPattern1 396["921行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 397["922行目:【Z-ADD】 W1KPTをWDKN02にゼロ加算する"] 398(["924行目: ELSE"]) 399["925行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 400["926行目:【Z-ADD】 *ZEROをWDKN02にゼロ加算する"] 401(["927行目: 条件文を終了する"]) 402(["WH文の終了"]) 403["929行目:【WHEQ】 IXが3と等しいか"]:::clrPattern1 404["930行目:【Z-ADD】 1をIYにゼロ加算する"] 405["931行目:【LOKUP】 HT1,IYでINKD03を検索する"] 406{"932行目:【IFEQ】標識90が*オンか"}:::clrPattern1 408["933行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 409["934行目:【Z-ADD】 W1KPTをWDKN03にゼロ加算する"] 410(["936行目: ELSE"]) 411["937行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 412["938行目:【Z-ADD】 *ZEROをWDKN03にゼロ加算する"] 413(["939行目: 条件文を終了する"]) 414{"941行目:【IFNE】 KPT,4が*ZEROと等しくないかおよびINKD04が*BLANKと等しいか"}:::clrPattern1 418["943行目:【Z-ADD】 4をW1SEQにゼロ加算する"] 419[["944行目:【EXSR】 ¥YSPPサブルーチンを実行する"]]:::clrPattern3 420["945行目:【Z-ADD】 1をIYにゼロ加算する"] 421["946行目:【LOKUP】 HT1,IYでINKD03を検索する結果を標識 [90] にセットする"] 422{"947行目:【IFEQ】標識90が*オンか"}:::clrPattern1 424["948行目:【ADD】 W1KPTにKPT,IYを加算する"] 425["949行目:【Z-ADD】 W1KPTをWDKN03にゼロ加算する"] 426(["950行目: 条件文を終了する"]) 427(["951行目: 条件文を終了する"]) 428(["WH文の終了"]) 429["953行目:【WHEQ】 IXが4と等しいか"]:::clrPattern1 430["954行目:【Z-ADD】 1をIYにゼロ加算する"] 431["955行目:【LOKUP】 HT1,IYでINKD04を検索する"] 432{"956行目:【IFEQ】標識90が*オンか"}:::clrPattern1 434["957行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 435["958行目:【Z-ADD】 W1KPTをWDKN04にゼロ加算する"] 436(["960行目: ELSE"]) 437["961行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 438["962行目:【Z-ADD】 *ZEROをWDKN04にゼロ加算する"] 439(["963行目: 条件文を終了する"]) 440(["WH文の終了"]) 441["965行目:【WHEQ】 IXが5と等しいか"]:::clrPattern1 442["966行目:【Z-ADD】 1をIYにゼロ加算する"] 443["967行目:【LOKUP】 HT1,IYでINKD05を検索する"] 444{"968行目:【IFEQ】標識90が*オンか"}:::clrPattern1 446["969行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 447["970行目:【Z-ADD】 W1KPTをWDKN05にゼロ加算する"] 448(["972行目: ELSE"]) 449["973行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 450["974行目:【Z-ADD】 *ZEROをWDKN05にゼロ加算する"] 451(["975行目: 条件文を終了する"]) 452(["WH文の終了"]) 453["977行目:【WHEQ】 IXが6と等しいか"]:::clrPattern1 454["978行目:【Z-ADD】 1をIYにゼロ加算する"] 455["979行目:【LOKUP】 HT1,IYでINKD06を検索する"] 456{"980行目:【IFEQ】標識90が*オンか"}:::clrPattern1 458["981行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 459["982行目:【Z-ADD】 W1KPTをWDKN06にゼロ加算する"] 460(["984行目: ELSE"]) 461["985行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 462["986行目:【Z-ADD】 *ZEROをWDKN06にゼロ加算する"] 463(["987行目: 条件文を終了する"]) 464(["WH文の終了"]) 465["990行目:【WHEQ】 IXが7と等しいか"]:::clrPattern1 466["991行目:【Z-ADD】 1をIYにゼロ加算する"] 467["992行目:【LOKUP】 HT1,IYでINKD07を検索する"] 468{"993行目:【IFEQ】標識90が*オンか"}:::clrPattern1 470["994行目:【MULT】 KPT,IYとWKMULTを乗算、積をW1SGHKに代入する"] 471["995行目:【Z-ADD】 KPT,IYをWDKN07にゼロ加算する"] 472(["997行目: ELSE"]) 473["998行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 474["999行目:【Z-ADD】 *ZEROをWDKN07にゼロ加算する"] 475(["1000行目: 条件文を終了する"]) 476(["WH文の終了"]) 477["1002行目:【WHEQ】 IXが8と等しいか"]:::clrPattern1 478["1003行目:【Z-ADD】 1をIYにゼロ加算する"] 479["1004行目:【LOKUP】 HT1,IYでINKD08を検索する"] 480{"1005行目:【IFEQ】標識90が*オンか"}:::clrPattern1 482["1006行目:【Z-ADD】 KPT,IYをW1KPTにゼロ加算する"] 483["1007行目:【Z-ADD】 W1KPTをWDKN08にゼロ加算する"] 484(["1009行目: ELSE"]) 485["1010行目:【Z-ADD】 *ZEROをW1KPTにゼロ加算する"] 486["1011行目:【Z-ADD】 *ZEROをWDKN08にゼロ加算する"] 487(["1012行目: 条件文を終了する"]) 488(["WH文の終了"]) 489["1013行目: 選択処理を終了する"]:::clrPattern2 490["1015行目:【ADD】 W1KASNにW1KPTを加算する"] 491[\"1017行目: ループを終了する"/]:::clrPattern2 492{"1019行目:【IFEQ】標識98が*オンか"}:::clrPattern1 494["1020行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 495["1021行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 496["1022行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 497["1023行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 498["1024行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 499["1025行目:【Z-ADD】 INYKCDをWDYKCDにゼロ加算する"] 500["1026行目:【Z-ADD】 INSOCDをWDSOCDにゼロ加算する"] 501["1027行目:【Z-ADD】 INSSCDをWDSSCDにゼロ加算する"] 502["1028行目:【Z-ADD】 INWAT1をWDWAT1にゼロ加算する"] 503["1029行目:【Z-ADD】 INWAT2をWDWAT2にゼロ加算する"] 504["1030行目:【MOVEL】 INC5R1の値をWDC5R1に左詰めで移動する"] 505["1031行目:【MOVEL】 INC5R2の値をWDC5R2に左詰めで移動する"] 506["1032行目:【MOVEL】 INC5KKの値をWDC5KKに左詰めで移動する"] 507["1033行目:【MOVEL】 INK1N1の値をWDK1NIに左詰めで移動する"] 508["1034行目:【Z-ADD】 INK1WTをWDK1WTにゼロ加算する"] 509["1035行目:【MOVEL】 INK2N1の値をWDK2NIに左詰めで移動する"] 510["1036行目:【Z-ADD】 INK2WTをWDK2WTにゼロ加算する"] 511["1037行目:【MOVEL】 INK3N1の値をWDK3NIに左詰めで移動する"] 512["1038行目:【Z-ADD】 INK3WTをWDK3WTにゼロ加算する"] 513["1039行目:【MOVEL】 INK4N1の値をWDK4NIに左詰めで移動する"] 514["1040行目:【Z-ADD】 INK4WTをWDK4WTにゼロ加算する"] 515["1041行目:【MOVEL】 INK5N1の値をWDK5NIに左詰めで移動する"] 516["1042行目:【Z-ADD】 INK5WTをWDK5WTにゼロ加算する"] 517["1043行目:【MOVEL】 INK6N1の値をWDK6NIに左詰めで移動する"] 518["1044行目:【Z-ADD】 INK6WTをWDK6WTにゼロ加算する"] 519["1045行目:【MOVEL】 INK7N1の値をWDK7NIに左詰めで移動する"] 520["1046行目:【Z-ADD】 INK7WTをWDK7WTにゼロ加算する"] 521["1047行目:【MOVEL】 INK8N1の値をWDK8NIに左詰めで移動する"] 522["1048行目:【Z-ADD】 INK8WTをWDK8WTにゼロ加算する"] 523[/"1049行目:【WRITE】 WSU004Dに新しいレコードを追加する"/]:::clrPatternC 524(["1050行目: ELSE"]) 525[/"1051行目:【UPDAT】 WSU004Dファイル更新する"/]:::clrPatternU 526(["1052行目: 条件文を終了する"]) 527(["1054行目: ¥KSNK1サブルーチンを終了する"]) %%ルート設定 362-->363 363-->364 364-->365 365-->366 366-->367 367-->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-->497 497-->498 498-->499 499-->500 500-->501 501-->502 502-->503 503-->504 504-->505 505-->506 506-->507 507-->508 508-->509 509-->510 510-->511 511-->512 512-->513 513-->514 514-->515 515-->516 516-->517 517-->518 518-->519 519-->520 520-->521 521-->522 522-->523 523-->526 524-->525 525-->526 526-->527 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S368 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD＜Read＞"] subgraph S368[" "] 368 end end style sg2 color:red,fill-opacity:0, stroke-opacity:0; style S523 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["CRUD＜Create＞"] subgraph S523[" "] 523 end end style sg3 color:red,fill-opacity:0, stroke-opacity:0; style S525 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["CRUD＜Update＞"] subgraph S525[" "] 525 end 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:#F0E68C,stroke:#333,stroke-width:2px; classDef clrPattern3 fill:#ADD8E6,stroke:#333,stroke-width:2px; classDef clrPattern4 fill:#FFEFD5,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["1061行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 530["1062行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 531["1063行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 532["1064行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 533["1065行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 534[/"1066行目:【CHAIN】 WSU004DPファイルでK¥WDをキーとしてCHAIN操作する読み込めなかった場合、標識 [98] をオンにセットする。"/]:::clrPatternR 535{"1067_1行目:【98】標識[98]はオンか"}:::clrPattern4 537["1067_2行目:【CLEAR】 WSU004Dデータ構造を初期化する"] 538(["1067_3行目: 条件文を終了する"]) 539["1069行目:【Z-ADD】 *ZEROをW1JKPTにゼロ加算する"] 540[/"1071行目:【DO】開始値 1から限界値 8 の条件でループをする"\]:::clrPattern2 541["1072行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 542["1074行目:【Z-ADD】 IXをW1SEQにゼロ加算する"] 543[["1077行目:【EXSR】 ¥YSPPサブルーチンを実行する"]]:::clrPattern3 544["1084行目:【SETOF】標識[90]をオフにセットする"] 545["1085行目: 選択処理を開始する"]:::clrPattern2 546["1087行目:【WHEQ】 IXが1と等しいか"]:::clrPattern1 547["1088行目:【Z-ADD】 1をIYにゼロ加算する"] 548["1089行目:【LOKUP】 HT1,IYでINK1HTを検索する"] 549{"1090行目:【IFEQ】標識90が*オンか"}:::clrPattern1 551["1092行目:【MULT】 SPT,IYとINK1WTを乗算、積をW2SPTに代入する"] 552["1093行目:【DIV】 W2SPTを100で除算、商をW1SPTに代入する"] 553["1094行目:【Z-ADD】 W1SPTをWDSN01にゼロ加算する"] 554(["1095行目: ELSE"]) 555["1096行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 556["1097行目:【Z-ADD】 *ZEROをWDSN01にゼロ加算する"] 557(["1098行目: 条件文を終了する"]) 558["1099行目:【ADD】 W1JKPTにW1SPTを加算する"] 559(["WH文の終了"]) 560["1101行目:【WHEQ】 IXが2と等しいか"]:::clrPattern1 561["1102行目:【Z-ADD】 1をIYにゼロ加算する"] 562["1103行目:【LOKUP】 HT1,IYでINK2HTを検索する"] 563{"1104行目:【IFEQ】標識90が*オンか"}:::clrPattern1 565["1106行目:【MULT】 SPT,IYとINK2WTを乗算、積をW2SPTに代入する"] 566["1107行目:【DIV】 W2SPTを100で除算、商をW1SPTに代入する"] 567["1108行目:【Z-ADD】 W1SPTをWDSN02にゼロ加算する"] 568(["1109行目: ELSE"]) 569["1110行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 570["1111行目:【Z-ADD】 *ZEROをWDSN02にゼロ加算する"] 571(["1112行目: 条件文を終了する"]) 572["1113行目:【ADD】 W1JKPTにW1SPTを加算する"] 573(["WH文の終了"]) 574["1115行目:【WHEQ】 IXが3と等しいか"]:::clrPattern1 575["1116行目:【Z-ADD】 1をIYにゼロ加算する"] 576["1117行目:【LOKUP】 HT1,IYでINK3HTを検索する"] 577{"1118行目:【IFEQ】標識90が*オンか"}:::clrPattern1 579["1120行目:【MULT】 SPT,IYとINK3WTを乗算、積をW2SPTに代入する"] 580["1121行目:【DIV】 W2SPTを100で除算、商をW1SPTに代入する"] 581["1122行目:【Z-ADD】 W1SPTをWDSN03にゼロ加算する"] 582(["1123行目: ELSE"]) 583["1124行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 584["1125行目:【Z-ADD】 *ZEROをWDSN03にゼロ加算する"] 585(["1126行目: 条件文を終了する"]) 586["1127行目:【ADD】 W1JKPTにW1SPTを加算する"] 587(["WH文の終了"]) 588["1129行目:【WHEQ】 IXが4と等しいか"]:::clrPattern1 589["1130行目:【Z-ADD】 1をIYにゼロ加算する"] 590["1131行目:【LOKUP】 HT1,IYでINK4HTを検索する"] 591{"1132行目:【IFEQ】標識90が*オンか"}:::clrPattern1 593["1135行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 594["1136行目:【Z-ADD】 SPT,IYをWDSN04にゼロ加算する"] 595(["1137行目: ELSE"]) 596["1138行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 597["1139行目:【Z-ADD】 *ZEROをWDSN04にゼロ加算する"] 598(["1140行目: 条件文を終了する"]) 599(["WH文の終了"]) 600["1142行目:【WHEQ】 IXが5と等しいか"]:::clrPattern1 601["1143行目:【Z-ADD】 1をIYにゼロ加算する"] 602["1144行目:【LOKUP】 HT1,IYでINK5HTを検索する"] 603{"1145行目:【IFEQ】標識90が*オンか"}:::clrPattern1 605["1149行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 606["1150行目:【Z-ADD】 SPT,IYをWDSN05にゼロ加算する"] 607(["1151行目: ELSE"]) 608["1152行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 609["1153行目:【Z-ADD】 *ZEROをWDK5HTにゼロ加算する"] 610(["1154行目: 条件文を終了する"]) 611(["WH文の終了"]) 612["1156行目:【WHEQ】 IXが6と等しいか"]:::clrPattern1 613["1157行目:【Z-ADD】 1をIYにゼロ加算する"] 614["1158行目:【LOKUP】 HT1,IYでINK6HTを検索する"] 615{"1159行目:【IFEQ】標識90が*オンか"}:::clrPattern1 617["1160行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 618["1161行目:【Z-ADD】 SPT,IYをWDSN06にゼロ加算する"] 619(["1162行目: ELSE"]) 620["1163行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 621["1164行目:【Z-ADD】 *ZEROをWDSN06にゼロ加算する"] 622(["1165行目: 条件文を終了する"]) 623(["WH文の終了"]) 624["1167行目:【WHEQ】 IXが7と等しいか"]:::clrPattern1 625["1168行目:【Z-ADD】 1をIYにゼロ加算する"] 626["1169行目:【LOKUP】 HT1,IYでINK7HTを検索する"] 627{"1170行目:【IFEQ】標識90が*オンか"}:::clrPattern1 629["1171行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 630["1172行目:【Z-ADD】 SPT,IYをWDSN07にゼロ加算する"] 631(["1173行目: ELSE"]) 632["1174行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 633["1175行目:【Z-ADD】 *ZEROをWDSN08にゼロ加算する"] 634(["1176行目: 条件文を終了する"]) 635(["WH文の終了"]) 636["1178行目:【WHEQ】 IXが8と等しいか"]:::clrPattern1 637["1179行目:【Z-ADD】 1をIYにゼロ加算する"] 638["1180行目:【LOKUP】 HT1,IYでINK8HTを検索する"] 639{"1181行目:【IFEQ】標識90が*オンか"}:::clrPattern1 641["1182行目:【Z-ADD】 SPT,IYをW1SPTにゼロ加算する"] 642["1183行目:【Z-ADD】 SPT,IYをWDSN08にゼロ加算する"] 643(["1184行目: ELSE"]) 644["1185行目:【Z-ADD】 *ZEROをW1SPTにゼロ加算する"] 645["1186行目:【Z-ADD】 *ZEROをWDSN08にゼロ加算する"] 646(["1187行目: 条件文を終了する"]) 647(["WH文の終了"]) 648["1188行目: 選択処理を終了する"]:::clrPattern2 649{"1190行目:【IFGE】 IXが4以上か"}:::clrPattern1 651["1191行目:【ADD】 W1KASNにW1SPTを加算する"] 652(["1192行目: 条件文を終了する"]) 653[\"1194行目: ループを終了する"/]:::clrPattern2 654{"1196行目:【IFEQ】標識98が*オンか"}:::clrPattern1 656["1197行目:【Z-ADD】 PRHTYYをWDHTYYにゼロ加算する"] 657["1198行目:【Z-ADD】 PRKKKBをWDKKKBにゼロ加算する"] 658["1199行目:【Z-ADD】 INCKKBをWDCKKBにゼロ加算する"] 659["1200行目:【Z-ADD】 INBUCDをWDBUCDにゼロ加算する"] 660["1201行目:【Z-ADD】 INSYCDをWDSYCDにゼロ加算する"] 661["1202行目:【Z-ADD】 INYKCDをWDYKCDにゼロ加算する"] 662["1203行目:【Z-ADD】 INSOCDをWDSOCDにゼロ加算する"] 663["1204行目:【Z-ADD】 INSSCDをWDSSCDにゼロ加算する"] 664["1205行目:【Z-ADD】 INWAT1をWDWAT1にゼロ加算する"] 665["1206行目:【Z-ADD】 INWAT2をWDWAT2にゼロ加算する"] 666["1207行目:【MOVEL】 INC5R1の値をWDC5R1に左詰めで移動する"] 667["1208行目:【MOVEL】 INC5R2の値をWDC5R2に左詰めで移動する"] 668["1209行目:【MOVEL】 INC5KKの値をWDC5KKに左詰めで移動する"] 669["1210行目:【MOVEL】 INK1N1の値をWDK1NIに左詰めで移動する"] 670["1211行目:【Z-ADD】 INK1WTをWDK1WTにゼロ加算する"] 671["1212行目:【MOVEL】 INK2N1の値をWDK2NIに左詰めで移動する"] 672["1213行目:【Z-ADD】 INK2WTをWDK2WTにゼロ加算する"] 673["1214行目:【MOVEL】 INK3N1の値をWDK3NIに左詰めで移動する"] 674["1215行目:【Z-ADD】 INK3WTをWDK3WTにゼロ加算する"] 675["1216行目:【MOVEL】 INK4N1の値をWDK4NIに左詰めで移動する"] 676["1217行目:【Z-ADD】 INK4WTをWDK4WTにゼロ加算する"] 677["1218行目:【MOVEL】 INK5N1の値をWDK5NIに左詰めで移動する"] 678["1219行目:【Z-ADD】 INK5WTをWDK5WTにゼロ加算する"] 679["1220行目:【MOVEL】 INK6N1の値をWDK6NIに左詰めで移動する"] 680["1221行目:【Z-ADD】 INK6WTをWDK6WTにゼロ加算する"] 681["1222行目:【MOVEL】 INK7N1の値をWDK7NIに左詰めで移動する"] 682["1223行目:【Z-ADD】 INK7WTをWDK7WTにゼロ加算する"] 683["1224行目:【MOVEL】 INK8N1の値をWDK8NIに左詰めで移動する"] 684["1225行目:【Z-ADD】 INK8WTをWDK8WTにゼロ加算する"] 685[/"1226行目:【WRITE】 WSU004Dに新しいレコードを追加する"/]:::clrPatternC 686(["1227行目: ELSE"]) 687[/"1228行目:【UPDAT】 WSU004Dファイル更新する"/]:::clrPatternU 688(["1229行目: 条件文を終了する"]) 689(["1231行目: ¥KSNS2サブルーチンを終了する"]) %%ルート設定 528-->529 529-->530 530-->531 531-->532 532-->533 533-->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-->659 659-->660 660-->661 661-->662 662-->663 663-->664 664-->665 665-->666 666-->667 667-->668 668-->669 669-->670 670-->671 671-->672 672-->673 673-->674 674-->675 675-->676 676-->677 677-->678 678-->679 679-->680 680-->681 681-->682 682-->683 683-->684 684-->685 685-->688 686-->687 687-->688 688-->689 style sg1 color:red,fill-opacity:0, stroke-opacity:0; style S534 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg1["CRUD＜Read＞"] subgraph S534[" "] 534 end end style sg2 color:red,fill-opacity:0, stroke-opacity:0; style S685 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg2["CRUD＜Create＞"] subgraph S685[" "] 685 end end style sg3 color:red,fill-opacity:0, stroke-opacity:0; style S687 color:red,fill-opacity:0, stroke-opacity:0; subgraph sg3["CRUD＜Update＞"] subgraph S687[" "] 687 end 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