DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
151
Maps/DTSM22.bms
Normal file
151
Maps/DTSM22.bms
Normal file
@ -0,0 +1,151 @@
|
||||
* DATA SET DTSM22 AT LEVEL 003 AS OF 01/08/99
|
||||
DTSM22 DFHMDI SIZE=(24,80), X00001**2
|
||||
LINE=01, X00002
|
||||
COLUMN=01 00003
|
||||
F220101 DFHMDF POS=(01,01), X00004
|
||||
ATTRB=(ASKIP,FSET), X00005
|
||||
LENGTH=002, X00006
|
||||
INITIAL='22' 00007
|
||||
DFHMDF POS=(01,22), X00008
|
||||
ATTRB=(ASKIP), X00009
|
||||
LENGTH=024, X00010
|
||||
INITIAL='BATCH CORRECTION INQUIRY' 00011
|
||||
F220162 DFHMDF POS=(01,62), X00012
|
||||
ATTRB=(ASKIP), X00013
|
||||
LENGTH=008 00014
|
||||
F220172 DFHMDF POS=(01,72), X00015
|
||||
ATTRB=(ASKIP), X00016
|
||||
LENGTH=008 00017
|
||||
DFHMDF POS=(02,05), X00018**3
|
||||
ATTRB=(ASKIP), X00019**3
|
||||
LENGTH=006, X00020**3
|
||||
INITIAL='BATCH:' 00021**3
|
||||
F220212 DFHMDF POS=(02,12), X00022**3
|
||||
ATTRB=(ASKIP), X00023**3
|
||||
LENGTH=005 00024**3
|
||||
DFHMDF POS=(02,18), X00025**3
|
||||
ATTRB=(ASKIP), X00026**3
|
||||
LENGTH=001 00027**3
|
||||
DFHMDF POS=(02,31), X00028**3
|
||||
ATTRB=(ASKIP), X00029**3
|
||||
LENGTH=007, X00030**3
|
||||
INITIAL='STATUS:' 00031**3
|
||||
F220239 DFHMDF POS=(02,39), X00032**3
|
||||
ATTRB=(ASKIP), X00033**3
|
||||
LENGTH=015 00034**3
|
||||
F220272 DFHMDF POS=(02,72), X00035
|
||||
ATTRB=(ASKIP), X00036
|
||||
LENGTH=008 00037
|
||||
F220339 DFHMDF POS=(03,39), X00038**3
|
||||
ATTRB=(ASKIP), X00039**3
|
||||
LENGTH=015 00040**3
|
||||
F220439 DFHMDF POS=(04,39), X00041**3
|
||||
ATTRB=(ASKIP), X00042**3
|
||||
LENGTH=015 00043**3
|
||||
DFHMDF POS=(05,06), X00044**3
|
||||
ATTRB=(ASKIP), X00045
|
||||
LENGTH=018, X00046**3
|
||||
INITIAL='CONTROL REMIT AMT:' 00047**3
|
||||
F220525 DFHMDF POS=(05,25), X00048**3
|
||||
ATTRB=(ASKIP), X00049
|
||||
LENGTH=015 00050
|
||||
DFHMDF POS=(05,45), X00051**3
|
||||
ATTRB=(ASKIP), X00052
|
||||
LENGTH=017, X00053**3
|
||||
INITIAL='CONTROL TRAN CNT:' 00054**3
|
||||
F220563 DFHMDF POS=(05,63), X00055**3
|
||||
ATTRB=(ASKIP), X00056
|
||||
LENGTH=007 00057**3
|
||||
DFHMDF POS=(06,06), X00058**3
|
||||
ATTRB=(ASKIP), X00059**3
|
||||
LENGTH=018, X00060**3
|
||||
INITIAL='BALANCE REMIT AMT:' 00061**3
|
||||
F220625 DFHMDF POS=(06,25), X00062**3
|
||||
ATTRB=(ASKIP), X00063**3
|
||||
LENGTH=015 00064**3
|
||||
DFHMDF POS=(06,45), X00065**3
|
||||
ATTRB=(ASKIP), X00066**3
|
||||
LENGTH=017, X00067**3
|
||||
INITIAL='BALANCE TRAN CNT:' 00068**3
|
||||
F220663 DFHMDF POS=(06,63), X00069**3
|
||||
ATTRB=(ASKIP), X00070**3
|
||||
LENGTH=007 00071**3
|
||||
DFHMDF POS=(08,10), X00072**3
|
||||
ATTRB=(ASKIP), X00073
|
||||
LENGTH=043, X00074**3
|
||||
INITIAL='NO ITEM C TY EMP NO REMIT AMT' 00075**3
|
||||
DFHMDF POS=(08,54), X00076**3
|
||||
ATTRB=(ASKIP), X00077**3
|
||||
LENGTH=011, X00078**3
|
||||
INITIAL=' PROCESSED' 00079**3
|
||||
F220910 DFHMDF POS=(09,10), X00080**3
|
||||
ATTRB=(ASKIP), X00081
|
||||
LENGTH=055 00082**3
|
||||
F221010 DFHMDF POS=(10,10), X00083**3
|
||||
ATTRB=(ASKIP), X00084**3
|
||||
LENGTH=055 00085**3
|
||||
F221110 DFHMDF POS=(11,10), X00086**3
|
||||
ATTRB=(ASKIP), X00087**3
|
||||
LENGTH=055 00088**3
|
||||
F221210 DFHMDF POS=(12,10), X00089**3
|
||||
ATTRB=(ASKIP), X00090**3
|
||||
LENGTH=055 00091**3
|
||||
F221310 DFHMDF POS=(13,10), X00092**3
|
||||
ATTRB=(ASKIP), X00093**3
|
||||
LENGTH=055 00094**3
|
||||
F221410 DFHMDF POS=(14,10), X00095**3
|
||||
ATTRB=(ASKIP), X00096**3
|
||||
LENGTH=055 00097**3
|
||||
F221510 DFHMDF POS=(15,10), X00098**3
|
||||
ATTRB=(ASKIP), X00099**3
|
||||
LENGTH=055 00100**3
|
||||
F221610 DFHMDF POS=(16,10), X00101**3
|
||||
ATTRB=(ASKIP), X00102**3
|
||||
LENGTH=055 00103**3
|
||||
F221710 DFHMDF POS=(17,10), X00104**3
|
||||
ATTRB=(ASKIP), X00105**3
|
||||
LENGTH=055 00106**3
|
||||
F221810 DFHMDF POS=(18,10), X00107**3
|
||||
ATTRB=(ASKIP), X00108**3
|
||||
LENGTH=055 00109**3
|
||||
F221910 DFHMDF POS=(19,10), X00110**3
|
||||
ATTRB=(ASKIP), X00111**3
|
||||
LENGTH=055 00112**3
|
||||
F222010 DFHMDF POS=(20,10), X00113**3
|
||||
ATTRB=(ASKIP), X00114**3
|
||||
LENGTH=055 00115**3
|
||||
DFHMDF POS=(22,02), X00116
|
||||
ATTRB=(ASKIP), X00117
|
||||
LENGTH=015, X00118
|
||||
INITIAL='SELECT LINE NO:' 00119
|
||||
F222218 DFHMDF POS=(22,18), X00120
|
||||
ATTRB=(ASKIP), X00121
|
||||
LENGTH=002 00122
|
||||
DFHMDF POS=(22,21), X00123
|
||||
ATTRB=(ASKIP), X00124
|
||||
LENGTH=001 00125
|
||||
F222328 DFHMDF POS=(23,28), X00126**3
|
||||
ATTRB=(ASKIP), X00127
|
||||
LENGTH=007 00128
|
||||
F222337 DFHMDF POS=(23,37), X00129**3
|
||||
ATTRB=(ASKIP), X00130
|
||||
LENGTH=007 00131
|
||||
F222346 DFHMDF POS=(23,46), X00132**3
|
||||
ATTRB=(ASKIP), X00133
|
||||
LENGTH=009 00134**3
|
||||
F222401 DFHMDF POS=(24,01), X00135
|
||||
ATTRB=(ASKIP), X00136
|
||||
LENGTH=008 00137
|
||||
F222410 DFHMDF POS=(24,10), X00138
|
||||
ATTRB=(ASKIP), X00139
|
||||
LENGTH=058 00140
|
||||
DFHMDF POS=(24,69), X00141
|
||||
ATTRB=(ASKIP), X00142
|
||||
LENGTH=006, X00143
|
||||
INITIAL='GO TO:' 00144
|
||||
F222476 DFHMDF POS=(24,76), X00145
|
||||
ATTRB=(ASKIP), X00146
|
||||
LENGTH=002 00147
|
||||
DFHMDF POS=(24,79), X00148
|
||||
ATTRB=(ASKIP), X00149
|
||||
LENGTH=001 00150
|
||||
Reference in New Issue
Block a user