IBM Mainframe Forum

Hi all, I am sort of a new to assembler and currently facing an issue of leading spaces in string.The input record of mine is not at correct as it was supposed to be.
so, i have to remove those extra spaces from it.
I have alredy made a routine to do that for me but still i wanna knw that is there any instruction or by using a trick in any instruction could do the same.

I have alredy made a routine to do that for me but still i wanna knw that is there any instruction or by using a trick in any instruction could do the same.

until You post Your code nobody will be able to tell if You can do better

There are two ways to do this.

1. In place. In other words -
   Select all

   A        DC    CL10'   X'
   
   becomes
   
   Select all

   A        DC    CL10'X   '
2. New area, in other words -
   Select all

   A        DC    CL10'   X'
   B        DC    CL10'    '
   
   becomes
   
   Select all

   A        DC    CL10'   X'
   B        DC    CL10'X   '

In the second option, you can move A to B in one instruction and also pad the vacated bytes in A with blanks in B. Both options require considerable setup code. This is code for the second option.In both options, you must locate the first non-blank: this can be done in one instruction with the TRT instruction. The TRT instruction will store the address of the first non-blank in register 1 and it sets the condition code to 1 or 2. If it did not find a non-blank, it sets the condition code to 0. The MVLTRT table in the example regards X'00' and C' ' as blanks. In the example, the BZ instruction will branch if no non-blanks were found and the condition code was set to -.

The program computes the length of data to move, from the address of the first non-blank to the end of data in register 1 and sets the high order 8 bits of register 1 to blank to provide the data to replace the vacated bytes in the input area. It then sets register 14 with the address of the new output area and register 15 with the length of the output area and uses MVCL to copy the data to the output area.

The TPUT instruction writes data to the current users TSO terminal.