Expert: Concise Systems/Laird Scranton - 1/9/2008

Question
i want this input record ............. type 5 alpha to become
to be numeric, some records have 1, some have 11, some have 111, so a z-add does not work, i get the replacable character
msg. what is the easiest  code to make imput 5 alpha to output 5 numeric?

Answer
Here is an example of a subroutine to right-justify an alphameric field and move it to a numeric field.

- Laird

C                     MOVELALPHA     LJFLD  80
C                     EXSR @RIGHT
C                     MOVE RJFLD     NUM     50
C*******************************************************
C* SUBROUTINE RIGHT-JUSTIFIES A FIELD
C*******************************************************
CSR         @RIGHT    BEGSR
C** DEFINE FIELDS
CSR                   MOVE *BLANK    RJBLKS 80        
CSR         *LIKE     DEFN RJBLKS    LJFLD            
CSR         *LIKE     DEFN RJBLKS    RJFLD           
C** FIND END OF DATA IN FIELD TO BE RIGHT-JUSTIFIED
CSR         RJBLKS    CHEKRLJFLD     RJEND   30       
C** CALCULATE RIGHT-JUSTIFIED START-POSITION
CSR         81        SUB  RJEND     RJ      30       
C** RIGHT-JUSTIFY FIELD
CSR                   MOVE *BLANK    RJFLD
CSR         RJ        IFLT 81
CSR                   MOVE *BLANK    WK1
CSR                   MOVEALJFLD     WK1,RJ
CSR                   MOVEAWK1       RJFLD
CSR                   END
C** CLEAR FIELDS
CSR                   MOVE *BLANK    LJFLD
CSR  @RIGHZ   ENDSR