Hi,
Here is my program snippet. It suppose to set the entire array to 37.0. But why does it show 0 when I output the 1st 2 elements. Is something wrong on my printf statements?
Thanks in advance.
float values[100];
float *pt3;
int ii;
pt3 = values;
for (ii =...
Hi,
I have a program from the tutorial that is suppose to count
the lower case character. The tutorial said that I have to
enter control-d or control-z after the last line of my text
to indicate end of file. When I excecute my program, I got
a blank screen. Then I typed a line as below and...
Hi,
I just installed Dev-c++ and Tried to create my first hello
world program. After I finished coding, I click ctrl + F9
to compile (with no error). Then I press ctrl + F10 to run,
there was a quick flash came out (couldn't tell what it
was). I thought I was going to get "hello world"...
D scsw S 2 INZ('03')
D num S 2 0
num = %uns(scsw) -1;
scsw = %editc(num:'X'); // scsw = '02'
why the above coding works but the below doesn't?
scsw = %editc((%uns(scsw)-1):'X'); // scsw = '00'...
Hi,
I have an SQL, original condition on the WHERE clause was to get the data only when date1 is greater than date2. Date1 comprises of 4 fields, century, year, month and day. Date2 comprises of 2 fields century and YYMMDD.
WHERE DIGITS(CC) || DIGITS(YY) || DIGITS(MM) || DIGITS(DD)
>...
Hi,
I have an OPM program with 2 parms (6x and 35x).
Inside my ILE pgm I have a field, 25x long, that I want to used for 2nd parm when I call this OPM pgm. The OPM pgm suppose to change the value of the 2nd parm and pass back to the calling pgm. Is it possible? HOW?
I tried this but it did not...
Hi,
I have 1 ILE pgm that call a procedure in service pgm. I made chg in service pgm, compiled, and CRTSRVPGM. Why my pgm doesn't get the new version of the service pgm until I signoff and back in again. I call this pgm from the command line.
thank in advance
Hi,
Is there any things new in subfile in RPGIV (or free form) from RPG400. Is it worth to buy a book about subfile in RPGIV, I already know how to do subfile in RPG400.
thanks
Hi,
Between these 3:
1.Subprogram (a pgm that is called by calling pgm but not bound with the calling pgm, just like in OPM.
2.Module(bind by copy)
3.service pgm( bind by reference)
In what kind of case I should use which one of the above?
What's the preference?
Thanks
Hi,
I have very simple SQL embeded pgm, just read/print for record that has date >= specified date. The file has almost 800,000 records. The pgm took almost 1 min. to run. I used the same SELECT statement and run in STRSQL. It took only 2-3 sec. What's wrong with my program? Can any one help...
Hi,
I have a file with 5 fields.
fielda, fieldb, fieldc,fieldd, and fielde. fielda and fieldc are my keys.
I use keys to read this file and write out to another text file. How can I write out the whole record without definding each field in DS or without moving each field at a time.
Thanks
Hi,
<Cell ss:StyleID="s26"><Data ss:Type="String">&&*01</Data></Cell>
In the string above, I want to replace &&*01 with some data. Currently this is how I do this.
Temp = %REPLACE('':SourceString:I:5); // remove &&*01
Result= %REPLACE(MyData:Temp:I:0); //Insert data
( 'I' is the position...
Hi,
I have 2 fields, one contains month and the other contain year (each 2 char. long), which is my ending period. I want to find starting period(-11 months). I know if I have full date (cymd) then I can use fxn %month(-11). Can I subtract months from only the mm and yy portion that I have or...
Hi,
Is it possible to debug subprocedure in the service program?
What's the command to display what programs use which subprocudure of the service program?
Thanks
Hi,
I have to create a report and send to client in excel file as a weekly basis. What I did is create comma delimited file (.CSV), copy to folder (CPYTOPCD), then use excel to open it. The problem is I have some text fields that contain all numeric data and sometime it has 0 in the front...
Hi,
What's wrong with my module? It won't compile.
Here is my pgm:
H NOMAIN
FCUMAST IF E K DISK USROPN
D GETCUST PR N
D CUSTNO 6
D ZDS LIKEDS(CUSTD
P GETCUST B EXPORT
D...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.