×
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.
Hi,
Convert it like any other DS...
Dcl-DS prtds;
filename *File;
spool# Int(5) Pos(123);
overflow Int(5) Pos(188);
currline Int(5) Pos(367);
End-DS;
Kind regards,
Paul
________________________________________
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Alan Shore via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
Sent: Tuesday, June 23, 2020 9:22
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Cc: Alan Shore
Subject: infds in free form
Hi everyone
We are on V7r3
Can anyone point me to where the infds for a print file is defined in free form?
I presently have this
d prtds ds
d filename *file
d spool# 123 124b 0
d overflow 188 189b 0
d currline 367 368b 0
but would love to convert this to free
As always all responses gratefully welcome
Alan Shore
E-mail : ASHORE@xxxxxxxx<mailto:ASHORE@xxxxxxxx>
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
--
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
midrange.com
