×
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.
Thank you Alan (and others)....
I thought about doing just this below. But I didn't because of how RDi displayed the definition when I "hovered" over the Fixed format versus the Free Format... In BOTH cases, the hover defined it as CHAR(30) DIM(30)
This is inside our old ERP. I call their program to get screen language from a file. It's returned in 750 element array one char(1). Basically, you populate S1CON below, which populates all the screen constants for SCREEN01.
I know... very old school... But I'm completely rewriting this program to separate screen & database access (to eventually do away with the green screen)... So I don't want to mess with that logic.
Thanks again.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Alan Shore via RPG400-L
Sent: Tuesday, January 07, 2020 2:40 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: RE: [EXTERNAL] Convert DS to Free Format
Hi Greg
I believe the data structure should be
dcl-ds *n;
s1con char(1) pos(1) dim(30);
s1cn01 char(9) pos(1);
s1cn02 char(9) pos(10);
s1cn03 char(4) pos(19);
s1cn04 char(4) pos(23);
s1cn05 char(4) pos(27);
end-ds;
your way - S1con was 900 characters - 30 x 30
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
midrange.com
