× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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... ;)


--


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.