19.4.文字右寄せ

     C******************************************************
     C*     DEFINITION  MODULE  ( PLIST   FIELD   KLIST )  *
     C******************************************************
     C*                                                    ;
     C*  DEFINE ENTRY                                      ;
     C*                                                    ;
     C           *ENTRY    PLIST                           ;
     C                     PARM           PILTR 200        ;文字
     C                     PARM           PILEN   30       ;長さ
     C                     PARM           POLTR 200        ;編集後文字
     C******************************************************
     C*             M A I N -  R O U T I N E                
     C******************************************************
     C                     MOVE *BLANK    POLTR            ;
     C           ' '       CHEKRPILTR     STRLEN  30       ;
     C*                                                    ;
B001 C           STRLEN    IFGE PILEN                      ;
 001 C                     MOVELPILTR     POLTR            ;
+001 C                     ELSE                            ;
 001 C           PILEN     SUB  STRLEN    MGN     30       ;
 001 C                     CAT  PILTR:MGN POLTR            ;
E001 C                     END                             ;
     C*                                                    ;
     C                     MOVE *ON       *INLR            ;
     C                     RETRN                           ;