簡體   English   中英

如何在C#中將binary(4)參數的數組(*)傳遞給IBM iSeries api?

[英]How to pass an array(*) of binary(4) parameter to IBM iSeries api in C#?

我正在嘗試檢索C#中的假脫機文件,並且使用cwbx.dll在我的程序中成功顯示了WRKSPLF中的大多數信息。

但是,事實證明,我使用的SPLF0100和SPLF0300格式沒有用,因為第一個不返回一些我需要的字段,例如日期,而另一個不返回內部作業和后台打印文件標識符,我需要使用QSPOPNSP API實際讀取文件。 所以我需要使用SPLF0200。

問題是,這種格式要求您傳遞一個帶有要返回的字段鍵的binary(4)數組(*),而我不知道如何在C#上執行此操作。 我看到了一個使用如下數據結構的RPG示例:

IKEYARA      DS     (7)
I I            201                   B   1   40KEY1
I I            216                   B   5   80KEY2
I I            211                   B   9  120KEY3   
C                     CALL 'QUSLSPL'     (3)
C                     PARM           SPCNAM
C                     PARM 'SPLF0200'FORMAT  8   (4)
C                     PARM '*CURRENT'USRNAM 10
C                     PARM '*ALL'    OUTQ   20
C                     PARM '*ALL'    FRMTYP 10
C                     PARM '*ALL'    USRDTA 10
C                     PARM           QUSBN
C                     PARM           JOBNAM 26
C                     PARM           KEYARA      
C                     PARM 3         KEY#

所以我試圖用cwbx.Structure來做同樣的事情:

Program programSpool = new Program();
programSpool.LibraryName = "QSYS";
programSpool.ProgramName = "QUSLSPL";
programSpool.system = system;

ProgramParameters parametersQuslpl = new ProgramParameters();

//nombre userspace creado anteriormente
parametersQuslpl.Append("usrspcnam", cwbrcParameterTypeEnum.cwbrcInout, 20);
StringConverter stringConverterUsrspcnam = new cwbx.StringConverterClass();
stringConverterUsrspcnam.Length = 20;
parametersQuslpl["usrspcnam"].Value = stringConverterUsrspcnam.ToBytes("FLEON     QGPL      ");
//tipo de formato a leer del spool
parametersQuslpl.Append("frmname", cwbrcParameterTypeEnum.cwbrcInout, 8);
StringConverter stringConverterFrmname = new cwbx.StringConverterClass();
stringConverterFrmname.Length = 8;
parametersQuslpl["frmname"].Value = stringConverterFrmname.ToBytes("SPLF0200");
//nombre de usuario del spool a bajar
parametersQuslpl.Append("usrnam", cwbrcParameterTypeEnum.cwbrcInout, 10);
StringConverter stringConverterUsrnam = new cwbx.StringConverterClass();
stringConverterUsrnam.Length = 10;
parametersQuslpl["usrnam"].Value = stringConverterUsrnam.ToBytes("*CURRENT");
//nombre de cola de salida
parametersQuslpl.Append("cola", cwbrcParameterTypeEnum.cwbrcInout, 20);
StringConverter stringConverterCola = new cwbx.StringConverterClass();
stringConverterCola.Length = 20;
parametersQuslpl["cola"].Value = stringConverterCola.ToBytes("*ALL");
//tipo de formulario
parametersQuslpl.Append("frmtyp", cwbrcParameterTypeEnum.cwbrcInout, 10);
StringConverter stringConverterFrmtyp = new cwbx.StringConverterClass();
stringConverterFrmtyp.Length = 10;
parametersQuslpl["frmtyp"].Value = stringConverterFrmtyp.ToBytes("*ALL");
//data de usuario
parametersQuslpl.Append("usrdta", cwbrcParameterTypeEnum.cwbrcInout, 10);
StringConverter stringConverterUsrdta = new cwbx.StringConverterClass();
stringConverterUsrdta.Length = 10;
parametersQuslpl["usrdta"].Value = stringConverterUsrdta.ToBytes("*ALL");
//error?
parametersQuslpl.Append("error", cwbrcParameterTypeEnum.cwbrcInout, 116);     
StructureClass sc2 = new StructureClass();
sc2.Fields.Append("bytesprov", 4);
sc2.Fields.Append("bytesavail", 4);
sc2.Fields.Append("messageid", 7);
sc2.Fields.Append("err", 1);
sc2.Fields.Append("messagedta", 100);     
parametersQuslpl["error"].Value = sc2.Bytes;
//nombre trabajo
parametersQuslpl.Append("nombretrabajo", cwbrcParameterTypeEnum.cwbrcInput, 26);
stringConverterUsrdta.Length = 26;
parametersQuslpl["nombretrabajo"].Value = stringConverterUsrdta.ToBytes("*                         ");
//keys
parametersQuslpl.Append("keys", cwbrcParameterTypeEnum.cwbrcInput, 103);

StructureClass keys = new StructureClass();
keys.Fields.Append("nombrearchivo", 10); //char10 201
keys.Fields.Append("usuario", 10); //char10 203
keys.Fields.Append("nombrecola", 10); //206
keys.Fields.Append("datosusuario", 10); //209
keys.Fields.Append("estado", 10); //210
keys.Fields.Append("paginas", 4); //bin 211
keys.Fields.Append("copias", 4); //bin 213
keys.Fields.Append("fecha", 7); //216
keys.Fields.Append("hora", 6); //217
keys.Fields.Append("idtrabajo", 16); //218
keys.Fields.Append("idarchivo", 16); //219*/
parametersQuslpl["keys"].Value = keys.Bytes;
//cantidad keys a devolver
parametersQuslpl.Append("cantidadkeys", cwbrcParameterTypeEnum.cwbrcInput, 4);
LongConverterClass LongConverterKeys = new cwbx.LongConverterClass();
        parametersQuslpl["cantidadkeys"].Value = LongConverterKeys.ToBytes(11);

但是,我得到以下錯誤:

“ CPF34C2-指定的選擇標准太多。”

有人對如何進行有任何想法嗎?

如果您使用DSPMSGD查看消息詳細信息...

原因。 :選擇合格的作業名稱時
條件,用戶名,表單類型,用戶指定的數據和輸出隊列
名稱選擇條件必須為空白。

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM