.VER 1.3
.INI
APERAK_D98B,,D 98B,UN,D98B,Application error and acknowledgment message
.PRIVATE EDIdEv
TDVER 
.DATE 2/6/2003 11:09:00 AM
.PUBLIC
.STD ,LS
.SETS
APERAK=[!UNH*1,M][!BGM,M][DTM*1,,9][FTX*1,,9][CNT*1,,9]{:9[RFF*1][DTM*1,,9]}{:9[NAD*1][CTA,,9][COM*1,,9]}{:99999[ERC*1][FTX*1]{:9[RFF*1][FTX*1,,9]}}[!UNT,M]
.SEGS
BGM=[C002][C106][1225][4343]
CNT=[C270],@M
COM=[C076],@M
CTA=[3139][C056]
DTM=[C507],@M
ERC=[C901],@M
FTX=[!4451,M][4453][C107][C108][3453][4447],....*1..
NAD=[!3035,M][C082][C058][C080][C059][3164][3229][3251][3207],...*1.*1.*1....
RFF=[C506],@M
UNA=[1---,M,1][2---,M,1][3---,M,1][4---,M,1][5---,M,1][6---,M,1],@M[1:1:1]@M[1:1:1]@M[1:1:1]@M[1:1:1]@M[1:1:1]@M[1:1: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,M,1][S006,M,1][S007,M,1][S004,M,1][0048,M,1][0051,M,1][S008,M,1][0058,C,1]
UNH=[!0062,M][S009][0068][S010],.@M..
UNS=[0081,M,1],@M[1:1:1]
UNT=[!0074,M][!0062,M]
UNZ=[0036,M,1][0020,M,1]
.COMS
C002=[1001][1131][3055][1000]
C056=[3413][3412]
C058=[!3124,M][!3124,M][!3124,M][!3124,M][!3124,M],.+C+C+C+C
C059=[!3042,M][!3042,M][!3042,M][!3042,M],.+C+C+C
C076=[!3148,M][!3155,M]
C080=[!3036,M][!3036,M][!3036,M][!3036,M][!3036,M][3045],.+C+C+C+C.
C082=[!3039,M][1131][3055]
C106=[1004][1056][1060]
C107=[!4441,M][1131][3055]
C108=[!4440,M][!4440,M][!4440,M][!4440,M][!4440,M],.+C+C+C+C
C270=[!6069,M][!6066,M][6411]
C506=[!1153,M][1154][1156][4000][1060]
C507=[!2005,M][2380][2379]
C901=[!9321,M][1131][3055]
S001=[0001,M,1][0002,M,1]
S002=[0004,M,1][0007,C,1][0008,C,1]
S003=[0010,M,1][0007,C,1][0014,C,1]
S004=[0017,M,1][0019,M,1]
S005=[0022,M,1][0025,C,1]
S006=[0040,M,1][0007,C,1]
S007=[0044,M,1][0007,C,1]
S008=[0052,M,1][0054,M,1][0057,C,1]
S009=[!0065,M][!0052,M][!0054,M][!0051,M][0057]
S010=[!0070,M][0073]
.ELMS
0001=A,4,4
0002=N,1,1
0004=AN,1,35
0007=AN,1,4
0008=AN,1,14
0010=AN,1,35
0014=AN,1,14
0017=N,6,6
0019=N,4,4
0020=AN,1,14
0022=AN,1,14
0025=AN,2,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
0044=AN,1,35
0048=AN,1,14
0051=AN,1,2
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,6
0081=A,1,1
1---=AN,1,1
1000=AN,1,35
1001=AN,1,3
1004=AN,1,35
1056=AN,1,9
1060=AN,1,6
1131=AN,1,3
1153=AN,1,3
1154=AN,1,35
1156=AN,1,6
1225=AN,1,3
2---=AN,1,1
2005=AN,1,3
2379=AN,1,3
2380=AN,1,35
3---=AN,1,1
3035=AN,1,3
3036=AN,1,35
3039=AN,1,35
3042=AN,1,35
3045=AN,1,3
3055=AN,1,3
3124=AN,1,35
3139=AN,1,3
3148=AN,1,512
3155=AN,1,3
3164=AN,1,35
3207=AN,1,3
3229=AN,1,9
3251=AN,1,9
3412=AN,1,35
3413=AN,1,17
3453=AN,1,3
4---=AN,1,1
4000=AN,1,35
4343=AN,1,3
4440=AN,1,70
4441=AN,1,17
4447=AN,1,3
4451=AN,1,3
4453=AN,1,3
5---=AN,1,1
6---=AN,1,1
6066=N,1,18
6069=AN,1,3
6411=AN,1,3
9321=AN,1,8
.CODES
0001=UNOA,UNOB,UNOC,UNOD,UNOE,UNOF
0002=1,2,3
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,ZZZ
0025=AA,BB
0029=A
0031=1
0035=1
0051=AA:AF,CC,CE,EC:EE,EN,ER,EU,EX,IA,KE,LI,OD,RI,RT,UN
0052=1,2,D,S,88:90
0054=1,2,902,911,912,921,932,93A,94A,94B,95A,95B,96A,96B,97A,97B,98A,98B
0065=APERAK,AUTACK,AUTHOR,AVLREQ,AVLRSP,BALANC,BANSTA,BAPLIE,BAPLTE,BMISRM,BOPBNK,BOPCUS,BOPDIR,BOPINF,CALINF,CASINT,CASRES,CHACCO,COARRI,CODECO,CODENO,COEDOR,COHAOR,COLREQ,COMDIS,CONAPW,CONDPV,CONDRA,CONDRO,CONEST,CONITT,CONPVA,CONQVA,CONRPW,CONTEN,CONTRL,CONWQD,COPARN,COPINO,COPRAR,COREOR,COSTCO,COSTOR,CREADV,CREEXT,CREMUL,CUSCAR,CUSDEC,CUSEXP,CUSPED,CUSREP,CUSRES,DEBADV,DEBMUL,DELFOR,DELJIT,DESADV,DESTIM,DGRECA,DIRDEB,DIRDEF,DMRDEF,DMSTAT,DOCADV,DOCAMA,DOCAMI,DOCAMR,DOCAPP,DOCARE,DOCINF,ENTREC,FINCAN,FINPAY,FINSTA,GENRAL,GESMES,HANMOV,IFCSUM,IFTCCA,IFTDGN,IFTFCC,IFTIAG,IFTMAN,IFTMBC,IFTMBF,IFTMBP,IFTMCS,IFTMIN,IFTRIN,IFTSAI,IFTSTA,IFTSTQ,IMPDEF,INFENT,INSDES,INSPRE,INVOIC,INVRPT,IPPOMO,ITRRPT,JAPRES,JINFDE,JOBAPP,JOBCON,JOBMOD,JOBOFF,KEYMAN,LREACT,LRECLM,MEDPID,MEDREQ,MEDRPT,MEDRUC,MEQPOS,MOVINS,MSCONS,ORDCHG,ORDERS,ORDRSP,OSTENQ,OSTRPT,PARTIN,PAXLST,PAYDUC,PAYEXT,PAYMUL,PAYORD,PRICAT,PRIHIS,PRODAT,PRODEX,PROINQ,PROTAP,PRPAID,QALITY,QUOTES,RDRMES,REBORD,RECADV,RECALC,RECECO,RECLAM,REMADV,REPREM,REQDOC,REQOTE,RESETT,RESMSG,RESREQ,RESRSP,RETACC,RETANN,RETINS,SAFHAZ,SANCRT,SLSFCT,SLSRPT,SOCADE,SSIMOD,SSRECH,SSREGW,STATAC,STLRPT,SUPCOT,SUPMAN,SUPRES,TANSTA,VATDEC,VESDEP,WASDIS,WKGRDC,WKGRRE
0073=C,F
0081=D,S
1001=1:9,10:45,47:99,100:140,142:287,310,311,315,320,325:328,330,335,340,341,343,345,350,351,370,380:390,393:396,409,412,425:431,435,447,448,450:452,454:458,460,465:469,481,485,490:493,520,530,550,575,580,610,621:624,630:633,635,640,650,655,700:716,720,722:724,730,740,741,743:746,750,760,761,763:766,770,775,780:799,810:812,820:825,830,833,840,841,850:853,855,856,860:865,870,890,895,896,901,910,911,913:917,925:927,929:938,940,941,950:955,960:966,990,991,995,996,998
1131=12,16,23,25,33:40,42:49,52:65,67:86,100:110,112:123,125:137,139:158,160:170,172:192,ZZZ
1153=AC,AE,AF,AP,AU,AV,BA,BC:BE,BH,BM:BO,BR,BT,BW,CD,CG,CH,CK,CM:CP,CR:CW,CZ:DB,DI,DL,DM,DQ,DR,EA,EB,ED,EE,EI,EN,EP:ER,ET,EX,FC,FF,FI,FN,FO,FS,FT,FV,FX,GA,GC,GD,GN,HS,IA,IB,II,IL,IP,IS,IT,IV,JB,JE,LA:LC,LI,LO,LS,MA,MB,MF:MH,MR,MS,NA,OH,OI,ON,OP,OR,PB:PF,PI,PK,PL,PP:PS,PW,PY,RA,RC,RE,RF,RR,RT,SA,SB,SD:SF,SH,SI,SM,SN,SP,SQ,SS,SW,SZ,TB,TE,TF,TI,TL,TN,TP,UC,UN,UO,VA,VC,VM,VN,VP,VR:VT,VV,WE,WM,WN,WR,WS,WY,XA,XC,XP,AAA:AAE,AAG,AAJ:AAQ,AAS:AAV,AAY:ADW,ADY:ANK,ANM:APK,APM:APR,APT:AQL,ASC,AWA:AWI,CAS,CEC,CFE,CFO,CKN,CMR,CNO,COF,CRN,CST,DAN,ERN,FLW,GDN,HWB,ICA,ICE,ICO,INB,INN,INO,LAN,LAR,MRN,MSS,MWB,POR,RCN,REN,SRN,STA,UAR,UCN,VON,ZZZ
1225=1:9,10:59
2005=2:4,7:9,10:18,20:22,35:39,42,44:55,58:61,63:65,67,69,71,72,74:76,79,81,84,85,89:97,101,107:111,113:119,123:126,128,129,131:138,140:219,221:268,270:288,290:384,387:491,493:539,ZZZ
2379=2,3,101:103,105:110,201:204,301:306,401,402,404,405,501:503,600:604,608:610,613:616,701:711,713,715:719,801:814
3035=AA,AB,AE:AZ,B1,B2,BA:BQ,BS:BZ,C1,C2,CA:HZ,I1,I2,IB:IJ,IL:IZ,LA:LV,MA,MF,MG,MI,MP,MR:MT,N1,N2,NI,OA:OZ,P1:P4,PA:PO,PQ:PT,PW:PZ,RA,RB,RE,RF,RH,RI,RL,RM,RP,RS,RV,RW,SB,SE:SG,SI,SK,SN,SO,SR:SU,SX:SZ,TC,TD,TR:TT,UC,UD,UP,VN,WD,WH,WM,WS,XX,COP,COQ,CPA:CPF,DCP,TCP,UHP,WPA,ZZZ
3045=1
3055=1:9,10:99,100:126,128:223,ZZZ
3139=AA:BJ,BU,CA:CG,CN:CP,CR,CW,DE,DI,DL,EB:ED,EX,GR,HE,HG,HM,IC,IN,LB,LO,MC,MD,MH,MR,MS,NT,OC,PA,PD,PE,PM,QA,QC,RD,SA,SC,SD,SR,SU,TA,TD,TI,TR,WH,ZZZ
3155=AA:AH,CA,EI,EM,EX,FT,FX,GM,IE,IM,MA,PB,PS,SW,TE,TG,TL,TM,TT,TX,XF
4343=AA:AD,AF,AG,AI,AJ,AP:AS,CA,CO,NA,RE
4447=1:9,10,11
4451=AAA:ABA,ABC:AFM,ALC,ALL,ARR,AUT,BLC,BLR,CCI,CEX,CHG,CIP,CLP,CLR,COI,CUR,CUS,DAR,DCL,DEL,DIN,DOC,DUT,EUR,FBC,GBL,GEN,GS7,HAN,HAZ,ICN,IIN,IMI,IND,INS,INV,IRP,ITR,ITS,LIN,LOI,MCO,MKS,ORI,OSI,PAC,PAI,PAY,PKG,PKT,PMD,PMT,PRD,PRF,PRI,PUR,QIN,QQD,QUT,RAH,REG,RET,REV,RQR,RQT,SAF,SIC,SIN,SLR,SPA,SPG,SPH,SPP,SPT,SRN,SSR,SUR,TCA,TDT,TRA,TRR,TXD,WHI,ZZZ
4453=1:7