varying

   
 

   In an rpg program i have the follow definition

   

   D EmlMsgF         PR  =             &nb= sp;
   D  pr_Function         &n= bsp;         4A
   D  pr_FreeText         &n= bsp;      5000A     varying</P= >

   D EmlMsgF         PI  =             &nb= sp;
   D  pr_Function         &n= bsp;         4A
   D  pr_FreeText         &n= bsp;      5000A     varying</P= >

   I have the follow command definition

   

   CMD        PROMPT('E-mail simple mess= age Function')
               &nb= sp;            =             &nb= sp;               PARM    
   KWD(FUNCTION) TYPE(*CHAR) LEN(4) M= IN(1) +
                PR= OMPT('Function')         &nbsp= ;
               &nb= sp;            =             &nb= sp;               PARM    
   KWD(FREETEXT) TYPE(*CHAR) LEN(5000= ) +
                DF= T(*NONE) SPCVAL((*NONE)) MIN(0) +
                PR= OMPT('Free Text')         &nbs= p;

   

   When the command call the rpg programm on the second variable i have inc   
orrect data , if i pass "hello" on the varying variable i receive the
   value
   

   'llo" at position 1 and "he" at position 5001; the same problem happen i   f 
i call the program from a command line

   

   Any ideas ?

   

   Thanks

   

   Basilio