|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
2.18.READCとSFLNXTCHGのサンプルソース | |||||||||
H Y/ 1
H****************************************************************
H* *
H* PROGRAMMER - T.KAKEFUDA *
H* CREATION - XX.XX.XX *
H* MODIFIED - XX.XX.XX BY XXXXXXXXXXXX *
H* *
H****************************************************************
FREADCD CF E WORKSTN
F RRN01 KSFILE SFL01
C******************************************************
C* M A I N - R O U T I N E ;
C******************************************************
C \SFL01 TAG ;
C* ;
C MOVE '0' *IN65 ;
C MOVE '1' *IN62 ;
C WRITECTL01 ;SFLCLR
C MOVE '0' *IN62 ;
C* ;
C Z-ADD0 RRN01 ;
C* ;
B001 C 1 DO 10 RRN01 ;
001 C Z-ADDRRN01 SEQ ;
001 C Z-ADD0 LOOP1 ;
001 C Z-ADD0 LOOP2 ;
001 C Z-ADD0 LOOP3 ;
001 C Z-ADD0 LOOP4 ;
001 C Z-ADD0 LOOP5 ;
001 C WRITESFL01 ;
E001 C END ;
C* ;
C \CTL01 TAG ;
C* ;
C* ＳＦＬ０１ 表示 ;
C* ;
C WRITEFTR01 ;
C* ;
C MOVEA'11' *IN,60 ;SFLDSPCTL
C EXFMTCTL01 ;
C MOVEA'00' *IN,60 ;
C MOVE SFLNXT *IN65 ;
C* ;
C *INKC CABEQ'1' \END ;
C *INKE CABEQ'1' \SFL01 ;
C* ;
C* 選択 処理 ;
C* LOOP 1 ;
B001 C *IN99 DOUEQ'1' ;
001 C READCSFL01 99;
B002 C *IN99 IFEQ '0' ;
002 C MOVE ' ' OPT ;
002 C ADD 1 LOOP1 ;
002 C UPDATSFL01 ;必ずUPDAT
E002 C END ;
E001 C N99 END ;
C* LOOP 2 ;
B001 C *IN99 DOUEQ'1' ;
001 C READCSFL01 99;
B002 C *IN99 IFEQ '0' ;
002 C MOVE ' ' OPT ;
002 C ADD 1 LOOP2 ;
002 C UPDATSFL01 ;必ずUPDAT
E002 C END ;
E001 C N99 END ;
C* LOOP 3 ;
B001 C *IN99 DOUEQ'1' ;
001 C READCSFL01 99;
B002 C *IN99 IFEQ '0' ;
002 C MOVE ' ' OPT ;
002 C ADD 1 LOOP3 ;
002 C UPDATSFL01 ;必ずUPDAT
E002 C END ;
E001 C N99 END ;
C* LOOP 4 ;
B001 C *IN99 DOUEQ'1' ;
001 C READCSFL01 99;
B002 C *IN99 IFEQ '0' ;
002 C MOVE ' ' OPT ;
002 C ADD 1 LOOP4 ;
002 C UPDATSFL01 ;必ずUPDAT
E002 C END ;
E001 C N99 END ;
C* LOOP 5 ;
B001 C *IN99 DOUEQ'1' ;
001 C READCSFL01 99;
B002 C *IN99 IFEQ '0' ;
002 C MOVE ' ' OPT ;
002 C ADD 1 LOOP5 ;
002 C UPDATSFL01 ;必ずUPDAT
E002 C END ;
E001 C N99 END ;
C* ;
C GOTO \CTL01 ;
C* ;
C \END TAG ;
C SETON LR ;
C LR RETRN ;
C******************************************************
C* S U B - R O U T I N E ;
C******************************************************
C*----------------------------------------------------*
C *INZSR BEGSR :初期設定
C*----------------------------------------------------*
C Z-ADD1 V1SRCD
C Z-ADD0 RRN01 50 :
C MOVE '0' SFLNXT :
C* :
C ENDSR :
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
