0

as400 Java 開発 (JT400) は初めてです。スプールされたファイル リストを取得し、通常のテキストを読み込んでいます。今私はそれをExcel（XLS）ファイルに変換したい。AS400 スプール ファイルを Java を使用して Excel (XLS) ファイルに変換しようとしていますが、失敗しました。誰でもそれを行う方法を知っていますか? as400から直接変換できますか? Java を使用して、このスプール ファイル (またはこのテキスト ファイル) を Excel ファイルに変換する方法を知っている人はいますか?

前もって感謝します！

このようなスプールファイルのMY 1：

5722WDS V5R3M0  030905 RN        IBM ILE RPG             XXXXXXXXX/XXXX           SSSS        10/01/11 06:19:46        Page      1


Command  . . . . . . . . . . . . :   CRTBNDRPG

Issued by  . . . . . . . . . . :     XXXXXXXXX

Program  . . . . . . . . . . . . :   CUSR

Library  . . . . . . . . . . . :     XXXXXXXXX

Text 'description' . . . . . . . :   *SRCMBRTXT


Source Member  . . . . . . . . . :   CUSR

Source File  . . . . . . . . . . :   XXXXXXXXX

Library  . . . . . . . . . . . :     XXXXXXXXX

CCSID  . . . . . . . . . . . . :     273

Text 'description' . . . . . . . :

Last Change  . . . . . . . . . . :   10/01/11  06:19:41


Generation severity level  . . . :   10

Default activation group . . . . :   *YES

Compiler options . . . . . . . . :   *XREF      *GEN       *NOSECLVL  *SHOWCPY

                                   *EXPDDS    *EXT       *NOSHOWSKP *NOSRCSTMT

                                   *DEBUGIO   *NOEVENTF

Debugging views  . . . . . . . . :   *SOURCE

Output . . . . . . . . . . . . . :   *PRINT

Optimization level . . . . . . . :   *NONE

Source listing indentation . . . :   *NONE

Type conversion options  . . . . :   *NONE

Sort sequence  . . . . . . . . . :   *HEX

Language identifier  . . . . . . :   *JOBRUN

Replace program  . . . . . . . . :   *YES

User profile . . . . . . . . . . :   *USER

Authority  . . . . . . . . . . . :   *LIBCRTAUT

Truncate numeric . . . . . . . . :   *YES

Fix numeric  . . . . . . . . . . :   *NONE

Target release . . . . . . . . . :   *CURRENT

Allow null values  . . . . . . . :   *NO

Define condition names . . . . . :   *NONE

Enable performance collection  . :   *PEP

Profiling data . . . . . . . . . :   *NOCOL

Licensed Internal Code options . :

Generate program interface . . . :   *NO

Include directory  . . . . . . . :

Preprocessor options . . . . . . :   *NONE

5722WDS V5R3M0  030905 RN        IBM ILE RPG             XXXXXXXXX/XXXX           SSSS       10/01/11 06:19:46        Page      2


Line   <---------------------- Source Specifications ----------------------------><----     Comments ----> Do  Page  Change Src Seq

Number  ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number


                      S o u r c e   L i s t i n g


 1                                                                                                             110917     000100



 2 FCUS00D    CF   E             WORKSTN                                                                     110917     000200

    *--------------------------------------------------------------------------------------------*

    *                               RPG name         External name                               *

    * File name. . . . . . . . . :  CUS00D           XXXXXXXXX/SSSSSS                            *

    * Record format(s) . . . . . :  RECORD           RECORD                                      *

    *--------------------------------------------------------------------------------------------*

 3 FCUSMAS01  UF A E             DISK                                                                        110917     000300

 4                                                                                                           110917     000400

 5  /Free                                                                                                    110917     000500

 6                                                                                                           110917     000600

    *--------------------------------------------------------------------------------------------*

    *                               RPG name         External name                               *

    * File name. . . . . . . . . :  CUSMAS01         XXXXXXXXX/SSSSSS                          *

    * Record format(s) . . . . . :  CUSREC           CUSREC                                      *

    *--------------------------------------------------------------------------------------------*



 7=IRECORD                                                                                                             1000001

    *--------------------------------------------------------------------------------------------*                     1

    * RPG record format  . . . . :  RECORD                                                       *                     1

    * External format  . . . . . :  RECORD : XXXXXXXXX/SSSSSS                                   *                     1

    *--------------------------------------------------------------------------------------------*                     1

 8=I                             N    1    1  *IN03                                                                    1000002

 9=I                             N    2    2  *IN06                                                                    1000003

10=I                             S    3    8 0$CUSID                                                                   1000004

11=I                             A    9   33  $CUSNAME                                                                 1000005

12=I                             A   34   58  $CUSADD1                                                                 1000006

13=I                             A   59   83  $CUSADD2                                                                 1000007

14=I                             A   84  108  $CUSADD3                                                                 1000008

15=I                             S  109  118 0$TELNO                                                                   1000009

16=I                             S  119  133 3$CRDLMT                                                                  1000010

17=ICUSREC                                                                                                             2000001

    *--------------------------------------------------------------------------------------------*                     2

    * RPG record format  . . . . :  CUSREC                                                       *                     2

    * External format  . . . . . :  CUSREC : XXXXXXXXX/SSSSSS                                  *                     2

    *--------------------------------------------------------------------------------------------*                     2

18=I                             P    1    4 0CUSID                                                                    2000002

19=I                             A    5   29  CUSNAME                                                                  2000003

20=I                             A   30   54  CUSADD1                                                                  2000004

21=I                             A   55   79  CUSADD2                                                                  2000005

22=I                             A   80  104  CUSADD3                                                                  2000006

23=I                             S  105  114 0TELNO                                                                    2000007

24=I                             S  115  129 2CRDLMT                                                                   2000008



25    Exfmt record;                                                                                          110917     000700

26     Dow Not *IN03;                                                                              B01       110924     000800

27       If $CUSID <> *Zeros;                                                                      B02       111001     000801

28        Chain (CUSID) CUSREC;                                                                     02       111001     000802

29          If %Found(CUSMAS01);                                                                   B03       111001     000803

...等

4

3 に答える 3

3

Excel への直接変換をサポートするライブラリには、Apache POIとjExcelの 2 つがあります。

さらに、JasperReportsは、PDF などに加えて Excel へのエクスポートをサポートする高レベルのレポート ライブラリです。

本当の問題は、例のような自由に流れる形式を Excel のような行と列の形式にどのようにマッピングすることを期待するかということです。

于 2013-09-17T20:11:29.407 に答える
0

私にとって最も簡単なのは、次のようなコマンドです。

qsh cmd('touch -C 1252 mysplftxt.spl && catsplf -j 987654/myuser/myjob  mysplf 1 >mysplftxt.spl' )

Qshellのcatsplf ユーティリティーは、スプール・ファイルを STDOUT に入れます。上記の例では、パスを持たない という名前のストリームファイルにリダイレクトされるmysplftxt.splため、現在のディレクトリに入ります。現在のディレクトリは PC のネットワーク ドライブにマップされているため、LibreOffice Calc でファイルを開くだけです (ここでは Excel は必要ありません)。

それだけです。

技術的には、ジョブ名、スプール・ファイル名、番号などを受け入れ、Qshell CMD() 文字列を作成する CATSPLF という名前のコマンドを作成したため、さらに多くの作業が必要です。これにより、WRKSPLF コマンドの登録ユーザー機能など、さまざまな方法で要求を行うことがはるかに簡単になります。

当然、スプレッドシートには「セル」の定義はありません。ファイルを開くときに手動で行う必要があります。「細胞」が定期的に必要な場合、手動以外に 2 つの一般的なオプションがあります。それを実行するためのプログラムを書き始めるか、製品を購入するかです。

しかし、スプールされたファイルを Excel (または Calc やその他の表計算プログラム) で開いても意味がありません。Windows スプーラーからスプールされたファイルを開くのと同じようにしようとは思いません (これは本当に悪夢です)。AS/400 ラインでなぜ人々が頻繁にそれをやりたがるのか、私には理解できません。ほとんどの場合、データをスプレッドシートに取り込むには、はるかに優れた方法があります。

于 2014-04-30T06:19:55.633 に答える
0

次のようなスプールファイルがある場合

 DATE TIME NAME
 12345678901234

スプールをファイルに保存できます。私が使用する方法 (それが役立つことを願っています)... 通常、フィールドは 1 つしかなく、位置ごとにさまざまなフィールドを生成する必要があります。日付の場合は substr(field, 1, 4) 、時間の場合は substr(field, 6, 4) などのファイルをクエリして作成できます。Javaでは、このようにApache POIを使用することを好みます..

import org.apache.poi.ss.usermodel.Row;
import org.apache.poi.ss.usermodel.Sheet;
import org.apache.poi.xssf.streaming.SXSSFWorkbook;

...................................

wbk=new SXSSFWorkbook(500);
sheet=vbk.createSheet("book 1");
try{
    Row rowhead=sheet.createRow(0);
    rowhead.createCell(0).setCellValue("Hello");
            ...
            <Here you fill the Excel with the resultset of your query
            to the AS400 file using JT400>
            ...
    FileOutputStream fileOut =  new FileOutputStream(excelPath);
    wbk.write(fileOut);
    fileOut.flush();
    fileOut.close();
}catch(Exception e){...}
于 2014-03-13T17:45:54.153 に答える