|
|
 |
|
Wiki | |
|
updated on 2004.06.23 |
||||
メンバーリストを表示して、選択する RPG | |||||||||
H Y/ 1
H****************************************************************
H* *
H* PROGRAMMER - T.KAKEFUDA *
H* MODIFIED - XX.XX.XX BY XXXXXXXXXXXX *
H* *
H****************************************************************
F#SRSET2DCF E WORKSTN
F RRN01 KSFILE SFL01
F KINFDS DSINF
I******************************************************
I* D E F I N E C O S T A N T *
I******************************************************
I 'MBRL0200' C MBR##
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IDSINF DS
I B 378 3790DSRRN
I DS
I B 1 40LENDTA
I B 5 80STRPOS
IUSRSPC DS
I 1 10 USNAME
I 11 20 USLIB
IRCVVAR DS
I B 1 40OFFSTH
I B 5 80LSTSZH
I B 9 120OFFSET
I B 17 200NOENTR
I B 21 240LSTSIZ
IHEAD DS
I 1 10 FILNAH
I 11 20 FILLIH
I 21 30 FILATR
I 31 80 TEXT
I B 81 840MBRNAH
I 85 85 SRCF
ILIST DS
I 1 10 MBRNAL
I 11 20 SRCTYP
I 22 23 CRTYY
I 24 25 CRTMM
I 26 27 CRTDD
I 34 46 LSTCHG
I 47 96 MBRTXT
I*
I DS
I B 1 40USSIZE
I*
I DS
I 1 120DSDTTM
I 1 60DSQTIM
I 7 120DSQDAT
I*
I SDS
I 1 10 V1PGM
I 244 253 V1JOB
I 254 263 V1USR
C******************************************************
C* DEFINITI*ON MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* ;
C* DEFINE PLIST ;
C* ;
C *ENTRY PLIST ;
C PARM P1FLLB 20 ;
C PARM P1MBRN 10 ;
C******************************************************
C* M A I N - R O U T I N E ;
C******************************************************
C \INZ TAG ;
C* ;
C Z-ADD0 W1CNT 50 ;
C Z-ADD0 W1RN01 ;
C Z-ADD0 RRN01 ;
C MOVE *ON *IN62 ;
C WRITECTL01 ;
C MOVE *OFF *IN62 ;
C* ;
C Z-ADDLSTSIZ LENDTA ;
C OFFSET ADD 1 STRPOS ;
C* ;
C \SET TAG ;
C* ;
C Z-ADD0 W1CNT2 50 ;
C* ;
C Z-ADDW1RN01 RRN01 ;
C* ;
B001 C W1CNT2 DOUEQ13 ;
001 C W1CNT COMP NOENTR 99;
B002 C *IN99 IFEQ *OFF ;
002 C EXSR @MBRL ;
002 C EXSR @SFL ;
002 C ADD LSTSIZ STRPOS ;
E002 C END ;
E001 C N99 END ;
C* ;
C Z-ADDRRN01 W1RN01 ;
C Z-ADDRRN01 H1SRCD ;
C* ;
C \DSP01 TAG ;
C* ;
C* ＳＦＬ０１ 表示 ;
C* ;
C MOVE *ON *IN61 ;SFLDSPCTL
C RRN01 COMP 0 6060 ;SFLDSP
C WRITEFTR01 ;
C WRITECTL01 ;
C* ;
C \CTL01 TAG ;
C* ;
C* ＣＴＬ０１ 読み ;
C* ;
C READ CTL01 99;
C MOVEA'00' *IN,60 ;
C* ;
B001 C DSRRN IFNE 0 ;
001 C Z-ADDDSRRN H1SRCD ;
E001 C END ;
C* ;
C *INKC CABEQ*ON \END ;F3終了
C *INKL CABEQ*ON \END ;
C *IN25 CABEQ*ON \SET ;ROLLUP
C *INKE CABEQ*ON \INZ ;RE-DISP
C* ;
C RRN01 CABEQ0 \CTL01 ;NO DATA
C* ;
C MOVE *ON *IN65 ;SFLNXTCHG *ON
C* ;
C* 選択 処理 ;
C* ;
C MOVE *BLANK P1MBRN ;
C* ;
B001 C *IN95 DOUEQ*ON ;
001 C READCSFL01 95;
B002 C *IN95 IFEQ *OFF ;
B003 C OPTION IFEQ '1' ;
003 C MOVELMBRNAL P1MBRN ;
003 C GOTO \END ;
E003 C END ;
002 C UPDATSFL01 ;
E002 C END ;
E001 C N95 END ;
C* ;
C GOTO \CTL01 ;
C* ;
C \END TAG ;
C* ;
C MOVE *ON *INLR ;
C RETRN ;
C******************************************************
C* S U B - R O U T I N E ;
C******************************************************
C*----------------------------------------------------*
C *INZSR BEGSR :
C*----------------------------------------------------*
C Z-ADD0 RRN01 50 :
C Z-ADD0 W1RN01 50 :
C Z-ADD1 H1SRCD :
C Z-ADD0 RRN02 50 :
C Z-ADD0 W1RN02 50 :
C Z-ADD1 W1VIEW 10 :
C* :
|
|
You are at K's tips-n-kicks of AS/400
|
| SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||
