Hi,
I have the XML attached and I am defining it as follows.
0045.00 *------------------------------------------------------------------------*
0046.00 * XML Data Definition *
0047.00 *------------------------------------------------------------------------*
0048.00 DEnvelope DS Qualified
0049.00 DBody
0050.00 D LikeDs(BodyDS)
0051.00
0052.00
0053.00 DBodyDS DS Qualified
0054.00 DListBatchFiles2018Response...
0055.00 D LikeDs(ListBatchFiles2018ResponseDS)
0056.00
0057.00 DListBatchFiles2018ResponseDS...
0058.00 D DS Qualified
0059.00 DListBatchFilesResult...
0060.00 D LikeDs(ListBatchFilesResultDS)
0061.00
0062.00 DListBatchFilesResultDS...
0063.00 D DS Qualified
0064.00 DBatchFileInfo...
0065.00 D LikeDs(BatchFileInfoDS)
0066.00 D Dim(5)
0067.00
0068.00 DBatchFileInfoDS DS
0069.00 DBatchFileInfoId...
0070.00 D 3
0071.00 DBatchid...
0072.00 D 36
0073.00 DDate...
0074.00 D 22
0075.00 DFileName...
0076.00 D 50
0077.00 DFileType...
0078.00 D 16
0079.00 DParticipantNumber...
0080.00 D 7
I have the problem with the matrix, since I don't think I'm doing it properly.
0164.00 * Work Fields
0165.00 D icase s 8a inz('case=any')
0166.00 D iallow1 s 14a inz('allowextra=yes')
0167.00 D iallow2 s 16a inz('allowmissing=yes')
0168.00 D iallow3 s 16a inz('ns=remove')
0169.00 D options S 100A
0170.00
0171.00 /free
0172.00
0173.00 options = icase + ' ' + iallow1 + ' ' + iallow2 + ' ' + iallow3;
0174.00 XML-INTO Envelope %XML(pDataIn: options);
When he decodes the message he's reading it to me like this, and I don't think it's quite right
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO.BATCHFILEINFOID(1) =
.
.
.
.
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO.BATCHFILEINFOID(1) =.
.
.
.
I think it should be:
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO(1).BATCHFILEINFOID(1) =
.
.
.
.
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO(2).BATCHFILEINFOID(1) =.
.
.
.
I'm sure it's silly, but I'm not seeing it. Grateful for your help.
I have the XML attached and I am defining it as follows.
0045.00 *------------------------------------------------------------------------*
0046.00 * XML Data Definition *
0047.00 *------------------------------------------------------------------------*
0048.00 DEnvelope DS Qualified
0049.00 DBody
0050.00 D LikeDs(BodyDS)
0051.00
0052.00
0053.00 DBodyDS DS Qualified
0054.00 DListBatchFiles2018Response...
0055.00 D LikeDs(ListBatchFiles2018ResponseDS)
0056.00
0057.00 DListBatchFiles2018ResponseDS...
0058.00 D DS Qualified
0059.00 DListBatchFilesResult...
0060.00 D LikeDs(ListBatchFilesResultDS)
0061.00
0062.00 DListBatchFilesResultDS...
0063.00 D DS Qualified
0064.00 DBatchFileInfo...
0065.00 D LikeDs(BatchFileInfoDS)
0066.00 D Dim(5)
0067.00
0068.00 DBatchFileInfoDS DS
0069.00 DBatchFileInfoId...
0070.00 D 3
0071.00 DBatchid...
0072.00 D 36
0073.00 DDate...
0074.00 D 22
0075.00 DFileName...
0076.00 D 50
0077.00 DFileType...
0078.00 D 16
0079.00 DParticipantNumber...
0080.00 D 7
I have the problem with the matrix, since I don't think I'm doing it properly.
0164.00 * Work Fields
0165.00 D icase s 8a inz('case=any')
0166.00 D iallow1 s 14a inz('allowextra=yes')
0167.00 D iallow2 s 16a inz('allowmissing=yes')
0168.00 D iallow3 s 16a inz('ns=remove')
0169.00 D options S 100A
0170.00
0171.00 /free
0172.00
0173.00 options = icase + ' ' + iallow1 + ' ' + iallow2 + ' ' + iallow3;
0174.00 XML-INTO Envelope %XML(pDataIn: options);
When he decodes the message he's reading it to me like this, and I don't think it's quite right
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO.BATCHFILEINFOID(1) =
.
.
.
.
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO.BATCHFILEINFOID(1) =.
.
.
.
I think it should be:
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO(1).BATCHFILEINFOID(1) =
.
.
.
.
ENVELOPE.BODY.LISTBATCHFILES2018RESPONSE.LISTBATCH FILESRESULT.BATCHFILEINFO(2).BATCHFILEINFOID(1) =.
.
.
.
I'm sure it's silly, but I'm not seeing it. Grateful for your help.
Comment