RE: Old Style Green Screen Subfile Templates on GitHub

-----Original Message-----

message: 4
date: Tue, 26 Aug 2025 19:00:27 -0400
from: Sergio Luis Puentes-Valladares <spuentes@xxxxxxxxx>
subject: Re: Old Style Green Screen Subfile Templates on GitHub

In the documentation, it is recommended to use the *READC instruction to
read the changed subfile records*, this is not recommended
because the READC instruction implicitly has an associated flag, that once
read goes from 1 to 0, therefore the READC instruction
can only be used once, it is recommended to use CYCLE using the
DO...ENDDO
instructions (DOU ENDDO), to correctly handle data control
I recommend defining in the SUBFILE record, (HIDDEN) fields and I/O fields
for the data that will be verified for change, so if the
(HIDDEN) field is different from the I/O field itself, it means that the
data was changed
Best regards

*Sergio Luis Puentes Valladares*
* Desarrollador SR IBM i - RPG/COBOL*


*Mobile **(AR)+54 9 223 530 0358*

*WhatsApp (CL)+56 9 9379 0247*

*Skype/Hangouts spuentes@xxxxxxxxx <spuentes@xxxxxxxxx>*









El mar, 26 ago 2025 a las 18:08, Patrik Schindler (<poc@xxxxxxxxxx>)
escribi?:

Hello,

despite the majority of fellow list members being professionals, I hope
some hobbyists and old-hardware-nerds are silently reading this list, also.

I finally managed to rework my classic 5250 Subfile Templates to be
multilingual: Object sources are included for English and German languages.

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgith
ub.com%2FPoC-dev%2Fas400-
sfltemplates&data=05%7C02%7Cmichaelquigley%40theway.org%7C989a3f53
7877476800ef08dde4f470b8%7Cdfc3789155b94fe0bc8b34a0f4b6650f%7C0%7
C0%7C638918460701951488%7CUnknown%7CTWFpbGZsb3d8eyJFbXB0eU1h
cGkiOnRydWUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIld
UIjoyfQ%3D%3D%7C0%7C%7C%7C&sdata=xdVMzo%2FJ5H%2BzhfPBUilFBB
U4VEJIZDsScBSwJvGRtX0%3D&reserved=0

The templates are meant as copy-adapt-compile-run templates to quickly

get

a working, reasonably simple, single-PF maintenance application for further
enhancement and refinement. Also, the extensive readme might serve as

an

introductory text into classic AS/400 development and somewhat resolve

the

mystery about subfiles for newcomers to the platform, like I was in 2007.

Note that I'm intentionally using positional RPG IV and other late 1990's
style development traits to enable backwards compatibility with at least
V4R4, maybe older. Making them compile on V3 needs a complete

overhaul for

error checking (no %STAT BIF), amongst other compiler complaints, which is
still in the "how to do it properly" consideration phase. If you have
(opinionated) suggestions about your personal favorite way about how file
error checking and appropriate response was done best in the early 1990's,
I'd be glad to learn about them. Please direct your suggestions to the
RPG400-List to avoid being off-topic here, though.

:wq! PoC

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.
midrange.com%2Fmailman%2Flistinfo%2Fmidrange-
l&data=05%7C02%7Cmichaelquigley%40theway.org%7C989a3f537877476800
ef08dde4f470b8%7Cdfc3789155b94fe0bc8b34a0f4b6650f%7C0%7C0%7C6389
18460701964782%7CUnknown%7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRyd
WUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ%3
D%3D%7C0%7C%7C%7C&sdata=HoCmNym8CujQilwMsZGT1fAnIUp6T1W6U5
V073GP5as%3D&reserved=0

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at

https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchi
ve.midrange.com%2Fmidrange-
l&data=05%7C02%7Cmichaelquigley%40theway.org%7C989a3f537877476800
ef08dde4f470b8%7Cdfc3789155b94fe0bc8b34a0f4b6650f%7C0%7C0%7C6389
18460702277543%7CUnknown%7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRyd
WUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ%3
D%3D%7C0%7C%7C%7C&sdata=Ac11p7Ll0FjplurOAVr7sp81i1wwnz1JjeS2UC6
Gygw%3D&reserved=0.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

------------------------------

Subject: Digest Footer

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.
midrange.com%2Fmailman%2Flistinfo%2Fmidrange-
l&data=05%7C02%7Cmichaelquigley%40theway.org%7C989a3f537877476800
ef08dde4f470b8%7Cdfc3789155b94fe0bc8b34a0f4b6650f%7C0%7C0%7C6389
18460702302498%7CUnknown%7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRyd
WUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ%3
D%3D%7C0%7C%7C%7C&sdata=CANkpO7XZUj5r5CpIdpA7IN4BuRtGQccJxuP
9t8Y5qE%3D&reserved=0
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchi
ve.midrange.com%2Fmidrange-
l&data=05%7C02%7Cmichaelquigley%40theway.org%7C989a3f537877476800
ef08dde4f470b8%7Cdfc3789155b94fe0bc8b34a0f4b6650f%7C0%7C0%7C6389
18460702318712%7CUnknown%7CTWFpbGZsb3d8eyJFbXB0eU1hcGkiOnRyd
WUsIlYiOiIwLjAuMDAwMCIsIlAiOiJXaW4zMiIsIkFOIjoiTWFpbCIsIldUIjoyfQ%3
D%3D%7C0%7C%7C%7C&sdata=hE6BCWFlWJjunlmBeeZOHjS4Tx7Cnb8eIaFG
3Ra6GLU%3D&reserved=0.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.



------------------------------

End of MIDRANGE-L Digest, Vol 24, Issue 823
*******************************************