RPG - прохождение DS в качестве аргументов процедуры

Question

я написал тетрадку процедуру (/ COPY), который имеет этот интерфейс:

DCL-PI *N VARCHAR(5000); 
    FILE_NAME CHAR(10) CONST; 
    DS_OLD VARCHAR(5000) CONST; 
    DS_NEW VARCHAR(5000) CONST; 
END-PI; 

Эта процедура называется этой программой выборки. FILE_DS_ * - внешние DS с определением PFFILE.

EXEC SQL SELECT * INTO :FILE_DS_OLD FROM PFFILE FETCH FIRST 1 ROW ONLY; 

FILE_DS_NEW = FILE_DS_OLD; 
FILE_DS_NEW.MYFIELD = 'MODIFIED'; 

RESULT = MYPROC('PFFILE':FILE_DS_OLD:FILE_DS_NEW); 

поле Я модифицирования определяется как VARCHAR и его первоначальное значение, например:

'PEN IS ON THE TABLE'

Странно то, что в точке входа процедуры Я получил это значение в FILE_DS_NEW DS:

'MODIFIEDN THE TABLE' 

Я сошел с ума, но не смог найти причину! Есть идеи?

Как DS определяются:

D FILE_DS_OLD E DS     EXTNAME(PFFILE) QUALIFIED INZ 
D FILE_DS_NEW E DS     EXTNAME(PFFILE) QUALIFIED INZ 

Answer 1

FILE_DS_NEW = FILE_DS_OLD; (1) 
FILE_DS_NEW.MYFIELD = 'MODIFIED'; (2) 

1. Вы двигаетесь все DS-данные от старого к новому DS.
2. Вы устанавливаете подполе нового ds. Уверен, что myfield - char (8), поэтому вы просто меняете первые 8 байтов новых ds.

Я предполагаю, что вы смущены о варчаре. Тип данных Varchar - это всего лишь способ сохранить данные только до предела поля. Это означает, что если у вас есть varchar (10) и просто «DATA», это поле использует только 6 байтов. Если вы измените его на varchar (1000), поле будет по-прежнему использовать всего 6 байтов.

Надеюсь, это поможет.