|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
メンバーリストを表示して、選択する dspf source | |||||||||
A*%%TS SD 19940401 103000 KAKEFUDA REL-V2R2M0 5738-PW1
A****************************************************************
A* *
A* PROGRAMMER - T.KAKEFUDA *
A* MODIFIED - XX.XX.XX BY XXXXXXXXXXXX *
A* *
A****************************************************************
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A INDARA
A CA03
A CA05
A*-------------------------------------*
A R SFL01 SFL
A*%%TS SD 19940401 100219 KAKEFUDA REL-V2R2M0 5738-PW1
A KEEP
A 65 SFLNXTCHG
A HDNFD1 10A H
A OPTION 1A B 3 2DSPATR(PC)
A MBRNAL 10A O 3 4
A MBRTXT 50A O 3 15
A*-------------------------------------*
A R CTL01 SFLCTL(SFL01)
A*%%TS SD 19940401 103000 KAKEFUDA REL-V2R2M0 5738-PW1
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 SFLSIZ(0026)
A SFLPAG(0013)
A WINDOW(FTR01)
A H1SRCD 4S 0H SFLRCDNBR
A 1 2' OPTION : 1選択'
A DSPATR(HI)
A 2 1'OPT'
A DSPATR(HI)
A R FTR01
A*%%TS SD 19940401 103000 KAKEFUDA REL-V2R2M0 5738-PW1
A TEXT('FOR FOOTER')
A KEEP
A BLINK
A 80 ALARM
A OVERLAY
A PUTOVR
A WINDOW(3 7 18 64)
A WDWBORDER((*COLOR PNK))
A USRRSTDSP
A 17 1'F3=EXIT'
A DSPATR(HI)
A 17 10'ROLL UP/DOWN'
A DSPATR(HI)
A*
A R ASSUME ASSUME
A 1 2 ' ' DSPATR(ND)
A*
A R CLRWDW CLRL(*NO) OVERLAY FRCDTA
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
