Code400 -The Support Alternative - RPG/RPGLE

Setp. 6, 2010 HSSFCGI release

jbperotti — Mon, 06 Sep 2010 22:16:12 GMT

There is a new release - dated Sept. 6, 2010 - of the Easy400.net utility HSSFCGI.

This utility allows ILE-RPG programs to generate Excel spreadsheets with format XLS (Windows Office 2003) and XLSX (Windows office 2007).
The utility is based on Scott Klement's service program HSSFR4 and POI Java classes 3.2 and 3.6.
Everything (HSSFR4 and POI classes) is in the package.
OS/400 V4R3 or subsequent.
Open source and no charge.

A special command, TABLEXLS, allows to generate spreadsheets directly from database files.
An intermediate XML-like XLSGEN stream file is generated and then processed
by spreadsheet generation commands (XLSGEN and XLSXGEN).

Documentation at page http://www.easy400.net/hssfcgi/html/page1.htm .

In previous HSSFCGI releases the spreadsheet generation commands (XLSGEN and XLSXGEN)
could not read intermediate XML-like XLSGEN stream file larger than 16 Mb.

The current HSSFCGI release removes the 16Mb restriction.

Giovanni B. Perotti

Converting sheets O in external printer

jmquintanad — Sun, 05 Sep 2010 22:06:36 GMT

I have an idea to develop a software application to �convert� O sheets in external printer files. In fact it should read one ILERPG source in iSeries, then change it and create an external printer file (DDS of type PRTF) in order to them be compiled and them would run in the same way former one used to do.
Do you know if sort of it is yet in market?
Do you think someone could pay money to get its old O sheets converted in printer files?Now I need to seek a partner in Barcelona (Catalonia) who was IBM partner to distribute it and to let me use its iSeries in order to develope my idea. :duh

Array index is not valid in rpg/400

sudha — Sat, 04 Sep 2010 04:59:56 GMT

Good Day!!

I am facing the error , Array Index is not v alid, Kindly let me how solve this error. :duh

Sudhaa

AS400 and vb.net

casporov — Fri, 03 Sep 2010 11:31:57 GMT

Dear All,

I am setting in vb.net a connection to a physical file in as400 in order to generate an XML file
am setting the connection as follow it is not working anyone can help in this issue?
Thanks

Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Module Module1

Sub Main()

Dim cnNwind As New SqlConnection("Data Source=Equation;user id=qwqw;password=avcx")
Dim daOrders As New SqlDataAdapter("Select * from library1.CRC02PF", cnNwind)

Dim ds As New DataSet()
Try
daOrders.FillSchema(ds, SchemaType.Mapped, "LIBRARY1.CRC02PF")

ds.WriteXmlSchema("C:\Orders.xsd")
Console.WriteLine("The XSD schema is written to C:\Orders.xsd.")
Console.Read()
Catch ex As Exception
Console.WriteLine(ex.Message)
Console.Read()
End Try
End Sub

End Module

Write a text file on IFS

gwilburn — Tue, 31 Aug 2010 21:18:15 GMT

I need to read the records in a database file, then write the contents of a single field into a text file on the IFS (followed by CRLF).

Sometimes the simpler things elude me... I have used CGIDEV2 to create HTML and XML files, but never just a plain text file with hex '0D0A' at the end of each row.

Any slick ideas would be appreciated.

thx.

Changes to physical file requires compiling

fjleon — Tue, 31 Aug 2010 13:34:05 GMT

Hello guys, newbie question. We have a bunch of physical files and want to add a new field that will hold the time the record was inserted.

A fellow programmer tells me that if you add the new field to the end of the file, the program won't crash if it isn't recompiled. If this true? If so, is there a way to add the new field in the middle of the file without recompiling?

The new field is type T.

XML Data Structure Setup

GLS400 — Mon, 30 Aug 2010 18:53:06 GMT

Hi All:

This is my XML:

PHP Code:


 
 < S01_EmpFirstName>John< /S01_EmpFirstName> 
 < S01_EmpMidName>L< /S01_EmpMidName> 
 < S01_EmpLastName>Smith< /S01_EmpLastName> 
 < S02_SpsFirstName / > 
 < S02_SpsMidName / > 
 < S02_SpsLastName / > 
   < Children> 
    < SChild_FirstName>Thea< /SChild_FirstName> 
    < SChild_MiddleName / > 
    < SChild_LastName>Smith< /SChild_LastName> 
   < /Children> 
   < Children> 
    < SChild_FirstName>Danielle< /SChild_FirstName> 
    < SChild_MiddleName / > 
    < SChild_LastName>Smith< /SChild_LastName> 
   < /Children> 
....could be 0 - 10 children....
< /tbl1395>

How do I set-up my data structure for an xml-into?

{edit} ....Moved code out of php block to make it Readable.... {/Edit}

< S01_EmpFirstName>John< /S01_EmpFirstName>
< S01_EmpMidName>L< /S01_EmpMidName>
< S01_EmpLastName>Smith< /S01_EmpLastName>
< S02_SpsFirstName / >
< S02_SpsMidName / >
< S02_SpsLastName / >
< Children>
< SChild_FirstName>Thea< /SChild_FirstName>
< SChild_MiddleName / >
< SChild_LastName>Smith< /SChild_LastName>
< /Children>
< Children>
< SChild_FirstName>Danielle< /SChild_FirstName>
< SChild_MiddleName / >
< SChild_LastName>Smith< /SChild_LastName>
< /Children>
....could be 0 - 10 children....
< /tbl1395>

Thanks
GLS

Usage of DBCLOB field in RPGLE

Kabil400 — Mon, 30 Aug 2010 15:09:35 GMT

hi, I have a file with DBCLOB field. When i try to compile the program, it says that the DBCLOB field is not recognized.
if anyone have a idea please let me know how to handle this field in ILE Rpgle

want to change sorting field... Key field change

venky2903 — Mon, 30 Aug 2010 12:37:59 GMT

HI all,,,
in my screen F8 button is there....

my req is if i press the F8 once... sorting should do on SNO

If i press again f8 sorting should be based on NAME

if i press again .... sorting with City

Can any one know the IDEA
to do this ....

Thanks In advance.

RPG and XML

casporov — Thu, 26 Aug 2010 07:14:14 GMT

Dear All,
Hope ur all fine,I would like to know if it's possible to be able to have an XML file from a Physical file?

Thanks in advance,
Have a nice day

BITOR operation

regu400 — Thu, 26 Aug 2010 06:58:39 GMT

Hi

Could anyone explain me the usage of BITOR operator here? As FLAG1, FLAG2, FLAG3 are reset before doing the operation, shant we just have
Flag1=S1
Flag2=S2
Flag3=S3
the 7 character s1,s2,s3 hold on 0s and 1s like '0101000'

PHP Code:


 *Flag1, Flag2, Flag3 are indicator arrays declared as follows
D  Flag1C                32     38N   Dim(7)       
D   Flag1                32     38                 

 *S1, S2, S3 are hidden fields in display file defined as follows
AS1         7A  H 


Flag1 = *Off;                                    
Flag2 = *Off;                                    
Flag3 = *Off;                                    
For Rrn = 2 to Max;                           
    Chain Rrn DSpfile1;                         
    If %Found(DSpfile1);                            
       Flag1 = %BITOR(Flag1:S1);           
       Flag2 = %BITOR(Flag2:S2);           
       Flag3 = %BITOR(Flag3:S3);           
    EndIf;                                         
EndFor;

Is the free access to AS400 server rzh.de or something still available

rtkriishna — Wed, 25 Aug 2010 16:24:22 GMT

Folks. is this free service still on. I am not able to submit the form on the site given.. Jamie help please.

Concatenation

redvan — Tue, 24 Aug 2010 19:26:38 GMT

Ok, I need some assistance here�.

I�m trying to concatenate fields together and I�m having difficulties because, according to the manual:

The book says�
�If no factor 1 is specified, factor 2 is concatenated to the end of the result field string� � wrong, doesn�t work for me. All I get it the first field in the result field.

The book says�
If the number of blanks is not specified, the trailing and leading blanks of factor 1 and factor 2 are included in the result. If the number of blanks is specified, however, the trailing blanks of factor 1 are ignored and only as many blanks as specified are included in the result between the last nonblank character in factor 1 and the first character of factor 2. Leading blanks in factor 2 are always included. � Wrong, losing my blank in position #1 of factor 2.

Code:

               MOVELSXCN09 $$IMPT175

$$IMPT    CAT  SXCN10:0  $$IMPT   

$$IMPT    CAT  SXCN11:0  $$IMPT   

$$IMPT    CAT  SXCN12:0  $$IMPT   

$$IMPT    CAT  SXCN13:0  $$IMPT   

$$IMPT    CAT  SXCN14:0  $$IMPT   

$$IMPT    CAT  SXCN15:0  $$IMPT   

               MOVEL$$IMPT   VDIMPT

In the above example, as it sits, I�m losing the blank at the beginning of factor 2, if one exists, so, I tried removing the �:0�. This gave me a rather unusual outcome where the result field only contained the data contained in SXCN09! All the other data was missing.

Than I tried removing both factor 1 and the �:0� which also gave me the same result as before.

Either my program has gremlins or the book is wrong!

Arrays as parameter in RPLGE

regu400 — Tue, 24 Aug 2010 09:19:51 GMT

Hi,

Can an array of record can be passed as parameter in RPGLE? If yes please give me a sample example on how to use that.

Regards
Regu

TESTN for decimal?

Thunder — Mon, 23 Aug 2010 13:20:04 GMT

How do you do the TESTN for 123,456 ?