>>  The correct solution is to code a second  DSECT instead of ORG.

How is that going to work when the existing code needs to continue
referencing the original field names for length and string value?

Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio  45439  USA
(937) 294-5331


On Sat, Feb 14, 2026 at 1:22 AM Jon Perryman <[email protected]> wrote:

> On Tue, 10 Feb 2026 17:41:22 -0500, David Clark <[email protected]>
> wrote:
>
> >IF    TXTREQU,EQ,C'S'    IF IN SCRIPTING MODE
> > SHI  R10,2               POINT TO SCRIPTING PARM AREA
> > MVC  TXTSRETN,HOLDRETN   SAVE STRING RETURN CODE
> > AHI  R10,2               POINT TO LEGACY LENGTH AND STRING
> >ENDIF                    ENDIF
>
> The correct solution is to code a second  DSECT instead of ORG.
>
> NAME USING TXT,TXTNEW
>       MVC  NAME.TXTSRETN,HOLDRETN
>       DROP NAME
>
> Anyone making changes will get an error for TXTSRETN when not used
> correctly.
>

Reply via email to