Re: Read a Stream File

[Dennis <iseries@xxxxxxxxxxxx>]

Try searching the web for RPG IFS, or find the ebook "Who Knew You Could Do That in RPG" or visit http://www.scottklement.com/rpg/index.html. .... A little self service does service for us all.
--  
Sent from my Galaxy tablet phone with with K-9 Mail. Please excuse my brevity.

"Chamara Withanachchi" <chamaraw@xxxxxxxxxx> wrote:

> Dear All,
>
> I want to read a Text based stream file from RPG, file length is 180
> and it
> does NOT have any CR or LF
>
> for example file is like
>
> 5555IN 111517108002000005
>
>                            4444IN
> 111517108001000000001481000000003000000000000000000000000000510118295005
>
>                    00007108001250000963003A.W.A. Kandy
> 23000000000000000805000LKR7010001001000075555Test Bene          
> XXXXXXXX
>    STS01 : 0024641110602003878
> 00007108001250000458001M. Altaf Hussain
> 24000000000000000156000LKR7010001001000075556Test Bene          
> XXXXXXXX
>     STS01 : 0024641110602002976
> 00007108001010116874001Mohamed Rilha
> 52000000000000000520000LKR7010001001000075558Test Bene          
> XXXXXXXX
>   STS01 : 0024641110602005228                              4444IN
> 111517108002000000000170000000002000000000000000000000000000599654117150
>
>                    00007108002589631593145Mayura Edirisinghe
> 24000000000000000125000LKR7010001001000075557Test Bene          
> XXXXXXXX
>     STS01 : 0024641110602002854
> 00007108002010022524005Mohamed Iqdal
> Sathar21000000000000000045000LKR7010001001000075559Test Bene
>  XXXXXXXX       STS01 : 0024641110602003375
>
>
> How can I do this in RPG, all Ideas highly appreciated.
>
>
> -- 
> Regards,
>
> Chamara Withanachchi
> IBM Certified Power System Expert
> RPG Programmer
> (owner of www.rpgiv.info)
>
> WWW.RPGIV.INFO
> Mob: +94 77 1678646
> chamaraw@xxxxxxxxxx
>
> i want to be future ready. i want control. i want an i.
> -- 
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.