|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
2.29.ライン入力サンプルプログラム画面ファイルソース | |||||||||
画面ファイル SDAにて作成
A*%%TS SD 19971218 190443 KAKEFUDA REL-V3R1M0 5763-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A INDARA
A CA03
A CA12
A N81 CA10
A 81 CA23
A*-------------------------------------*
A R LIN01
A*%%TS SD 19971218 181638 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A 19 16'SEQ'
A DSPATR(HI)
A 19 23'数量'
A DSPATR(HI)
A 19 33' 金額'
A DSPATR(HI)
A L1SEQ 4Y 0B 20 15EDTCDE(Z)
A CHECK(ER)
A 81 DSPATR(HI)
A 81 DSPATR(PR)
A N81 DSPATR(UL)
A OVRDTA
A OVRATR
A L1QTY R B 20 25REFFLD(ZZM010R/N1QTY *LIBL/ZZM010P)
A EDTCDE(3)
A CHECK(RB)
A OVRDTA
A OVRATR
A DSPATR(PC)
A L1AMT R B 20 31REFFLD(ZZM010R/N1AMT *LIBL/ZZM010P)
A EDTCDE(1)
A CHECK(ER)
A OVRDTA
A OVRATR
A*-------------------------------------*
A R SFL01 SFL
A*%%TS SD 19971218 181638 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A S1STS 3A O 10 13DSPATR(HI)
A 52 DSPATR(BL)
A S1SEQ 4Y 0O 10 20EDTCDE(Z)
A 52 DSPATR(BL)
A 52 DSPATR(HI)
A S1QTY R O 10 28REFFLD(ZZM010R/N1QTY *LIBL/ZZM010P)
A 52 DSPATR(BL)
A 52 DSPATR(HI)
A EDTCDE(4)
A S1AMT R O 10 35REFFLD(ZZM010R/N1AMT *LIBL/ZZM010P)
A 52 DSPATR(BL)
A 52 DSPATR(HI)
A EDTCDE(2)
A*-------------------------------------*
A R CTL01 SFLCTL(SFL01)
A*%%TS SD 19971218 190443 KAKEFUDA REL-V3R1M0 5763-PW1
A SFLSIZ(0180)
A SFLPAG(0008)
A ROLLUP(25)
A KEEP
A BLINK
A OVERLAY
A PUTOVR
A N60 ERASE(SFL01)
A 60 SFLDSP
A 61 SFLDSPCTL
A 62 SFLCLR
A 60 SFLEND(*MORE)
A H1SRCD 4S 0H SFLRCDNBR
A 1 27'ｘｘｘｘｘｘｘｘｘｘｘ入力'
A DSPATR(HI)
A 1 62'PGMID :'
A V1PGM 10A O 1 70
A 2 2'ﾕｰｻﾞｰ :'
A V1USR 10A O 2 10
A 2 62'日付:'
A 2 70DATE
A EDTCDE(Y)
A 3 2'ｼﾞｮﾌﾞ :'
A V1JOB 10A O 3 10
A 3 29'オーダー='
A V1ODR R O 3 41REFFLD(ZZM010R/N1ODR *LIBL/ZZM010P)
A DSPATR(HI)
A 3 62'時間:'
A 3 70TIME
A OVRATR
A 7 2'行番号の横に追加・変更・削除とあ+
A るのはＦ１０を押した時に実行され+
A るものです。'
A DSPATR(HI)
A 9 21'SEQ'
A DSPATR(HI)
A 9 26'数量'
A DSPATR(HI)
A 9 37' 金額'
A DSPATR(HI)
A*-------------------------------------*
A R FTR01
A*%%TS SD 19961030 163312 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A 22 2'F3=終了 F10=実際のファイル+
A へ書出'
A DSPATR(HI)
A COLOR(BLU)
A 22 45'ROLL UP/DOWN'
A DSPATR(HI)
A COLOR(BLU)
A V1MSG# 7A O 23 2DSPATR(HI)
A DSPATR(BL)
A OVRATR
A OVRDTA
A V1MSG 70A O 23 10DSPATR(HI)
A OVRATR
A OVRDTA
A DSPATR(BL)
A*-------------------------------------*
A R FTR02
A*%%TS SD 19961030 163312 KAKEFUDA REL-V3R1M0 5763-PW1
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A 22 3'F12=戻る F23=削除'
A DSPATR(HI)
A COLOR(BLU)
A V1MSG# 7A O 23 2DSPATR(HI)
A DSPATR(BL)
A OVRATR
A OVRDTAyyyyyyyyy
A V1MSG 70A O 23 10DSPATR(HI)
A OVRATR
A OVRDTA
A DSPATR(BL)
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
