Multi-value I-descriptor In SB/Unidata

[adewitt]

I'm not very good at writing these complex multi-value i-descriptors.  Heck, I'm not good at writing i-descriptors period with resorting to the SUBR() function and a basic program.  What I need to do is
1. EXTRACT(@RECORD,19,0,0)
2. TRANS('ITMMST',@1,107,'X')

My two tries:
I(EXTRACT(@RECORD,19,0,0);TRANS('ITMMST',@1,107,'X')
I(EXTRACT(@RECORD,19,0,0);REUSE(@1);TRANS('ITMMST',@2,107,'X')

It seems whatever I do I end up with:
LIST WIP F19 S_PL_CFG_CD
           CPN    Cfg_cd
12345  05561 0
           12345
           22322

Instead of
LIST WIP F19 S_PL_CFG_CD
           CPN    Cfg_cd
12345  05561 0
           12345 1
           22322 0

So how would you write the I-Descriptor to get the second outcome?

Thanks.

[precisonline]

I take it that RECORD<19> is multivalued?

[adewitt]

Yes it is.

[precisonline]

I'm largely guessing, but you might try this:

I(EXTRACT(@RECORD,19,0,0);REUSE(@1);TRANS('ITMMST',@1,107,'X'))

[adewitt]

No go, Kevin.

I'll take it up Monday.

Happy Thanksgiving.

[Colin Alfke]

I think your first one should have worked - you do need to make sure that the SM (<6>) in the dict is 'MV' and not 'S'.

This is one we use (INVOICE is a local MV'd dict - field Pos.Subpos = 1.M)
(F('INVOICE.FILE',INVOICE)<112>)
that creates:
EXTRACT(@RECORD,1,0,0);TRANS('INVOICE.FILE',@1,112,'X')

If your F19 is setup in SB+ as 19.M on the WIP file then:
(F('ITMMST',F19)<107>)
Should create the proper dictionary. We make sure the "key" has a #.M Field Pos.Subpos and the "link" uses 0.M.

hth
Colin

[adewitt]

I think your first one should have worked - you do need to make sure that the SM (<6>) in the dict is 'MV' and not 'S'.

This is one we use (INVOICE is a local MV'd dict - field Pos.Subpos = 1.M)
(F('INVOICE.FILE',INVOICE)<112>)
that creates:
EXTRACT(@RECORD,1,0,0);TRANS('INVOICE.FILE',@1,112,'X')

If your F19 is setup in SB+ as 19.M on the WIP file then:
(F('ITMMST',F19)<107>)
Should create the proper dictionary. We make sure the "key" has a #.M Field Pos.Subpos and the "link" uses 0.M.

hth
Colin

Ding, ding, ding; we have a winner!  It seems I was trying ot over complicate a simple process.

Thanks Colin.