234 lines
18 KiB
Plaintext
234 lines
18 KiB
Plaintext
* DATA SET DTSM7B AT LEVEL 012 AS OF 10/20/98
|
|
* DATA SET MACM72 AT LEVEL 012 AS OF 01/23/95 00001
|
|
***** 00002
|
|
* 00003
|
|
* 7B MODIFICATION LOG INQUIRY 00004**3
|
|
* 00005
|
|
***** 00006
|
|
SPACE 00007
|
|
DTSM7B DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00008**3
|
|
SPACE 00009
|
|
F7B0101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00010**3
|
|
INITIAL='7B' 00011**3
|
|
SPACE 00012
|
|
DFHMDF POS=(1,28),LENGTH=23,ATTRB=(ASKIP), *00013**3
|
|
INITIAL='MODFICATION LOG INQUIRY' 00014**3
|
|
SPACE 00015
|
|
F7B0162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00016**3
|
|
SPACE 00017
|
|
F7B0172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00018**3
|
|
SPACE 00019
|
|
DFHMDF POS=(02,04),LENGTH=07,ATTRB=(ASKIP), *00020
|
|
INITIAL='EMP NO:' 00021
|
|
SPACE 00022**5
|
|
F7B0212 DFHMDF POS=(02,12),LENGTH=03,ATTRB=(ASKIP) 00023**5
|
|
SPACE 00024**5
|
|
F7B0216 DFHMDF POS=(02,16),LENGTH=03,ATTRB=(ASKIP) 00025**5
|
|
SPACE 00026**5
|
|
DFHMDF POS=(02,20),LENGTH=01,ATTRB=(ASKIP) 00027**5
|
|
SPACE 00028**5
|
|
F7B0223 DFHMDF POS=(02,23),LENGTH=40,ATTRB=(ASKIP) 00029**5
|
|
SPACE 00030**5
|
|
F7B0272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00031**5
|
|
SPACE 00032**4
|
|
DFHMDF POS=(03,01),LENGTH=33,ATTRB=(ASKIP), *00033**4
|
|
INITIAL='RECORD TYPE OR DATA ELEMENT NAME:' 00034**4
|
|
SPACE 00035**4
|
|
F7B0335 DFHMDF POS=(03,35),LENGTH=30,ATTRB=(ASKIP) 00036**4
|
|
SPACE 00037**4
|
|
DFHMDF POS=(03,66),LENGTH=01,ATTRB=(ASKIP) 00038**4
|
|
SPACE 00039**4
|
|
DFHMDF POS=(04,05),LENGTH=29,ATTRB=(ASKIP), *00040**4
|
|
INITIAL='RECORD OCCURRENCE IDENTIFIER:' 00041**4
|
|
SPACE 00042**4
|
|
F7B0435 DFHMDF POS=(04,35),LENGTH=20,ATTRB=(ASKIP) 00043**4
|
|
SPACE 00044**4
|
|
DFHMDF POS=(04,56),LENGTH=01,ATTRB=(ASKIP) 00045*10
|
|
SPACE 00046**4
|
|
DFHMDF POS=(05,10),LENGTH=24,ATTRB=(ASKIP), *00047**4
|
|
INITIAL='MODIFICATIONS OCCURRING:' 00048**4
|
|
SPACE 00049**4
|
|
F7B0535 DFHMDF POS=(05,35),LENGTH=02,ATTRB=(ASKIP) 00050**4
|
|
SPACE 00051**4
|
|
F7B0538 DFHMDF POS=(05,38),LENGTH=02,ATTRB=(ASKIP) 00052**8
|
|
SPACE 00053**4
|
|
F7B0541 DFHMDF POS=(05,41),LENGTH=02,ATTRB=(ASKIP) 00054**8
|
|
SPACE 00055**4
|
|
DFHMDF POS=(05,44),LENGTH=04,ATTRB=(ASKIP), *00056*10
|
|
INITIAL='THRU' 00057**4
|
|
SPACE 00058**4
|
|
F7B0549 DFHMDF POS=(05,49),LENGTH=02,ATTRB=(ASKIP) 00059**4
|
|
SPACE 00060**4
|
|
F7B0552 DFHMDF POS=(05,52),LENGTH=02,ATTRB=(ASKIP) 00061**4
|
|
SPACE 00062**4
|
|
F7B0555 DFHMDF POS=(05,55),LENGTH=02,ATTRB=(ASKIP) 00063**4
|
|
SPACE 00064**4
|
|
DFHMDF POS=(05,58),LENGTH=01,ATTRB=(ASKIP) 00065*10
|
|
SPACE 00066**4
|
|
DFHMDF POS=(06,22),LENGTH=12,ATTRB=(ASKIP), *00067**4
|
|
INITIAL='MODIFIED BY:' 00068**4
|
|
SPACE 00069**4
|
|
F7B0635 DFHMDF POS=(06,35),LENGTH=08,ATTRB=(ASKIP) 00070**4
|
|
SPACE 00071**4
|
|
DFHMDF POS=(06,44),LENGTH=01,ATTRB=(ASKIP) 00072*10
|
|
SPACE 00073**4
|
|
F7B0646 DFHMDF POS=(06,46),LENGTH=32,ATTRB=(ASKIP) 00074**4
|
|
SPACE 00075**4
|
|
DFHMDF POS=(07,01),LENGTH=68,ATTRB=(ASKIP), *00076**4
|
|
INITIAL='-----------------------------------------------*00077**4
|
|
--------------- PAGE:' 00078*11
|
|
SPACE 00079**4
|
|
F7B0770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=(ASKIP) 00080*11
|
|
SPACE 00081
|
|
DFHMDF POS=(07,74),LENGTH=02,ATTRB=(ASKIP), *00082*11
|
|
INITIAL='OF' 00083**4
|
|
SPACE 00084**4
|
|
F7B0777 DFHMDF POS=(07,77),LENGTH=03,ATTRB=(ASKIP) 00085*11
|
|
SPACE 00086
|
|
DFHMDF POS=(08,01),LENGTH=11,ATTRB=(ASKIP), *00087**5
|
|
INITIAL='REC OCC ID:' 00088**5
|
|
SPACE 00089**5
|
|
F7B0813 DFHMDF POS=(08,13),LENGTH=20,ATTRB=(ASKIP) 00090**5
|
|
SPACE 00091**5
|
|
DFHMDF POS=(08,41),LENGTH=08,ATTRB=(ASKIP), *00092**5
|
|
INITIAL='DE NAME:' 00093**5
|
|
SPACE 00094**5
|
|
F7B0850 DFHMDF POS=(08,50),LENGTH=30,ATTRB=(ASKIP) 00095*10
|
|
SPACE 00096**5
|
|
DFHMDF POS=(09,03),LENGTH=09,ATTRB=(ASKIP), *00097**5
|
|
INITIAL='MODIFIED:' 00098**5
|
|
SPACE 00099**5
|
|
F7B0913 DFHMDF POS=(09,13),LENGTH=18,ATTRB=(ASKIP) 00100**5
|
|
SPACE 00101**6
|
|
DFHMDF POS=(09,34),LENGTH=05,ATTRB=(ASKIP), *00102**6
|
|
INITIAL='FROM:' 00103**6
|
|
SPACE 00104**6
|
|
F7B0940 DFHMDF POS=(09,40),LENGTH=40,ATTRB=(ASKIP) 00105**6
|
|
SPACE 00106**6
|
|
DFHMDF POS=(10,09),LENGTH=03,ATTRB=(ASKIP), *00107**6
|
|
INITIAL='BY:' 00108**6
|
|
SPACE 00109**6
|
|
F7B1013 DFHMDF POS=(10,13),LENGTH=08,ATTRB=(ASKIP) 00110**6
|
|
SPACE 00111**6
|
|
F7B1022 DFHMDF POS=(10,22),LENGTH=11,ATTRB=(ASKIP) 00112*10
|
|
SPACE 00113**6
|
|
DFHMDF POS=(10,36),LENGTH=03,ATTRB=(ASKIP), *00114**6
|
|
INITIAL='TO:' 00115**6
|
|
SPACE 00116**7
|
|
F7B1040 DFHMDF POS=(10,40),LENGTH=40,ATTRB=(ASKIP) 00117**7
|
|
SPACE 00118**7
|
|
DFHMDF POS=(12,01),LENGTH=11,ATTRB=(ASKIP), *00119**7
|
|
INITIAL='REC OCC ID:' 00120**7
|
|
SPACE 00121**7
|
|
F7B1213 DFHMDF POS=(12,13),LENGTH=20,ATTRB=(ASKIP) 00122**7
|
|
SPACE 00123**7
|
|
DFHMDF POS=(12,41),LENGTH=08,ATTRB=(ASKIP), *00124**7
|
|
INITIAL='DE NAME:' 00125**7
|
|
SPACE 00126**7
|
|
F7B1250 DFHMDF POS=(12,50),LENGTH=30,ATTRB=(ASKIP) 00127*10
|
|
SPACE 00128**7
|
|
DFHMDF POS=(13,03),LENGTH=09,ATTRB=(ASKIP), *00129**7
|
|
INITIAL='MODIFIED:' 00130**7
|
|
SPACE 00131**7
|
|
F7B1313 DFHMDF POS=(13,13),LENGTH=18,ATTRB=(ASKIP) 00132**7
|
|
SPACE 00133**7
|
|
DFHMDF POS=(13,34),LENGTH=05,ATTRB=(ASKIP), *00134**7
|
|
INITIAL='FROM:' 00135**7
|
|
SPACE 00136**7
|
|
F7B1340 DFHMDF POS=(13,40),LENGTH=40,ATTRB=(ASKIP) 00137**7
|
|
SPACE 00138**7
|
|
DFHMDF POS=(14,09),LENGTH=03,ATTRB=(ASKIP), *00139**7
|
|
INITIAL='BY:' 00140**7
|
|
SPACE 00141**7
|
|
F7B1413 DFHMDF POS=(14,13),LENGTH=08,ATTRB=(ASKIP) 00142**7
|
|
SPACE 00143**7
|
|
F7B1422 DFHMDF POS=(14,22),LENGTH=11,ATTRB=(ASKIP) 00144*10
|
|
SPACE 00145**7
|
|
DFHMDF POS=(14,36),LENGTH=03,ATTRB=(ASKIP), *00146**7
|
|
INITIAL='TO:' 00147**7
|
|
SPACE 00148**7
|
|
F7B1440 DFHMDF POS=(14,40),LENGTH=40,ATTRB=(ASKIP) 00149**7
|
|
SPACE 00150**7
|
|
DFHMDF POS=(16,01),LENGTH=11,ATTRB=(ASKIP), *00151**7
|
|
INITIAL='REC OCC ID:' 00152**7
|
|
SPACE 00153**7
|
|
F7B1613 DFHMDF POS=(16,13),LENGTH=20,ATTRB=(ASKIP) 00154**7
|
|
SPACE 00155**7
|
|
DFHMDF POS=(16,41),LENGTH=08,ATTRB=(ASKIP), *00156**7
|
|
INITIAL='DE NAME:' 00157**7
|
|
SPACE 00158**7
|
|
F7B1650 DFHMDF POS=(16,50),LENGTH=30,ATTRB=(ASKIP) 00159*10
|
|
SPACE 00160**7
|
|
DFHMDF POS=(17,03),LENGTH=09,ATTRB=(ASKIP), *00161**7
|
|
INITIAL='MODIFIED:' 00162**7
|
|
SPACE 00163**7
|
|
F7B1713 DFHMDF POS=(17,13),LENGTH=18,ATTRB=(ASKIP) 00164**7
|
|
SPACE 00165**7
|
|
DFHMDF POS=(17,34),LENGTH=05,ATTRB=(ASKIP), *00166**7
|
|
INITIAL='FROM:' 00167**7
|
|
SPACE 00168**7
|
|
F7B1740 DFHMDF POS=(17,40),LENGTH=40,ATTRB=(ASKIP) 00169**7
|
|
SPACE 00170**7
|
|
DFHMDF POS=(18,09),LENGTH=03,ATTRB=(ASKIP), *00171**7
|
|
INITIAL='BY:' 00172**7
|
|
SPACE 00173**7
|
|
F7B1813 DFHMDF POS=(18,13),LENGTH=08,ATTRB=(ASKIP) 00174**7
|
|
SPACE 00175**7
|
|
F7B1822 DFHMDF POS=(18,22),LENGTH=11,ATTRB=(ASKIP) 00176*10
|
|
SPACE 00177**7
|
|
DFHMDF POS=(18,36),LENGTH=03,ATTRB=(ASKIP), *00178**7
|
|
INITIAL='TO:' 00179**7
|
|
SPACE 00180**7
|
|
F7B1840 DFHMDF POS=(18,40),LENGTH=40,ATTRB=(ASKIP) 00181**7
|
|
SPACE 00182**7
|
|
DFHMDF POS=(20,01),LENGTH=11,ATTRB=(ASKIP), *00183**7
|
|
INITIAL='REC OCC ID:' 00184**7
|
|
SPACE 00185**7
|
|
F7B2013 DFHMDF POS=(20,13),LENGTH=20,ATTRB=(ASKIP) 00186**7
|
|
SPACE 00187**7
|
|
DFHMDF POS=(20,41),LENGTH=08,ATTRB=(ASKIP), *00188**7
|
|
INITIAL='DE NAME:' 00189**7
|
|
SPACE 00190**7
|
|
F7B2050 DFHMDF POS=(20,50),LENGTH=30,ATTRB=(ASKIP) 00191*10
|
|
SPACE 00192**7
|
|
DFHMDF POS=(21,03),LENGTH=09,ATTRB=(ASKIP), *00193**7
|
|
INITIAL='MODIFIED:' 00194**7
|
|
SPACE 00195**7
|
|
F7B2113 DFHMDF POS=(21,13),LENGTH=18,ATTRB=(ASKIP) 00196**7
|
|
SPACE 00197**7
|
|
DFHMDF POS=(21,34),LENGTH=05,ATTRB=(ASKIP), *00198**7
|
|
INITIAL='FROM:' 00199**7
|
|
SPACE 00200**7
|
|
F7B2140 DFHMDF POS=(21,40),LENGTH=40,ATTRB=(ASKIP) 00201**7
|
|
SPACE 00202**7
|
|
DFHMDF POS=(22,09),LENGTH=03,ATTRB=(ASKIP), *00203**7
|
|
INITIAL='BY:' 00204**7
|
|
SPACE 00205**7
|
|
F7B2213 DFHMDF POS=(22,13),LENGTH=08,ATTRB=(ASKIP) 00206**7
|
|
SPACE 00207**7
|
|
F7B2222 DFHMDF POS=(22,22),LENGTH=11,ATTRB=(ASKIP) 00208*10
|
|
SPACE 00209**7
|
|
DFHMDF POS=(22,36),LENGTH=03,ATTRB=(ASKIP), *00210**7
|
|
INITIAL='TO:' 00211**7
|
|
SPACE 00212**7
|
|
F7B2240 DFHMDF POS=(22,40),LENGTH=40,ATTRB=(ASKIP) 00213**7
|
|
SPACE 00214
|
|
F7B2310 DFHMDF POS=(23,10),LENGTH=08,ATTRB=(ASKIP) 00215*12
|
|
SPACE 00216
|
|
F7B2319 DFHMDF POS=(23,19),LENGTH=07,ATTRB=(ASKIP) 00217**3
|
|
SPACE 00218
|
|
F7B2328 DFHMDF POS=(23,28),LENGTH=07,ATTRB=(ASKIP) 00219**3
|
|
SPACE 00220
|
|
F7B2337 DFHMDF POS=(23,37),LENGTH=07,ATTRB=(ASKIP) 00221**3
|
|
SPACE 00222
|
|
F7B2401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00223**3
|
|
SPACE 00224
|
|
F7B2410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00225**3
|
|
SPACE 00226
|
|
DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00227
|
|
INITIAL='GO TO:' 00228
|
|
SPACE 00229
|
|
F7B2476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00230**3
|
|
SPACE 00231
|
|
DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00232
|