Tags:
create new tag
view all tags

.TEXT INSERT AT POS

This subroutine inserts characters into a text/alpha field.


Usage:

      PASS         <text_field>               FIELD            SHARE? Y
      PASS         <insert _pos>              FIELD            SHARE? N
      PASS         <from_field>               FIELD            SHARE? N
      PASS         <start_from>               FIELD            SHARE? N
      PASS         <len_from>                 FIELD            SHARE? N
      GOSUB    --- .TEXT INSERT AT POS
      *        Check for errors
      IF       --- .TEXT INSERT AT POS        NE

Description:

This subroutine inserts characters into a text/alpha field. The first 3 parameters are required. If any required parameters are missing, the subroutine will CANCEL.

<text_field> is the field to receive <from_field> (Required). This must be PASSed with Share "Y" to return the value.

<insert_pos> is the starting position to receive the characters (Required).

<from_field> are the characters to be inserted (Required).

<start_from> is the starting position in <from_field> from which characters will be inserted (Optional). If not PASSed, will default to 1.

<len_from> are the number of characters to insert (Optional). If not PASSed, then all character in <from_field> starting at <start_from> will be inserted. If <start_from> + <len_from> is longer than <from_field> it will be padded with blanks as required.

Comments:

Read what other users have said about this page or add your own comments.


-- JeanNeron - 2012-02-09

Topic revision: r1 - 2012-02-09 - JeanNeron
 
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2019 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback