Screen18, screen 13, and screen L1 are fixed.

This commit is contained in:
faizana
2025-09-13 06:24:12 -04:00
parent f4842b4a6f
commit c59b4762c2
6 changed files with 887 additions and 938 deletions

View File

@ -1305,11 +1305,14 @@
01304 SKIP1 DTSCS18
01305 IF CURSOR-SET-GOTO DTSCS18
01306 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01307 ELSE DTSCS18
01308 IF CURSOR-SET-LINE-NUMBER DTSCS18
01309 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01310 ELSE DTSCS18
01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS18
01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01312 SKIP1 DTSCS18
01313 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS18
01314 SKIP1 DTSCS18

File diff suppressed because it is too large Load Diff

View File

@ -1,4 +1,4 @@
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCSL1.cob

View File

@ -1,285 +1,270 @@
* DATA SET DTSML1 AT LEVEL 014 AS OF 09/22/06
* DATA SET DTSML1 AT LEVEL 003 AS OF 09/21/06 00001
* DATA SET DTSML1 AT LEVEL 012 AS OF 07/19/99 00002
DTSML1 DFHMDI SIZE=(24,80), X00003
LINE=01, X00004
COLUMN=01 00005
FL10101 DFHMDF POS=(01,01), X00006
ATTRB=(ASKIP,FSET), X00007
LENGTH=002, X00008
INITIAL='L1' 00009
DFHMDF POS=(01,20), X00010
ATTRB=(ASKIP), X00011
LENGTH=020, X00012
INITIAL=' LMI INQUIRY/UPDATE ' 00013
FL10162 DFHMDF POS=(01,62), X00014
ATTRB=(ASKIP), X00015
LENGTH=008 00016
FL10172 DFHMDF POS=(01,72), X00017
ATTRB=(ASKIP), X00018
LENGTH=008 00019
FL10272 DFHMDF POS=(02,72), X00020
ATTRB=(ASKIP), X00021
LENGTH=008 00022
DFHMDF POS=(03,05), X00023
ATTRB=(ASKIP), X00024
LENGTH=007, X00025
INITIAL='EMP NO:' 00026
FL10313 DFHMDF POS=(03,13), X00027
ATTRB=(ASKIP), X00028
LENGTH=003 00029
FL10317 DFHMDF POS=(03,17), X00030
ATTRB=(ASKIP), X00031
LENGTH=003 00032
DFHMDF POS=(03,21), X00033
ATTRB=(ASKIP), X00034
LENGTH=001 00035
FL10324 DFHMDF POS=(03,24), X00036
ATTRB=(ASKIP), X00037
LENGTH=040 00038
FL10372 DFHMDF POS=(03,72), X00039
ATTRB=(ASKIP), X00040
LENGTH=002 00041
DFHMDF POS=(03,75), X00042
ATTRB=(ASKIP), X00043
LENGTH=002, X00044
INITIAL='OF' 00045
FL10378 DFHMDF POS=(03,78), X00046
ATTRB=(ASKIP), X00047
LENGTH=002 00048
DFHMDF POS=(05,16), X00049
ATTRB=(ASKIP), X00050
LENGTH=004, X00051
INITIAL='QTR:' 00052
FL10521 DFHMDF POS=(05,21), X00053
ATTRB=(ASKIP), X00054
LENGTH=002 00055
FL10524 DFHMDF POS=(05,24), X00056
ATTRB=(ASKIP), X00057
LENGTH=001 00058
DFHMDF POS=(05,26), X00059
ATTRB=(ASKIP), X00060
LENGTH=001 00061
DFHMDF POS=(07,04), X00062
ATTRB=(ASKIP), X00063
LENGTH=016, X00064
INITIAL='MONTH 1 EMP CNT:' 00065
FL10721 DFHMDF POS=(07,21), X00066
ATTRB=(ASKIP), X00067
LENGTH=009 00068
DFHMDF POS=(07,31), X00069
ATTRB=(ASKIP), X00070
LENGTH=001 00071
DFHMDF POS=(07,42), X00072
ATTRB=(ASKIP), X00073
LENGTH=009, X00074
INITIAL='TOT WAGE:' 00075
FL10752 DFHMDF POS=(07,52), X00076
ATTRB=(ASKIP), X00077
LENGTH=014 00078
DFHMDF POS=(08,04), X00079
ATTRB=(ASKIP), X00080
LENGTH=016, X00081
INITIAL='MONTH 2 EMP CNT:' 00082
FL10821 DFHMDF POS=(08,21), X00083
ATTRB=(ASKIP), X00084
LENGTH=009 00085
DFHMDF POS=(08,31), X00086
ATTRB=(ASKIP), X00087
LENGTH=001 00088
DFHMDF POS=(08,42), X00089
ATTRB=(ASKIP), X00090
LENGTH=009, X00091
INITIAL='TAX WAGE:' 00092
FL10852 DFHMDF POS=(08,52), X00093
ATTRB=(ASKIP), X00094
LENGTH=014 00095
DFHMDF POS=(09,04), X00096
ATTRB=(ASKIP), X00097
LENGTH=016, X00098
INITIAL='MONTH 3 EMP CNT:' 00099
FL10921 DFHMDF POS=(09,21), X00100
ATTRB=(ASKIP), X00101
LENGTH=009 00102
DFHMDF POS=(09,31), X00103
ATTRB=(ASKIP), X00104
LENGTH=001 00105
DFHMDF POS=(09,42), X00106
ATTRB=(ASKIP), X00107
LENGTH=009, X00108
INITIAL='WGE CHNG:' 00109
FL10952 DFHMDF POS=(09,52), X00110
ATTRB=(ASKIP), X00111
LENGTH=008 00112
DFHMDF POS=(10,42), X00113
ATTRB=(ASKIP), X00114
LENGTH=009, X00115
INITIAL='RPT TYPE:' 00116
FL11052 DFHMDF POS=(10,52), X00117
ATTRB=(ASKIP), X00118
LENGTH=010 00119
DFHMDF POS=(11,42), X00120
ATTRB=(ASKIP), X00121
LENGTH=009, X00122
INITIAL='CNT CHNG:' 00123
FL11152 DFHMDF POS=(11,52), X00124
ATTRB=(ASKIP), X00125
LENGTH=008 00126
DFHMDF POS=(13,08), X00127
ATTRB=(ASKIP), X00128
LENGTH=007, X00129
INITIAL='SIC CD:' 00130
FL11310 DFHMDF POS=(13,16), X00131
ATTRB=(ASKIP), X00132
LENGTH=004 00133
DFHMDF POS=(13,21), X00134
ATTRB=(ASKIP), X00135
LENGTH=001 00136
FL11320 DFHMDF POS=(13,25), X00137
ATTRB=(ASKIP), X00138
LENGTH=020 00139
DFHMDF POS=(13,49), X00140
ATTRB=(ASKIP), X00141
LENGTH=008, X00142
INITIAL='OLD SIC:' 00143
FL11355 DFHMDF POS=(13,58), X00144
ATTRB=(ASKIP), X00145
LENGTH=004 00146
DFHMDF POS=(13,65), X00147
ATTRB=(ASKIP), X00148
LENGTH=005, X00149
INITIAL='CHNG:' 00150
FL11371 DFHMDF POS=(13,71), X00151
ATTRB=(ASKIP), X00152
LENGTH=008 00153
DFHMDF POS=(15,04), X00154
ATTRB=(ASKIP), X00155
LENGTH=011, X00156
INITIAL='SIC AUX CD:' 00157
FL11516 DFHMDF POS=(15,16), X00158
ATTRB=(ASKIP), X00159
LENGTH=001 00160
DFHMDF POS=(15,18), X00161
ATTRB=(ASKIP), X00162
LENGTH=001 00163
FL11525 DFHMDF POS=(15,25), X00164
ATTRB=(ASKIP), X00165
LENGTH=010 00166
DFHMDF POS=(17,06), X00167
ATTRB=(ASKIP), X00168
LENGTH=009, X00169
INITIAL='NAICS CD:' 00170
FL11716 DFHMDF POS=(17,16), X00171
ATTRB=(ASKIP), X00172
LENGTH=006 00173
DFHMDF POS=(17,23), X00174
ATTRB=(ASKIP), X00175
LENGTH=001 00176
FL11725 DFHMDF POS=(17,25), X00177
ATTRB=(ASKIP), X00178
LENGTH=020 00179
DFHMDF POS=(17,47), X00180
ATTRB=(ASKIP), X00181
LENGTH=010, X00182
INITIAL='OLD NAICS:' 00183
FL11758 DFHMDF POS=(17,58), X00184
ATTRB=(ASKIP), X00185
LENGTH=006 00186
DFHMDF POS=(17,65), X00187
ATTRB=(ASKIP), X00188
LENGTH=005, X00189
INITIAL='CHNG:' 00190
FL11771 DFHMDF POS=(17,71), X00191
ATTRB=(ASKIP), X00192
LENGTH=008 00193
DFHMDF POS=(18,05), X00194
ATTRB=(ASKIP), X00195
LENGTH=010, X00196
INITIAL='ALT NAICS:' 00197
FL11816 DFHMDF POS=(18,16), X00198
ATTRB=(ASKIP), X00199
LENGTH=006 00200
DFHMDF POS=(18,23), X00201
ATTRB=(ASKIP), X00202
LENGTH=001 00203
FL11825 DFHMDF POS=(18,25), X00204
ATTRB=(ASKIP), X00205
LENGTH=020 00206
DFHMDF POS=(19,08), X00207
ATTRB=(ASKIP), X00208
LENGTH=007, X00209
INITIAL='OWN CD:' 00210
FL11910 DFHMDF POS=(19,16), X00211
ATTRB=(ASKIP), X00212
LENGTH=002 00213
DFHMDF POS=(19,19), X00214
ATTRB=(ASKIP), X00215
LENGTH=001 00216
FL11920 DFHMDF POS=(19,25), X00217
ATTRB=(ASKIP), X00218
LENGTH=010 00219
DFHMDF POS=(19,49), X00220
ATTRB=(ASKIP), X00221
LENGTH=008, X00222
INITIAL='OLD OWN:' 00223
FL11955 DFHMDF POS=(19,58), X00224
ATTRB=(ASKIP), X00225
LENGTH=002 00226
DFHMDF POS=(19,65), X00227
ATTRB=(ASKIP), X00228
LENGTH=005, X00229
INITIAL='CHNG:' 00230
FL11971 DFHMDF POS=(19,71), X00231
ATTRB=(ASKIP), X00232
LENGTH=008 00233
DFHMDF POS=(21,05), X00234
ATTRB=(ASKIP), X00235
LENGTH=010, X00236
INITIAL='MULTI IND:' 00237
FL12110 DFHMDF POS=(21,16), X00238
ATTRB=(ASKIP), X00239
LENGTH=001 00240
DFHMDF POS=(21,18), X00241
ATTRB=(ASKIP), X00242
LENGTH=001 00243
FL12120 DFHMDF POS=(21,25), X00244
ATTRB=(ASKIP), X00245
LENGTH=010 00246
DFHMDF POS=(21,49), X00247
ATTRB=(ASKIP), X00248
LENGTH=008, X00249
INITIAL='WARD CD:' 00250
FL12155 DFHMDF POS=(21,58), X00251
* DATA SET DTSML1 AT LEVEL 012 AS OF 07/19/99
DTSML1 DFHMDI SIZE=(24,80), X00001**3
LINE=01, X00002
COLUMN=01 00003
FL10101 DFHMDF POS=(01,01), X00004**4
ATTRB=(ASKIP,FSET), X00005
LENGTH=002, X00006
INITIAL='L1' 00007**7
DFHMDF POS=(01,20), X00008
ATTRB=(ASKIP), X00009
LENGTH=020, X00010
INITIAL=' LMI INQUIRY/UPDATE ' 00011**8
FL10162 DFHMDF POS=(01,62), X00012**4
ATTRB=(ASKIP), X00013
LENGTH=008 00014
FL10172 DFHMDF POS=(01,72), X00015**4
ATTRB=(ASKIP), X00016
LENGTH=008 00017
FL10272 DFHMDF POS=(02,72), X00018**4
ATTRB=(ASKIP), X00019
LENGTH=008 00020
DFHMDF POS=(03,05), X00021
ATTRB=(ASKIP), X00022
LENGTH=007, X00023
INITIAL='EMP NO:' 00024
FL10313 DFHMDF POS=(03,13), X00025**4
ATTRB=(ASKIP), X00026
LENGTH=003 00027
FL10317 DFHMDF POS=(03,17), X00028**4
ATTRB=(ASKIP), X00029
LENGTH=003 00030
DFHMDF POS=(03,21), X00031
ATTRB=(ASKIP), X00032
LENGTH=001 00033
FL10324 DFHMDF POS=(03,24), X00034**4
ATTRB=(ASKIP), X00035
LENGTH=040 00036
FL10372 DFHMDF POS=(03,72), X00037**4
ATTRB=(ASKIP), X00038
LENGTH=002 00039
DFHMDF POS=(03,75), X00040
ATTRB=(ASKIP), X00041
LENGTH=002, X00042
INITIAL='OF' 00043
FL10378 DFHMDF POS=(03,78), X00044**4
ATTRB=(ASKIP), X00045
LENGTH=002 00046
DFHMDF POS=(05,16), X00047
ATTRB=(ASKIP), X00048
LENGTH=004, X00049
INITIAL='QTR:' 00050
FL10521 DFHMDF POS=(05,21), X00051**4
ATTRB=(ASKIP), X00052
LENGTH=002 00053
FL10524 DFHMDF POS=(05,24), X00054**4
ATTRB=(ASKIP), X00055
LENGTH=001 00056
DFHMDF POS=(05,26), X00057
ATTRB=(ASKIP), X00058
LENGTH=001 00059
DFHMDF POS=(07,04), X00060
ATTRB=(ASKIP), X00061
LENGTH=016, X00062
INITIAL='MONTH 1 EMP CNT:' 00063
FL10721 DFHMDF POS=(07,21), X00064**4
ATTRB=(ASKIP), X00065
LENGTH=009 00066*12
DFHMDF POS=(07,31), X00067*12
ATTRB=(ASKIP), X00068
LENGTH=001 00069
DFHMDF POS=(07,42), X00070
ATTRB=(ASKIP), X00071
LENGTH=009, X00072
INITIAL='TOT WAGE:' 00073
FL10752 DFHMDF POS=(07,52), X00074**4
ATTRB=(ASKIP), X00075
LENGTH=014 00076
DFHMDF POS=(08,04), X00077
ATTRB=(ASKIP), X00078
LENGTH=016, X00079
INITIAL='MONTH 2 EMP CNT:' 00080
FL10821 DFHMDF POS=(08,21), X00081**4
ATTRB=(ASKIP), X00082
LENGTH=009 00083*12
DFHMDF POS=(08,31), X00084*12
ATTRB=(ASKIP), X00085
LENGTH=001 00086
DFHMDF POS=(08,42), X00087
ATTRB=(ASKIP), X00088
LENGTH=009, X00089
INITIAL='TAX WAGE:' 00090
FL10852 DFHMDF POS=(08,52), X00091**4
ATTRB=(ASKIP), X00092
LENGTH=014 00093
DFHMDF POS=(09,04), X00094
ATTRB=(ASKIP), X00095
LENGTH=016, X00096
INITIAL='MONTH 3 EMP CNT:' 00097
FL10921 DFHMDF POS=(09,21), X00098**4
ATTRB=(ASKIP), X00099
LENGTH=009 00100*12
DFHMDF POS=(09,31), X00101*12
ATTRB=(ASKIP), X00102
LENGTH=001 00103
DFHMDF POS=(09,42), X00104
ATTRB=(ASKIP), X00105
LENGTH=009, X00106
INITIAL='WGE CHNG:' 00107
FL10952 DFHMDF POS=(09,52), X00108**4
ATTRB=(ASKIP), X00109
LENGTH=008 00110
DFHMDF POS=(10,42), X00111
ATTRB=(ASKIP), X00112
LENGTH=009, X00113
INITIAL='RPT TYPE:' 00114
FL11052 DFHMDF POS=(10,52), X00115**4
ATTRB=(ASKIP), X00116
LENGTH=010 00117
DFHMDF POS=(11,42), X00118
ATTRB=(ASKIP), X00119
LENGTH=009, X00120
INITIAL='CNT CHNG:' 00121
FL11152 DFHMDF POS=(11,52), X00122**4
ATTRB=(ASKIP), X00123
LENGTH=008 00124
DFHMDF POS=(13,08), X00125**5
ATTRB=(ASKIP), X00126
LENGTH=007, X00127
INITIAL='SIC CD:' 00128
FL11310 DFHMDF POS=(13,16), X00129**6
ATTRB=(ASKIP), X00130
LENGTH=004 00131**5
DFHMDF POS=(13,21), X00132**5
ATTRB=(ASKIP), X00133
LENGTH=001 00134
FL11320 DFHMDF POS=(13,25), X00135**6
ATTRB=(ASKIP), X00136
LENGTH=020 00137
DFHMDF POS=(13,49), X00138**5
ATTRB=(ASKIP), X00139
LENGTH=008, X00140
INITIAL='OLD SIC:' 00141
FL11355 DFHMDF POS=(13,58), X00142**6
ATTRB=(ASKIP), X00143
LENGTH=004 00144**5
DFHMDF POS=(13,65), X00145**5
ATTRB=(ASKIP), X00146
LENGTH=005, X00147
INITIAL='CHNG:' 00148
FL11371 DFHMDF POS=(13,71), X00149**6
ATTRB=(ASKIP), X00150
LENGTH=008 00151
DFHMDF POS=(15,04), X00152*10
ATTRB=(ASKIP), X00153**5
LENGTH=011, X00154*10
INITIAL='SIC AUX CD:' 00155*10
FL11516 DFHMDF POS=(15,16), X00156*10
ATTRB=(ASKIP), X00157**5
LENGTH=001 00158**5
DFHMDF POS=(15,18), X00159*10
ATTRB=(ASKIP), X00160**5
LENGTH=001 00161**5
FL11525 DFHMDF POS=(15,25), X00162*10
ATTRB=(ASKIP), X00163**5
LENGTH=010 00164**5
DFHMDF POS=(17,06), X00165*10
ATTRB=(ASKIP), X00166*10
LENGTH=009, X00167*10
INITIAL='NAICS CD:' 00168*10
FL11716 DFHMDF POS=(17,16), X00169*10
ATTRB=(ASKIP), X00170*11
LENGTH=006 00171*10
DFHMDF POS=(17,23), X00172*10
ATTRB=(ASKIP), X00173*10
LENGTH=001 00174*10
FL11725 DFHMDF POS=(17,25), X00175*10
ATTRB=(ASKIP), X00176*10
LENGTH=020 00177*10
DFHMDF POS=(17,47), X00178*10
ATTRB=(ASKIP), X00179*10
LENGTH=010, X00180*10
INITIAL='OLD NAICS:' 00181*10
FL11758 DFHMDF POS=(17,58), X00182*10
ATTRB=(ASKIP), X00183*10
LENGTH=006 00184*10
DFHMDF POS=(17,65), X00185*10
ATTRB=(ASKIP), X00186*10
LENGTH=005, X00187*10
INITIAL='CHNG:' 00188*10
FL11771 DFHMDF POS=(17,71), X00189*10
ATTRB=(ASKIP), X00190*10
LENGTH=008 00191*10
DFHMDF POS=(19,08), X00192**5
ATTRB=(ASKIP), X00193**5
LENGTH=007, X00194**5
INITIAL='OWN CD:' 00195**5
FL11910 DFHMDF POS=(19,16), X00196**6
ATTRB=(ASKIP), X00197**5
LENGTH=002 00198**5
DFHMDF POS=(19,19), X00199**5
ATTRB=(ASKIP), X00200**5
LENGTH=001 00201**5
FL11920 DFHMDF POS=(19,25), X00202**6
ATTRB=(ASKIP), X00203**5
LENGTH=010 00204**5
DFHMDF POS=(19,49), X00205**5
ATTRB=(ASKIP), X00206**5
LENGTH=008, X00207**5
INITIAL='OLD OWN:' 00208**5
FL11955 DFHMDF POS=(19,58), X00209**6
ATTRB=(ASKIP), X00210**5
LENGTH=002 00211**5
DFHMDF POS=(19,65), X00212**5
ATTRB=(ASKIP), X00213**5
LENGTH=005, X00214**5
INITIAL='CHNG:' 00215**5
FL11971 DFHMDF POS=(19,71), X00216**6
ATTRB=(ASKIP), X00217**5
LENGTH=008 00218**5
DFHMDF POS=(21,05), X00219**6
ATTRB=(ASKIP), X00220**5
LENGTH=010, X00221**6
INITIAL='MULTI IND:' 00222**6
FL12110 DFHMDF POS=(21,16), X00223**6
ATTRB=(ASKIP), X00224**5
LENGTH=001 00225**6
DFHMDF POS=(21,18), X00226**6
ATTRB=(ASKIP), X00227**5
LENGTH=001 00228**5
FL12120 DFHMDF POS=(21,25), X00229**6
ATTRB=(ASKIP), X00230**5
LENGTH=010 00231**5
DFHMDF POS=(21,49), X00232**6
ATTRB=(ASKIP), X00233**5
LENGTH=008, X00234**5
INITIAL='WARD CD:' 00235**6
FL12155 DFHMDF POS=(21,58), X00236**6
ATTRB=(ASKIP), X00237**5
LENGTH=002 00238**9
FL12312 DFHMDF POS=(23,12), X00239**4
ATTRB=(ASKIP), X00240
LENGTH=008 00241
FL12322 DFHMDF POS=(23,22), X00242**4
ATTRB=(ASKIP), X00243
LENGTH=007 00244
FL12331 DFHMDF POS=(23,31), X00245**4
ATTRB=(ASKIP), X00246
LENGTH=007 00247
FL12340 DFHMDF POS=(23,40), X00248**4
ATTRB=(ASKIP), X00249
LENGTH=007 00250
FL12350 DFHMDF POS=(23,50), X00251**4
ATTRB=(ASKIP), X00252
LENGTH=002 00253
FL12312 DFHMDF POS=(23,12), X00254
LENGTH=007 00253
FL12401 DFHMDF POS=(24,01), X00254**4
ATTRB=(ASKIP), X00255
LENGTH=008 00256
FL12322 DFHMDF POS=(23,22), X00257
FL12410 DFHMDF POS=(24,10), X00257**4
ATTRB=(ASKIP), X00258
LENGTH=007 00259
FL12331 DFHMDF POS=(23,31), X00260
LENGTH=058 00259
DFHMDF POS=(24,69), X00260
ATTRB=(ASKIP), X00261
LENGTH=007 00262
FL12340 DFHMDF POS=(23,40), X00263
ATTRB=(ASKIP), X00264
LENGTH=007 00265
FL12350 DFHMDF POS=(23,50), X00266
ATTRB=(ASKIP), X00267
LENGTH=007 00268
FL12401 DFHMDF POS=(24,01), X00269
ATTRB=(ASKIP), X00270
LENGTH=008 00271
FL12410 DFHMDF POS=(24,10), X00272
ATTRB=(ASKIP), X00273
LENGTH=058 00274
DFHMDF POS=(24,69), X00275
ATTRB=(ASKIP), X00276
LENGTH=006, X00277
INITIAL='GO TO:' 00278
FL12476 DFHMDF POS=(24,76), X00279
ATTRB=(ASKIP), X00280
LENGTH=002 00281
DFHMDF POS=(24,79), X00282
ATTRB=(ASKIP), X00283
LENGTH=001 00284
LENGTH=006, X00262
INITIAL='GO TO:' 00263
FL12476 DFHMDF POS=(24,76), X00264**4
ATTRB=(ASKIP), X00265
LENGTH=002 00266
DFHMDF POS=(24,79), X00267
ATTRB=(ASKIP), X00268
LENGTH=001 00269

View File

@ -29677,16 +29677,6 @@
02 FILLER REDEFINES FL11771F.
04 FL11771A PIC X.
02 FL11771I PIC X(8).
02 FL11816L PIC S9(4) COMP-5.
02 FL11816F PIC X(1).
02 FILLER REDEFINES FL11816F.
04 FL11816A PIC X.
02 FL11816I PIC X(6).
02 FL11825L PIC S9(4) COMP-5.
02 FL11825F PIC X(1).
02 FILLER REDEFINES FL11825F.
04 FL11825A PIC X.
02 FL11825I PIC X(20).
02 FL11910L PIC S9(4) COMP-5.
02 FL11910F PIC X(1).
02 FILLER REDEFINES FL11910F.
@ -29823,10 +29813,6 @@
02 FILLER PIC X(3).
02 FL11771O PIC X(8).
02 FILLER PIC X(3).
02 FL11816O PIC X(6).
02 FILLER PIC X(3).
02 FL11825O PIC X(20).
02 FILLER PIC X(3).
02 FL11910O PIC X(2).
02 FILLER PIC X(3).
02 FL11920O PIC X(10).

View File

@ -85284,51 +85284,6 @@
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="10"
Initial="ALT NAICS:"
Line="18"
Col="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="FL11816"
Length="6"
Line="18"
Col="16"
ByteLength="9"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="1"
Line="18"
Col="23"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="FL11825"
Length="20"
Line="18"
Col="25"
ByteLength="23"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="7"
Initial="OWN CD:"