Re: Help with Free Format RPG

Eb wrote:
> I just tried this test program with no luck.
>
> The file is keyed by Order# the field is 6 zoned 0 decimals.
>
> I've tried () and without ().
> I've tried using the filename and the record format name.

I don't know what to tell you. I just did the following, and it
worked:


create table jonathan.testtable2 (thekey numeric(6,0) primary key,
thedata char(10));

insert into jonathan.testtable2 values(12345,'XXXXXXXXXX')

Created program and ran it in debug:

Program: TESTCHAIN Library: JONATHAN Module:
1 ftesttable2if e k disk
rename(testtable2:testfmt)
2 d mykeyfld s 6s 0 inz(12345)
3 /free
4 chain mykeyfld testtable2;
5 if %found(testtable2);
6 mykeyfld = *zero;
7 endif;
8 *inlr = *on;
9 return;
10 /end-free

I set a breakpoint at line 5, then pressed F10 and it advanced to line
6: the %found condition was on.

.

Relevant Pages

  • Re: Drop down list in ASPX, how do I keep all my spaces
    ... Any advice? ... I've been trying a similar idea all morning, with no luck. ... kinda ugly when displaying a mixture of integers and decimals, ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: sqlexec rounds data
    ... the numeric values in the access table are small decimals ... > string and sql statement. ... > ENDIF ... > I added the where clause in this test program to make sure the Access sql ...
    (microsoft.public.fox.vfp.queries-sql)
  • Re: Invalid Character Setting
    ... already tried that, no luck. ... page numbers, which are not decimals. ... >> a number from NUMPAGES), the result of the formula is ... >>!Invalid Character Setting ...
    (microsoft.public.word.mailmerge.fields)
  • Re: How do I round off a float to x decimal places
    ... documentation for a method which round off's a float number ... places with no luck. ... def round_to(decimals) ... def round_to_string ...
    (comp.lang.ruby)
Loading