176 lines
13 KiB
Plaintext
176 lines
13 KiB
Plaintext
* DATA SET DTSM85 AT LEVEL 005 AS OF 09/07/98
|
|
* DATA SET MACM85 AT LEVEL 006 AS OF 04/24/95 00001
|
|
***** 00002
|
|
* 00003
|
|
* 85 FIELD REPRESENTATIVE TERRITORY INQUIRY/UPDATE. 00004
|
|
* 00005
|
|
***** 00006
|
|
SPACE 00007
|
|
DTSM85 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**2
|
|
SPACE 00009
|
|
F850101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00010
|
|
INITIAL='85' 00011
|
|
SPACE 00012
|
|
DFHMDF POS=(01,14),LENGTH=45,ATTRB=(ASKIP), *00013
|
|
INITIAL='FIELD REPRESENTATIVE TERRITORY INQUIRY/UPDATE' 00014
|
|
SPACE 00015**5
|
|
F850162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00016**5
|
|
SPACE 00017
|
|
F850172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00018
|
|
SPACE 00019
|
|
F850272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00020
|
|
SPACE 00021
|
|
DFHMDF POS=(03,04),LENGTH=16,ATTRB=ASKIP, *00022**3
|
|
INITIAL='FIELD TERRITORY:' 00023**3
|
|
SPACE 00024
|
|
F850320 DFHMDF POS=(03,21),LENGTH=05,ATTRB=ASKIP 00025**3
|
|
SPACE 00026
|
|
DFHMDF POS=(03,27),LENGTH=01,ATTRB=ASKIP 00027**3
|
|
SPACE 00028
|
|
F850330 DFHMDF POS=(03,30),LENGTH=15,ATTRB=ASKIP 00029
|
|
SPACE 00030
|
|
DFHMDF POS=(05,02),LENGTH=17,ATTRB=ASKIP, *00031
|
|
INITIAL='FIELD REP ID - 1:' 00032
|
|
SPACE 00033
|
|
F850520 DFHMDF POS=(05,20),LENGTH=02,ATTRB=ASKIP 00034
|
|
SPACE 00035
|
|
DFHMDF POS=(05,23),LENGTH=01,ATTRB=ASKIP 00036
|
|
SPACE 00037
|
|
F850525 DFHMDF POS=(05,25),LENGTH=32,ATTRB=ASKIP 00038
|
|
SPACE 00039
|
|
DFHMDF POS=(05,58),LENGTH=01,ATTRB=ASKIP 00040
|
|
SPACE 00041
|
|
DFHMDF POS=(06,17),LENGTH=02,ATTRB=ASKIP, *00042
|
|
INITIAL='2:' 00043
|
|
SPACE 00044
|
|
F850620 DFHMDF POS=(06,20),LENGTH=02,ATTRB=ASKIP 00045
|
|
SPACE 00046
|
|
DFHMDF POS=(06,23),LENGTH=01,ATTRB=ASKIP 00047
|
|
SPACE 00048
|
|
F850625 DFHMDF POS=(06,25),LENGTH=32,ATTRB=ASKIP 00049
|
|
SPACE 00050
|
|
DFHMDF POS=(06,58),LENGTH=01,ATTRB=ASKIP 00051
|
|
SPACE 00052
|
|
DFHMDF POS=(07,17),LENGTH=02,ATTRB=ASKIP, *00053
|
|
INITIAL='3:' 00054
|
|
SPACE 00055
|
|
F850720 DFHMDF POS=(07,20),LENGTH=02,ATTRB=ASKIP 00056
|
|
SPACE 00057
|
|
DFHMDF POS=(07,23),LENGTH=01,ATTRB=ASKIP 00058
|
|
SPACE 00059
|
|
F850725 DFHMDF POS=(07,25),LENGTH=32,ATTRB=ASKIP 00060
|
|
SPACE 00061
|
|
DFHMDF POS=(07,58),LENGTH=01,ATTRB=ASKIP 00062
|
|
SPACE 00063
|
|
DFHMDF POS=(08,17),LENGTH=02,ATTRB=ASKIP, *00064
|
|
INITIAL='4:' 00065
|
|
SPACE 00066
|
|
F850820 DFHMDF POS=(08,20),LENGTH=02,ATTRB=ASKIP 00067
|
|
SPACE 00068
|
|
DFHMDF POS=(08,23),LENGTH=01,ATTRB=ASKIP 00069
|
|
SPACE 00070
|
|
F850825 DFHMDF POS=(08,25),LENGTH=32,ATTRB=ASKIP 00071
|
|
SPACE 00072
|
|
DFHMDF POS=(08,58),LENGTH=01,ATTRB=ASKIP 00073
|
|
SPACE 00074
|
|
DFHMDF POS=(09,17),LENGTH=02,ATTRB=ASKIP, *00075
|
|
INITIAL='5:' 00076
|
|
SPACE 00077
|
|
F850920 DFHMDF POS=(09,20),LENGTH=02,ATTRB=ASKIP 00078
|
|
SPACE 00079
|
|
DFHMDF POS=(09,23),LENGTH=01,ATTRB=ASKIP 00080
|
|
SPACE 00081
|
|
F850925 DFHMDF POS=(09,25),LENGTH=32,ATTRB=ASKIP 00082
|
|
SPACE 00083
|
|
DFHMDF POS=(09,58),LENGTH=01,ATTRB=ASKIP 00084
|
|
SPACE 00085
|
|
DFHMDF POS=(10,17),LENGTH=02,ATTRB=ASKIP, *00086
|
|
INITIAL='6:' 00087
|
|
SPACE 00088
|
|
F851020 DFHMDF POS=(10,20),LENGTH=02,ATTRB=ASKIP 00089
|
|
SPACE 00090
|
|
DFHMDF POS=(10,23),LENGTH=01,ATTRB=ASKIP 00091
|
|
SPACE 00092
|
|
F851025 DFHMDF POS=(10,25),LENGTH=32,ATTRB=ASKIP 00093
|
|
SPACE 00094
|
|
DFHMDF POS=(10,58),LENGTH=01,ATTRB=ASKIP 00095
|
|
SPACE 00096
|
|
DFHMDF POS=(11,17),LENGTH=02,ATTRB=ASKIP, *00097
|
|
INITIAL='7:' 00098
|
|
SPACE 00099
|
|
F851120 DFHMDF POS=(11,20),LENGTH=02,ATTRB=ASKIP 00100
|
|
SPACE 00101
|
|
DFHMDF POS=(11,23),LENGTH=01,ATTRB=ASKIP 00102
|
|
SPACE 00103
|
|
F851125 DFHMDF POS=(11,25),LENGTH=32,ATTRB=ASKIP 00104
|
|
SPACE 00105
|
|
DFHMDF POS=(11,58),LENGTH=01,ATTRB=ASKIP 00106
|
|
SPACE 00107
|
|
DFHMDF POS=(12,17),LENGTH=02,ATTRB=ASKIP, *00108
|
|
INITIAL='8:' 00109
|
|
SPACE 00110
|
|
F851220 DFHMDF POS=(12,20),LENGTH=02,ATTRB=ASKIP 00111
|
|
SPACE 00112
|
|
DFHMDF POS=(12,23),LENGTH=01,ATTRB=ASKIP 00113
|
|
SPACE 00114
|
|
F851225 DFHMDF POS=(12,25),LENGTH=32,ATTRB=ASKIP 00115
|
|
SPACE 00116
|
|
DFHMDF POS=(12,58),LENGTH=01,ATTRB=ASKIP 00117
|
|
SPACE 00118
|
|
DFHMDF POS=(13,17),LENGTH=02,ATTRB=ASKIP, *00119
|
|
INITIAL='9:' 00120
|
|
SPACE 00121
|
|
F851320 DFHMDF POS=(13,20),LENGTH=02,ATTRB=ASKIP 00122
|
|
SPACE 00123
|
|
DFHMDF POS=(13,23),LENGTH=01,ATTRB=ASKIP 00124
|
|
SPACE 00125
|
|
F851325 DFHMDF POS=(13,25),LENGTH=32,ATTRB=ASKIP 00126
|
|
SPACE 00127
|
|
DFHMDF POS=(13,58),LENGTH=01,ATTRB=ASKIP 00128
|
|
SPACE 00129
|
|
DFHMDF POS=(14,17),LENGTH=02,ATTRB=ASKIP, *00130
|
|
INITIAL='0:' 00131
|
|
SPACE 00132
|
|
F851420 DFHMDF POS=(14,20),LENGTH=02,ATTRB=ASKIP 00133
|
|
SPACE 00134
|
|
DFHMDF POS=(14,23),LENGTH=01,ATTRB=ASKIP 00135
|
|
SPACE 00136
|
|
F851425 DFHMDF POS=(14,25),LENGTH=32,ATTRB=ASKIP 00137
|
|
SPACE 00138
|
|
DFHMDF POS=(14,58),LENGTH=01,ATTRB=ASKIP 00139
|
|
SPACE 00140
|
|
DFHMDF POS=(17,02),LENGTH=75,ATTRB=ASKIP, *00141
|
|
INITIAL='IF THE FIELD REPRESENTATIVE COVERS ALL EMPLOYER*00142
|
|
NUMBERS, ENTER ONLY SLOT #1' 00143
|
|
SPACE 00144
|
|
DFHMDF POS=(20,59),LENGTH=10,ATTRB=ASKIP, *00145
|
|
INITIAL='ESTB DATE:' 00146
|
|
SPACE 00147
|
|
F852070 DFHMDF POS=(20,70),LENGTH=08,ATTRB=ASKIP 00148
|
|
SPACE 00149
|
|
DFHMDF POS=(21,59),LENGTH=10,ATTRB=ASKIP, *00150
|
|
INITIAL='CHNG DATE:' 00151
|
|
SPACE 00152
|
|
F852170 DFHMDF POS=(21,70),LENGTH=08,ATTRB=ASKIP 00153
|
|
SPACE 00154
|
|
F852318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00155
|
|
SPACE 00156
|
|
F852327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00157
|
|
SPACE 00158
|
|
F852338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00159
|
|
SPACE 00160
|
|
F852346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00161
|
|
SPACE 00162
|
|
F852355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00163
|
|
SPACE 00164
|
|
F852401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00165
|
|
SPACE 00166
|
|
F852410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00167
|
|
SPACE 00168
|
|
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00169
|
|
INITIAL='GO TO:' 00170
|
|
SPACE 00171
|
|
F852476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00172
|
|
SPACE 00173
|
|
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00174
|