DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
102
Maps/DTSM86.bms
Normal file
102
Maps/DTSM86.bms
Normal file
@ -0,0 +1,102 @@
|
||||
* DATA SET DTSM86 AT LEVEL 007 AS OF 01/29/02
|
||||
* DATA SET DTSM86 AT LEVEL 005 AS OF 09/07/98 00001
|
||||
* DATA SET MACM86 AT LEVEL 003 AS OF 01/23/95 00002
|
||||
***** 00003
|
||||
* 00004
|
||||
* 86 FIELD ASSIGNMENT TYPE INQUIRY/UPDATE. 00005
|
||||
* 00006
|
||||
***** 00007
|
||||
SPACE 00008
|
||||
DTSM86 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00009
|
||||
SPACE 00010
|
||||
F860101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00011
|
||||
INITIAL='86' 00012
|
||||
SPACE 00013
|
||||
DFHMDF POS=(01,17),LENGTH=36,ATTRB=(ASKIP), *00014
|
||||
INITIAL='FIELD ASSIGNMENT TYPE INQUIRY/UPDATE' 00015
|
||||
SPACE 00016
|
||||
F860162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00017
|
||||
SPACE 00018
|
||||
F860172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00019
|
||||
SPACE 00020
|
||||
F860272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00021
|
||||
SPACE 00022
|
||||
DFHMDF POS=(03,09),LENGTH=16,ATTRB=ASKIP, *00023
|
||||
INITIAL='ASSIGNMENT TYPE:' 00024
|
||||
SPACE 00025
|
||||
F860326 DFHMDF POS=(03,26),LENGTH=02,ATTRB=ASKIP 00026
|
||||
SPACE 00027
|
||||
DFHMDF POS=(03,29),LENGTH=01,ATTRB=ASKIP 00028
|
||||
SPACE 00029
|
||||
DFHMDF POS=(05,02),LENGTH=23,ATTRB=ASKIP, *00030
|
||||
INITIAL='ASSIGNMENT DESCRIPTION:' 00031
|
||||
SPACE 00032
|
||||
F860526 DFHMDF POS=(05,26),LENGTH=40,ATTRB=ASKIP 00033
|
||||
SPACE 00034
|
||||
DFHMDF POS=(05,67),LENGTH=01,ATTRB=ASKIP 00035
|
||||
SPACE 00036
|
||||
DFHMDF POS=(07,12),LENGTH=13,ATTRB=ASKIP, *00037
|
||||
INITIAL='DEFAULT DAYS:' 00038
|
||||
SPACE 00039
|
||||
F860726 DFHMDF POS=(07,26),LENGTH=03,ATTRB=ASKIP 00040
|
||||
SPACE 00041
|
||||
DFHMDF POS=(07,30),LENGTH=01,ATTRB=ASKIP 00042
|
||||
SPACE 00043
|
||||
DFHMDF POS=(09,05),LENGTH=20,ATTRB=ASKIP, *00044
|
||||
INITIAL='DEFAULT ATTACHMENTS?' 00045
|
||||
SPACE 00046
|
||||
F860926 DFHMDF POS=(09,26),LENGTH=01,ATTRB=ASKIP 00047
|
||||
SPACE 00048
|
||||
DFHMDF POS=(09,28),LENGTH=01,ATTRB=ASKIP 00049
|
||||
SPACE 00050
|
||||
DFHMDF POS=(11,09),LENGTH=16,ATTRB=ASKIP, *00051
|
||||
INITIAL='ACCOUNTING DESK:' 00052
|
||||
SPACE 00053
|
||||
F861126 DFHMDF POS=(11,26),LENGTH=01,ATTRB=ASKIP 00054
|
||||
SPACE 00055
|
||||
DFHMDF POS=(11,28),LENGTH=01,ATTRB=ASKIP 00056
|
||||
SPACE 00057
|
||||
DFHMDF POS=(13,09),LENGTH=16,ATTRB=ASKIP, *00058
|
||||
INITIAL=' CYCLE A?' 00059
|
||||
SPACE 00060
|
||||
F861326 DFHMDF POS=(13,26),LENGTH=01,ATTRB=ASKIP 00061
|
||||
SPACE 00062
|
||||
DFHMDF POS=(13,28),LENGTH=01,ATTRB=ASKIP 00063
|
||||
SPACE 00064
|
||||
DFHMDF POS=(15,09),LENGTH=16,ATTRB=ASKIP, *00065
|
||||
INITIAL='AUDIT INDICATOR:' 00066
|
||||
SPACE 00067
|
||||
F861526 DFHMDF POS=(15,26),LENGTH=01,ATTRB=ASKIP 00068
|
||||
SPACE 00069
|
||||
DFHMDF POS=(15,28),LENGTH=01,ATTRB=ASKIP 00070
|
||||
SPACE 00071
|
||||
DFHMDF POS=(20,59),LENGTH=10,ATTRB=ASKIP, *00072
|
||||
INITIAL='ESTB DATE:' 00073
|
||||
SPACE 00074
|
||||
F862070 DFHMDF POS=(20,70),LENGTH=08,ATTRB=ASKIP 00075
|
||||
SPACE 00076
|
||||
DFHMDF POS=(21,59),LENGTH=10,ATTRB=ASKIP, *00077
|
||||
INITIAL='CHNG DATE:' 00078
|
||||
SPACE 00079
|
||||
F862170 DFHMDF POS=(21,70),LENGTH=08,ATTRB=ASKIP 00080
|
||||
SPACE 00081
|
||||
F862318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00082
|
||||
SPACE 00083
|
||||
F862327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00084
|
||||
SPACE 00085
|
||||
F862338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00086
|
||||
SPACE 00087
|
||||
F862346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00088
|
||||
SPACE 00089
|
||||
F862355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00090
|
||||
SPACE 00091
|
||||
F862401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00092
|
||||
SPACE 00093
|
||||
F862410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00094
|
||||
SPACE 00095
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00096
|
||||
INITIAL='GO TO:' 00097
|
||||
SPACE 00098
|
||||
F862476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00099
|
||||
SPACE 00100
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00101
|
||||
Reference in New Issue
Block a user