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

[Brad Stone <bvstone@xxxxxxxxx>]

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