FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 ******************データの始め*************************************************************** 0001.00 *社員情報の追加・更新 0002.00 HPGMINFO(*PCML:*MODULE:*DCLCASE) 0003.00 FBDSYAINP UF A E K DISK PREFIX(SY) 社員マスタ 0004.00 0005.00 D*パラメータ 0006.00 *HTTP STATUS 0007.00 D resStatus S 10I 0 HTTP STATUS 0008.00 * JSONを想定したデータ構造 REQUEST BODY 0009.00 D REQ DS QUALIFIED 0010.00 D syaibn 4P 0 社員番号 0011.00 D name 30A 社員名 0012.00 D kana 20A 社員名カナ 0013.00 D email 64A メールアドレス 0014.00 D*その他変数 0015.00 D SYAIBN S 4P 0 社員番号 0016.00 *エントリー・パラメータ 0017.00 C *ENTRY PLIST 0018.00 C PARM REQ (I) 0019.00 C PARM resStatus (O) 0020.00 C 0021.00 C MONITOR 0022.00 C 0023.00 C Z-ADD REQ.syaibn SYAIBN 0024.00 C SYAIBN CHAIN BDSYAINP 0025.00 C IF %FOUND 0026.00 C*レコードを更新 0027.00 C MOVEL REQ.name SYSYAINM 0028.00 C MOVEL REQ.kana SYSYAIKN 0029.00 C MOVEL REQ.email SYMAILMA 0030.00 C UPDATE BDSYAINR 0031.00 C Z-ADD 200 resStatus 200 OK 0032.00 C ELSE 0033.00 C*レコードを追加 0034.00 C CLEAR BDSYAINR 0035.00 C Z-ADD REQ.syaibn SYSYAIBN 0036.00 C MOVEL REQ.name SYSYAINM 0037.00 C MOVEL REQ.kana SYSYAIKN 0038.00 C MOVEL REQ.email SYMAILMA 0039.00 C WRITE BDSYAINR 0040.00 C Z-ADD 201 resStatus 201 CREATED 0041.00 C ENDIF 0042.00 C*エラー 0043.00 C ON-ERROR *ALL 0044.00 C Z-ADD 500 resStatus 500 SERVER ERROR 0045.00 C ENDMON 0046.00 C 0047.00 C SETON LR 0048.00 C RETURN *****************データの終わり**************************************************************