* DATA SET DTSM18 AT LEVEL 003 AS OF 10/22/98 ***** 00001 * 00002 * 18 RELATIONSHIP INQUIRY 00003 * 00004 ***** 00005 SPACE 00006 DTSM18 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00007**2 SPACE 00008 F180101 DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP), *00009 INITIAL='18' 00010 SPACE 00011 DFHMDF POS=(1,24),LENGTH=20,ATTRB=(ASKIP), *00012 INITIAL='RELATIONSHIP INQUIRY' 00013 SPACE 00014 F180162 DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP) 00015 SPACE 00016 F180172 DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP) 00017 SPACE 00018 DFHMDF POS=(02,04),LENGTH=07,ATTRB=(ASKIP), *00019 INITIAL='EMP NO:' 00020 SPACE 00021 F180212 DFHMDF POS=(02,12),LENGTH=03,ATTRB=(ASKIP) 00022 SPACE 00023 F180216 DFHMDF POS=(02,16),LENGTH=03,ATTRB=(ASKIP) 00024 SPACE 00025 DFHMDF POS=(02,20),LENGTH=01,ATTRB=(ASKIP) 00026 SPACE 00027 F180223 DFHMDF POS=(02,23),LENGTH=40,ATTRB=(ASKIP) 00028 SPACE 00029 F180272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=(ASKIP) 00030 SPACE 00031 F180372 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 F180378 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,07),LENGTH=04,ATTRB=(ASKIP), *00042 INITIAL='PRED' 00043 SPACE 00044 DFHMDF POS=(04,16),LENGTH=04,ATTRB=(ASKIP), *00045 INITIAL='SUCC' 00046 SPACE 00047 DFHMDF POS=(04,24),LENGTH=08,ATTRB=(ASKIP), *00048 INITIAL='EFF DATE' 00049 SPACE 00050 DFHMDF POS=(04,34),LENGTH=04,ATTRB=(ASKIP), *00051 INITIAL='TYPE' 00052 SPACE 00053 DFHMDF POS=(04,40),LENGTH=03,ATTRB=(ASKIP), *00054 INITIAL='EXP' 00055 SPACE 00056 DFHMDF POS=(04,51),LENGTH=12,ATTRB=(ASKIP), *00057**3 INITIAL='PRIMARY NAME' 00058**3 SPACE 00059 F180501 DFHMDF POS=(05,01),LENGTH=78,ATTRB=(ASKIP) 00060 SPACE 00061 F180601 DFHMDF POS=(06,01),LENGTH=78,ATTRB=(ASKIP) 00062 SPACE 00063 F180701 DFHMDF POS=(07,01),LENGTH=78,ATTRB=(ASKIP) 00064 SPACE 00065 F180801 DFHMDF POS=(08,01),LENGTH=78,ATTRB=(ASKIP) 00066 SPACE 00067 F180901 DFHMDF POS=(09,01),LENGTH=78,ATTRB=(ASKIP) 00068 SPACE 00069 F181001 DFHMDF POS=(10,01),LENGTH=78,ATTRB=(ASKIP) 00070 SPACE 00071 F181101 DFHMDF POS=(11,01),LENGTH=78,ATTRB=(ASKIP) 00072 SPACE 00073 F181201 DFHMDF POS=(12,01),LENGTH=78,ATTRB=(ASKIP) 00074 SPACE 00075 F181301 DFHMDF POS=(13,01),LENGTH=78,ATTRB=(ASKIP) 00076 SPACE 00077 F181401 DFHMDF POS=(14,01),LENGTH=78,ATTRB=(ASKIP) 00078 SPACE 00079 F181501 DFHMDF POS=(15,01),LENGTH=78,ATTRB=(ASKIP) 00080 SPACE 00081 F181601 DFHMDF POS=(16,01),LENGTH=78,ATTRB=(ASKIP) 00082 SPACE 00083 F181701 DFHMDF POS=(17,01),LENGTH=78,ATTRB=(ASKIP) 00084 SPACE 00085 F181801 DFHMDF POS=(18,01),LENGTH=78,ATTRB=(ASKIP) 00086 SPACE 00087 F181901 DFHMDF POS=(19,01),LENGTH=78,ATTRB=(ASKIP) 00088 SPACE 00089 F182001 DFHMDF POS=(20,01),LENGTH=78,ATTRB=(ASKIP) 00090 SPACE 00091 DFHMDF POS=(22,01),LENGTH=15,ATTRB=(ASKIP), *00092 INITIAL='SELECT LINE NO:' 00093 SPACE 00094 F182217 DFHMDF POS=(22,17),LENGTH=02,ATTRB=(ASKIP) 00095 SPACE 00096 DFHMDF POS=(22,20),LENGTH=01,ATTRB=(ASKIP) 00097 SPACE 00098 F182313 DFHMDF POS=(23,13),LENGTH=08,ATTRB=(ASKIP) 00099 SPACE 00100 F182324 DFHMDF POS=(23,24),LENGTH=07,ATTRB=(ASKIP) 00101 SPACE 00102 F182334 DFHMDF POS=(23,34),LENGTH=07,ATTRB=(ASKIP) 00103 SPACE 00104 F182344 DFHMDF POS=(23,44),LENGTH=07,ATTRB=(ASKIP) 00105 SPACE 00106 F182401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP) 00107 SPACE 00108 F182410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP) 00109 SPACE 00110 DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP), *00111 INITIAL='GO TO:' 00112 SPACE 00113 F182476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP) 00114 SPACE 00115 DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP) 00116