R обрезать пространство - PullRequest
Новая
       12

R обрезать пространство

0 голосов
/ 18 октября 2019

Когда я пропускаю пустой ввод, у меня не должно быть пробела в разделителе ||нравится. но я получаю 1 длину пространства ||. как убрать это место в COBOL.

  • АЛФАНЕРОВОЧНОЕ ПЕРЕМЕЩЕНИЕ, ПОЛУЧЕНИЕ-НЕТ 

         IF WSCLMLO-RECEIPT-NO EQUAL SPACE OR LOW-VALUES      
         MOVE CZ-1                  TO  WS-S1             

     ELSE                                                 
         SET VALID-DATA-NOT-FND     TO  TRUE              
         MOVE SPACES                TO  WS-FIELD-TEXT-DATA
         MOVE ZEROES                TO  WS-FIELD-LENGTH   
         MOVE CZ-13                 TO  WS-FIELD-LENGTH   
         MOVE WSCLMLO-RECEIPT-NO    TO  WS-FIELD-TEXT-DATA

         PERFORM X20-CALC-TEXT-DATA-LENGTH                

         MOVE WS-DATA-POS           TO  WS-S1             
         MOVE WS-DATA-LENGTH        TO  WS-E1             
     END-IF                                               

     MOVE WMATRANI-BSB-NO           TO WSCLMLO-BSB-NUMBER 

     MOVE WMATRANI-ACCOUNT-NO       TO WSCLMLO-ACCOUNT-NO
...