ADJL

【機能】

    文字列を左に詰める

【使用形式】

    CALL  ADJL(A,I,N,K)


【引数説明】

    ［INPUT］
        A   : ブランクを除いて左に詰める文字列     
        I   : Aの左端（一番左端を、1として数える）
        N   : Aの右端（一番左端を、1として数える）
 
    ［OUTPUT］                      
        K   : ブランク以外の文字列の長さ

【機能説明】

    ・ブランクを除き文字列を左に詰める。

     （例）
         SCALL ADJL(A, 1, 8, K)

         文字列A : | | | |1|2|3|4|5|   →   |1|2|3|4|5| | | |
         　　　    +-+-+-+-+-+-+-+-+        +-+-+-+-+-+-+-+-+
                                                K=5