				Wiki
	updated on 2004.06.23

7.26.RPG IVと組み込み関数（BIF）の例3

[ Previous ] [ HOME ] [ Upper ] [ Next ]

%OPENの使用例

C                   IF        %OPEN(QPRINT)        
C                   CLOSE     QPRINT               
C                   ENDIF

%TRIMの使用例

C                   MOVE(P)   'OVRDBF AFILE'OVRDBF           30       
C                   MOVE(P)   '  QTEMP   '  LIB              10       
C                   MOVE(P)   ' BFILE    '  FILE             10       
C*                                                                    
C                   EVAL      CMD=%TRIM(OVRDBF)+' '+%TRIM(LIB)+'/'+   
C                                 %TRIM(FILE)

%TRIMLの使用例

C                   MOVE(P)   'OVRDBF AFILE'OVRDBF           30         
C                   MOVE(P)   '     QTEMP'  LIB              10         
C                   MOVE(P)   ' BFILE  '    FILE             10         
C*                                                                      
C                   EVAL      CMD=%TRIM(OVRDBF)+' '+%TRIML(LIB)+'/'+    
C                                 %TRIM(FILE)

%TRIMRの使用例

C                   MOVE(P)   'OVRDBF AFILE'OVRDBF           30      
C                   MOVE(P)   'QTEMP     '  LIB              10      
C                   MOVE(P)   ' BFILE  '    FILE             10      
C*                                                                   
C                   EVAL      CMD=%TRIM(OVRDBF)+' '+%TRIMR(LIB)+'/'+ 
C                                 %TRIM(FILE)

%EDITCの使用例

D MSG             S             50A                                  
D TOL             S              9P 2 INZ(123.01)                    
C                   EVAL      MSG = ' 合計は '                       
C                             + %TRIM(%EDITC(TOL * 10:'J':*CURSYM))  
C                             + ' です。 '                           
C     MSG           DSPLY                                            
C                   MOVE      *ON           *INLR                    
C                   RETURN

2001-2-9

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送