DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
114
Maps/DTSM14.bms
Normal file
114
Maps/DTSM14.bms
Normal file
@ -0,0 +1,114 @@
|
||||
* DATA SET DTSM14 AT LEVEL 004 AS OF 10/12/98
|
||||
***** 00001
|
||||
* 00002
|
||||
* 14 OWNER/PARTNER/OFFICER NAME INQUIRY 00003
|
||||
* 00004
|
||||
***** 00005
|
||||
SPACE 00006
|
||||
DTSM14 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00007**2
|
||||
SPACE 00008
|
||||
F140101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00009
|
||||
INITIAL='14' 00010
|
||||
SPACE 00011
|
||||
DFHMDF POS=(1,17),LENGTH=34,ATTRB=(ASKIP), *00012
|
||||
INITIAL='OWNER/PARTNER/OFFICER NAME INQUIRY' 00013
|
||||
SPACE 00014
|
||||
F140162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00015
|
||||
SPACE 00016
|
||||
F140172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00017
|
||||
SPACE 00018
|
||||
DFHMDF POS=(02,02),LENGTH=07,ATTRB=(ASKIP), *00019
|
||||
INITIAL='EMP NO:' 00020
|
||||
SPACE 00021
|
||||
F140210 DFHMDF POS=(02,10),LENGTH=03,ATTRB=(ASKIP) 00022
|
||||
SPACE 00023
|
||||
F140214 DFHMDF POS=(02,14),LENGTH=03,ATTRB=(ASKIP) 00024
|
||||
SPACE 00025
|
||||
DFHMDF POS=(02,18),LENGTH=01,ATTRB=(ASKIP) 00026
|
||||
SPACE 00027
|
||||
F140221 DFHMDF POS=(02,21),LENGTH=40,ATTRB=(ASKIP) 00028
|
||||
SPACE 00029
|
||||
F140272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00030
|
||||
SPACE 00031
|
||||
F140372 DFHMDF POS=(03,72),LENGTH=02,ATTRB=(ASKIP) 00032
|
||||
SPACE 00033
|
||||
DFHMDF POS=(03,75),LENGTH=02,ATTRB=(ASKIP), *00034
|
||||
INITIAL='OF' 00035
|
||||
SPACE 00036
|
||||
F140378 DFHMDF POS=(03,78),LENGTH=02,ATTRB=(ASKIP) 00037
|
||||
SPACE 00038
|
||||
DFHMDF POS=(04,01),LENGTH=02,ATTRB=(ASKIP), *00039
|
||||
INITIAL='NO' 00040
|
||||
SPACE 00041
|
||||
DFHMDF POS=(04,06),LENGTH=10,ATTRB=(ASKIP), *00042
|
||||
INITIAL='O/P/O NAME' 00043
|
||||
SPACE 00044
|
||||
DFHMDF POS=(04,39),LENGTH=05,ATTRB=(ASKIP), *00045
|
||||
INITIAL='TITLE' 00046
|
||||
SPACE 00047
|
||||
DFHMDF POS=(04,56),LENGTH=03,ATTRB=(ASKIP), *00048
|
||||
INITIAL='SSN' 00049
|
||||
SPACE 00050
|
||||
DFHMDF POS=(04,67),LENGTH=04,ATTRB=(ASKIP), *00051
|
||||
INITIAL='CITY' 00052
|
||||
SPACE 00053
|
||||
DFHMDF POS=(04,78),LENGTH=02,ATTRB=(ASKIP), *00054
|
||||
INITIAL='ST' 00055
|
||||
SPACE 00056
|
||||
F140501 DFHMDF POS=(05,01),LENGTH=79,ATTRB=(ASKIP) 00057
|
||||
SPACE 00058
|
||||
F140601 DFHMDF POS=(06,01),LENGTH=79,ATTRB=(ASKIP) 00059
|
||||
SPACE 00060
|
||||
F140701 DFHMDF POS=(07,01),LENGTH=79,ATTRB=(ASKIP) 00061
|
||||
SPACE 00062
|
||||
F140801 DFHMDF POS=(08,01),LENGTH=79,ATTRB=(ASKIP) 00063
|
||||
SPACE 00064
|
||||
F140901 DFHMDF POS=(09,01),LENGTH=79,ATTRB=(ASKIP) 00065
|
||||
SPACE 00066
|
||||
F141001 DFHMDF POS=(10,01),LENGTH=79,ATTRB=(ASKIP) 00067
|
||||
SPACE 00068
|
||||
F141101 DFHMDF POS=(11,01),LENGTH=79,ATTRB=(ASKIP) 00069
|
||||
SPACE 00070
|
||||
F141201 DFHMDF POS=(12,01),LENGTH=79,ATTRB=(ASKIP) 00071
|
||||
SPACE 00072
|
||||
F141301 DFHMDF POS=(13,01),LENGTH=79,ATTRB=(ASKIP) 00073
|
||||
SPACE 00074
|
||||
F141401 DFHMDF POS=(14,01),LENGTH=79,ATTRB=(ASKIP) 00075
|
||||
SPACE 00076
|
||||
F141501 DFHMDF POS=(15,01),LENGTH=79,ATTRB=(ASKIP) 00077
|
||||
SPACE 00078
|
||||
F141601 DFHMDF POS=(16,01),LENGTH=79,ATTRB=(ASKIP) 00079
|
||||
SPACE 00080
|
||||
F141701 DFHMDF POS=(17,01),LENGTH=79,ATTRB=(ASKIP) 00081
|
||||
SPACE 00082
|
||||
F141801 DFHMDF POS=(18,01),LENGTH=79,ATTRB=(ASKIP) 00083
|
||||
SPACE 00084
|
||||
F141901 DFHMDF POS=(19,01),LENGTH=79,ATTRB=(ASKIP) 00085
|
||||
SPACE 00086
|
||||
F142001 DFHMDF POS=(20,01),LENGTH=79,ATTRB=(ASKIP) 00087
|
||||
SPACE 00088
|
||||
DFHMDF POS=(22,04),LENGTH=15,ATTRB=(ASKIP), *00089
|
||||
INITIAL='SELECT LINE NO:' 00090
|
||||
SPACE 00091
|
||||
F142220 DFHMDF POS=(22,20),LENGTH=02,ATTRB=(ASKIP) 00092
|
||||
SPACE 00093
|
||||
DFHMDF POS=(22,23),LENGTH=01,ATTRB=(ASKIP) 00094
|
||||
SPACE 00095
|
||||
F142313 DFHMDF POS=(23,13),LENGTH=08,ATTRB=(ASKIP) 00096
|
||||
SPACE 00097
|
||||
F142324 DFHMDF POS=(23,24),LENGTH=07,ATTRB=(ASKIP) 00098
|
||||
SPACE 00099
|
||||
F142334 DFHMDF POS=(23,34),LENGTH=07,ATTRB=(ASKIP) 00100
|
||||
SPACE 00101
|
||||
F142344 DFHMDF POS=(23,44),LENGTH=07,ATTRB=(ASKIP) 00102
|
||||
SPACE 00103
|
||||
F142401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00104
|
||||
SPACE 00105
|
||||
F142410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00106
|
||||
SPACE 00107
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00108
|
||||
INITIAL='GO TO:' 00109
|
||||
SPACE 00110
|
||||
F142476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00111
|
||||
SPACE 00112
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00113
|
||||
Reference in New Issue
Block a user