Re: D spec to free format question -- RPG400-L

× 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.

dcl-c TRUE '1';
dcl-c FALSE '0';

dcl-s @Process Ind Inz(FALSE);

On Wed, Feb 6, 2019 at 12:34 PM Burrows, Thomas 1001 <
Burrows.Thomas@xxxxxxxxxxxxxx> wrote:

How do you turn this into a Free format statement?

D @Process s n inz('0')

The example I find online shows this.

Dcl-s @Process num inz(0) LIKE(LIMIT);

Not sure what LIMIT is????

And this line.

D dsPgms EsDS EXTNAME(SYSAPGPF) PREFIX(Gv)

Thomas Burrows
Infosys Consultant - AppDev - Legacy SUS
United States Mobile # 469.693.2533
Email: burrows.thomas@xxxxxxxxxxxxxx<mailto:burrows.thomas@xxxxxxxxxxxxxx>

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

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.