.VER 1.4
.INI
CONTRL,,4 1,UN,41,Syntax and service report message for batch EDI
.STD ,LS
.SETS
CONTRL=[!UNH*1,M,1][!UCI*1,M,1]{:999999[UCM*1,C]{:999[UCS*1,C][UCD*1,C,99]}}{:999999[UCF*1,C]{:999999[UCM*1,C]{:999[UCS*1,C][UCD*1,C,99]}}}+20[!UNT*1,M,1]
.SEGS
UCD=[0085,M,1][S011,M,1]
UCF=[0048,M,1][S006,C,1][S007,C,1][0083,M,1][0085,C,1][0135,C,1][S011,C,1][0534,C,1][0138,C,1]
UCI=[0020,M,1][S002,M,1][S003,M,1][0083,M,1][0085,C,1][0135,C,1][S011,C,1][0534,C,1][0138,C,1]
UCM=[0062,C,1][S009,C,1][0083,M,1][0085,C,1][0135,C,1][S011,C,1][0800,C,1][S020,C,99][0534,C,1][0138,C,1]
UCS=[0096,M,1][0085,C,1]
UGH=[0087,M,1]
UGT=[0087,M,1]
UIB=[S001,M,1][S302,C,1][S303,C,1][S018,C,1][S305,C,1][S002,C,1][S003,C,1][S300,C,1][0325,C,1][0035,C,1]
UIH=[S306,M,1][0340,C,1][S302,C,1][S301,C,1][S300,C,1][0035,C,1]
UIR=[0331,M,1][S307,C,9][S302,C,1][S300,C,1][0340,C,1][0800,C,1]
UIT=[0340,C,1][0074,C,1]
UIZ=[S302,C,1][0036,C,1][0325,C,1]
UNB=[S001,M,1][S002,M,1][S003,M,1][S004,M,1][0020,M,1][S005,C,1][0026,C,1][0029,C,1][0031,C,1][0032,C,1][0035,C,1]
UNE=[0060,M,1][0048,M,1]
UNG=[0038,C,1][S006,C,1][S007,C,1][S004,C,1][0048,M,1][0051,C,1][S008,C,1][0058,C,1]
UNH=[0062,M,1][S009,M,1][0068,C,1][S010,C,1][S016,C,1][S017,C,1][S018,C,1]
UNO=[0800,M,1][S020,M,99][S021,M,99][S022,M,1][S302,C,1][S301,C,1][S300,C,1][0035,C,1]
UNP=[0810,M,1][0800,M,1]
UNS=[0081,M,1]
UNT=[0074,M,1][0062,M,1]
UNZ=[0036,M,1][0020,M,1]
USA=[S502,M,1][S503,C,9]
USB=[0503,M,1][S501,C,1][S002,M,1][S003,M,1]
USC=[0536,C,1][S500,C,2][0545,C,1][0505,C,1][0507,C,1][0543,C,1][0546,C,1][S505,C,5][S501,C,4][0567,C,1][0569,C,1]
USD=[0556,M,1][0518,C,1][0582,C,1]
USE=[0565,M,1]
USF=[0579,C,1][S504,C,1][0567,C,1][0572,C,1][0505,C,1]
USH=[0501,M,1][0534,M,1][0541,C,1][0503,C,1][0505,C,1][0507,C,1][0509,C,1][S500,C,2][0520,C,1][S501,C,1]
USL=[0567,M,1][S504,C,9]
USR=[S508,M,2]
UST=[0534,M,1][0588,M,1]
USU=[0556,M,1][0518,C,1]
USX=[0020,M,1][S002,C,1][S003,C,1][0048,C,1][S006,C,1][S007,C,1][0062,C,1][S009,C,1][0800,C,1][S501,C,1]
USY=[0534,M,1][S508,C,2][0571,C,1]
.COMS
S001=[0001,M][0002,M][0080,C][0133,C]
S002=[0004,M][0007,C][0008,C][0042,C]
S003=[0010,M][0007,C][0014,C][0046,C]
S004=[0017,M][0019,M]
S005=[0022,M][0025,C]
S006=[0040,M][0007,C]
S007=[0044,M][0007,C]
S008=[0052,M][0054,M][0057,C]
S009=[0065,M][0052,M][0054,M][0051,M][0057,C][0110,C][0113,C]
S010=[0070,M][0073,C]
S011=[0098,M][0104,C][0136,C]
S016=[0115,M][0116,C][0118,C][0051,C]
S017=[0121,M][0122,C][0124,C][0051,C]
S018=[0127,M][0128,C][0130,C][0051,C]
S020=[0813,M][0802,M]
S021=[0805,M][0809,C][0808,C][0051,C]
S022=[0810,M][0814,C][0070,C][0073,C]
S300=[0338,C][0314,C][0336,C]
S301=[0320,C][0323,C][0325,C]
S302=[0300,M][0303,C][0051,C][0304,C]
S303=[0306,M][0303,C][0051,C]
S305=[0311,M][0342,C][0344,C][0051,C]
S306=[0065,M][0052,M][0054,M][0113,C][0051,C][0057,C]
S307=[0333,C][0332,C][0335,C]
S500=[0577,M][0538,C][0511,C][0513,C][0515,C][0586,C][0586,C][0586,C]
S501=[0517,M][0338,C][0314,C][0336,C]
S502=[0523,M][0525,C][0533,C][0527,C][0529,C][0591,C][0601,C]
S503=[0531,M][0554,M]
S504=[0575,M][0558,M]
S505=[0551,M][0548,M]
S508=[0563,M][0560,C]
.ELMS
0001=A,4,4
0002=AN,1,1
0004=AN,1,35
0007=AN,1,4
0008=AN,1,35
0010=AN,1,35
0014=AN,1,35
0017=N,8,8
0019=N,4,4
0020=AN,1,14
0022=AN,1,14
0025=AN,1,2
0026=AN,1,14
0029=A,1,1
0031=N,1,1
0032=AN,1,35
0035=N,1,1
0036=N,1,6
0038=AN,1,6
0040=AN,1,35
0042=AN,1,35
0044=AN,1,35
0046=AN,1,35
0048=AN,1,14
0051=AN,1,3
0052=AN,1,3
0054=AN,1,3
0057=AN,1,6
0058=AN,1,14
0060=N,1,6
0062=AN,1,14
0065=AN,1,6
0068=AN,1,35
0070=N,1,2
0073=A,1,1
0074=N,1,10
0080=AN,1,6
0081=A,1,1
0083=AN,1,3
0085=AN,1,3
0087=AN,1,4
0096=N,1,6
0098=N,1,3
0104=N,1,3
0110=AN,1,6
0113=AN,1,6
0115=AN,1,14
0116=AN,1,3
0118=AN,1,3
0121=AN,1,14
0122=AN,1,3
0124=AN,1,3
0127=AN,1,14
0128=AN,1,3
0130=AN,1,3
0133=AN,1,3
0135=AN,1,3
0136=N,1,6
0138=N,1,6
0300=AN,1,35
0303=AN,1,35
0304=AN,1,35
0306=AN,1,35
0311=AN,1,14
0314=AN,1,15
0320=N,1,6
0323=A,1,1
0325=A,1,1
0331=AN,1,3
0332=AN,1,70
0333=AN,1,3
0335=AN,1,3
0336=N,4,4
0338=N,1,8
0340=AN,1,35
0342=AN,1,3
0344=AN,1,3
0501=AN,1,3
0503=AN,1,3
0505=AN,1,3
0507=AN,1,3
0509=AN,1,3
0511=AN,1,512
0513=AN,1,3
0515=AN,1,3
0517=AN,1,3
0518=AN,1,35
0520=AN,1,35
0523=AN,1,3
0525=AN,1,3
0527=AN,1,3
0529=AN,1,3
0531=AN,1,3
0533=AN,1,3
0534=AN,1,14
0536=AN,1,35
0538=AN,1,35
0541=AN,1,3
0543=AN,1,3
0545=AN,1,3
0546=AN,1,35
0548=AN,1,4
0551=AN,1,3
0554=AN,1,512
0556=N,1,18
0558=AN,1,70
0560=AN,1,512
0563=AN,1,3
0565=AN,1,3
0567=AN,1,3
0569=AN,1,3
0571=AN,1,3
0572=N,1,4
0575=AN,1,3
0577=AN,1,3
0579=AN,1,3
0582=N,1,2
0586=AN,1,35
0588=N,1,10
0591=AN,1,3
0601=AN,1,3
0800=AN,1,35
0802=AN,1,35
0805=AN,1,3
0808=AN,1,256
0809=AN,1,256
0810=N,1,18
0813=AN,1,3
0814=N,1,3
1---=AN,1,1
2---=AN,1,1
3---=AN,1,1
4---=AN,1,1
5---=AN,1,1
6---=AN,1,1
.CODES
0001=UNOA,UNOB,UNOC,UNOD,UNOE,UNOF,UNOG,UNOH,UNOI,UNOJ,UNOK,UNOX,UNOY
0002=1,2,3,4
0007=1,4,5,8,9,12,14,18,22,30,31,33,34,51,52,53,54,55,57,58,59,61,63,65,80,82,84,85,86,87,89,90,91,92,103,128,129,144,145,146,147,148,Z01,ZZZ
0025=AA,BB
0029=A
0031=1,2
0035=1,2,3,4
0051=AA,AB,AC,AD,AE,AF,AG,AH,AI,CC,CE,EC,ED,EE,EN,ER,EU,EW,EX,IA,KE,LI,OD,RI,RT,UN
0052=1,2,4,88,89,90,D,S
0054=1,2,902,911,912,921,932,00A,00B,01A,01B,01C,02A,93A,94A,94B,95A,95B,96A,96B,97A,97B,98A,98B,99A,99B
0065=APERAK,AUTACK,AUTHOR,AVLREQ,AVLRSP,BALANC,BANSTA,BAPLIE,BERMAN,BMISRM,BOPBNK,BOPCUS,BOPDIR,BOPINF,BUSCRD,CALINF,CASINT,CASRES,CHACCO,CLASET,CNTCND,COACSU,COARRI,CODECO,CODENO,COEDOR,COHAOR,COLREQ,COMDIS,CONAPW,CONDPV,CONDRA,CONDRO,CONEST,CONITT,CONPVA,CONQVA,CONRPW,CONTEN,CONTRL,CONWQD,COPARN,COPAYM,COPINO,COPRAR,COREOR,COSTCO,COSTOR,CREADV,CREEXT,CREMUL,CUSCAR,CUSDEC,CUSEXP,CUSPED,CUSREP,CUSRES,DEBADV,DEBMUL,DEBREC,DELFOR,DELJIT,DESADV,DESTIM,DGRECA,DIRDEB,DIRDEF,DMRDEF,DMSTAT,DOCADV,DOCAMA,DOCAMI,DOCAMR,DOCAPP,DOCARE,DOCINF,ENTREC,FINCAN,FINPAY,FINSTA,GENRAL,GESMES,HANMOV,ICASRP,ICSOLI,IFCSUM,IFTCCA,IFTDGN,IFTFCC,IFTICL,IFTMAN,IFTMBC,IFTMBF,IFTMBP,IFTMCA,IFTMCS,IFTMIN,IFTRIN,IFTSAI,IFTSTA,IFTSTQ,IHCEBI,IHCLME,IMPDEF,INFCON,INFENT,INSDES,INSPRE,INSREQ,INSRPT,INVOIC,INVRPT,IPPOAD,IPPOMO,ISENDS,ITRRPT,JAPRES,JINFDE,JOBAPP,JOBCON,JOBMOD,JOBOFF,JUPREQ,KEYMAN,LEDGER,LREACT,LRECLM,MEDPID,MEDPRE,MEDREQ,MEDRPT,MEDRUC,MEQPOS,MOVINS,MSCONS,ORDCHG,ORDERS,ORDRSP,OSTENQ,OSTRPT,PARTIN,PASREQ,PASRSP,PAXLST,PAYDUC,PAYEXT,PAYMUL,PAYORD,PRICAT,PRIHIS,PROCST,PRODAT,PRODEX,PROINQ,PROSRV,PROTAP,PRPAID,QALITY,QUOTES,RDRMES,REBORD,RECADV,RECALC,RECECO,RECLAM,RECORD,REGENT,RELIST,REMADV,REPREM,REQDOC,REQOTE,RESETT,RESMSG,RESREQ,RESRSP,RETACC,RETANN,RETINS,RPCALL,SAFHAZ,SANCRT,SKDREQ,SKDUPD,SLSFCT,SLSRPT,SOCADE,SSIMOD,SSRECH,SSREGW,STATAC,STLRPT,SUPCOT,SUPMAN,SUPRES,TANSTA,TAXCON,TIQREQ,TIQRSP,TPFREP,TSDUPD,TUPREQ,TUPRSP,UTILMD,UTILTS,VATDEC,VESDEP,WASDIS,WKGRDC,WKGRRE
0073=C,F
0081=D,S
0083=4,7,8
0085=2,7,12,13,14,15,16,17,18,20,21,22,23,24,25,26,28,29,30,32,33,35,36,37,39,40,45,46,47,48
0113=AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK,AL,AM,AN,AO,AP,AQ,AR,AS,SECACK,SECAUT
0133=1,2,3,4,5,6,7,8,ZZZ
0135=UCD,UCF,UCI,UCM,UCS,UGH,UGT,UIB,UIH,UIR,UIT,UIZ,UNB,UNE,UNG,UNH,UNO,UNP,UNS,UNT,UNZ,USA,USB,USC,USD,USE,USF,USH,USL,USR,UST,USU,USX,USY
0323=F,I,L
0325=D
0331=1,2,3,4,5,6,7,8,9
0333=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
0501=1,2,3,4,5,6,7,8,9,10,11,12
0503=1,2
0505=1,2,3,4,5,6,7,ZZZ
0507=1,2,3,4,5,6,7,8,ZZZ
0509=1,2,3,4,ZZZ
0513=1,2,ZZZ
0515=1,2
0517=1,2,3,4,5,6,7
0523=1,2,3,4,5,6,7,8,9,10
0525=1,2,3,4,5,16,17,23,24,25,26,27,28,29,30,31,32,33,34,35,36,ZZZ
0527=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,ZZZ
0529=1
0531=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,33,34,35,36,37,38,39,40,41,ZZZ
0533=1
0541=1,2,3,4,5,6,ZZZ
0543=1,2,3,4,5,6,7,8,9,10,11,12,13
0545=1,2,3,4,5
0551=1,2,3,4,5
0563=1,2,3,4,5,6,7,8
0565=1,2,3
0567=1,2,3,4,5,6
0569=1,2,3,4,5,6,ZZZ
0571=1,2,3,4,5,6,7,8
0575=ZZZ
0577=1,2,3,4
0579=101,102,110,111,112,121,123,124,125,126,130,131,140,150,151,152,221,222,224,225,231,251,252
0591=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19
0601=1
0805=1,2,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,48,49,50,51,52,53,54,55,56,57,58,60,61,62,63
0813=1,2
.TEXT,SETS
.TEXT,ELMS