Re: Packed field with Blanks in it... how?

When I dealt with this same thing a while back it seemed the culprit was I-specs.

Btw, on the cleanup side, which I’m sure you’ll kea d to the customer, there is a real simple sql statement you can run the detect the affected rows. And we had a 3-4 line rpg pgm
we would run to clean the file.
Let me know if any interested and I’ll see if I can’t find those for you.

Jay

On Nov 15, 2021, at 1:18 PM, Brad Stone <bvstone@xxxxxxxxx> wrote:

That's more like it. :) But it wasn't a challenge.

I was going to post some code on how they were shifting things from right
to left (or vice versa) using data structures with 20 fields in it, 1 byte
each, but I thought it would be too damning. And maybe against the NDA.
Haha.

On Mon, Nov 15, 2021 at 11:31 AM Hiebert, Chris <
chris.hiebert@xxxxxxxxxxxxxx> wrote:

Challenge Accepted.

FFILENAME IF E K DISK
DFILE_DS E DS EXTNAME('FILENAME')

C READ FILENAME
10
C 10 CLEAR FILE_DS



See, even Less lines of code required.


Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author
and do not necessarily represent those of the company.

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Brad
Stone
Sent: Monday, November 15, 2021 10:11 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Packed field with Blanks in it... how?
Chris, I


Chris,



I get it... but your example is also using WAY too new RPG than this

program was. BIFs? Please... ;)


--

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com