RE: How do I clip a vary length field?

Francois, for an assignment between two varying-length fields, it's not
necessary for them to have the same size of varying-length prefix.

For this assignment:
Upper = SQLStuff;

RPG does something like this:
if length part of SQLStuff > maximum length of SQLStuff
issue RNX0115
len = length part of SQLStuff
if len > maximum length of Upper
len = maximum length of Upper
length part of Upper = len
%subst(data part of Upper : 1 : len) = %subst(data part of SQLStuff :
1 : len)

-------------------------------------------------------------
Subject: RE: How do I clip a vary length field?
From: Francois Lavoie <Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx>
Date: Thu, 16 Jan 2020 00:10:38 +0000

A 4 is missing in the VarChar definition of Upper: Dcl-s Upper Varchar
(128:4);
Because SQLstuff is defined as 4 bytes length

That should resolve the runtime error

Or try this:
Upper = %SubSt(SQLStuff:1:%Size(Upper)); //This will truncate to 128 (not
1024) if needed