戻る

出力サンプル　－#JIKNYUW―

元のRPGソースコード

     H*****************************************************************
     H*  COPYRIGHT SEC 1995                                           *
     H*  LICENSED MATERIAL  PROGRAM PROPERTY OF SEC.C                 *
     H*****************************************************************
      *                                                               *
      *               評定入力ファイルﾜｰｸ･ﾌｧｲﾙ作成                *
      *                                                               *
      *****************************************************************
      *評定入力ファイル
     FJIKNYULBIF  E           K        DISK
      *評定入力ファイルﾜｰｸ
     FJIKNYUW O   E           K        DISK
      ****************************************************************
     C           *ENTRY    PLIST
     C                     PARM           PRHTYY  40
     C                     PARM           PRKKKB  10
      ****************************************************************
      *評定入力ファイル
     C           K\IN      KLIST
     C                     KFLD           INHTYY
     C                     KFLD           INKKKB
     C                     KFLD           INSYCD
     C           K\IN2     KLIST
     C                     KFLD           INHTYY
     C                     KFLD           INKKKB
      ****************************************************************
      *                                                              *
      *                   主　処　理                               *
      *                                                              *
      ****************************************************************
     C                     Z-ADDPRHTYY    INHTYY
     C                     Z-ADDPRKKKB    INKKKB
     C                     Z-ADD*LOVAL    INSYCD
     C           K\IN      SETLLJIKNYU
     C           K\IN2     READEJIKNYU                   91
     C           *IN91     DOWEQ*OFF
      *
     C                     EXSR \SET01
     C                     WRITEJIKNYW
      *
     C           K\IN2     READEJIKNYU                   91
     C                     ENDDO
      *終了処理
     C                     SETON                     LR
     C                     RETRN
      ****************************************************************
      *                   項目セット
      ****************************************************************
     C           \SET01    BEGSR
      *
     C                     Z-ADDINSYCD    IWSYCD
     C                     Z-ADDINHTYY    IWHTYY
     C                     Z-ADDINBUCD    IWBUCD
     C                     Z-ADDINKKKB    IWKKKB
     C                     Z-ADDINCKKB    IWCKKB
     C                     Z-ADDINYKCD    IWYKCD
     C                     Z-ADDINSOCD    IWSOCD
     C                     Z-ADDINSSCD    IWSSCD
     C                     Z-ADDINKSST    IWKSST
     C                     Z-ADDINSYST    IWSYST
     C                     Z-ADDINSUST    IWSUST
     C                     Z-ADDINWIST    IWWIST
     C                     Z-ADDINSOST    IWSOST
     C                     MOVELINKSRK    IWKSRK
     C                     MOVELINHTRK    IWHTRK
     C                     MOVELINTNRK    IWTNRK
     C                     MOVELINJIRK    IWJIRK
     C                     MOVELINKTRK    IWKTRK
     C                     MOVELINHT01    IWHT01
     C                     MOVELINHT02    IWHT02
     C                     MOVELINHT03    IWHT03
     C                     MOVELINHT04    IWHT04
     C                     MOVELINHT05    IWHT05
     C                     MOVELINHT06    IWHT06
     C                     MOVELINHT07    IWHT07
     C                     MOVELINHT08    IWHT08
     C                     MOVELINHT09    IWHT09
     C                     MOVELINHT10    IWHT10
     C                     MOVELINHT11    IWHT11
     C                     MOVELINHT12    IWHT12
     C                     MOVELINHT13    IWHT13
     C                     MOVELINHT14    IWHT14
     C                     MOVELINHT15    IWHT15
     C                     MOVELINHT16    IWHT16
     C                     MOVELINHT17    IWHT17
     C                     MOVELINHT18    IWHT18
     C                     MOVELINHT19    IWHT19
     C                     MOVELINHT20    IWHT20
     C                     MOVELINHT21    IWHT21
     C                     MOVELINHT22    IWHT22
     C                     MOVELINHT23    IWHT23
     C                     MOVELINHT24    IWHT24
     C                     MOVELINHT25    IWHT25
     C                     Z-ADDINUPDT    IWUPDT
     C                     Z-ADDINCKCD    IWCKCD
     C                     Z-ADDINGRP     IWGRP
     C                     Z-ADDINSKLV    IWSKLV
     C                     Z-ADDINCKC2    IWCKC2
     C                     Z-ADDINGRP2    IWGRP2
     C                     Z-ADDINSKL2    IWSKL2
     C                     Z-ADDINTOU\    IWTOU\
     C                     Z-ADDINZEN\    IWZEN\
     C                     MOVELINKZRK    IWKZRK
     C                     MOVELINKORK    IWKORK
     C                     MOVELINSGRK    IWSGRK
     C                     Z-ADDINKZPT    IWKZPT
     C                     Z-ADDINKOPT    IWKOPT
     C                     Z-ADDINSGPT    IWSGPT
     C                     Z-ADDINTAIS    IWTAIS
     C                     Z-ADDINYGPC    IWYGPC
     C                     MOVELINSYRK    IWSYRK
     C                     Z-ADDINNKCD    IWNKCD
     C                     Z-ADDINNGKY    IWNGKY
     C                     Z-ADDINNTCD    IWNTCD
     C                     Z-ADDINNGRN    IWNGRN
     C                     Z-ADDINNSOC    IWNSOC
     C                     Z-ADDINNSCD    IWNSCD
     C                     Z-ADDINWAT1    IWWAT1
     C                     Z-ADDINWAT2    IWWAT2
     C                     MOVELINC1HT    IWC1HT
     C                     MOVELINC2HT    IWC2HT
     C                     MOVELINC3HT    IWC3HT
     C                     MOVELINC4HT    IWC4HT
     C                     MOVELINC5R1    IWC5R1
     C                     MOVELINC5R2    IWC5R2
     C                     MOVELINC5KK    IWC5KK
     C                     Z-ADDINC5P1    IWC5P1
     C                     Z-ADDINC5P2    IWC5P2
     C                     MOVELINK1N1    IWK1N1
     C                     Z-ADDINK1WT    IWK1WT
     C                     MOVELINK1HT    IWK1HT
     C                     MOVELINK2N1    IWK2N1
     C                     Z-ADDINK2WT    IWK2WT
     C                     MOVELINK2HT    IWK2HT
     C                     MOVELINK3N1    IWK3N1
     C                     Z-ADDINK3WT    IWK3WT
     C                     MOVELINK3HT    IWK3HT
     C                     MOVELINK4N1    IWK4N1
     C                     Z-ADDINK4WT    IWK4WT
     C                     MOVELINK4HT    IWK4HT
     C                     MOVELINK5N1    IWK5N1
     C                     Z-ADDINK5WT    IWK5WT
     C                     MOVELINK5HT    IWK5HT
     C                     MOVELINKD01    IWKD01
     C                     MOVELINKD02    IWKD02
     C                     MOVELINKD03    IWKD03
     C                     MOVELINKD04    IWKD04
     C                     MOVELINKD05    IWKD05
     C                     MOVELINKSR7    IWKSR7
     C                     MOVELINHTR7    IWHTR7
     C                     MOVELINTNR7    IWTNR7
     C                     MOVELINJIR7    IWJIR7
     C                     MOVELINKTR7    IWKTR7
     C                     Z-ADDINHTCD    IWHTCD
     C                     Z-ADDINSCPT    IWSCPT
     C                     Z-ADDINAMGP    IWAMGP
     C                     Z-ADDINAMST    IWAMST
     C                     Z-ADDINAMPT    IWAMPT
     C                     Z-ADDINNPSK    IWNPSK
     C                     Z-ADDINNPKG    IWNPKG
     C                     Z-ADDINNPCJ    IWNPCJ
     C                     Z-ADDINNPCK    IWNPCK
     C                     Z-ADDINSGHK    IWSGHK
     C                     MOVELINTKKB    IWTKKB
     C                     Z-ADDINTKDT    IWTKDT
     C                     Z-ADDINHJNR    IWHJNR
08.01C                     Z-ADDINNATU    IWFUYU
08.01C                     Z-ADDINFUYU    IWNATU
      *
     C                     ENDSR

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

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

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

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

%%データ項目
s([演算　開始])-->
1["【パラメータリスト】
14：*ENTRY|PLIST|"]
2["【パラメータ定義】
15： PARM  PRHTYY"]
3["【パラメータ定義】
16： PARM  PRKKKB"]
4["【キーリスト】
19：K¥IN|KLIST|"]
5["【キー定義】
20：KFLD|INHTYY|"]
6["【キー定義】
21：KFLD|INKKKB|"]
7["【キー定義】
22：KFLD|INSYCD|"]
8["【キーリスト】
23：K¥IN2|KLIST|"]
9["【キー定義】
24：KFLD|INHTYY|"]
10["【キー定義】
25：KFLD|INKKKB|"]
11["【Z-ADD】
31：INHTYY = PRHTYY"]
12["【Z-ADD】
32：INKKKB = PRKKKB"]
13["【Z-ADD】
33：INSYCD = *LOVAL"]
14["CRUD＜READ＞
【SETLL】
34：JIKNYU||"]:::clrPatternR
15[/"CRUD＜READ＞
【READE】
35：JIKNYU|91|"/]:::clrPatternR
16[/"【繰返文開始】
DO WHILE 文
36：
if *IN91 = 0"\]:::clrPattern2
17[["【ｻﾌﾞﾙｰﾁﾝ呼出】
38：¥SET01"]]:::clrPattern3
18[/"CRUD＜CREATE＞
【WRITE】
39：JIKNYW||"/]:::clrPatternC
19[/"CRUD＜READ＞
【READE】
41：JIKNYU|91|"/]:::clrPatternR
20[\"【繰返文終了】
42：ENDDO"/]:::clrPattern2
21["【SETON】
44：SETON|LR|"]
22["【ﾌﾟﾛｸﾞﾗﾑ終了】
45：RETRN"]

%%ルート設定
1-->2
2-->3
3-->4
4-->5
5-->6
6-->7
7-->8
8-->9
9-->10
10-->11
11-->12
12-->13
13-->14
14-->15
15-->16
16-->|ループ開始|17
17-->18
18-->19
19-->20
20-->|ループ終了|21
20-->|ループ継続| 16
21-->22
22["【ﾌﾟﾛｸﾞﾗﾑ終了】
45：RETRN"]

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

%%{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;

%%データ項目
23(["【ｻﾌﾞﾙｰﾁﾝ開始】
49：¥SET01"])
24["【Z-ADD】
51：IWSYCD = INSYCD"]
25["【Z-ADD】
52：IWHTYY = INHTYY"]
26["【Z-ADD】
53：IWBUCD = INBUCD"]
142(["【ｻﾌﾞﾙｰﾁﾝ終了】
170：ENDSR"])

%%ルート設定
23-->24
24-->25
25-->26
26--中略-->142