2001-08-30 如何於 RPG 中將畫面文字性欄位值向右靠？

如何於 RPG 中將畫面文字性欄位值向右靠？


	

1.於 RPGIV 中，V4R4 可使用 EVALR opcode ;

2. 於 RPGIII 或 V4R3以下之 RPGIV 中可使用下列 4 行程式碼，
假設有一欄位長度 8,要注意第四行數字 9 為欄位長 + 1，

RPGIII

     C                     MOVE '1234    'FIELD   8                
     C           'FIELD'   DSPLY          FIELD                    
     C           ' '       SCAN FIELD     X       20     99        
     C           9         SUB  X         Y       10               
     C                     CAT  FIELD:Y   RESET   8 P              
     C                     MOVE RESET     FIELD     P              
     C           'FIELD'   DSPLY          FIELD                    
      *                                                            
     C                     MOVE '1'       *INLR                    
            



RPGIV

     C                   MOVE      '1234    '    FIELD             8        
     C     'FIELD'       DSPLY                   FIELD                      
     C     ' '           SCAN      FIELD         X                 2 0    99
     C     9             SUB       X             Y                 1 0      
     C                   CAT(P)    FIELD:Y       RESET             8        
     C                   MOVE(P)   RESET         FIELD                      
     C     'FIELD'       DSPLY                   FIELD                      
      *                                                                     
     C                   MOVE      '1'           *INLR