データ入力の終了 (PYTHON.400/QDSPSRC.ENDOPT )
最終更新:
2025-11-26
0001.00 A R ENDOPT
0002.00 A TEXT(' 終了画面 ')
0003.00 A CA03
0004.00 A CA12
0005.00 A CSRLOC(LIN POS)
0006.00 A 1 33' データ入力の終了 '
0007.00 A DSPATR(HI)
0008.00 A 3 4' 処理されたレコード数 '
0009.00 A 30 DSPATR(ND)
0010.00 A 5 6' 追加 . . . . . :'
0011.00 A 30 DSPATR(ND)
0012.00 A ADDRCD 5Y 0O 5 35EDTCDE(1)
0013.00 A 30 DSPATR(ND)
0014.00 A 6 6' 変更 . . . . . :'
0015.00 A 30 DSPATR(ND)
0016.00 A CHGRCD 5Y 0O 6 35EDTCDE(1)
0017.00 A 30 DSPATR(ND)
0018.00 A 7 6' 削除 . . . . . :'
0019.00 A 30 DSPATR(ND)
0020.00 A DLTRCD 5Y 0O 7 35EDTCDE(1)
0021.00 A 30 DSPATR(ND)
0022.00 A 12 2' 選択項目を打鍵して，実行キーを押 +
0023.00 A してください。 '
0024.00 A COLOR(BLU)
0025.00 A 14 5' データ入力の終了 . . . . . .'
0026.00 A ANS 1A B 14 39VALUES('Y' 'N')
0027.00 A 14 53'Y=YES, N=NO'
0028.00 A 23 2'F3= 終了 '
0029.00 A COLOR(BLU)
0030.00 A 23 15'F12= 前画面 '
0031.00 A COLOR(BLU)
0032.00 A LIN 3S 0H
0033.00 A POS 3S 0H
[解説]
ENDOPTは更新モードでF3キーを押して終了したときにDFUのように
更新したレコード数を報告するための画面です。
ENDOPTで使われているすべてのフィールドはAS400エンジン内部で
処理されていますので絶対にフイールド名や属性は変更しないでください。