TITLE 'IGFDMTXT, DDR/MIH MESSAGE TEXT CSECT *00001000 ' 00002000 IGFDMTXT CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * END IGFDMTXT; /* END OF MODULE */ 00005000 @DATA DS 0H 00006000 DS 0F 00007000 DS 0F 00008000 DS 0D 00009000 IGFDMIND DS CL52 00010000 ORG IGFDMIND 00011000 @NM00001 DC AL4(12) 00012000 MINDARAY DC AL4(IGF500I) 00013000 DC AL4(IGF500D) 00014000 DC AL4(IGF502E) 00015000 DC AL4(IGF503I) 00016000 DC AL4(IGF505I) 00017000 DC AL4(IGF509I) 00018000 DC AL4(IGF509D) 00019000 DC AL4(IGF511A) 00020000 DC AL4(IGF512I) 00021000 DC AL4(IGF513I) 00022000 DC AL4(IGF991E) 00023000 DC AL4(IGF514I) 00024000 ORG IGFDMIND+52 00025000 IGF500I DS CL29 00026000 ORG IGF500I 00027000 @NM00005 DC AL1(14) 00028000 M500IS1 DC CL14'IGF500I SWAP ' 00029000 @NM00006 DC AL1(4) 00030000 M500IS2 DC CL4' TO ' 00031000 @NM00007 DC AL1(3) 00032000 M500IS3 DC CL3' - ' 00033000 @NM00008 DC AL1(0) 00034000 @NM00009 DC X'10008000' 00035000 ORG IGF500I+29 00036000 IGF500D DS CL35 00037000 ORG IGF500D 00038000 @NM00010 DC AL1(22) 00039000 M500DS1 DC CL22'IGF500D REPLY ''YES'', ' 00040000 @NM00011 DC AL1(7) 00041000 M500DS2 DC CL7'OR ''NO''' 00042000 @NM00012 DC X'40008000' 00043000 ORG IGF500D+35 00044000 IGF502E DS CL41 00045000 ORG IGF502E 00046000 @NM00013 DC AL1(30) 00047000 M502ES1 DC CL30'IGF502E PROCEED WITH SWAP OF ' 00048000 @NM00014 DC AL1(4) 00049000 M502ES2 DC CL4' TO ' 00050000 @NM00015 DC AL1(0) 00051000 @NM00016 DC X'20008000' 00052000 ORG IGF502E+41 00053000 IGF503I DS CL43 00054000 ORG IGF503I 00055000 @NM00017 DC AL1(18) 00056000 M503IS1 DC CL18'IGF503I ERROR ON ' 00057000 @NM00018 DC AL1(19) 00058000 M503IS2 DC CL19', SELECT NEW DEVICE' 00059000 @NM00019 DC X'10008000' 00060000 ORG IGF503I+43 00061000 IGF505I DS CL39 00062000 ORG IGF505I 00063000 @NM00020 DC AL1(19) 00064000 M505IS1 DC CL19'IGF505I SWAP FROM ' 00065000 @NM00021 DC AL1(4) 00066000 M505IS2 DC CL4' TO ' 00067000 @NM00022 DC AL1(9) 00068000 M505IS3 DC CL9' COMPLETE' 00069000 @NM00023 DC X'10008000' 00070000 ORG IGF505I+39 00071000 IGF509I DS CL24 00072000 ORG IGF509I 00073000 @NM00024 DC AL1(14) 00074000 M509IS1 DC CL14'IGF509I SWAP ' 00075000 @NM00025 DC AL1(3) 00076000 M509IS2 DC CL3' - ' 00077000 @NM00026 DC AL1(0) 00078000 @NM00027 DC X'10008000' 00079000 ORG IGF509I+24 00080000 IGF509D DS CL35 00081000 ORG IGF509D 00082000 @NM00028 DC AL1(30) 00083000 M509DS1 DC CL30'IGF509D REPLY DEVICE, OR ''NO''' 00084000 @NM00029 DC X'40008000' 00085000 ORG IGF509D+35 00086000 IGF511A DS CL54 00087000 ORG IGF511A 00088000 @NM00030 DC AL1(33) 00089000 M511AS1 DC CL33'IGF511A WRONG VOLUME MOUNTED ON ' 00090000 @NM00031 DC AL1(8) 00091000 M511AS2 DC CL8', MOUNT ' 00092000 @NM00032 DC AL1(2) 00093000 M511AS3 DC CL2', ' 00094000 @NM00033 DC AL1(2) 00095000 M511AS4 DC CL2', ' 00096000 @NM00034 DC AL1(0) 00097000 @NM00035 DC X'10008000' 00098000 ORG IGF511A+54 00099000 IGF512I DS CL40 00100000 ORG IGF512I 00101000 @NM00036 DC AL1(19) 00102000 M512IS1 DC CL19'IGF512I SWAP FROM ' 00103000 @NM00037 DC AL1(14) 00104000 M512IS2 DC CL14' TERMINATED - ' 00105000 @NM00038 DC AL1(0) 00106000 @NM00039 DC X'10008000' 00107000 ORG IGF512I+40 00108000 IGF513I DS CL43 00109000 ORG IGF513I 00110000 @NM00040 DC AL1(16) 00111000 M513IS1 DC CL16'IGF513I DEVICE ' 00112000 @NM00041 DC AL1(20) 00113000 M513IS2 DC CL20' INVALID FOR SWAP - ' 00114000 @NM00042 DC AL1(0) 00115000 @NM00043 DC X'10008000' 00116000 ORG IGF513I+43 00117000 IGF991E DS CL36 00118000 ORG IGF991E 00119000 @NM00044 DC AL1(9) 00120000 M991ES1 DC CL9'IGF991E ' 00121000 @NM00045 DC AL1(20) 00122000 M991ES2 DC CL20' PENDING FOR DEVICE ' 00123000 @NM00046 DC AL1(0) 00124000 @NM00047 DC X'20008000' 00125000 ORG IGF991E+36 00126000 IGF514I DS CL75 00127000 ORG IGF514I 00128000 @NM00048 DC AL1(70) 00129000 M514IS1 DC CL70'///// IGF514I CAUTION: ENSURE NO HEAD TO DISK PACKC00130000 INTERFERENCE /////' 00131000 @NM00049 DC X'10008000' 00132000 ORG IGF514I+75 00133000 DS CL2 00134000 IGFDTIND DS CL44 00135000 ORG IGFDTIND 00136000 @NM00002 DC AL4(10) 00137000 TINDARAY DC AL4(TERTNF) 00138000 DC AL4(TERTEP) 00139000 DC AL4(TERTOC) 00140000 DC AL4(TERTBR) 00141000 DC AL4(TERTCO) 00142000 DC AL4(TERTIU) 00143000 DC AL4(TERTCE) 00144000 DC AL4(TERTID) 00145000 DC AL4(TERTCU) 00146000 DC AL4(TERTJE) 00147000 ORG IGFDTIND+44 00148000 IGFDIIND DS CL36 00149000 ORG IGFDIIND 00150000 @NM00003 DC AL4(8) 00151000 IINDARAY DC AL4(INVIMP) 00152000 DC AL4(INVIUF) 00153000 DC AL4(INVINS) 00154000 DC AL4(INVIIN) 00155000 DC AL4(INVINO) 00156000 DC AL4(INVINA) 00157000 DC AL4(INVIDT) 00158000 DC AL4(INVIJ3) 00159000 ORG IGFDIIND+36 00160000 IGFDHIND DS CL24 00161000 ORG IGFDHIND 00162000 @NM00004 DC AL4(5) 00163000 HINDARAY DC AL4(MIHIHM) 00164000 DC AL4(MIHIHD) 00165000 DC AL4(MIHIHC) 00166000 DC AL4(MIHIHCD) 00167000 DC AL4(MIHIHS) 00168000 ORG IGFDHIND+24 00169000 @NM00050 DS CL182 00170000 ORG @NM00050 00171000 TERTNF DC AL1(13) 00172000 TNF DC CL13'NO USER FOUND' 00173000 TERTEP DC AL1(15) 00174000 TEP DC CL15'ERP IN PROGRESS' 00175000 TERTOC DC AL1(26) 00176000 TOC DC CL26'OPEN/CLOSE/EOV IN PROGRESS' 00177000 TERTBR DC AL1(21) 00178000 TBR DC CL21'BLOCKCOUNT UNRELIABLE' 00179000 TERTCO DC AL1(21) 00180000 TCO DC CL21'CANCELLED BY OPERATOR' 00181000 TERTIU DC AL1(17) 00182000 TIU DC CL17'INVALID USER EXIT' 00183000 TERTCE DC AL1(18) 00184000 TCE DC CL18'CATASTROPHIC ERROR' 00185000 TERTID DC AL1(14) 00186000 TID DC CL14'INVALID DEVICE' 00187000 TERTCU DC AL1(17) 00188000 TCU DC CL17'CANCELLED BY USER' 00189000 TERTJE DC AL1(10) 00190000 TJE DC CL10'JES3 ERROR' 00191000 ORG @NM00050+182 00192000 @NM00051 DS CL134 00193000 ORG @NM00051 00194000 INVIMP DC AL1(13) 00195000 IMP DC CL13'MOUNT PENDING' 00196000 INVIUF DC AL1(22) 00197000 IUF DC CL22'UNIT REFERENCE INVALID' 00198000 INVINS DC AL1(15) 00199000 INS DC CL15'UNSUPPORTED USE' 00200000 INVIIN DC AL1(12) 00201000 IIN DC CL12'INCOMPATIBLE' 00202000 INVINO DC AL1(15) 00203000 INO DC CL15'NOT OPERATIONAL' 00204000 INVINA DC AL1(13) 00205000 INA DC CL13'NOT ALLOCATED' 00206000 INVIDT DC AL1(19) 00207000 IDT DC CL19'DEVICE TYPE INVALID' 00208000 INVIJ3 DC AL1(17) 00209000 IJ3 DC CL17'JES3 INCOMPATIBLE' 00210000 ORG @NM00051+134 00211000 @NM00052 DS CL57 00212000 ORG @NM00052 00213000 MIHIHD DC AL1(10) 00214000 IHD DC CL10'DEVICE END' 00215000 MIHIHC DC AL1(11) 00216000 IHC DC CL11'CHANNEL END' 00217000 MIHIHCD DC AL1(22) 00218000 IHCD DC CL22'DEVICE AND CHANNEL END' 00219000 MIHIHS DC AL1(4) 00220000 IHS DC CL4'SWAP' 00221000 MIHIHM DC AL1(5) 00222000 IHM DC CL5'MOUNT' 00223000 ORG @NM00052+57 00224000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00225000 @01 EQU 01 00226000 @02 EQU 02 00227000 @03 EQU 03 00228000 @04 EQU 04 00229000 @05 EQU 05 00230000 @06 EQU 06 00231000 @07 EQU 07 00232000 @08 EQU 08 00233000 @09 EQU 09 00234000 @10 EQU 10 00235000 @11 EQU 11 00236000 @12 EQU 12 00237000 @13 EQU 13 00238000 @14 EQU 14 00239000 @15 EQU 15 00240000 ENTRY IGFDHIND 00241000 ENTRY IGFDIIND 00242000 ENTRY IGFDTIND 00243000 ENTRY IGFDMIND 00244000 @ENDDATA EQU * 00245000 END IGFDMTXT,(C'PLS1430',0701,77082) 00246000