[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference rocks::dec_edi

Title:DEC/EDI
Notice:DEC/EDI V2.1 - see note 2002
Moderator:METSYS::BABER
Created:Wed Jun 06 1990
Last Modified:Fri Jun 06 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:3150
Total number of notes:13466

3031.0. "Specifying increment on FOR loop?" by GENIE::qmodo.ebo.dec.com::genie::munt (Colin Munt) Wed Feb 26 1997 20:49

Mapper Question DEC/EDI V3.1:

According to the documentation it should be possible to specify an increment on a FOR loop. If an increment is specified e.g. 
field = FOR (J = max TO 1, -1) ... then the Mapping Editor complains of a syntax error at compile time. What is the correct 
syntax?

Thanks
...colin
T.RTitleUserPersonal
Name		DateLines
3031.1max is a keywordSYSTEM::newdial_10.reo.dec.com::JOHNSONRichard Johnson , http://samedi.reo.dec.comThu Feb 27 1997 12:2615
Colin

>According to the documentation it should be possible to specify
>an increment on a FOR loop. If an increment is specified e.g. 
>field = FOR (J = max TO 1, -1) ... then the Mapping Editor
>complains of a syntax error at compile time. What is the correct 
>syntax?

The error here is that max is a Mapping Language Keyword
see Application Development: Part III Mapping Topics:
Mapping expressions: Mapping language Keywords for a complete list.

Otherwise there is nothing wrong with using an increment.

Richard
3031.2Increment not a keywordGENIE::qmodo.ebo.dec.com::genie::muntColin MuntThu Feb 27 1997 13:3614
Richard,

I wasn't actually using max in the FOR loop. This was just an example. What 
I tried was:

 t1 = FOR (J = gin_count TO 1, -1) ....

 incr = -1
 t1 = FOR (J = gin_count TO 1, incr) ....

Both generated a syntax error when compiling.

...colin
3031.3SYSTEM::newdial_10.reo.dec.com::JOHNSONRichard Johnson , http://samedi.reo.dec.comThu Feb 27 1997 14:1411
Colin

Is there something wrong with the rest of the assignment expression?

The FOR expressions you show are fine.

If everything looks fine to you please post the FBI file
as a reply here.

Thanks
Richard
3031.4MATIDE_I.FBIGENIE::qmodo.ebo.dec.com::genie::muntColin MuntThu Feb 27 1997 15:32367
0,Created by DEC/EDI Mapper GUI
3,MATIDE_I
1,3.1
2,854448537
4,1
5,0
6,MATIDENT
19,0
25,SFABRCAN,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,FABRC,4,4,0
26,1,FCODE,4,1,0
26,1,FABRART,4,32,0
25,SIDTTEXT,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,SPKEY,4,2,0
26,1,STEXT,4,40,0
25,SMATROOT,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,ALN,4,11,0
26,1,IDSTC1,4,2,0
25,SMATVERW,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,RHINWTXT,4,40,0
25,SVPREISE,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,PREIS,4,9,0
26,1,PREINC,4,1,0
26,1,PRJAHR,4,2,0
20,1,SMATROOT,1,1,0,1
20,2,SIDTTEXT,1,-1,0,1
20,2,SVPREISE,1,1,0,1
20,1,SMATVERW,1,1,0,1
20,2,SFABRCAN,1,-1,0,1
2,854448537,DECEDI::GUI
31,1,D93A,INVRPT,INVRPT,,1,854448537,DECEDI::GUI,Description
33,BGM,Beginning of message
34,1,ELEMENT_C002,0,0,/* ELEMENT */
34,2,BGM_C002_1001,16,3,O Document/message name, coded
34,2,BGM_C002_1131,16,3,O Code list qualifier
34,2,BGM_C002_3055,16,3,O Code list responsible agency,
34,2,BGM_C002_1000,1,35,O Document/message name
34,1,ELEMENT_1004,0,0,/* ELEMENT */
34,2,BGM_1004,1,35,O Document/message number
34,1,ELEMENT_1225,0,0,/* ELEMENT */
34,2,BGM_1225,16,3,O Message function, coded
34,1,ELEMENT_4343,0,0,/* ELEMENT */
34,2,BGM_4343,16,3,O Response type, coded
33,DTM,Date/time/period
34,1,ELEMENT_C507,0,0,/* ELEMENT */
34,2,DTM_C507_2005,16,3,M Date/time/period qualifier
34,2,DTM_C507_2380,1,35,O Date/time/period
34,2,DTM_C507_2379,16,3,O Date/time/period format qualif
33,RFF,Reference
34,1,ELEMENT_C506,0,0,/* ELEMENT */
34,2,RFF_C506_1153,16,3,M Reference qualifier
34,2,RFF_C506_1154,1,35,O Reference number
34,2,RFF_C506_1156,1,6,O Line number
34,2,RFF_C506_4000,1,35,O Reference version number
33,NAD,Name and address
34,1,ELEMENT_3035,0,0,/* ELEMENT */
34,2,NAD_3035,16,3,M Party qualifier
34,1,ELEMENT_C082,0,0,/* ELEMENT */
34,2,NAD_C082_3039,1,17,M Party id identification
34,2,NAD_C082_1131,16,3,O Code list qualifier
34,2,NAD_C082_3055,16,3,O Code list responsible agency,
34,1,ELEMENT_C058,0,0,/* ELEMENT */
34,2,NAD_C058_3124_1,1,35,M Name and address line
34,2,NAD_C058_3124_2,1,35,O Name and address line
34,2,NAD_C058_3124_3,1,35,O Name and address line
34,2,NAD_C058_3124_4,1,35,O Name and address line
34,2,NAD_C058_3124_5,1,35,O Name and address line
34,1,ELEMENT_C080,0,0,/* ELEMENT */
34,2,NAD_C080_3036_1,1,35,M Party name
34,2,NAD_C080_3036_2,1,35,O Party name
34,2,NAD_C080_3036_3,1,35,O Party name
34,2,NAD_C080_3036_4,1,35,O Party name
34,2,NAD_C080_3036_5,1,35,O Party name
34,2,NAD_C080_3045,16,3,O Party name format, coded
34,1,ELEMENT_C059,0,0,/* ELEMENT */
34,2,NAD_C059_3042_1,1,35,M Street and number/p.o. box
34,2,NAD_C059_3042_2,1,35,O Street and number/p.o. box
34,2,NAD_C059_3042_3,1,35,O Street and number/p.o. box
34,1,ELEMENT_3164,0,0,/* ELEMENT */
34,2,NAD_3164,1,35,O City name
34,1,ELEMENT_3229,0,0,/* ELEMENT */
34,2,NAD_3229,1,9,O Country sub-entity identificat
34,1,ELEMENT_3251,0,0,/* ELEMENT */
34,2,NAD_3251,1,9,O Postcode identification
34,1,ELEMENT_3207,0,0,/* ELEMENT */
34,2,NAD_3207,1,3,O Country, coded
33,LOC,Place/location identification
34,1,ELEMENT_3227,0,0,/* ELEMENT */
34,2,LOC_3227,16,3,M Place/location qualifier
34,1,ELEMENT_C517,0,0,/* ELEMENT */
34,2,LOC_C517_3225,1,25,O Place/location identification
34,2,LOC_C517_1131,16,3,O Code list qualifier
34,2,LOC_C517_3055,16,3,O Code list responsible agency,
34,2,LOC_C517_3224,1,17,O Place/location
34,1,ELEMENT_C519,0,0,/* ELEMENT */
34,2,LOC_C519_3223,1,25,O Related place/location one ide
34,2,LOC_C519_1131,16,3,O Code list qualifier
34,2,LOC_C519_3055,16,3,O Code list responsible agency,
34,2,LOC_C519_3222,1,70,O Related place/location one
34,1,ELEMENT_C553,0,0,/* ELEMENT */
34,2,LOC_C553_3233,1,25,O Related place/location two ide
34,2,LOC_C553_1131,16,3,O Code list qualifier
34,2,LOC_C553_3055,16,3,O Code list responsible agency,
34,2,LOC_C553_3232,1,70,O Related place/location two
34,1,ELEMENT_5479,0,0,/* ELEMENT */
34,2,LOC_5479,1,3,O Relation, coded
33,CTA,Contact information
34,1,ELEMENT_3139,0,0,/* ELEMENT */
34,2,CTA_3139,16,3,O Contact function, coded
34,1,ELEMENT_C056,0,0,/* ELEMENT */
34,2,CTA_C056_3413,1,17,O Department or employee identif
34,2,CTA_C056_3412,1,35,O Department or employee
33,COM,Communication contact
34,1,ELEMENT_C076,0,0,/* ELEMENT */
34,2,COM_C076_3148,1,25,M Communication number
34,2,COM_C076_3155,16,3,M Communication channel qualifie
33,CUX,Currencies
34,1,ELEMENT_C504,0,0,/* ELEMENT */
34,2,CUX_C504_6347_1,16,3,M Currency details qualifier
34,2,CUX_C504_6345_1,1,3,O Currency, coded
34,2,CUX_C504_6343_1,16,3,O Currency qualifier
34,2,CUX_C504_6348_1,3,4,O Currency rate base
34,1,ELEMENT_C504,0,0,/* ELEMENT */
34,2,CUX_C504_6347_2,16,3,M Currency details qualifier
34,2,CUX_C504_6345_2,1,3,O Currency, coded
34,2,CUX_C504_6343_2,16,3,O Currency qualifier
34,2,CUX_C504_6348_2,3,4,O Currency rate base
34,1,ELEMENT_5402,0,0,/* ELEMENT */
34,2,CUX_5402,3,12,O Rate of exchange
34,1,ELEMENT_6341,0,0,/* ELEMENT */
34,2,CUX_6341,16,3,O Currency market exchange, code
33,CPS,Consignment packing sequence
34,1,ELEMENT_7164,0,0,/* ELEMENT */
34,2,CPS_7164,1,12,M Hierarchical id number
34,1,ELEMENT_7166,0,0,/* ELEMENT */
34,2,CPS_7166,1,12,O Hierarchical parent id
34,1,ELEMENT_7075,0,0,/* ELEMENT */
34,2,CPS_7075,16,3,O Packaging level, coded
33,PAC,Package
34,1,ELEMENT_7224,0,0,/* ELEMENT */
34,2,PAC_7224,3,8,O Number of packages
34,1,ELEMENT_C531,0,0,/* ELEMENT */
34,2,PAC_C531_7075,16,3,O Packaging level, coded
34,2,PAC_C531_7233,16,3,O Packaging related information,
34,2,PAC_C531_7073,16,3,O Packaging terms and conditions
34,1,ELEMENT_C202,0,0,/* ELEMENT */
34,2,PAC_C202_7065,1,7,O Type of packages identificatio
34,2,PAC_C202_1131,16,3,O Code list qualifier
34,2,PAC_C202_3055,16,3,O Code list responsible agency,
34,2,PAC_C202_7064,1,35,O Type of packages
34,1,ELEMENT_C402,0,0,/* ELEMENT */
34,2,PAC_C402_7077,16,3,M Item description type, coded
34,2,PAC_C402_7064_1,1,35,M Type of packages
34,2,PAC_C402_7143_1,16,3,O Item number type, coded
34,2,PAC_C402_7064_2,1,35,O Type of packages
34,2,PAC_C402_7143_2,16,3,O Item number type, coded
34,1,ELEMENT_C532,0,0,/* ELEMENT */
34,2,PAC_C532_8395,16,3,O Returnable package freight pay
34,2,PAC_C532_8393,16,3,O Returnable package load conten
33,PCI,Package identification
34,1,ELEMENT_4233,0,0,/* ELEMENT */
34,2,PCI_4233,16,3,O Marking instructions, coded
34,1,ELEMENT_C210,0,0,/* ELEMENT */
34,2,PCI_C210_7102_1,1,35,M Shipping marks
34,2,PCI_C210_7102_2,1,35,O Shipping marks
34,2,PCI_C210_7102_3,1,35,O Shipping marks
34,2,PCI_C210_7102_4,1,35,O Shipping marks
34,2,PCI_C210_7102_5,1,35,O Shipping marks
34,2,PCI_C210_7102_6,1,35,O Shipping marks
34,2,PCI_C210_7102_7,1,35,O Shipping marks
34,2,PCI_C210_7102_8,1,35,O Shipping marks
34,2,PCI_C210_7102_9,1,35,O Shipping marks
34,2,PCI_C210_7102_10,1,35,O Shipping marks
34,1,ELEMENT_8275,0,0,/* ELEMENT */
34,2,PCI_8275,16,3,O Container/package status, code
33,QTY,Quantity
34,1,ELEMENT_C186,0,0,/* ELEMENT */
34,2,QTY_C186_6063,16,3,M Quantity qualifier
34,2,QTY_C186_6060,3,15,M Quantity
34,2,QTY_C186_6411,1,3,O Measure unit qualifier
33,GIN,Goods identity number
34,1,ELEMENT_7405,0,0,/* ELEMENT */
34,2,GIN_7405,16,3,M Identity number qualifier
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_1,1,35,M Identity number
34,2,GIN_C208_7402_2,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_3,1,35,M Identity number
34,2,GIN_C208_7402_4,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_5,1,35,M Identity number
34,2,GIN_C208_7402_6,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_7,1,35,M Identity number
34,2,GIN_C208_7402_8,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_9,1,35,M Identity number
34,2,GIN_C208_7402_10,1,35,O Identity number
33,LIN,Line item
34,1,ELEMENT_1082,0,0,/* ELEMENT */
34,2,LIN_1082,3,6,O Line item number
34,1,ELEMENT_1229,0,0,/* ELEMENT */
34,2,LIN_1229,16,3,O Action request/notification, c
34,1,ELEMENT_C212,0,0,/* ELEMENT */
34,2,LIN_C212_7140,1,35,O Item number
34,2,LIN_C212_7143,16,3,O Item number type, coded
34,2,LIN_C212_1131,16,3,O Code list qualifier
34,2,LIN_C212_3055,16,3,O Code list responsible agency,
34,1,ELEMENT_5495,0,0,/* ELEMENT */
34,2,LIN_5495,16,3,O Sub-line indicator, coded
34,1,ELEMENT_1222,0,0,/* ELEMENT */
34,2,LIN_1222,3,2,O Configuration level
34,1,ELEMENT_7083,0,0,/* ELEMENT */
34,2,LIN_7083,16,3,O Configuration, coded
33,IMD,Item description
34,1,ELEMENT_7077,0,0,/* ELEMENT */
34,2,IMD_7077,16,3,O Item description type, coded
34,1,ELEMENT_7081,0,0,/* ELEMENT */
34,2,IMD_7081,16,3,O Item characteristic, coded
34,1,ELEMENT_C273,0,0,/* ELEMENT */
34,2,IMD_C273_7009,1,7,O Item description identificatio
34,2,IMD_C273_1131,16,3,O Code list qualifier
34,2,IMD_C273_3055,16,3,O Code list responsible agency,
34,2,IMD_C273_7008_1,1,35,O Item description
34,2,IMD_C273_7008_2,1,35,O Item description
34,1,ELEMENT_7383,0,0,/* ELEMENT */
34,2,IMD_7383,16,3,O Surface/layer indicator, coded
33,MEA,Measurements
34,1,ELEMENT_6311,0,0,/* ELEMENT */
34,2,MEA_6311,16,3,M Measurement application qualif
34,1,ELEMENT_C502,0,0,/* ELEMENT */
34,2,MEA_C502_6313,16,3,O Measurement dimension, coded
34,2,MEA_C502_6321,16,3,O Measurement significance, code
34,2,MEA_C502_6155,16,3,O Measurement attribute, coded
34,1,ELEMENT_C174,0,0,/* ELEMENT */
34,2,MEA_C174_6411,1,3,M Measure unit qualifier
34,2,MEA_C174_6314,3,18,O Measurement value
34,2,MEA_C174_6162,3,18,O Range minimum
34,2,MEA_C174_6152,3,18,O Range maximum
34,1,ELEMENT_7383,0,0,/* ELEMENT */
34,2,MEA_7383,16,3,O Surface/layer indicator, coded
33,PRI,Price details
34,1,ELEMENT_C509,0,0,/* ELEMENT */
34,2,PRI_C509_5125,16,3,M Price qualifier
34,2,PRI_C509_5118,3,15,O Price
34,2,PRI_C509_5375,16,3,O Price type, coded
34,2,PRI_C509_5387,16,3,O Price type qualifier
34,2,PRI_C509_5284,3,9,O Unit price basis
34,2,PRI_C509_6411,1,3,O Measure unit qualifier
34,1,ELEMENT_5213,0,0,/* ELEMENT */
34,2,PRI_5213,16,3,O Sub-line price change, coded
32,1,header,0,1,0
32,1,detail,0,1,0
32,2,BGM,1,1,0
32,2,DTM,0,10,0
32,2,RFF,0,10,0
32,3,DTM#1,0,1,0
32,2,NAD,0,20,0
32,3,LOC,0,5,0
32,3,RFF#1,0,10,0
32,4,DTM#2,0,1,0
32,3,CTA,0,10,0
32,4,COM,0,5,0
32,2,CUX,0,5,0
32,3,DTM#3,0,1,0
32,1,summary,0,1,0
32,2,CPS,0,9999,0
32,3,PAC,0,999,0
32,4,PCI,0,1000,0
32,4,QTY,0,9999,0
32,5,GIN,0,9999,0
32,5,DTM#4,0,5,0
32,2,LIN,0,9999,0
32,3,IMD,0,10,0
32,3,MEA,0,10,0
32,3,LOC#1,0,5,0
32,3,DTM#5,0,5,0
32,3,RFF#2,0,10,0
32,4,DTM#6,0,1,0
32,3,QTY#1,0,9999,0
32,4,GIN#1,0,9999,0
32,4,LOC#2,0,5,0
32,4,DTM#7,0,5,0
32,4,PRI,0,5,0
32,5,CUX#1,0,1,0
32,5,DTM#8,0,1,0
32,4,RFF#3,0,10,0
32,5,DTM#9,0,1,0
32,4,CPS#1,0,9999,0
32,5,PAC#1,0,9999,0
32,6,GIN#2,0,9999,0
32,6,DTM#10,0,5,0
37,1,INVRPT,,1,D93A,INVRPT,INVRPT,1
38,1,SMATROOT,1,1,,0
40,1,0,1
41,RFF#2
44,BGM:BGM_C002_1000="E2MARAM"
47,RECTYP = "01"
47,MUTCODE = IF  RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR = LIN:LIN_C212_7140
47,ALN = RFF_C506_1154
47,IDSTC1 = RFF_C506_1156
38,2,SIDTTEXT,1,-1,,0
40,1,0,1
41,IMD
47,RECTYP = "05"
47,MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN IMD_7081 ELSE "888"
47,MATNR = LIN:LIN_C212_7140
47,SPKEY = IMD_C273_7009
47,STEXT = IMD_C273_7008_1 | IMD_C273_7008_2
38,2,SVPREISE,1,1,,0
40,1,0,1
41,PRI
47,RECTYP = "06"
47,MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR =  LIN:LIN_C212_7140
47,PREIS = PRI_C509_5118
47,PREINC = PRI_C509_6411
47,PRJAHR = $SUBSTR(3,2,DTM#8:DTM_C507_2380)
38,1,SMATVERW,1,1,,0
40,1,0,1
41,LIN
44,BGM:BGM_C002_1000="E2OCLFM"
47,RECTYP = "12"
47,MUTCODE = IF LIN_C212_7140 = $BLANK OR $INSTANCE(GIN#1{1}) = $UNDEFINED THEN "888" ELSE LIN_1229 
47,MATNR =  LIN_C212_7140
47,gin_count = FOR (J = 1 TO 10) IF $INSTANCE(GIN#1{J}) THEN gin_count + 1
47,t1 = ""
47,t1 = FOR (J =  1 TO gin_count ) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSETZT_DURCH" THEN  GIN#1{J}:GIN_C208_7402_2
47,t2 = ""
47,t2 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_AUFBRAUCHEN_NEU" THEN  GIN#1{J}:GIN_C208_7402_2
47,t3 = ""
47,t3 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSATZ_FUER" THEN  GIN#1{J}:GIN_C208_7402_2
47,RHINWTXT = IF t1 <> "" THEN t1 ELSE IF t2 <> "" THEN t2 ELSE IF t3 <> "" then t3
47,fab_code = ""
47,fab_code = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_URHEBER_ALT" THEN  GIN#1{J}:GIN_C208_7402_2
38,2,SFABRCAN,1,-1,,0
40,1,0,1
41,GIN#1
44,GIN_C208_7402_1 = "Z_M_FREMDNUMMER"
47,RECTYP = "02"
47,MUTCODE = IF  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR =  LIN:LIN_C212_7140
47,FABRC = $SUBSTR(2,4,fab_code)
47,FCODE = $SUBSTR(1,1,fab_code)
47,FABRART = GIN_C208_7402_2
17,gin_count = 0
17,t1 = ""
17,t2 = ""
17,t3 = ""
17,fab_code = ""
17,incr = -1
3031.5Wrong map ... see next reply for the right oneGENIE::qmodo.ebo.dec.com::genie::muntColin MuntThu Feb 27 1997 15:383
Sorry Richard ... wrong map ... next reply should contain map with negative increment.

...colin
3031.6FORLOOP.FBIGENIE::qmodo.ebo.dec.com::genie::muntColin MuntThu Feb 27 1997 15:38367
0,Created by DEC/EDI Mapper GUI
3,FORLOOP
1,3.1
2,854448537
4,1
5,0
6,MATIDENT
19,0
25,SFABRCAN,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,FABRC,4,4,0
26,1,FCODE,4,1,0
26,1,FABRART,4,32,0
25,SIDTTEXT,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,SPKEY,4,2,0
26,1,STEXT,4,40,0
25,SMATROOT,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,ALN,4,11,0
26,1,IDSTC1,4,2,0
25,SMATVERW,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,RHINWTXT,4,40,0
25,SVPREISE,Description
26,1,RECTYP,4,2,0
26,1,MUTCODE,4,3,0
26,1,MATNR,4,9,0
26,1,PREIS,4,9,0
26,1,PREINC,4,1,0
26,1,PRJAHR,4,2,0
20,1,SMATROOT,1,1,0,1
20,2,SIDTTEXT,1,-1,0,1
20,2,SVPREISE,1,1,0,1
20,1,SMATVERW,1,1,0,1
20,2,SFABRCAN,1,-1,0,1
2,854448537,DECEDI::GUI
31,1,D93A,INVRPT,INVRPT,,1,854448537,DECEDI::GUI,Description
33,BGM,Beginning of message
34,1,ELEMENT_C002,0,0,/* ELEMENT */
34,2,BGM_C002_1001,16,3,O Document/message name, coded
34,2,BGM_C002_1131,16,3,O Code list qualifier
34,2,BGM_C002_3055,16,3,O Code list responsible agency,
34,2,BGM_C002_1000,1,35,O Document/message name
34,1,ELEMENT_1004,0,0,/* ELEMENT */
34,2,BGM_1004,1,35,O Document/message number
34,1,ELEMENT_1225,0,0,/* ELEMENT */
34,2,BGM_1225,16,3,O Message function, coded
34,1,ELEMENT_4343,0,0,/* ELEMENT */
34,2,BGM_4343,16,3,O Response type, coded
33,DTM,Date/time/period
34,1,ELEMENT_C507,0,0,/* ELEMENT */
34,2,DTM_C507_2005,16,3,M Date/time/period qualifier
34,2,DTM_C507_2380,1,35,O Date/time/period
34,2,DTM_C507_2379,16,3,O Date/time/period format qualif
33,RFF,Reference
34,1,ELEMENT_C506,0,0,/* ELEMENT */
34,2,RFF_C506_1153,16,3,M Reference qualifier
34,2,RFF_C506_1154,1,35,O Reference number
34,2,RFF_C506_1156,1,6,O Line number
34,2,RFF_C506_4000,1,35,O Reference version number
33,NAD,Name and address
34,1,ELEMENT_3035,0,0,/* ELEMENT */
34,2,NAD_3035,16,3,M Party qualifier
34,1,ELEMENT_C082,0,0,/* ELEMENT */
34,2,NAD_C082_3039,1,17,M Party id identification
34,2,NAD_C082_1131,16,3,O Code list qualifier
34,2,NAD_C082_3055,16,3,O Code list responsible agency,
34,1,ELEMENT_C058,0,0,/* ELEMENT */
34,2,NAD_C058_3124_1,1,35,M Name and address line
34,2,NAD_C058_3124_2,1,35,O Name and address line
34,2,NAD_C058_3124_3,1,35,O Name and address line
34,2,NAD_C058_3124_4,1,35,O Name and address line
34,2,NAD_C058_3124_5,1,35,O Name and address line
34,1,ELEMENT_C080,0,0,/* ELEMENT */
34,2,NAD_C080_3036_1,1,35,M Party name
34,2,NAD_C080_3036_2,1,35,O Party name
34,2,NAD_C080_3036_3,1,35,O Party name
34,2,NAD_C080_3036_4,1,35,O Party name
34,2,NAD_C080_3036_5,1,35,O Party name
34,2,NAD_C080_3045,16,3,O Party name format, coded
34,1,ELEMENT_C059,0,0,/* ELEMENT */
34,2,NAD_C059_3042_1,1,35,M Street and number/p.o. box
34,2,NAD_C059_3042_2,1,35,O Street and number/p.o. box
34,2,NAD_C059_3042_3,1,35,O Street and number/p.o. box
34,1,ELEMENT_3164,0,0,/* ELEMENT */
34,2,NAD_3164,1,35,O City name
34,1,ELEMENT_3229,0,0,/* ELEMENT */
34,2,NAD_3229,1,9,O Country sub-entity identificat
34,1,ELEMENT_3251,0,0,/* ELEMENT */
34,2,NAD_3251,1,9,O Postcode identification
34,1,ELEMENT_3207,0,0,/* ELEMENT */
34,2,NAD_3207,1,3,O Country, coded
33,LOC,Place/location identification
34,1,ELEMENT_3227,0,0,/* ELEMENT */
34,2,LOC_3227,16,3,M Place/location qualifier
34,1,ELEMENT_C517,0,0,/* ELEMENT */
34,2,LOC_C517_3225,1,25,O Place/location identification
34,2,LOC_C517_1131,16,3,O Code list qualifier
34,2,LOC_C517_3055,16,3,O Code list responsible agency,
34,2,LOC_C517_3224,1,17,O Place/location
34,1,ELEMENT_C519,0,0,/* ELEMENT */
34,2,LOC_C519_3223,1,25,O Related place/location one ide
34,2,LOC_C519_1131,16,3,O Code list qualifier
34,2,LOC_C519_3055,16,3,O Code list responsible agency,
34,2,LOC_C519_3222,1,70,O Related place/location one
34,1,ELEMENT_C553,0,0,/* ELEMENT */
34,2,LOC_C553_3233,1,25,O Related place/location two ide
34,2,LOC_C553_1131,16,3,O Code list qualifier
34,2,LOC_C553_3055,16,3,O Code list responsible agency,
34,2,LOC_C553_3232,1,70,O Related place/location two
34,1,ELEMENT_5479,0,0,/* ELEMENT */
34,2,LOC_5479,1,3,O Relation, coded
33,CTA,Contact information
34,1,ELEMENT_3139,0,0,/* ELEMENT */
34,2,CTA_3139,16,3,O Contact function, coded
34,1,ELEMENT_C056,0,0,/* ELEMENT */
34,2,CTA_C056_3413,1,17,O Department or employee identif
34,2,CTA_C056_3412,1,35,O Department or employee
33,COM,Communication contact
34,1,ELEMENT_C076,0,0,/* ELEMENT */
34,2,COM_C076_3148,1,25,M Communication number
34,2,COM_C076_3155,16,3,M Communication channel qualifie
33,CUX,Currencies
34,1,ELEMENT_C504,0,0,/* ELEMENT */
34,2,CUX_C504_6347_1,16,3,M Currency details qualifier
34,2,CUX_C504_6345_1,1,3,O Currency, coded
34,2,CUX_C504_6343_1,16,3,O Currency qualifier
34,2,CUX_C504_6348_1,3,4,O Currency rate base
34,1,ELEMENT_C504,0,0,/* ELEMENT */
34,2,CUX_C504_6347_2,16,3,M Currency details qualifier
34,2,CUX_C504_6345_2,1,3,O Currency, coded
34,2,CUX_C504_6343_2,16,3,O Currency qualifier
34,2,CUX_C504_6348_2,3,4,O Currency rate base
34,1,ELEMENT_5402,0,0,/* ELEMENT */
34,2,CUX_5402,3,12,O Rate of exchange
34,1,ELEMENT_6341,0,0,/* ELEMENT */
34,2,CUX_6341,16,3,O Currency market exchange, code
33,CPS,Consignment packing sequence
34,1,ELEMENT_7164,0,0,/* ELEMENT */
34,2,CPS_7164,1,12,M Hierarchical id number
34,1,ELEMENT_7166,0,0,/* ELEMENT */
34,2,CPS_7166,1,12,O Hierarchical parent id
34,1,ELEMENT_7075,0,0,/* ELEMENT */
34,2,CPS_7075,16,3,O Packaging level, coded
33,PAC,Package
34,1,ELEMENT_7224,0,0,/* ELEMENT */
34,2,PAC_7224,3,8,O Number of packages
34,1,ELEMENT_C531,0,0,/* ELEMENT */
34,2,PAC_C531_7075,16,3,O Packaging level, coded
34,2,PAC_C531_7233,16,3,O Packaging related information,
34,2,PAC_C531_7073,16,3,O Packaging terms and conditions
34,1,ELEMENT_C202,0,0,/* ELEMENT */
34,2,PAC_C202_7065,1,7,O Type of packages identificatio
34,2,PAC_C202_1131,16,3,O Code list qualifier
34,2,PAC_C202_3055,16,3,O Code list responsible agency,
34,2,PAC_C202_7064,1,35,O Type of packages
34,1,ELEMENT_C402,0,0,/* ELEMENT */
34,2,PAC_C402_7077,16,3,M Item description type, coded
34,2,PAC_C402_7064_1,1,35,M Type of packages
34,2,PAC_C402_7143_1,16,3,O Item number type, coded
34,2,PAC_C402_7064_2,1,35,O Type of packages
34,2,PAC_C402_7143_2,16,3,O Item number type, coded
34,1,ELEMENT_C532,0,0,/* ELEMENT */
34,2,PAC_C532_8395,16,3,O Returnable package freight pay
34,2,PAC_C532_8393,16,3,O Returnable package load conten
33,PCI,Package identification
34,1,ELEMENT_4233,0,0,/* ELEMENT */
34,2,PCI_4233,16,3,O Marking instructions, coded
34,1,ELEMENT_C210,0,0,/* ELEMENT */
34,2,PCI_C210_7102_1,1,35,M Shipping marks
34,2,PCI_C210_7102_2,1,35,O Shipping marks
34,2,PCI_C210_7102_3,1,35,O Shipping marks
34,2,PCI_C210_7102_4,1,35,O Shipping marks
34,2,PCI_C210_7102_5,1,35,O Shipping marks
34,2,PCI_C210_7102_6,1,35,O Shipping marks
34,2,PCI_C210_7102_7,1,35,O Shipping marks
34,2,PCI_C210_7102_8,1,35,O Shipping marks
34,2,PCI_C210_7102_9,1,35,O Shipping marks
34,2,PCI_C210_7102_10,1,35,O Shipping marks
34,1,ELEMENT_8275,0,0,/* ELEMENT */
34,2,PCI_8275,16,3,O Container/package status, code
33,QTY,Quantity
34,1,ELEMENT_C186,0,0,/* ELEMENT */
34,2,QTY_C186_6063,16,3,M Quantity qualifier
34,2,QTY_C186_6060,3,15,M Quantity
34,2,QTY_C186_6411,1,3,O Measure unit qualifier
33,GIN,Goods identity number
34,1,ELEMENT_7405,0,0,/* ELEMENT */
34,2,GIN_7405,16,3,M Identity number qualifier
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_1,1,35,M Identity number
34,2,GIN_C208_7402_2,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_3,1,35,M Identity number
34,2,GIN_C208_7402_4,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_5,1,35,M Identity number
34,2,GIN_C208_7402_6,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_7,1,35,M Identity number
34,2,GIN_C208_7402_8,1,35,O Identity number
34,1,ELEMENT_C208,0,0,/* ELEMENT */
34,2,GIN_C208_7402_9,1,35,M Identity number
34,2,GIN_C208_7402_10,1,35,O Identity number
33,LIN,Line item
34,1,ELEMENT_1082,0,0,/* ELEMENT */
34,2,LIN_1082,3,6,O Line item number
34,1,ELEMENT_1229,0,0,/* ELEMENT */
34,2,LIN_1229,16,3,O Action request/notification, c
34,1,ELEMENT_C212,0,0,/* ELEMENT */
34,2,LIN_C212_7140,1,35,O Item number
34,2,LIN_C212_7143,16,3,O Item number type, coded
34,2,LIN_C212_1131,16,3,O Code list qualifier
34,2,LIN_C212_3055,16,3,O Code list responsible agency,
34,1,ELEMENT_5495,0,0,/* ELEMENT */
34,2,LIN_5495,16,3,O Sub-line indicator, coded
34,1,ELEMENT_1222,0,0,/* ELEMENT */
34,2,LIN_1222,3,2,O Configuration level
34,1,ELEMENT_7083,0,0,/* ELEMENT */
34,2,LIN_7083,16,3,O Configuration, coded
33,IMD,Item description
34,1,ELEMENT_7077,0,0,/* ELEMENT */
34,2,IMD_7077,16,3,O Item description type, coded
34,1,ELEMENT_7081,0,0,/* ELEMENT */
34,2,IMD_7081,16,3,O Item characteristic, coded
34,1,ELEMENT_C273,0,0,/* ELEMENT */
34,2,IMD_C273_7009,1,7,O Item description identificatio
34,2,IMD_C273_1131,16,3,O Code list qualifier
34,2,IMD_C273_3055,16,3,O Code list responsible agency,
34,2,IMD_C273_7008_1,1,35,O Item description
34,2,IMD_C273_7008_2,1,35,O Item description
34,1,ELEMENT_7383,0,0,/* ELEMENT */
34,2,IMD_7383,16,3,O Surface/layer indicator, coded
33,MEA,Measurements
34,1,ELEMENT_6311,0,0,/* ELEMENT */
34,2,MEA_6311,16,3,M Measurement application qualif
34,1,ELEMENT_C502,0,0,/* ELEMENT */
34,2,MEA_C502_6313,16,3,O Measurement dimension, coded
34,2,MEA_C502_6321,16,3,O Measurement significance, code
34,2,MEA_C502_6155,16,3,O Measurement attribute, coded
34,1,ELEMENT_C174,0,0,/* ELEMENT */
34,2,MEA_C174_6411,1,3,M Measure unit qualifier
34,2,MEA_C174_6314,3,18,O Measurement value
34,2,MEA_C174_6162,3,18,O Range minimum
34,2,MEA_C174_6152,3,18,O Range maximum
34,1,ELEMENT_7383,0,0,/* ELEMENT */
34,2,MEA_7383,16,3,O Surface/layer indicator, coded
33,PRI,Price details
34,1,ELEMENT_C509,0,0,/* ELEMENT */
34,2,PRI_C509_5125,16,3,M Price qualifier
34,2,PRI_C509_5118,3,15,O Price
34,2,PRI_C509_5375,16,3,O Price type, coded
34,2,PRI_C509_5387,16,3,O Price type qualifier
34,2,PRI_C509_5284,3,9,O Unit price basis
34,2,PRI_C509_6411,1,3,O Measure unit qualifier
34,1,ELEMENT_5213,0,0,/* ELEMENT */
34,2,PRI_5213,16,3,O Sub-line price change, coded
32,1,header,0,1,0
32,1,detail,0,1,0
32,2,BGM,1,1,0
32,2,DTM,0,10,0
32,2,RFF,0,10,0
32,3,DTM#1,0,1,0
32,2,NAD,0,20,0
32,3,LOC,0,5,0
32,3,RFF#1,0,10,0
32,4,DTM#2,0,1,0
32,3,CTA,0,10,0
32,4,COM,0,5,0
32,2,CUX,0,5,0
32,3,DTM#3,0,1,0
32,1,summary,0,1,0
32,2,CPS,0,9999,0
32,3,PAC,0,999,0
32,4,PCI,0,1000,0
32,4,QTY,0,9999,0
32,5,GIN,0,9999,0
32,5,DTM#4,0,5,0
32,2,LIN,0,9999,0
32,3,IMD,0,10,0
32,3,MEA,0,10,0
32,3,LOC#1,0,5,0
32,3,DTM#5,0,5,0
32,3,RFF#2,0,10,0
32,4,DTM#6,0,1,0
32,3,QTY#1,0,9999,0
32,4,GIN#1,0,9999,0
32,4,LOC#2,0,5,0
32,4,DTM#7,0,5,0
32,4,PRI,0,5,0
32,5,CUX#1,0,1,0
32,5,DTM#8,0,1,0
32,4,RFF#3,0,10,0
32,5,DTM#9,0,1,0
32,4,CPS#1,0,9999,0
32,5,PAC#1,0,9999,0
32,6,GIN#2,0,9999,0
32,6,DTM#10,0,5,0
37,1,INVRPT,,1,D93A,INVRPT,INVRPT,1
38,1,SMATROOT,1,1,,0
40,1,0,1
41,RFF#2
44,BGM:BGM_C002_1000="E2MARAM"
47,RECTYP = "01"
47,MUTCODE = IF  RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR = LIN:LIN_C212_7140
47,ALN = RFF_C506_1154
47,IDSTC1 = RFF_C506_1156
38,2,SIDTTEXT,1,-1,,0
40,1,0,1
41,IMD
47,RECTYP = "05"
47,MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN IMD_7081 ELSE "888"
47,MATNR = LIN:LIN_C212_7140
47,SPKEY = IMD_C273_7009
47,STEXT = IMD_C273_7008_1 | IMD_C273_7008_2
38,2,SVPREISE,1,1,,0
40,1,0,1
41,PRI
47,RECTYP = "06"
47,MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR =  LIN:LIN_C212_7140
47,PREIS = PRI_C509_5118
47,PREINC = PRI_C509_6411
47,PRJAHR = $SUBSTR(3,2,DTM#8:DTM_C507_2380)
38,1,SMATVERW,1,1,,0
40,1,0,1
41,LIN
44,BGM:BGM_C002_1000="E2OCLFM"
47,RECTYP = "12"
47,MUTCODE = IF LIN_C212_7140 = $BLANK OR $INSTANCE(GIN#1{1}) = $UNDEFINED THEN "888" ELSE LIN_1229 
47,MATNR =  LIN_C212_7140
47,gin_count = FOR (J = 1 TO 10) IF $INSTANCE(GIN#1{J}) THEN gin_count + 1
47,t1 = ""
47,t1 = FOR (J =  gin_count  TO 1, -1) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSETZT_DURCH" THEN  GIN#1{J}:GIN_C208_7402_2
47,t2 = ""
47,t2 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_AUFBRAUCHEN_NEU" THEN  GIN#1{J}:GIN_C208_7402_2
47,t3 = ""
47,t3 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSATZ_FUER" THEN  GIN#1{J}:GIN_C208_7402_2
47,RHINWTXT = IF t1 <> "" THEN t1 ELSE IF t2 <> "" THEN t2 ELSE IF t3 <> "" then t3
47,fab_code = ""
47,fab_code = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_URHEBER_ALT" THEN  GIN#1{J}:GIN_C208_7402_2
38,2,SFABRCAN,1,-1,,0
40,1,0,1
41,GIN#1
44,GIN_C208_7402_1 = "Z_M_FREMDNUMMER"
47,RECTYP = "02"
47,MUTCODE = IF  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888"
47,MATNR =  LIN:LIN_C212_7140
47,FABRC = $SUBSTR(2,4,fab_code)
47,FCODE = $SUBSTR(1,1,fab_code)
47,FABRART = GIN_C208_7402_2
17,gin_count = 0
17,t1 = ""
17,t2 = ""
17,t3 = ""
17,fab_code = ""
17,incr = -1
3031.7SYSTEM::newdial_10.reo.dec.com::JOHNSONRichard Johnson , http://samedi.reo.dec.comThu Feb 27 1997 16:428
I hate to tell you this but...

I do not get any error with forloop.fbi
It compiles fine.

Does your 'syntax error' give a line number too?

Richard
3031.8FORLOOP.LIS syntax error at line 468GENIE::qmodo.ebo.dec.com::genie::muntColin MuntFri Feb 28 1997 11:02510
                   FILEBRIDGE TABLE
                     Version V3.1
 COMPILED: 27-Feb-1997 13:36 By DECEDI::GUI
-----------------------------------------------------
TABLE ATTRIBUTES:    MAPPING.TMP
     Direction: INCOMING  Test Mode: LIVE

   APPLICATION ID(S): MATIDENT

FILEBRIDGE TABLE NOTES:



AUDIT CONTROLS:
    Audit Log Database Name: decedi_db
        [ ] Enable Audit of Customization Routine Calls
        [ ] Enable History at PROCESS START
        [ ] Enable History after PREPROCESS
        [ ] Enable History after RECORD HOOK
        [ ] Enable History at DEC/EDI API
        [ ] Enable History of Customization Routine Arguments
        [ ] Enable History of .FBO table file

DEFAULT RUNTIME QUALIFIERS:
 /APPLICATION=
 /DOCUMENT_TYPE=
 /MAIL=
 /PARTNER_ID=
 /PRIORITY=
 /MATCH=
 /USER_REFERENCE=
 /TEST_INDICATOR=

INITIALIZATION:
      Variable   Expression
 gin_count = 0;
 t1 = "";
 t2 = "";
 t3 = "";
 fab_code = "";
 incr = -1;

APPLICATION FILE DEFINITION:
  FDL FILE:

RECORD SEQUENCE:
 level   FB Record Name    Attributes
 01     SMATROOT                          MIN 1   MAX 1;
 02     SIDTTEXT                          MIN 1   MAX MANY;
 02     SVPREISE                          MIN 1   MAX 1;
 01     SMATVERW                          MIN 1   MAX 1;
 02     SFABRCAN                          MIN 1   MAX MANY;

RECORD SFABRCAN;
 level Field Name             Attributes
   01 RECTYP                         TEXT SIZE IS 2 CHARACTERS;
   01 MUTCODE                        TEXT SIZE IS 3 CHARACTERS;
   01 MATNR                          TEXT SIZE IS 9 CHARACTERS;
   01 FABRC                          TEXT SIZE IS 4 CHARACTERS;
   01 FCODE                          TEXT SIZE IS 1 CHARACTERS;
   01 FABRART                        TEXT SIZE IS 32 CHARACTERS;

RECORD SIDTTEXT;
 level Field Name             Attributes
   01 RECTYP                         TEXT SIZE IS 2 CHARACTERS;
   01 MUTCODE                        TEXT SIZE IS 3 CHARACTERS;
   01 MATNR                          TEXT SIZE IS 9 CHARACTERS;
   01 SPKEY                          TEXT SIZE IS 2 CHARACTERS;
   01 STEXT                          TEXT SIZE IS 40 CHARACTERS;

RECORD SMATROOT;
 level Field Name             Attributes
   01 RECTYP                         TEXT SIZE IS 2 CHARACTERS;
   01 MUTCODE                        TEXT SIZE IS 3 CHARACTERS;
   01 MATNR                          TEXT SIZE IS 9 CHARACTERS;
   01 ALN                            TEXT SIZE IS 11 CHARACTERS;
   01 IDSTC1                         TEXT SIZE IS 2 CHARACTERS;

RECORD SMATVERW;
 level Field Name             Attributes
   01 RECTYP                         TEXT SIZE IS 2 CHARACTERS;
   01 MUTCODE                        TEXT SIZE IS 3 CHARACTERS;
   01 MATNR                          TEXT SIZE IS 9 CHARACTERS;
   01 RHINWTXT                       TEXT SIZE IS 40 CHARACTERS;

RECORD SVPREISE;
 level Field Name             Attributes
   01 RECTYP                         TEXT SIZE IS 2 CHARACTERS;
   01 MUTCODE                        TEXT SIZE IS 3 CHARACTERS;
   01 MATNR                          TEXT SIZE IS 9 CHARACTERS;
   01 PREIS                          TEXT SIZE IS 9 CHARACTERS;
   01 PREINC                         TEXT SIZE IS 1 CHARACTERS;
   01 PRJAHR                         TEXT SIZE IS 2 CHARACTERS;


-----------------------------------------------------
DOCUMENT DEFINITION:
    STANDARD:                   EDIFACT
    VERSION:                    D93A
    DEC/EDI EXTERNAL DOCTYPE:   INVRPT
    DEC/EDI INTERNAL DOCTYPE:   INVRPT
    PARTNER ID:				 
    GENERIC:                    [X]
    DOCUMENT DESCRIPTION:
    EXTRACTED:                  01/28/97 11:48:57

DOCUMENT SEQUENCE:
 level   FB Segment
 01    header   MIN 0   MAX 1;
 01    detail   MIN 0   MAX 1;
 02    BGM   MIN 1   MAX 1;
 02    DTM   MIN 0   MAX 10;
 02    RFF   MIN 0   MAX 10;
 03    DTM#1   MIN 0   MAX 1;
 02    NAD   MIN 0   MAX 20;
 03    LOC   MIN 0   MAX 5;
 03    RFF#1   MIN 0   MAX 10;
 04    DTM#2   MIN 0   MAX 1;
 03    CTA   MIN 0   MAX 10;
 04    COM   MIN 0   MAX 5;
 02    CUX   MIN 0   MAX 5;
 03    DTM#3   MIN 0   MAX 1;
 01    summary   MIN 0   MAX 1;
 02    CPS   MIN 0   MAX 9999;
 03    PAC   MIN 0   MAX 999;
 04    PCI   MIN 0   MAX 1000;
 04    QTY   MIN 0   MAX 9999;
 05    GIN   MIN 0   MAX 9999;
 05    DTM#4   MIN 0   MAX 5;
 02    LIN   MIN 0   MAX 9999;
 03    IMD   MIN 0   MAX 10;
 03    MEA   MIN 0   MAX 10;
 03    LOC#1   MIN 0   MAX 5;
 03    DTM#5   MIN 0   MAX 5;
 03    RFF#2   MIN 0   MAX 10;
 04    DTM#6   MIN 0   MAX 1;
 03    QTY#1   MIN 0   MAX 9999;
 04    GIN#1   MIN 0   MAX 9999;
 04    LOC#2   MIN 0   MAX 5;
 04    DTM#7   MIN 0   MAX 5;
 04    PRI   MIN 0   MAX 5;
 05    CUX#1   MIN 0   MAX 1;
 05    DTM#8   MIN 0   MAX 1;
 04    RFF#3   MIN 0   MAX 10;
 05    DTM#9   MIN 0   MAX 1;
 04    CPS#1   MIN 0   MAX 9999;
 05    PAC#1   MIN 0   MAX 9999;
 06    GIN#2   MIN 0   MAX 9999;
 06    DTM#10   MIN 0   MAX 5;

SEGMENT BGM;
 01   ELEMENT_C002;
 02   BGM_C002_1001 ID SIZE 03;
 02   BGM_C002_1131 ID SIZE 03;
 02   BGM_C002_3055 ID SIZE 03;
 02   BGM_C002_1000 AN SIZE 35;
 01   ELEMENT_1004;
 02   BGM_1004 AN SIZE 35;
 01   ELEMENT_1225;
 02   BGM_1225 ID SIZE 03;
 01   ELEMENT_4343;
 02   BGM_4343 ID SIZE 03;

SEGMENT DTM;
 01   ELEMENT_C507;
 02   DTM_C507_2005 ID SIZE 03;
 02   DTM_C507_2380 AN SIZE 35;
 02   DTM_C507_2379 ID SIZE 03;

SEGMENT RFF;
 01   ELEMENT_C506;
 02   RFF_C506_1153 ID SIZE 03;
 02   RFF_C506_1154 AN SIZE 35;
 02   RFF_C506_1156 AN SIZE 06;
 02   RFF_C506_4000 AN SIZE 35;

SEGMENT NAD;
 01   ELEMENT_3035;
 02   NAD_3035 ID SIZE 03;
 01   ELEMENT_C082;
 02   NAD_C082_3039 AN SIZE 17;
 02   NAD_C082_1131 ID SIZE 03;
 02   NAD_C082_3055 ID SIZE 03;
 01   ELEMENT_C058;
 02   NAD_C058_3124_1 AN SIZE 35;
 02   NAD_C058_3124_2 AN SIZE 35;
 02   NAD_C058_3124_3 AN SIZE 35;
 02   NAD_C058_3124_4 AN SIZE 35;
 02   NAD_C058_3124_5 AN SIZE 35;
 01   ELEMENT_C080;
 02   NAD_C080_3036_1 AN SIZE 35;
 02   NAD_C080_3036_2 AN SIZE 35;
 02   NAD_C080_3036_3 AN SIZE 35;
 02   NAD_C080_3036_4 AN SIZE 35;
 02   NAD_C080_3036_5 AN SIZE 35;
 02   NAD_C080_3045 ID SIZE 03;
 01   ELEMENT_C059;
 02   NAD_C059_3042_1 AN SIZE 35;
 02   NAD_C059_3042_2 AN SIZE 35;
 02   NAD_C059_3042_3 AN SIZE 35;
 01   ELEMENT_3164;
 02   NAD_3164 AN SIZE 35;
 01   ELEMENT_3229;
 02   NAD_3229 AN SIZE 09;
 01   ELEMENT_3251;
 02   NAD_3251 AN SIZE 09;
 01   ELEMENT_3207;
 02   NAD_3207 AN SIZE 03;

SEGMENT LOC;
 01   ELEMENT_3227;
 02   LOC_3227 ID SIZE 03;
 01   ELEMENT_C517;
 02   LOC_C517_3225 AN SIZE 25;
 02   LOC_C517_1131 ID SIZE 03;
 02   LOC_C517_3055 ID SIZE 03;
 02   LOC_C517_3224 AN SIZE 17;
 01   ELEMENT_C519;
 02   LOC_C519_3223 AN SIZE 25;
 02   LOC_C519_1131 ID SIZE 03;
 02   LOC_C519_3055 ID SIZE 03;
 02   LOC_C519_3222 AN SIZE 70;
 01   ELEMENT_C553;
 02   LOC_C553_3233 AN SIZE 25;
 02   LOC_C553_1131 ID SIZE 03;
 02   LOC_C553_3055 ID SIZE 03;
 02   LOC_C553_3232 AN SIZE 70;
 01   ELEMENT_5479;
 02   LOC_5479 AN SIZE 03;

SEGMENT CTA;
 01   ELEMENT_3139;
 02   CTA_3139 ID SIZE 03;
 01   ELEMENT_C056;
 02   CTA_C056_3413 AN SIZE 17;
 02   CTA_C056_3412 AN SIZE 35;

SEGMENT COM;
 01   ELEMENT_C076;
 02   COM_C076_3148 AN SIZE 25;
 02   COM_C076_3155 ID SIZE 03;

SEGMENT CUX;
 01   ELEMENT_C504;
 02   CUX_C504_6347_1 ID SIZE 03;
 02   CUX_C504_6345_1 AN SIZE 03;
 02   CUX_C504_6343_1 ID SIZE 03;
 02   CUX_C504_6348_1 N SIZE 04;
 01   ELEMENT_C504;
 02   CUX_C504_6347_2 ID SIZE 03;
 02   CUX_C504_6345_2 AN SIZE 03;
 02   CUX_C504_6343_2 ID SIZE 03;
 02   CUX_C504_6348_2 N SIZE 04;
 01   ELEMENT_5402;
 02   CUX_5402 N SIZE 12;
 01   ELEMENT_6341;
 02   CUX_6341 ID SIZE 03;

SEGMENT CPS;
 01   ELEMENT_7164;
 02   CPS_7164 AN SIZE 12;
 01   ELEMENT_7166;
 02   CPS_7166 AN SIZE 12;
 01   ELEMENT_7075;
 02   CPS_7075 ID SIZE 03;

SEGMENT PAC;
 01   ELEMENT_7224;
 02   PAC_7224 N SIZE 08;
 01   ELEMENT_C531;
 02   PAC_C531_7075 ID SIZE 03;
 02   PAC_C531_7233 ID SIZE 03;
 02   PAC_C531_7073 ID SIZE 03;
 01   ELEMENT_C202;
 02   PAC_C202_7065 AN SIZE 07;
 02   PAC_C202_1131 ID SIZE 03;
 02   PAC_C202_3055 ID SIZE 03;
 02   PAC_C202_7064 AN SIZE 35;
 01   ELEMENT_C402;
 02   PAC_C402_7077 ID SIZE 03;
 02   PAC_C402_7064_1 AN SIZE 35;
 02   PAC_C402_7143_1 ID SIZE 03;
 02   PAC_C402_7064_2 AN SIZE 35;
 02   PAC_C402_7143_2 ID SIZE 03;
 01   ELEMENT_C532;
 02   PAC_C532_8395 ID SIZE 03;
 02   PAC_C532_8393 ID SIZE 03;

SEGMENT PCI;
 01   ELEMENT_4233;
 02   PCI_4233 ID SIZE 03;
 01   ELEMENT_C210;
 02   PCI_C210_7102_1 AN SIZE 35;
 02   PCI_C210_7102_2 AN SIZE 35;
 02   PCI_C210_7102_3 AN SIZE 35;
 02   PCI_C210_7102_4 AN SIZE 35;
 02   PCI_C210_7102_5 AN SIZE 35;
 02   PCI_C210_7102_6 AN SIZE 35;
 02   PCI_C210_7102_7 AN SIZE 35;
 02   PCI_C210_7102_8 AN SIZE 35;
 02   PCI_C210_7102_9 AN SIZE 35;
 02   PCI_C210_7102_10 AN SIZE 35;
 01   ELEMENT_8275;
 02   PCI_8275 ID SIZE 03;

SEGMENT QTY;
 01   ELEMENT_C186;
 02   QTY_C186_6063 ID SIZE 03;
 02   QTY_C186_6060 N SIZE 15;
 02   QTY_C186_6411 AN SIZE 03;

SEGMENT GIN;
 01   ELEMENT_7405;
 02   GIN_7405 ID SIZE 03;
 01   ELEMENT_C208;
 02   GIN_C208_7402_1 AN SIZE 35;
 02   GIN_C208_7402_2 AN SIZE 35;
 01   ELEMENT_C208;
 02   GIN_C208_7402_3 AN SIZE 35;
 02   GIN_C208_7402_4 AN SIZE 35;
 01   ELEMENT_C208;
 02   GIN_C208_7402_5 AN SIZE 35;
 02   GIN_C208_7402_6 AN SIZE 35;
 01   ELEMENT_C208;
 02   GIN_C208_7402_7 AN SIZE 35;
 02   GIN_C208_7402_8 AN SIZE 35;
 01   ELEMENT_C208;
 02   GIN_C208_7402_9 AN SIZE 35;
 02   GIN_C208_7402_10 AN SIZE 35;

SEGMENT LIN;
 01   ELEMENT_1082;
 02   LIN_1082 N SIZE 06;
 01   ELEMENT_1229;
 02   LIN_1229 ID SIZE 03;
 01   ELEMENT_C212;
 02   LIN_C212_7140 AN SIZE 35;
 02   LIN_C212_7143 ID SIZE 03;
 02   LIN_C212_1131 ID SIZE 03;
 02   LIN_C212_3055 ID SIZE 03;
 01   ELEMENT_5495;
 02   LIN_5495 ID SIZE 03;
 01   ELEMENT_1222;
 02   LIN_1222 N SIZE 02;
 01   ELEMENT_7083;
 02   LIN_7083 ID SIZE 03;

SEGMENT IMD;
 01   ELEMENT_7077;
 02   IMD_7077 ID SIZE 03;
 01   ELEMENT_7081;
 02   IMD_7081 ID SIZE 03;
 01   ELEMENT_C273;
 02   IMD_C273_7009 AN SIZE 07;
 02   IMD_C273_1131 ID SIZE 03;
 02   IMD_C273_3055 ID SIZE 03;
 02   IMD_C273_7008_1 AN SIZE 35;
 02   IMD_C273_7008_2 AN SIZE 35;
 01   ELEMENT_7383;
 02   IMD_7383 ID SIZE 03;

SEGMENT MEA;
 01   ELEMENT_6311;
 02   MEA_6311 ID SIZE 03;
 01   ELEMENT_C502;
 02   MEA_C502_6313 ID SIZE 03;
 02   MEA_C502_6321 ID SIZE 03;
 02   MEA_C502_6155 ID SIZE 03;
 01   ELEMENT_C174;
 02   MEA_C174_6411 AN SIZE 03;
 02   MEA_C174_6314 N SIZE 18;
 02   MEA_C174_6162 N SIZE 18;
 02   MEA_C174_6152 N SIZE 18;
 01   ELEMENT_7383;
 02   MEA_7383 ID SIZE 03;

SEGMENT PRI;
 01   ELEMENT_C509;
 02   PRI_C509_5125 ID SIZE 03;
 02   PRI_C509_5118 N SIZE 15;
 02   PRI_C509_5375 ID SIZE 03;
 02   PRI_C509_5387 ID SIZE 03;
 02   PRI_C509_5284 N SIZE 09;
 02   PRI_C509_6411 AN SIZE 03;
 01   ELEMENT_5213;
 02   PRI_5213 ID SIZE 03;

-----------------------------------------------------
 INDEX OF MAPPING SETS:
            --- DEC/EDI Document Definition ---
 FBDOCTYPE         PARTNER        GENERIC STD     VER    INTERNAL-DOCTYPE
 1 INVRPT  [X] EDIFACT D93A INVRPT

-----------------------------------------------------
MAPPING SET DEFINITION:  (mapping set #1)
  FB DOCTYPE: INVRPT
  PARTNER ID: 
  STANDARD: EDIFACT
  VERSION: D93A
  DEC/EDI EXTERNAL DOCTYPE: INVRPT
  DEC/EDI INTERNAL DOCTYPE: INVRPT
  GENERIC DEFINITION: [X]

 INDEX OF MAPS:
  level FB SEGMENT  Min Max Map ID
 01 SMATROOT 1 1
 02 SIDTTEXT 1 -1
 02 SVPREISE 1 1
 01 SMATVERW 1 1
 02 SFABRCAN 1 -1

-----------------------------------------------------
MAP ID: 
  FB SEGMENT: SMATROOT;
  Navigation: ERROR ON MAX EXCEEDED
     Set Context: RFF#2;
     Repeat Pattern: 
     Condition: BGM:BGM_C002_1000="E2MARAM";
 Mapping Assignments:
 RECTYP = "01";
 MUTCODE = IF  RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888";
 MATNR = LIN:LIN_C212_7140;
 ALN = RFF_C506_1154;
 IDSTC1 = RFF_C506_1156;

-----------------------------------------------------
MAP ID: 
  FB SEGMENT: SIDTTEXT;
  Navigation: ERROR ON MAX EXCEEDED
     Set Context: IMD;
     Repeat Pattern: 
     Condition: 
 Mapping Assignments:
 RECTYP = "05";
 MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN IMD_7081 ELSE "888";
 MATNR = LIN:LIN_C212_7140;
 SPKEY = IMD_C273_7009;
 STEXT = IMD_C273_7008_1 | IMD_C273_7008_2;

-----------------------------------------------------
MAP ID: 
  FB SEGMENT: SVPREISE;
  Navigation: ERROR ON MAX EXCEEDED
     Set Context: PRI;
     Repeat Pattern: 
     Condition: 
 Mapping Assignments:
 RECTYP = "06";
 MUTCODE = IF  RFF#2:RFF_C506_1154 <> $BLANK AND  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888";
 MATNR =  LIN:LIN_C212_7140;
 PREIS = PRI_C509_5118;
 PREINC = PRI_C509_6411;
 PRJAHR = $SUBSTR(3,2,DTM#8:DTM_C507_2380);

-----------------------------------------------------
MAP ID: 
  FB SEGMENT: SMATVERW;
  Navigation: ERROR ON MAX EXCEEDED
     Set Context: LIN;
     Repeat Pattern: 
     Condition: BGM:BGM_C002_1000="E2OCLFM";
 Mapping Assignments:
 RECTYP = "12";
 MUTCODE = IF LIN_C212_7140 = $BLANK OR $INSTANCE(GIN#1{1}) = $UNDEFINED THEN "888" ELSE LIN_1229 ;
 MATNR =  LIN_C212_7140;
 gin_count = FOR (J = 1 TO 10) IF $INSTANCE(GIN#1{J}) THEN gin_count + 1;
 t1 = "";
 t1 = FOR (J =  gin_count  TO 1, -1) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSETZT_DURCH" THEN  GIN#1{J}:GIN_C208_7402_2;
>                                ^
>Warning: syntax error on line 468
 t2 = "";
 t2 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_AUFBRAUCHEN_NEU" THEN  GIN#1{J}:GIN_C208_7402_2;
 t3 = "";
 t3 = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_ERSATZ_FUER" THEN  GIN#1{J}:GIN_C208_7402_2;
 RHINWTXT = IF t1 <> "" THEN t1 ELSE IF t2 <> "" THEN t2 ELSE IF t3 <> "" then t3;
 fab_code = "";
 fab_code = FOR (J = 1 TO gin_count) IF GIN#1{J}:GIN_C208_7402_1 = "Z_M_URHEBER_ALT" THEN  GIN#1{J}:GIN_C208_7402_2;

-----------------------------------------------------
MAP ID: 
  FB SEGMENT: SFABRCAN;
  Navigation: ERROR ON MAX EXCEEDED
     Set Context: GIN#1;
     Repeat Pattern: 
     Condition: GIN_C208_7402_1 = "Z_M_FREMDNUMMER";
 Mapping Assignments:
 RECTYP = "02";
 MUTCODE = IF  LIN:LIN_C212_7140 <> $BLANK THEN LIN:LIN_1229 ELSE "888";
 MATNR =  LIN:LIN_C212_7140;
 FABRC = $SUBSTR(2,4,fab_code);
 FCODE = $SUBSTR(1,1,fab_code);
 FABRART = GIN_C208_7402_2;

-----------------------------------------------------
LOOKUP TABLE DEFINITION:
-----------------------------------------------------
HOOK ASSIGNMENTS:
  Built-in Hook Location                     Function
  PREPROCESS             $FILENAME = 
  START DOCUMENT                   = 
  RECORD                   $RECORD = 
  SWITCH                   $RECORD = 
  END DOCUMENT                     = 
  POST PROCESS                     = 
  SOFT ERROR                       = 
  HARD ERROR                       = 
  COMMIT DOCUMENT                  = 

 -End of Listing-
 -End of Listing-
3031.9SYSTEM::newdial_6.reo.dec.com::JOHNSONRichard Johnson , http://samedi.reo.dec.comFri Feb 28 1997 13:1115
Colin

A For Loop increment is allowed so long as it is
a positive numeric constant (i.e. '1' or larger).

As with the old UI the error is being generated
because it does not like the minus sign in front of
the numeric constant.

The documentation should be more specific here.

I will log this as a bug against our documentation.

Thanks
Richard
3031.10GENIE::qmodo.ebo.dec.com::genie::muntColin MuntFri Feb 28 1997 13:438
Richard,

If this is true the documentation is very misleading:

p. 15-27: "The incr component is an expression ... This expression can evaluate to a negative number to 
decrement  the loop ..."

...colin