000001 //STUD035 JOB TSO-STUD,'DAVID NELSON',CLASS=M 000002 //STEP1 EXEC DFHMAPS,MAPNAME=CKCIMS2,USER=STUD,SYSOUT=Y 000003 //SYSUT1 DD * 000004 PRINT NOGEN 000005 CKCIMS2 DFHMSD TYPE=MAP, X 000006 LANG=COBOL, X 000007 MODE=INOUT, X 000008 TERM=3270-2, X 000009 CTRL=FREEKB, X 000010 STORAGE=AUTO, X 000011 TIOAPFX=YES 000012 ****************************************************************** 000013 * MAPSET FOR THE DATA ENTRY PROGRAM 000014 * DEFINE AN INDIVIDUAL MAP CALLED MAP2 000015 * MODIFIED BY DAVID NELSON 000016 ****************************************************************** 000017 MAP2 DFHMDI SIZE=(24,71), X 000018 LINE=1, X 000019 COLUMN=1 000020 ****************************************************************** 000021 * HEADING TO IDENTIFY THE SCREEN 000022 ****************************************************************** 000023 DFHMDF POS=(3,10), X 000024 LENGTH=12, X 000025 ATTRB=(BRT,PROT), X 000026 INITIAL='DAVID NELSON' 000027 ****************************************************************** 000028 * NAME OF COMPANY HEADING 000029 ****************************************************************** 000030 DFHMDF POS=(4,10), X 000031 LENGTH=26, X 000032 ATTRB=(BRT,PROT), X 000033 INITIAL='AIRCRAFT EQUIPMENT COMPANY' 000034 ****************************************************************** 000035 * HEADING TO IDENTIFY THE PROGRAM 000036 ****************************************************************** 000037 DFHMDF POS=(5,10), X 000038 LENGTH=18, X 000039 ATTRB=(BRT,PROT), X 000040 INITIAL='DATA ENTRY PROGRAM' 000041 ****************************************************************** 000042 * HEADING TO IDENTIFY THE MAPSET 000043 ****************************************************************** 000044 DFHMDF POS=(7,10), X 000045 LENGTH=15, X 000046 ATTRB=(BRT,PROT), X 000047 INITIAL='CKCIPG2-CKCIMS2' 000048 ****************************************************************** 000049 * 'LEASE NUMBER' CONSTANT 000050 ****************************************************************** 000051 DFHMDF POS=(9,10), X 000052 LENGTH=12, X 000053 ATTRB=(BRT,PROT), X 000054 INITIAL='LEASE NUMBER' 000055 ****************************************************************** 000056 * UNPROTECTED LEASE NUMBER DATA FIELD 000057 * 000058 * LEASE NUMBER IS PASSED TO THE COBOL PROGRAM 000059 ****************************************************************** 000060 LEASE DFHMDF POS=(9,23), X 000061 LENGTH=10, X 000062 ATTRB=(UNPROT) 000063 ****************************************************************** 000064 * STOPPER FIELD FOR AUTOSKIP ON UNPROTECTED LEASE FIELD 000065 ****************************************************************** 000066 DFHMDF POS=(9,34), X 000067 LENGTH=01, X 000068 ATTRB=(ASKIP) 000069 ****************************************************************** 000070 * 'AIRLINE NAME' CONSTANT 000071 ****************************************************************** 000072 DFHMDF POS=(10,10), X 000073 LENGTH=12, X 000074 ATTRB=(BRT,PROT), X 000075 INITIAL='AIRLINE NAME' 000076 ****************************************************************** 000077 * UNPROTECTED AIRLINE NAME FIELD 000078 * AIRLINE NAME IS PASSED TO THE COBOL PROGRAM 000079 ****************************************************************** 000080 AIRNAME DFHMDF POS=(10,23), X 000081 LENGTH=20, X 000082 ATTRB=(UNPROT) 000083 ****************************************************************** 000084 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED AIRNAME DATA INPUT 000085 ****************************************************************** 000086 DFHMDF POS=(10,44), X 000087 LENGTH=01, X 000088 ATTRB=(ASKIP) 000089 ****************************************************************** 000090 * 'HQ CITY' CONSTANT 000091 ****************************************************************** 000092 DFHMDF POS=(11,10), X 000093 LENGTH=07, X 000094 ATTRB=(BRT,PROT), X 000095 INITIAL='HQ CITY' 000096 ****************************************************************** 000097 * UNPROTECTED HQ CITY DATA INPUT FIELD 000098 * 000099 * CITY FIELD IS PASSED TO THE COBOL PROGRAM 000100 ****************************************************************** 000101 CITY DFHMDF POS=(11,18), X 000102 LENGTH=20, X 000103 ATTRB=(UNPROT) 000104 ****************************************************************** 000105 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED CITY DATA INPUT 000106 ****************************************************************** 000107 DFHMDF POS=(11,39), X 000108 LENGTH=01, X 000109 ATTRB=(ASKIP) 000110 ****************************************************************** 000111 * 'AIRLINE COUNTRY' CONSTANT 000112 ****************************************************************** 000113 DFHMDF POS=(12,10), X 000114 LENGTH=15, X 000115 ATTRB=(BRT,PROT), X 000116 INITIAL='AIRLINE COUNTRY' 000117 ****************************************************************** 000118 * UNPROTECTED COUNTRY DATA INPUT FIELD 000119 * 000120 * COUNTRY FIELD IS PASSED TO THE COBOL PROGRAM 000121 ****************************************************************** 000122 COUNTRY DFHMDF POS=(12,26), X 000123 LENGTH=15, X 000125 ATTRB=(UNPROT) 000126 ****************************************************************** 000127 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED COUNTRY DATA INPUT 000128 ****************************************************************** 000129 DFHMDF POS=(12,42), X 000130 LENGTH=01, X 000131 ATTRB=(ASKIP) 000132 ****************************************************************** 000133 * 'TYPE OF AIRCRAFT' CONSTANT 000134 ****************************************************************** 000135 DFHMDF POS=(13,10), X 000136 LENGTH=16, X 000137 ATTRB=(BRT,PROT), X 000138 INITIAL='TYPE OF AIRCRAFT' 000139 ****************************************************************** 000140 * UNPROTECTED TYPEAIR DATA INPUT FIELD 000141 * 000142 * TYPEAIR FIELD IS PASSED TO THE COBOL PROGRAM 000143 ****************************************************************** 000144 TYPEAIR DFHMDF POS=(13,27), X 000145 LENGTH=04, X 000146 ATTRB=(UNPROT) 000147 ****************************************************************** 000148 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED TYPEAIR DATA INPUT 000149 ****************************************************************** 000150 DFHMDF POS=(13,32), X 000151 LENGTH=01, X 000152 ATTRB=(ASKIP) 000153 ****************************************************************** 000154 * 'TYPE OF LEASE' CONSTANT 000155 ****************************************************************** 000156 DFHMDF POS=(14,10), X 000157 LENGTH=13, X 000158 ATTRB=(BRT,PROT), X 000159 INITIAL='TYPE OF LEASE' 000160 ****************************************************************** 000161 * UNPROTECTED TYPE DATA INPUT FIELD 000162 * 000163 * TYPELEASE FIELD IS PASSED TO THE COBOL PROGRAM 000164 ****************************************************************** 000165 TYPELEAS DFHMDF POS=(14,24), X 000166 LENGTH=01, X 000168 ATTRB=(UNPROT) 000169 ****************************************************************** 000170 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED TYPELEASE DATA INPUT 000171 ****************************************************************** 000172 DFHMDF POS=(14,26), X 000173 LENGTH=01, X 000174 ATTRB=(ASKIP) 000175 ****************************************************************** 000176 * 'TYPE OF CARRIER' CONSTANT 000177 ****************************************************************** 000178 DFHMDF POS=(15,10), X 000179 LENGTH=15, X 000180 ATTRB=(BRT,PROT), X 000181 INITIAL='TYPE OF CARRIER' 000182 ****************************************************************** 000183 * UNPROTECTED TYPECAR DATA INPUT FIELD 000184 * 000185 * TYPECAR FIELD IS PASSED TO THE COBOL PROGRAM 000186 ****************************************************************** 000187 TYPECAR DFHMDF POS=(15,26), X 000188 LENGTH=01, X 000189 ATTRB=(UNPROT) 000190 ****************************************************************** 000191 * STOPPER AUTOSKIP FIELD TO END UNPROTECTED TYPE DATA INPUT 000192 ****************************************************************** 000193 DFHMDF POS=(15,28), X 000194 LENGTH=01, X 000195 ATTRB=(ASKIP) 000196 ****************************************************************** 000197 * A CONSTANT 'PRESS ENTER TO ADD DATA TO THE COMPANY FILE' 000198 ****************************************************************** 000199 DFHMDF POS=(18,10), X 000200 LENGTH=43, X 000201 ATTRB=(BRT,PROT), X 000202 INITIAL='PRESS ENTER TO ADD DATA TO THE COMPANY FILE' 000203 ****************************************************************** 000204 * A CONSTANT 'PRESS THE CLEAR KEY TO CLEAR THE DATA FIELDS' 000205 ****************************************************************** 000206 DFHMDF POS=(19,10), X 000207 LENGTH=44, X 000208 ATTRB=(BRT,PROT), X 000209 INITIAL='PRESS THE CLEAR KEY TO CLEAR THE DATA FIELDS' 000210 ****************************************************************** 000211 * CONSTANT 'PRESS PF12 TO EXIT TO THE MAIN MENU PROGRAM' 000212 ****************************************************************** 000213 DFHMDF POS=(20,10), X 000214 LENGTH=44, X 000215 ATTRB=(BRT,PROT), X 000216 INITIAL='PRESS PF12 TO EXIT TO THE MAIN MENU PROGRAM ' 000217 ****************************************************************** 000218 * MESSAGE 000219 ****************************************************************** 000220 MESSAGE DFHMDF POS=(21,02), X 000221 LENGTH=60, X 000222 ATTRB=(PROT) 000223 ****************************************************************** 000224 * NOMFAIL FIELD TO PREVENT MAPFAIL 000225 ****************************************************************** 000226 NOMFAIL DFHMDF POS=(23,79), X 000227 LENGTH=01, X 000228 ATTRB=(DRK,PROT,FSET), X 000229 INITIAL=' ' 000230 ****************************************************************** 000231 * END OF MAPSET 000232 ****************************************************************** 000233 DFHMSD TYPE=FINAL 000234 END 000235