× 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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.