Looking to the vocabulary page of Evoke I have:
cmd =. {.
'cmd'~ (i.10)
0
Regards, Markus
Alex Rufon schrieb:
> Hi.
>
> I've been tinkering with my old EDI parser and I would like to extend it
> with a new feature.
>
> NB. =========================================================
> NB. AS400 File Maps
> NB. Each mapping follows the following format
> NB. Source*Variable*Type*Length*Decimal*Justify*Default*Remarks
> NB.
> NB. Valid values for each values are:
> NB. Source - values corresponds to names defined in RECIEVING.IJS:
> NB. ENVELOP
> NB. PO_HEADER
> NB. PO_LINE_ITEM
> NB. DESTINATION_QUANTITY
> NB. SUB_LINE_ITEM
> NB. LOCAL - a local map specifiying non EDI retrievable values
> NB. Variable - Names defined in RECIEIVING.IJS for each Source
> NB. Type - Supported datatypes: CHR, NUM, DTE
> NB. note that for DATE the format will be YYYYMMDD
> NB. and for NUM there will be NO decimal/period character
> NB. Length - number of characters the entry will occupy
> NB. Decimal - valid only for numbers, this list the decimal positions
> NB. Justify - Justification, valid values are: LJ and RJ
> NB. Default - if the variable value is blank, use this value
> NB. Remarks - free text, NOT USED by code
> NB. Additional Operation - ADVANCED, additional operation to apply to
> variable
>
> NB. =========================================================
> NB.*PO_HEADER_MAP (n) definition for PO Header
> PO_HEADER_MAP=: unbox '*' cutstring each cutopen noun define
> LOCAL*SOURCE*CHR*8*0*LJ*POLO*Source Code*
> ENVELOP*SENDER_QUAL*CHR*2*0*LJ**IQ*
> ENVELOP*SENDER_ID*CHR*15*0*LJ**ID*
> PO_HEADER*PO_NO*CHR*30*0*LJ**PO NO*
> PO_HEADER*RELEASE_NO*NUM*3*0*RJ*000*PO REV*
> LOCAL*EDI_REVISION*NUM*3*0*RJ*000*EDI REV*
> PO_HEADER*PO_EXTRACT_DATE*DTE*8*0*LJ**PO Date*
> PO_HEADER*CUST_ORDER_NO*CHR*30*0*LJ**Contract No*
> LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*
> )
>
> What I want to do is add the "Additional Operation" at the end. For
> example: in the entry
> LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*
>
> I want to change it to:
> LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*{.
>
> So the idea is that I would only take the first item in the data so to
> simulate:
> cmd=. '{.'
> (cmd)~ i. 10
> |ill-formed name
> | (cmd)~i.10
>
> (".(cmd)) 1 2 3
> |syntax error
> | (".(cmd))1 2 3
>
> What I did find out is that I can get away with it if I use the
> primitives:
> LOCAL*LOT_NO*CHR*5*0*LJ**LOT No*take
> cmd=. 'take'
> (cmd)~ 1 2 3
> 1
>
> Am I missing something or I really just have to use the primitives?
>
> Thanks.
>
> r/Alex
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
>
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
