H NOMAIN DFTNAME(UPD0055) DATEDIT(*YMD/) F******** 商品マスターの登録 - UPD_SHOHIN ***************************** FSHOHIN UF A E K DISK F***************************************************************** D UPD_SHOHIN PR 1S 0 D OPT 1S 0 VALUE D INDATA 1024A VALUE P UPD_SHOHIN B EXPORT D PI 1S 0 D OPT 1S 0 VALUE D INDATA 1024A VALUE D SAVDTA S 1 DIM(1024) SAVE-ﾃﾞｰﾀ D SAVEDS E DS EXTNAME(SHOHIN) D DSPDTA 1 1024 D DIM(1024) 入力 ﾃﾞｰﾀ D ADD S 1S 0 INZ(1) SAVE-ﾃﾞｰﾀ D CHG S 1S 0 INZ(2) SAVE-ﾃﾞｰﾀ D DLT S 1S 0 INZ(3) SAVE-ﾃﾞｰﾀ D UPD S 1S 0 INZ(4) SAVE-ﾃﾞｰﾀ D TRUE S 1S 0 INZ(0) SAVE-ﾃﾞｰﾀ D FALSE S 1S 0 INZ(-1) SAVE-ﾃﾞｰﾀ C*----------------------------------------------------+ C TRNKEY KLIST | C KFLD SHCODE | C*----------------------------------------------------+ C MOVEA(P) INDATA DSPDTA C OPT COMP ADD 41 C OPT COMP CHG 42 C OPT COMP DLT 43 C OPT COMP UPD 44 C SETOFF 90 C TRNKEY CHAIN SHOHIN 90 C 41 COR 42 COR 44 MOVEL(P) INDATA DSPDTA C*----------------------------------------------------+ C 41 CAN 90 COR 44 CAN 90 WRITE SHOHINR | DUMMY C 42 CANN90 COR 44 CANN90 UPDATE SHOHINR | DUMMY C 43 CANN90 DELETE SHOHINR | DUMMY C*----------------------------------------------------+ EXCPT C CLOSE SHOHIN C 41 CAN 90 | DUMMY COR 44 CAN 90 RETURN ADD | DUMMY C 42 CANN90 | DUMMY COR 44 CANN90 RETURN CHG | DUMMY C 43 CANN90 RETURN DLT | DUMMY C RETURN FALSE | DUMMY P E