MACRO 00070020 IKJEBEMI &MSG 00140020 LCLA &CT,&I,&LINE 00210020 .*A981166,981244-981395,981712-981906 A45713 00220021 .*C980660 A45713 00230021 .*D981167,981400 A45713 00240021 .*A714100-714400 A45119 00242021 .*C708400,711200,711900 A45119 00244021 .*A421200-422084,423300-424120,981352-981391 A45155 00244421 .*C417900,420700,981207 A45155 00244821 .*D421400,423500 A45155 00245221 .*A591520-591592 A50466 00246021 .*C577500 A50466 00248021 .*A472344-473126 A50471 00248121 .*C471700 A50471 00248221 .*D472267-472500 A50471 00248321 .*A306400-307084 A52001 00248421 .*C288400,305900 A52001 00248821 .*D306600 A52001 00249221 .*A981396-982820 Y01676 00249701 .*C981357 Y01676 00250201 .*D981400-982800 Y01676 00250701 .*A981610-981824 Y02676 00252702 .*C706300,981610-981824 Y02676 00254702 .*A706800-707467 Y02676 00269202 .*A982838-983570 @Y30NQKK 00272203 .*A983617-984805 @Y30NQKB 00275203 .*C706800 @OZ01558 00276203 .*A707436-708120 @OZ01558 00277203 &CT SETA N'&MSG 00280020 &I SETA 1 00350020 EJECT 00420020 *********************************************************************** 00490020 * 00560020 * MESSAGE INFORMATION AND SPECIAL EQU'S 00630020 * 00700020 *********************************************************************** 00770020 SPACE 2 00840020 * THE FOLLOWING EQU'S CORRESPOND TO THE SEVEN MESSAGE MODULES IN THE 00910020 * THE EDIT COMMAND PROCESSOR 00980020 SPACE 01050020 MSMOD1 EQU X'0100' - IKJEBEM1 MODULE 01120020 MSMOD2 EQU X'0200' - IKJEBEM2 MODULE 01190020 MSMOD3 EQU X'0300' - IKJEBEM3 MODULE 01260020 MSMOD4 EQU X'0400' - IKJEBEM4 MODULE 01330020 MSMOD5 EQU X'0500' - IKJEBEM5 MODULE 01400020 MSMOD6 EQU X'0600' - IKJEBEM6 MODULE 01470020 MSMOD7 EQU X'0700' - IKJEBEM7 MODULE 01540020 SPACE 2 01610020 &LINE SETA 19 01680020 AIF (&MSG(&I) EQ 0).TAGM00 01750020 AGO .TAGAT01 01820020 .TAGM00 ANOP 01890020 * MESSAGE ZERO IS RESERVED FOR THE TERMINAL OUTPUT 01910021 * OF LANGUAGE PROCESSOR MESSAGES 01930021 SPACE 02100020 M000 EQU MSMOD5+0 - RELATIVE MESSAGE NUMBER 0 - IKJEBEM5 02170020 M0001 EQU 1 - M000 HAS 1 SECOND-LEVEL MESSAGE 02240020 M000IN1 EQU 0 - M000 USES AN OFFSET OF 0 FOR THE TEXT 02310020 M0001IN1 EQU 0 - LEVEL 2 MESSAGE USES AN OFFSET OF 0 02380020 SPACE 2 02450020 &LINE SETA &LINE+9 02520020 .TAGX00 ANOP 02590020 &I SETA &I+1 02660020 AIF (&I GT &CT).EXIT 02730020 AIF (&MSG(&I) EQ 0).TAGX00 02800020 .TAGAT01 AIF (&MSG(&I) EQ 301).TAGAM01 02870020 AGO .TAGAT02 02940020 .TAGAM01 ANOP 03010020 AIF (&LINE+12 LE 45).TAGAE01 03080020 EJECT 03150020 &LINE SETA 0 03220020 .TAGAE01 ANOP 03290020 &LINE SETA &LINE+12 03360020 * IKJ52301I UTILITY DATA SET NOT ALLOCATED, TOO MANY DATA SETS+ 03430020 * DATA SET (DSNAME) 03500020 * IKJ52301I HAS ONE SECOND LEVEL MESSAGE. 03570021 SPACE 03640020 M301U EQU MSMOD1+0 - RELATIVE MSG 0 - IKJEBEM1 03710020 M301 EQU MSMOD1+1 - RELATIVE MSG 1 - IKJEBEM1 03780020 M301IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 03850020 SPACE 03920020 * *IKJ52301I USE FREE COMMAND TO FREE UNUSED DATA SETS 03990020 M3011 EQU 1 - FIRST SECOND-LEVEL MESSAGE 04060020 SPACE 2 04130020 .TAGAX01 ANOP 04200020 &I SETA &I+1 04270020 AIF (&I GT &CT).EXIT 04340020 AIF (&MSG(&I) LT 302).TAGAX01 04410020 .TAGAT02 AIF (&MSG(&I) EQ 302).TAGAM02 04480020 AGO .TAGAT03 04550020 .TAGAM02 ANOP 04620020 AIF (&LINE+10 LE 45).TAGAE02 04690020 EJECT 04760020 &LINE SETA 0 04830020 .TAGAE02 ANOP 04900020 &LINE SETA &LINE+10 04970020 * IKJ52302I DATA SET (DSNAME) NOT ALLOCATED, DATA SET NOT ON VOLUME+ 05040020 * IKJ52302I HAS ONE SECOND-LEVEL MESSAGE. 05110021 SPACE 05180020 M302 EQU MSMOD6+0 - RELATIVE MESSAGE 0 - IKJEBEM6 05250020 M302IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 05320020 SPACE 05390020 * *IKJ52302I CATALOG INFORMATION INCORRECT 05460020 M3021 EQU 1 - FIRST SECOND-LEVEL MESSAGE 05530020 SPACE 2 05600020 .TAGAX02 ANOP 05670020 &I SETA &I+1 05740020 AIF (&I GT &CT).EXIT 05810020 AIF (&MSG(&I) LT 303).TAGAX02 05880020 .TAGAT03 AIF (&MSG(&I) EQ 303).TAGAM03 05950020 AGO .TAGAT04 06020020 .TAGAM03 ANOP 06090020 AIF (&LINE+11 LE 45).TAGAE03 06160020 EJECT 06230020 &LINE SETA 0 06300020 .TAGAE03 ANOP 06370020 &LINE SETA &LINE+11 06440020 * IKJ52303I DATA SET (DSNAME) NOT ALLOCATED, REQUIRED VOLUME NOT 06510020 * MOUNTED+ 06580020 * IKJ52303I HAS ONE SECOND LEVEL MESSAGE. 06650021 SPACE 06720020 M303 EQU MSMOD6+1 - RELATIVE MESSAGE 1 - IKJEBEM6 06790020 M303IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 06860020 SPACE 06930020 * *IKJ52303I VOLUME OR CVOL NOT ON SYSTEM AND CANNOT BE ACCESSED 07000020 M3031 EQU 1 - FIRST SECOND-LEVEL MESSAGE 07070020 SPACE 2 07140020 .TAGAX03 ANOP 07210020 &I SETA &I+1 07280020 AIF (&I GT &CT).EXIT 07350020 AIF (&MSG(&I) LT 304).TAGAX03 07420020 .TAGAT04 AIF (&MSG(&I) EQ 304).TAGAM04 07490020 AGO .TAGAT05 07560020 .TAGAM04 ANOP 07630020 AIF (&LINE+21 LE 45).TAGAE04 07700020 EJECT 07770020 &LINE SETA 0 07840020 .TAGAE04 ANOP 07910020 &LINE SETA &LINE+21 07980020 * UTILITY DATA SET 08050020 * IKJ52304I DATA SET (DSNAME) NOT ALLOCATED, SYSTEM OR INSTALLATION 08120020 * ERROR+ 08190020 * IKJ52304I HAS THREE SECOND-LEVEL MESSAGES. 08260021 SPACE 08330020 M304U EQU MSMOD1+4 - RELATIVE MSG 4 - IKJEBEM1 08400020 M304 EQU MSMOD1+5 - RELATIVE MSG 5 - IKJEBEM1 08470020 M304IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 08540020 SPACE 08610020 * *IKJ52304I DYNAMIC ALLOCATION ERROR CODE (CODE) 08680020 M3041 EQU 1 - FIRST SECOND-LEVEL MESSAGE 08750020 M3041IN1 EQU 40 - RETURN CODE INSERTION AT OFFSET 19 08820020 SPACE 08890020 * *IKJ52304I CATALOG ERROR CODE (CODE) 08960020 M3042 EQU 2 - SECOND SECOND-LEVEL MESSAGE 09030020 M3042IN1 EQU 29 - RETURN CODE INSERTION AT OFFSET 29 09100020 SPACE 09170020 * *IKJ52304I CATALOG I/O ERROR 09240020 M3043 EQU 3 - THIRD SECOND-LEVEL MESSAGE 09310020 SPACE 2 09380020 .TAGAX04 ANOP 09450020 &I SETA &I+1 09520020 AIF (&I GT &CT).EXIT 09590020 AIF (&MSG(&I) LT 305).TAGAX04 09660020 .TAGAT05 AIF (&MSG(&I) EQ 305).TAGAM05 09730020 AGO .TAGAT06 09800020 .TAGAM05 ANOP 09870020 AIF (&LINE+13 LE 45).TAGAE05 09940020 EJECT 10010020 &LINE SETA 0 10080020 .TAGAE05 ANOP 10150020 &LINE SETA &LINE+13 10220020 * UTILITY DATA SET 10290020 * IKJ52305I DATA SET (DSNAME) NOT ALLOCATED, NOT ENOUGH SPACE ON 10360020 * VOLUMES+ 10430020 * IKJ52305I HAS ONE SECOND-LEVEL MESSAGE. 10500020 SPACE 10570020 M305U EQU MSMOD5+2 - RELATIVE MESSAGE 2 - IKJEBEM5 10640020 M305 EQU MSMOD5+3 - RELATIVE MESSAGE 3 - IKJEBEM5 10710020 M305IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 10780020 SPACE 10850020 * *IKJ52305I USE DELETE COMMAND TO DELETE UNUSED DATA SETS 10920020 M3051 EQU 1 - FIRST SECOND-LEVEL MESSAGE 10990020 SPACE 2 11060020 .TAGAX05 ANOP 11130020 &I SETA &I+1 11200020 AIF (&I GT &CT).EXIT 11270020 AIF (&MSG(&I) LT 306).TAGAX05 11340020 .TAGAT06 AIF (&MSG(&I) EQ 306).TAGAM06 11410020 AGO .TAGAT07 11480020 .TAGAM06 ANOP 11550020 AIF (&LINE+10 LE 45).TAGAE06 11620020 EJECT 11690020 &LINE SETA 0 11760020 .TAGAE06 ANOP 11830020 &LINE SETA &LINE+10 11900020 * IKJ52306I DATA SET DSNAME) ALREADY IN USE, TRY LATER+ 11970020 * IKJ52306I HAS ONE SECOND LEVEL MESSAGE. 12040021 SPACE 12110020 M306 EQU MSMOD6+2 - RELATIVE MESSAGE 2 - IKJEBEM6 12180020 M306IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 12250020 SPACE 12320020 * *IKJ52306I DATA SET IS ALLOCATED TO ANOTHER USER OR JOB 12390020 M3061 EQU 1 - FIRST SECOND-LEVEL MESSAGE 12460020 SPACE 2 12530020 .TAGAX06 ANOP 12600020 &I SETA &I+1 12670020 AIF (&I GT &CT).EXIT 12740020 AIF (&MSG(&I) LT 307).TAGAX06 12810020 .TAGAT07 AIF (&MSG(&I) EQ 307).TAGAM07 12880020 AGO .TAGAT08 12950020 .TAGAM07 ANOP 13020020 AIF (&LINE+7 LE 45).TAGAE07 13090020 EJECT 13160020 &LINE SETA 0 13230020 .TAGAE07 ANOP 13300020 &LINE SETA &LINE+7 13370020 * IKJ52307I DATA SET (DSNAME) NOT IN CATALOG 13440020 * IKJ52307I HAS NO SECOND LEVEL MESSAGES. 13510020 SPACE 13580020 M307 EQU MSMOD6+3 - RELATIVE MESSAGE 3 - IKJEBEM6 13650020 M307IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 13720020 SPACE 2 13790020 .TAGAX07 ANOP 13860020 &I SETA &I+1 13930020 AIF (&I GT &CT).EXIT 14000020 AIF (&MSG(&I) LT 308).TAGAX07 14070020 .TAGAT08 AIF (&MSG(&I) EQ 308).TAGAM08 14140020 AGO .TAGAT09 14210020 .TAGAM08 ANOP 14280020 AIF (&LINE+8 LE 45).TAGAE08 14350020 EJECT 14420020 &LINE SETA 0 14490020 .TAGAE08 ANOP 14560020 &LINE SETA &LINE+8 14630020 * IKJ52308I MEMBER (MEMBER) NOT IN DATA SET (DSNAME) 14700020 * IKJ52308I HAS NO SECOND LEVEL MESSAGES. 14770021 SPACE 14840020 M308 EQU MSMOD6+4 - RELATIVE MESSAGE 4 - IKJEBEM6 14910020 M308IN1 EQU 17 - MEMBER NAME INSERTION AT OFFSET 17 14980020 M308IN2 EQU 34 - DSNAME INSERTION AT OFFSET 34 15050020 SPACE 2 15120020 .TAGAX08 ANOP 15190020 &I SETA &I+1 15260020 AIF (&I GT &CT).EXIT 15330020 AIF (&MSG(&I) LT 309).TAGAX08 15400020 .TAGAT09 AIF (&MSG(&I) EQ 309).TAGAM09 15470020 AGO .TAGAT10 15540020 .TAGAM09 ANOP 15610020 AIF (&LINE+19 LE 45).TAGAE09 15680020 EJECT 15750020 &LINE SETA 0 15820020 .TAGAE09 ANOP 15890020 &LINE SETA &LINE+19 15960020 * IKJ52309I DATA SET (DSNAME) NOT USEABLE+ 16030020 * IKJ52309I HAS TWO SECOND LEVEL MESSAGES. 16100020 SPACE 16170020 M309U EQU MSMOD1+16 - RELATIVE MSG 16 - IKJEBEM1 16240020 M309 EQU MSMOD1+11 - RELATIVE MSG 11 - IKJEBEM1 16310020 M309IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 16380020 SPACE 16450020 * *IKJ52309I OPEN ERROR CODE (CODE) 16520020 M3091 EQU 1 - FIRST SECOND-LEVEL MESSAGE 16590020 M3091IN1 EQU 26 - CODE INSERTION AT OFFSET 26 16660020 SPACE 16730020 * *IKJ52309I I/O SYNAD ERROR (CODE) 16800020 M3092 EQU 2 - SECOND SECOND-LEVEL MESSAGE 16870020 M3092IN1 EQU 26 - CODE INSERTION AT OFFSET 26 16940020 SPACE 17010020 * *IKJ52309I CANNOT OPEN DATA SET 17080021 M3093 EQU 3 - THIRD SECOND-LEVEL MESSAGE 17150020 SPACE 2 17220020 .TAGAX09 ANOP 17290020 &I SETA &I+1 17360020 AIF (&I GT &CT).EXIT 17430020 AIF (&MSG(&I) LT 310).TAGAX09 17500020 .TAGAT10 AIF (&MSG(&I) EQ 310).TAGAM10 17570020 AGO .TAGAT11 17640020 .TAGAM10 ANOP 17710020 AIF (&LINE+7 LE 45).TAGAE10 17780020 EJECT 17850020 &LINE SETA 0 17920020 .TAGAE10 ANOP 17990020 &LINE SETA &LINE+7 18060020 * IKJ52310I INVALID DATA SET NAME, ('DSNAME') EXCEEDS 44 CHARACTERS 18130020 * IKJ52310I HAS NO SECOND LEVEL MESSAGES. 18200020 SPACE 18270020 M310 EQU MSMOD6+5 - RELATIVE MESSAGE 5 - IKJEBEM6 18340020 M310IN1 EQU 33 - DSNAME INSERTION AT OFFSET 33 18410020 SPACE 2 18480020 .TAGAX10 ANOP 18550020 &I SETA &I+1 18620020 AIF (&I GT &CT).EXIT 18690020 AIF (&MSG(&I) LT 311).TAGAX10 18760020 .TAGAT11 AIF (&MSG(&I) EQ 311).TAGAM11 18830020 AGO .TAGAT12 18900020 .TAGAM11 ANOP 18970020 AIF (&LINE+9 LE 45).TAGAE11 19040020 EJECT 19110020 &LINE SETA 0 19180020 .TAGAE11 ANOP 19250020 &LINE SETA &LINE+9 19320020 * IKJ52311I MEMBER (MEMBER) SPECIFIED BUT (DSNAME) NOT A PARTITIONED 19390020 * DATA SET 19460020 * IKJ52311I HAS NO SECOND LEVEL MESSAGES. 19530020 SPACE 19600020 M311 EQU MSMOD1+13 - RELATIVE MSG 13 - IKJEBEM1 19670020 M311IN1 EQU 17 - MEMBER NAME INSERTION AT OFFSET 17 19740020 M311IN2 EQU 32 - DSNAME INSERTION AT OFFSET 32 19810020 SPACE 2 19880020 .TAGAX11 ANOP 19950020 &I SETA &I+1 20020020 AIF (&I GT &CT).EXIT 20090020 AIF (&MSG(&I) LT 312).TAGAX11 20160020 .TAGAT12 AIF (&MSG(&I) EQ 312).TAGAM12 20230020 AGO .TAGAT13 20300020 .TAGAM12 ANOP 20370020 AIF (&LINE+7 LE 45).TAGAE12 20440020 EJECT 20510020 &LINE SETA 0 20580020 .TAGAE12 ANOP 20650020 &LINE SETA &LINE+7 20720020 * IKJ52312I NOT ENOUGH MAIN STORAGE TO EXECUTE (COMMAND OR SUBCOMMAND) 20790020 * IKJ52312I HAS NO SECOND LEVEL MESSAGES. 20860020 SPACE 20930020 M312 EQU MSMOD1+14 - RELATIVE MSG 14 - IKJEBEM1 21000020 M312IN1 EQU 45 - COMMAND NAME INSERTION AT OFFSET 45 21070020 SPACE 2 21140020 .TAGAX12 ANOP 21210020 &I SETA &I+1 21280020 AIF (&I GT &CT).EXIT 21350020 AIF (&MSG(&I) LT 313).TAGAX12 21420020 .TAGAT13 AIF (&MSG(&I) EQ 313).TAGAM13 21490020 AGO .TAGT06 21560020 .TAGAM13 ANOP 21630020 AIF (&LINE+11 LE 45).TAGAE13 21700020 EJECT 21770020 &LINE SETA 0 21840020 .TAGAE13 ANOP 21910020 &LINE SETA &LINE+11 21980020 * IKJ52313I COMMAND SYSTEM ERROR+ 22050020 * IKJ52313I HAS ONE SECOND LEVEL MESSAGE. 22120020 SPACE 22190020 M313 EQU MSMOD1+15 - RELATIVE MSG 15 - IKJEBEM1 22260020 SPACE 22330020 * *IKJ52313I (SERVICE ROUTINE) ERROR CODE (CODE) 22400020 M3131 EQU 1 - FIRST SECOND-LEVEL MESSAGE 22470020 M3131IN1 EQU 10 - SERVICE ROUTINE INSERTION AT OFFSET 10 22540020 M3131IN2 EQU 22 - RETURN CODE INSERTION AT OFFSET 22 22610020 SPACE 2 22680020 .TAGAX13 ANOP 22750020 &I SETA &I+1 22820020 AIF (&I GT &CT).EXIT 22890020 AIF (&MSG(&I) LT 314).TAGAX13 22960020 .TAGT06 AIF (&MSG(&I) EQ 314).TAGM314 23030020 AGO .TAGT315 23100020 .TAGM314 ANOP 23170020 AIF (&LINE+8 LE 45).TAGE314 23240020 EJECT 23310020 &LINE SETA 0 23380020 .TAGE314 ANOP 23450020 &LINE SETA &LINE+8 23520020 * IKJ52314I DATA SET (DSNAME) RESIDES ON MULTIPLE VOLUMES, NOT 23590020 * SUPPORTED 23660020 * IKJ52314I HAS NO SECOND-LEVEL MESSAGES. 23730020 SPACE 23800020 M314 EQU MSMOD1+6 - RELATIVE MESSAGE 6 - IKJEBEM1 23870020 M314IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 23940020 SPACE 2 24010020 .TAGX314 ANOP 24080020 &I SETA &I+1 24150020 AIF (&I GT &CT).EXIT 24220020 AIF (&MSG(&I) LT 315).TAGX314 24290020 .TAGT315 AIF (&MSG(&I) EQ 315).TAGM315 24360020 AGO .TAGT316 24430020 .TAGM315 ANOP 24500020 AIF (&LINE+11 LE 45).TAGE315 24570020 EJECT 24640020 &LINE SETA 0 24710020 .TAGE315 ANOP 24780020 &LINE SETA &LINE+11 24850020 * IKJ52315I DATA SET (DSNAME) NOT RESOLVED, SYSTEM ERROR+ 24920020 * IKJ52315I HAS ONE SECOND-LEVEL MESSAGE. 24990021 SPACE 25060020 M315 EQU MSMOD7+1 - RELATIVE MESSAGE 1 - IKJEBEM7 25130020 M315IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 25200020 SPACE 25270020 * *IKJ52315I DEFAULT ERROR CODE (CODE) 25340021 M3151 EQU 1 - FIRST SECOND-LEVEL MESSAGE 25410020 M3151IN1 EQU 29 - RETURN CODE INSERTION AT OFFSET 29 25480020 SPACE 2 25550020 .TAGX315 ANOP 25620020 &I SETA &I+1 25690020 AIF (&I GT &CT).EXIT 25760020 AIF (&MSG(&I) LT 316).TAGX315 25830020 .TAGT316 AIF (&MSG(&I) EQ 316).TAGM316 25900020 AGO .TAGT317 25970020 .TAGM316 ANOP 26040020 AIF (&LINE+11 LE 45).TAGE316 26110020 EJECT 26180020 &LINE SETA 0 26250020 .TAGE316 ANOP 26320020 &LINE SETA &LINE+11 26390020 * IKJ52316I DATA SET (DSNAME) WILL CREATE AN INVALID CATALOG STRUCTURE+ 26460020 * IKJ52316I HAS ONE SECOND-LEVEL MESSAGE. 26530021 SPACE 26600020 M316 EQU MSMOD7+2 - RELATIVE MESSAGE 2 - IKJEBEM7 26670020 M316IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 26740020 SPACE 26810020 * *IKJ52316I A QUALIFIER CANNOT BE BOTH AN INDEX AND THE LAST 26880021 * QUALIFIER OF A DATA SET NAME 26950021 M3161 EQU 1 - FIRST SECOND-LEVEL MESSAGE 27020020 SPACE 2 27090020 .TAGX316 ANOP 27160020 &I SETA &I+1 27230020 AIF (&I GT &CT).EXIT 27300020 AIF (&MSG(&I) LE 316).TAGX316 27370020 .TAGT317 AIF (&MSG(&I) EQ 317).TAGM317 27440020 AGO .TAGT318 27510020 .TAGM317 ANOP 27580020 AIF (&LINE+8 LE 45).TAGE317 27650020 EJECT 27720020 &LINE SETA 0 27790020 .TAGE317 ANOP 27860020 &LINE SETA &LINE+8 27930020 * IKJ52317I DATA SET (DSNAME) NOT ON A DIRECT ACCESS DEVICE, NOT 28000020 * SUPPORTED 28070020 * IKJ52317I HAS NO SECOND LEVEL MESSAGES. 28140020 SPACE 28210020 M317 EQU MSMOD5+4 - RELATIVE MESSAGE 4 - IKJEBEM5 28280020 M317IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 28350020 SPACE 2 28420020 .TAGX317 ANOP 28490020 &I SETA &I+1 28560020 AIF (&I GT &CT).EXIT 28630020 AIF (&MSG(&I) LE 317).TAGX317 28700020 .TAGT318 AIF (&MSG(&I) EQ 318).TAGM318 28770020 AGO .TAGT319 A52001 28840021 .TAGM318 ANOP 28910020 AIF (&LINE+15 LE 45).TAGE318 28980020 EJECT 29050020 &LINE SETA 0 29120020 .TAGE318 ANOP 29190020 &LINE SETA &LINE+15 29260020 * UTILITY DATA SET 29330020 * IKJ52318I DATA SET (DSNAME) NOT ALLOCATED+ 29400020 * IKJ52318I HAS TWO SECOND-LEVEL MESSAGES. 29470020 SPACE 29540020 M318U EQU MSMOD7+6 - RELATIVE MESSAGE 6 - IKJEBEM7 29610020 M318 EQU MSMOD7+7 - RELATIVE MESSAGE 7 - IKJEBEM7 29680020 M318IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 29750020 SPACE 29820020 * *IKJ52318I INVALID UNIT IN USER ATTRIBUTE DATA SET 29890020 M3181 EQU 1 - FIRST SECOND-LEVEL MESSAGE 29960020 SPACE 30030020 * *IKJ52318I NO UNIT AVAILABLE 30100021 M3182 EQU 2 - SECOND SECOND-LEVEL MESSAGE 30170020 SPACE 2 30240020 .TAGX318 ANOP 30310020 &I SETA &I+1 30380020 AIF (&I GT &CT).EXIT 30450020 AIF (&MSG(&I) LE 318).TAGX318 30520020 .TAGT319 AIF (&MSG(&I) EQ 319).TAGM319 A52001 30590021 AGO .TAGT330 A52001 30640021 .TAGM319 ANOP A52001 30650021 AIF (&LINE+10 LE 45).TAGE319 A52001 30650121 EJECT 30650421 &LINE SETA 0 A52001 30650821 .TAGE319 ANOP A52001 30651221 &LINE SETA &LINE+10 A52001 30651621 * IKJ52319I DATA SET (DSNAME) NOT ALLOCATED, SHARED+ A52001 30661621 * IKJ52319I HAS ONE SECOND-LEVEL MESSAGE. A52001 30671621 SPACE 30681621 M319 EQU MSMOD2+1 - RELATIVE MESSAGE 1 - IKJEBEM2 A52001 30691621 M319IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 A52001 30693621 SPACE 30695621 * *IKJ52319I USE FREE COMMAND TO FREE DATA SET A52001 30695721 M3191 EQU 1 - FIRST SECOND-LEVEL MESSAGE A52001 30697621 SPACE 2 30699621 .TAGX319 ANOP A52001 30700021 &I SETA &I+1 A52001 30700421 AIF (&I GT &CT).EXIT A52001 30700821 AIF (&MSG(&I) LE 319).TAGX319 A52001 30701221 .TAGT330 AIF (&MSG(&I) EQ 330).TAGM06 A52001 30701321 AGO .TAGT07 A52001 30708421 .TAGM06 ANOP 30730020 AIF (&LINE+12 LE 45).TAGEJ06 30800020 EJECT 30870020 &LINE SETA 0 30940020 .TAGEJ06 ANOP 31010020 &LINE SETA &LINE+12 31080020 * IKJ52330I (ISAM,DIRECT) ORGANIZATION OF DATA SET (DSNAME) 31150020 * NOT ACCEPTABLE + 31220021 * IKJ52330I HAS ONE SECOND LEVEL MESSAGE. 31290021 SPACE 31430020 M330 EQU MSMOD2+0 - RELATIVE MESSAGE 0 - IKJEBEM2 31500020 M330IN1 EQU 10 - DSORG INSERTION AT OFFSET 10 31570020 M330IN2 EQU 36 - DSNAME INSERTION AT OFFSET 36 31640020 SPACE 31710020 * *IKJ52330I ORGANIZATION MUST BE PARTITIONED OR SEQUENTIAL 31740021 M3301 EQU 1 - FIRST SECOND LEVEL MESSAGE 31780020 SPACE 2 31850020 .TAGX06 ANOP 31920020 &I SETA &I+1 31990020 AIF (&I GT &CT).EXIT 32060020 AIF (&MSG(&I) LE 330).TAGX06 32130020 .TAGT07 AIF (&MSG(&I) EQ 331).TAGM07 32200020 AGO .TAGT08 32270020 .TAGM07 ANOP 32340020 AIF (&LINE+7 LE 45).TAGEJ07 32410020 EJECT 32480020 &LINE SETA 0 32550020 .TAGEJ07 ANOP 32620020 &LINE SETA &LINE+7 32690020 * IKJ52331I RECORD FORMAT (RECFM) NOT ACCEPTABLE 32760020 * IKJ52331I HAS NO SECOND LEVEL MESSAGES. 32830021 SPACE 32900020 M331 EQU MSMOD3+3 - RELATIVE MESSAGE 3 - IKJEBEM3 32970020 M331IN1 EQU 24 - RECFM INSERTION AT OFFSET 24 33040020 SPACE 2 33110020 .TAGX07 ANOP 33180020 &I SETA &I+1 33250020 AIF (&I GT &CT).EXIT 33320020 AIF (&MSG(&I) LE 331).TAGX07 33390020 .TAGT08 AIF (&MSG(&I) EQ 332).TAGM08 33460020 AGO .TAGT09 33530020 .TAGM08 ANOP 33600020 AIF (&LINE+8 LE 45).TAGEJ08 33670020 EJECT 33740020 &LINE SETA 0 33810020 .TAGEJ08 ANOP 33880020 &LINE SETA &LINE+8 33950020 * IKJ52332I RECORD FORMAT V NOT ACCEPTABLE FOR (TYPE) 34020021 * DATA SETS 34090021 * IKJ52332I HAS NO SECOND LEVEL MESSAGES. 34160021 SPACE 34230020 M332 EQU MSMOD2+2 - RELATIVE MESSAGE 2 - IKJEBEM2 34300020 M332IN1 EQU 45 - DATA SET TYPE INSERTION AT OFFSET 45 34370020 SPACE 2 34440020 .TAGX08 ANOP 34510020 &I SETA &I+1 34580020 AIF (&I GT &CT).EXIT 34650020 AIF (&MSG(&I) LE 332).TAGX08 34720020 .TAGT09 AIF (&MSG(&I) EQ 333).TAGM09 34790020 AGO .TAGT10 34860020 .TAGM09 ANOP 34930020 AIF (&LINE+21 LE 45).TAGEJ09 35000020 EJECT 35070020 &LINE SETA 0 35140020 .TAGEJ09 ANOP 35210020 &LINE SETA &LINE+21 35280020 * IKJ52333I INVALID BLOCK VALUE, USING (VALUE)+ 35350021 * IKJ52333I HAS FOUR SECOND LEVEL MESSAGES. 35420021 SPACE 35490020 M333 EQU MSMOD2+3 - RELATIVE MESSAGE 3 - IKJEBEM2 35560020 M333IN1 EQU 37 - BLOCK VALUE INSERTION AT OFFSET 37 35630020 SPACE 35700020 * *IKJ52333I MAXIMUM BLOCK VALUE IS DEVICE TRACK SIZE 35770021 M3331 EQU 1 - FIRST SECOND LEVEL MESSAGE 35840020 SPACE 35910020 * *IKJ52333I MAXIMUM BLOCK VALUE IS SYSGEN OPTION 35980021 M3332 EQU 2 - SECOND SECOND LEVEL MESSAGE 36050020 SPACE 36120020 * *IKJ52333I BLOCK VALUE MUST BE A MULTIPLE OF LINE FOR RECORD 36190021 * FORMAT F DATA SETS 36260021 M3333 EQU 3 - THIRD SECOND LEVEL MESSAGE 36330020 SPACE 36400020 * *IKJ52333I BLOCK VALUE MUST BE AT LEAST 4 GREATER THAN LINE 36470021 * FOR RECORD FORMAT V DATA SETS 36540021 M3334 EQU 4 - FOURTH SECOND LEVEL MESSAGE 36610020 SPACE 2 36680020 .TAGX09 ANOP 36750020 &I SETA &I+1 36820020 AIF (&I GT &CT).EXIT 36890020 AIF (&MSG(&I) LE 333).TAGX09 36960020 .TAGT10 AIF (&MSG(&I) EQ 334).TAGM10 37030020 AGO .TAGT11 37100020 .TAGM10 ANOP 37170020 AIF (&LINE+7 LE 45).TAGEJ10 37240020 EJECT 37310020 &LINE SETA 0 37380020 .TAGEJ10 ANOP 37450020 &LINE SETA &LINE+7 37520020 * IKJ52334I (BLOCK,LINE) IGNORED, ONLY VALID FOR NEW DATA SET 37590021 * IKJ52334I HAS NO SECOND LEVEL MESSAGES. 37660021 SPACE 37730020 M334 EQU MSMOD2+4 - RELATIVE MESSAGE 4 - IKJEBEM2 37800020 M334IN1 EQU 10 - BLOCK OR LINE INSERTION AT OFFSET 10 37870020 SPACE 2 37940020 .TAGX10 ANOP 38010020 &I SETA &I+1 38080020 AIF (&I GT &CT).EXIT 38150020 AIF (&MSG(&I) LE 334).TAGX10 38220020 .TAGT11 AIF (&MSG(&I) EQ 335).TAGM11 38290020 AGO .TAGT12 38360020 .TAGM11 ANOP 38430020 AIF (&LINE+20 LE 45).TAGEJ11 38500020 EJECT 38570020 &LINE SETA 0 38640020 .TAGEJ11 ANOP 38710020 &LINE SETA &LINE+20 38780020 * IKJ52335I INVALID LINE VALUE FOR (LANGUAGE), USING (VALUE)+ 38850021 * IKJ52335I HAS THREE SECOND LEVEL MESSAGES. 38920021 SPACE 38990020 M335 EQU MSMOD2+5 - RELATIVE MESSAGE 5 - IKJEBEM2 39060020 M335IN1 EQU 33 - LANGUAGE INSERTION AT OFFSET 33 39130020 M335IN2 EQU 41 - LINE VALUE INSERTION AT OFFSET 41 39200020 SPACE 39270020 * *IKJ52335I (LANGUAGE) REQUIRES A LINE SIZE OF 80 39340021 M3351 EQU 1 - FIRST SECOND LEVEL MESSAGE 39410020 M3351IN1 EQU 10 - LANGUAGE INSERTION AT OFFSET 10 39480020 SPACE 39550020 * *IKJ52335I LINE SIZE FOR (TYPE) MAY NOT EXCEED (LINE SIZE) 39620021 M3352 EQU 2 - SECOND SECOND LEVEL MESSAGE 39690020 M3352IN1 EQU 24 - DATA SET TYPE INSERTION AT OFFSET 24 39760020 M3352IN2 EQU 40 - LINE SIZE INSERTION AT OFFSET 40 39830020 SPACE 39880020 * *IKJ52335I LRECL FIELD NOT INITIALIZED, BLOCK SIZE SUBSTITUTED 39890021 M3353 EQU 3 - THIRD SECOND LEVEL MESSAGE 39892020 SPACE 2 39900020 .TAGX11 ANOP 39970020 &I SETA &I+1 40040020 AIF (&I GT &CT).EXIT 40110020 AIF (&MSG(&I) LE 335).TAGX11 40180020 .TAGT12 AIF (&MSG(&I) EQ 336).TAGM12 40250020 AGO .TAGT14 40320020 .TAGM12 ANOP 40390020 AIF (&LINE+8 LE 45).TAGEJ12 40460020 EJECT 40530020 &LINE SETA 0 40600020 .TAGEJ12 ANOP 40670020 &LINE SETA &LINE+8 40740020 * IKJ52336I (VALUE) INVALID LINE VALUE FOR (TYPE) DATA SET 40810020 * IKJ52336I HAS NO SECOND LEVEL MESSAGES. 40880021 SPACE 40950020 M336 EQU MSMOD2+6 - RELATIVE MESSAGE 6 - IKJEBEM2 41020020 M336IN1 EQU 10 - LINE VALUE INSERTION AT OFFSET 10 41090020 M336IN2 EQU 34 - DATA SET TYPE INSERTION AT OFFSET 34 41160020 SPACE 2 41230020 .TAGX12 ANOP 41300020 &I SETA &I+1 41370020 AIF (&I GT &CT).EXIT 41440020 AIF (&MSG(&I) LE 336).TAGX12 41510020 .TAGT14 AIF (&MSG(&I) EQ 337).TAGM14 41580020 AGO .TAGT15 41650020 .TAGM14 ANOP 41720020 AIF (&LINE+27 LE 45).TAGEJ14 A45155 41790021 EJECT 41860020 &LINE SETA 0 41930020 .TAGEJ14 ANOP 42000020 &LINE SETA &LINE+27 A45155 42070021 * MESSAGE IKJ52337I HAS TWO VERSIONS. A45155 42120021 * A45155 42170021 * VERSION A -- A45155 42180021 * IKJ52337I INVALID LINE NUMBER (NUMBER) ENCOUNTERED IN FIRST A45155 42190021 * LINE OF DATA SET A45155 42200021 * A45155 42202021 * VERSION B -- A45155 42204021 * IKJ52337I INVALID LINE NUMBER (NUMBER) ENCOUNTERED, LINE A45155 42206021 * NUMBER PRECEDING IS (NUMBER)+ A45155 42208021 * A45155 42208421 * IKJ52337I HAS TWO SECOND LEVEL MESSAGES. 42210020 SPACE 42280020 M337A EQU MSMOD2+7 - RELATIVE MESSAGE 7 - IKJEBEM2 A45155 42330021 M337B EQU MSMOD2+10 - RELATIVE MESSAGE 10 - IKJEBEM2 A45155 42380021 M337IN1 EQU 30 - INVALID LINE NUMBER INSERTION AT A45155 42390021 * OFFSET 30 (A AND B VERSIONS.) A45155 42400021 M337IN2 EQU 69 - PRECEDING LINE NUMBER INSERTION AT A45155 42410021 * OFFSET 69 (B VERSION ONLY) A45155 42412021 SPACE 42420020 * *IKJ52337I USE EDIT WITH NONUM OPERAND 42490021 M3371 EQU 1 - FIRST SECOND LEVEL MESSAGE 42560020 SPACE 42630020 * *IKJ52337I (TYPE) DATA SET MUST CONTAIN VALID LINE NUMBERS 42700021 M3372 EQU 2 - SECOND SECOND LEVEL MESSAGE 42770020 M3372IN1 EQU 10 - TYPE INSERTION AT OFFSET 10 42840020 SPACE 2 42910020 .TAGX14 ANOP 42980020 &I SETA &I+1 43050020 AIF (&I GT &CT).EXIT 43120020 AIF (&MSG(&I) LE 337).TAGX14 43190020 .TAGT15 AIF (&MSG(&I) EQ 338).TAGM15 43260020 AGO .TAGT16 43330020 .TAGM15 ANOP 43400020 AIF (&LINE+7 LE 45).TAGEJ15 43470020 EJECT 43540020 &LINE SETA 0 43610020 .TAGEJ15 ANOP 43680020 &LINE SETA &LINE+7 43750020 * IKJ52338I DATA SET (DSNAME) NOT LINE NUMBERED - USING NONUM 43820021 * IKJ52338I HAS NO SECOND LEVEL MESSAGES. 43890021 SPACE 43960020 M338 EQU MSMOD2+8 - RELATIVE MESSAGE 8 - IKJEBEM2 44030020 M338IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 44100020 SPACE 2 44170020 .TAGX15 ANOP 44240020 &I SETA &I+1 44310020 AIF (&I GT &CT).EXIT 44380020 AIF (&MSG(&I) LE 338).TAGX15 44450020 .TAGT16 AIF (&MSG(&I) EQ 339).TAGM339 44520020 AGO .TAGT339 44590020 .TAGM339 ANOP 44660020 AIF (&LINE+7 LE 45).TAGE339 44730020 EJECT 44800020 &LINE SETA 0 44870020 .TAGE339 ANOP 44940020 &LINE SETA &LINE+7 45010020 * IKJ52339I (DSNAME) ALREADY EXISTS 45080020 * IKJ52339I HAS NO SECOND LEVEL MESSAGES. 45150020 SPACE 45220020 M339 EQU MSMOD3+10 - RELATIVE MESSAGE 10 - IKJEBEM3 45290020 M339IN1 EQU 10 - DSNAME INSERTION AT OFFSET 10 45360020 SPACE 2 45430020 .TAGX339 ANOP 45500020 &I SETA &I+1 45570020 AIF (&I GT &CT).EXIT 45640020 AIF (&MSG(&I) LE 339).TAGX339 45710020 .TAGT339 AIF (&MSG(&I) EQ 342).TAGM342 45780020 AGO .TAGT343 45850020 .TAGM342 ANOP 45920020 AIF (&LINE+9 LE 45).TAGE342 45990020 EJECT 46060020 &LINE SETA 0 46130020 .TAGE342 ANOP 46200020 &LINE SETA &LINE+9 46270020 * IKJ52342I INVALID LINE SIZE FOR NUM+ 46340020 * IKJ52342I HAS ONE SECOND-LEVEL MESSAGE. 46410021 SPACE 46480020 M342 EQU MSMOD7+3 - RELATIVE MESSAGE 3 - IKJEBEM7 46550020 SPACE 46620020 * *IKJ52342I LINE TOO SHORT FOR LINE NUMBERS 46690021 M3421 EQU 1 - FIRST SECOND-LEVEL MESSAGE 46760020 SPACE 2 46830020 .TAGX342 ANOP 46900020 &I SETA &I+1 46970020 AIF (&I GT &CT).EXIT 47040020 AIF (&MSG(&I) LE 342).TAGX342 47110020 .TAGT343 AIF (&MSG(&I) EQ 343).TAGM343 47160020 AGO .TAGT344 A50471 47170021 .TAGM343 ANOP 47172020 AIF (&LINE+12 LE 45).TAGE343 47174020 EJECT 47176020 &LINE SETA 0 47178020 .TAGE343 ANOP 47178420 &LINE SETA &LINE+12 47178820 * IKJ52343I RECORD FORMAT F NOT ACCEPTABLE FOR GOFORT(FREE)+ 47179220 * IKJ52343I HAS TWO SECOND-LEVEL MESSAGES. 47179620 SPACE 47179720 M343 EQU MSMOD7+8 - RELATIVE MESSAGE 8 - IKJEBEM7 47179820 SPACE 47179920 * *IKJ52343I RECORD FORMAT V IS REQUIRED 47203220 M3431 EQU 1 - FIRST SECOND-LEVEL MESSAGE 47213220 SPACE 47223220 * *IKJ52343I USE EDIT WITHOUT SPECIFYING LINE OPERAND 47225220 M3432 EQU 2 - SECOND SECOND-LEVEL MESSAGE 47225620 SPACE 2 47226020 .TAGX343 ANOP 47226120 &I SETA &I+1 47226420 AIF (&I GT &CT).EXIT 47226520 AIF (&MSG(&I) LE 343).TAGX343 47226620 .TAGT344 AIF (&MSG(&I) NE 344).TAGT360 A50471 47234421 AIF (&LINE+11 LE 45).TAGE344 A50471 47236421 &LINE SETA 0 A50471 47236821 EJECT A50471 47237221 .TAGE344 ANOP A50471 47237621 &LINE SETA &LINE+11 A50471 47238021 * IKJ52344I (NUMBER) LINE(S) TRUNCATED, INDIVIDUAL LINE A50471 47238421 * LENGTH(S) EXCEEDED DATA SET MAXIMUM LINE LENGTH A50471 47245821 * IKJ52344I HAS NO SECOND-LEVEL MESSAGES. A50471 47252021 SPACE 47252421 M344 EQU MSMOD2+12 - RELATIVE MESSAGE 12 - IKJEBEM2 A50471 47252821 M344IN1 EQU 10 - 'NUMBER OF LINES' INSERTION AT A50471 47253221 * OFFSET 10 A50471 47253321 M344IN2 EQU 15 - SECOND INSERTION AT OFFSET 15 A50471 47255321 M344IN3 EQU 49 - THIRD INSERTION AT OFFSET 49 A50471 47257321 SPACE 2 A50471 47259321 .TAGX344 ANOP A50471 47259721 &I SETA &I+1 A50471 47260121 AIF (&I GT &CT).EXIT A50471 47260521 AIF (&MSG(&I) LE 344).TAGX344 A50471 47260621 .TAGT360 AIF (&MSG(&I) EQ 360).TAGM16 A50471 47305221 AGO .TAGT17 A50471 47312621 .TAGM16 ANOP 47320020 AIF (&LINE+18 LE 45).TAGEJ16 47390020 EJECT 47460020 &LINE SETA 0 47530020 .TAGEJ16 ANOP 47600020 &LINE SETA &LINE+18 47670020 * IKJ52360I INVALID LINE NUMBER FIELD SPECIFIED 47740021 * (START COLUMN, END COLUMN)+ 47810021 * IKJ52360I HAS THREE SECOND LEVEL MESSAGES. 47880021 SPACE 47950020 M360 EQU MSMOD3+0 - RELATIVE MESSAGE 0 - IKJEBEM3 48020020 M360IN1 EQU 53 - START COLUMN INSERTION AT OFFSET 53 48090020 M360IN2 EQU 54 - END COLUMN INSERTION AT OFFSET 54 48160020 SPACE 48230020 * *IKJ52360I STARTING COLUMN MUST BE WITHIN THE RANGE 73-80 48300021 M3601 EQU 1 - FIRST SECOND LEVEL MESSAGE 48370020 SPACE 48440020 * *IKJ52360I LINE NUMBER FIELD FALLS OUTSIDE RECORD SIZE 48510021 M3602 EQU 2 - SECOND SECOND LEVEL MESSAGE 48650020 SPACE 48720020 * *IKJ52360I LINE NUMBER FIELD OPERANDS ARE VALID FOR 48790021 * ASM DATA SETS ONLY 48860021 M3603 EQU 3 - THIRD SECOND LEVEL MESSAGE 48930020 SPACE 2 49000020 .TAGX16 ANOP 49070020 &I SETA &I+1 49140020 AIF (&I GT &CT).EXIT 49210020 AIF (&MSG(&I) LE 360).TAGX16 49280020 .TAGT17 AIF (&MSG(&I) EQ 361).TAGM17 49350020 AGO .TAGT18 49420020 .TAGM17 ANOP 49490020 AIF (&LINE+7 LE 45).TAGEJ17 49560020 EJECT 49630020 &LINE SETA 0 49700020 .TAGEJ17 ANOP 49770020 &LINE SETA &LINE+7 49840020 * IKJ52361I ASIS INVALID FOR (TYPE) DATA SET, USING CAPS 49910020 * IKJ52361I HAS NO SECOND LEVEL MESSAGES. 49980021 SPACE 50050020 M361 EQU MSMOD3+1 - RELATIVE MESSAGE 1 - IKJEBEM3 50120020 M361IN1 EQU 27 - DATA SET TYPE INSERTION AT OFFSET 27 50190020 SPACE 2 50260020 .TAGX17 ANOP 50330020 &I SETA &I+1 50400020 AIF (&I GT &CT).EXIT 50470020 AIF (&MSG(&I) LE 361).TAGX17 50540020 .TAGT18 AIF (&MSG(&I) EQ 362).TAGM18 50610020 AGO .TAGT19 50680020 .TAGM18 ANOP 50750020 AIF (&LINE+7 LE 45).TAGEJ18 50820020 EJECT 50890020 &LINE SETA 0 50960020 .TAGEJ18 ANOP 51030020 &LINE SETA &LINE+7 51100020 * IKJ52362I NONUM INVALID WITH (TYPE) DATA SET, USING NUM OPTION 51170021 * IKJ52362I HAS NO SECOND LEVEL MESSAGES. 51240021 SPACE 51310020 M362 EQU MSMOD3+2 - RELATIVE MESSAGE 2 - IKJEBEM3 51380020 M362IN1 EQU 28 - DATA SET TYPE INSERTION AT OFFSET 28 51450020 SPACE 2 51520020 .TAGX18 ANOP 51590020 &I SETA &I+1 51660020 AIF (&I GT &CT).EXIT 51730020 AIF (&MSG(&I) LE 362).TAGX18 51800020 .TAGT19 AIF (&MSG(&I) EQ 363).TAGM19 51870020 AGO .TAGT20 51940020 .TAGM19 ANOP 52010020 AIF (&LINE+8 LE 45).TAGEJ19 52080020 EJECT 52150020 &LINE SETA 0 52220020 .TAGEJ19 ANOP 52290020 &LINE SETA &LINE+8 52360020 * IKJ52363I (FUNCTION) INVALID FOR (LANGUAGE OR TYPE) 52430021 * IKJ52363I HAS NO SECOND-LEVEL MESSAGES. 52500021 SPACE 52570020 M363 EQU MSMOD7+4 - RELATIVE MESSAGE 4 - IKJEBEM7 52640020 M363IN1 EQU 10 - FUNCTION INSERTION AT OFFSET 10 52710020 M363IN2 EQU 23 - LANGUAGE INSERTION AT OFFSET 23 52780020 SPACE 2 52850020 .TAGX19 ANOP 52920020 &I SETA &I+1 52990020 AIF (&I GT &CT).EXIT 53060020 AIF (&MSG(&I) LE 363).TAGX19 53130020 .TAGT20 AIF (&MSG(&I) EQ 364).TAGM20 53200020 AGO .TAGT21 53270020 .TAGM20 ANOP 53340020 AIF (&LINE+14 LE 45).TAGEJ20 53410020 EJECT 53480020 &LINE SETA 0 53550020 .TAGEJ20 ANOP 53620020 &LINE SETA &LINE+14 53690020 * IKJ52364I (FUNCTION) NOT AVAILABLE FOR (LANGUAGE OR TYPE)+ 53760021 * IKJ52364I HAS TWO SECOND-LEVEL MESSAGES. 53830021 SPACE 53900020 M364 EQU MSMOD7+5 - RELATIVE MESSAGE 5 - IKJEBEM7 53970020 M364IN1 EQU 10 - FUNCTION INSERTION AT OFFSET 10 54040020 M364IN2 EQU 29 - LANGUAGE INSERTION AT OFFSET 29 54110020 SPACE 54180020 * *IKJ52364I REQUIRED PROGRAM NOT AVAILABLE 54210021 M3641 EQU 1 - FIRST SECOND-LEVEL MESSAGE 54250020 SPACE 54320020 * *IKJ52364I PROGRAM NO LONGER USEABLE 54390021 M3642 EQU 2 - SECOND SECOND-LEVEL MESSAGE 54460020 SPACE 2 54530020 .TAGX20 ANOP 54600020 &I SETA &I+1 54670020 AIF (&I GT &CT).EXIT 54740020 AIF (&MSG(&I) LE 364).TAGX20 54810020 .TAGT21 AIF (&MSG(&I) EQ 365).TAGM21 54880020 AGO .TAGT22 54950020 .TAGM21 ANOP 55020020 AIF (&LINE+11 LE 45).TAGEJ21 55090020 EJECT 55160020 &LINE SETA 0 55230020 .TAGEJ21 ANOP 55300020 &LINE SETA &LINE+11 55370020 * IKJ52365I INVALID SOURCE MARGIN ((STARTCOL),(ENDCOL))+ 55440021 * IKJ52365I HAS ONE SECOND LEVEL MESSAGE. 55510021 SPACE 55580020 M365 EQU MSMOD3+5 - RELATIVE MESSAGE 5 - IKJEBEM3 55650020 M365IN1 EQU 33 - START COLUMN INSERTION AT OFFSET 33 55720020 M365IN2 EQU 34 - END COLUMN INSERTION AT OFFSET 34 55790020 SPACE 55860020 * *IKJ52365I SPECIFIED SOURCE MARGIN FALLS OUTSIDE LINE LIMITS 55930021 M3651 EQU 1 - FIRST SECOND LEVEL MESSAGE 56000020 SPACE 2 56070020 .TAGX21 ANOP 56140020 &I SETA &I+1 56210020 AIF (&I GT &CT).EXIT 56280020 AIF (&MSG(&I) LE 365).TAGX21 56350020 .TAGT22 AIF (&MSG(&I) EQ 366).TAGM22 56420020 AGO .TAGT367 56490020 .TAGM22 ANOP 56560020 AIF (&LINE+7 LE 45).TAGEJ22 56630020 EJECT 56700020 &LINE SETA 0 56770020 .TAGEJ22 ANOP 56840020 &LINE SETA &LINE+7 56910020 * IKJ52366I INVALID SUBCOMMAND (SUBCOMMAND NAME) 56980021 * IKJ52366I HAS NO SECOND LEVEL MESSAGES. 57050021 SPACE 57120020 M366 EQU MSMOD5+1 - RELATIVE MESSAGE 1 - IKJEBEM5 57190020 M366IN1 EQU 29 - SUBCOMMAND INSERTION AT OFFSET 29 57260020 SPACE 2 57330020 .TAGX22 ANOP 57400020 &I SETA &I+1 57470020 AIF (&I GT &CT).EXIT 57540020 AIF (&MSG(&I) LE 366).TAGX22 57610020 .TAGT367 AIF (&MSG(&I) EQ 367).TAGM367 57680020 AGO .TAGT368 A50466 57750021 .TAGM367 ANOP 57820020 AIF (&LINE+11 LE 45).TAGE367 57890020 EJECT 57960020 &LINE SETA 0 58030020 .TAGE367 ANOP 58100020 &LINE SETA &LINE+11 58170020 * IKJ52367I WARNING, SCAN MAY BE INCOMPLETE+ 58240021 * IKJ52367I HAS ONE SECOND-LEVEL MESSAGE. 58310021 SPACE 58380020 M367 EQU MSMOD7+0 - RELATIVE MESSAGE 0 - IKJEBEM7 58450020 SPACE 58520020 * *IKJ52367I (DSTYPE) SYNTAX CHECKER FAILED BUT SUCCESSFULLY 58590020 * RECOVERED 58660021 M3671 EQU 1 - FIRST SECOND-LEVEL MESSAGE 58730020 M3671IN1 EQU 10 - TYPE INSERTION AT OFFSET 10 58800020 SPACE 2 58870020 .TAGX367 ANOP 58940020 &I SETA &I+1 59010020 AIF (&I GT &CT).EXIT 59080020 AIF (&MSG(&I) LE 367).TAGX367 59150020 .TAGT368 AIF (&MSG(&I) EQ 368).TAGM368 A50466 59152021 AGO .TAGT23 A50466 59155621 .TAGM368 ANOP A50466 59155821 AIF (&LINE+7 LE 45).TAGE368 A50466 59156021 &LINE SETA 0 A50466 59156221 EJECT A50466 59156421 .TAGE368 ANOP A50466 59156621 &LINE SETA &LINE+7 A50466 59156821 * IKJ52368I ITF LANGUAGE PROCESSOR FAILED BUT WAS SUCCESSFULLY A50466 59157021 * RECOVERED A50466 59157221 * IKJ52368I HAS NO SECOND-LEVEL MESSAGES. A50466 59157421 SPACE 59157602 M368 EQU MSMOD7+9 - RELATIVE MESSAGE 9 - IKJEBEM7 A50466 59157821 SPACE 2 A50466 59158221 .TAGX368 ANOP A50466 59158621 &I SETA &I+1 A50466 59159021 AIF (&I GT &CT).EXIT A50466 59159121 AIF (&MSG(&I) LE 368).TAGX368 A50466 59159221 .TAGT23 AIF (&MSG(&I) EQ 400).TAGM25 59220020 AGO .TAGT26 59290020 .TAGM25 ANOP 59360020 AIF (&LINE+7 LE 45).TAGEJ25 59430020 EJECT 59500020 &LINE SETA 0 59570020 .TAGEJ25 ANOP 59640020 &LINE SETA &LINE+7 59710020 * IKJ52400I INPUT TERMINATED - NEXT LINE NUMBER IS (LINENUM) 59780021 * IKJ52400I HAS NO SECOND LEVEL MESSAGES. 59850021 SPACE 59920020 M400 EQU MSMOD3+6 - RELATIVE MESSAGE 6 - IKJEBEM3 59990020 M400IN1 EQU 49 - LINE NUMBER INSERTION AT OFFSET 49 60060020 SPACE 2 60130020 .TAGX25 ANOP 60200020 &I SETA &I+1 60270020 AIF (&I GT &CT).EXIT 60340020 AIF (&MSG(&I) LE 400).TAGX25 60410020 .TAGT26 AIF (&MSG(&I) EQ 402).TAGM27 61670021 AGO .TAGT28 61740020 .TAGM27 ANOP 61810020 AIF (&LINE+7 LE 45).TAGEJ27 61880020 EJECT 61950020 &LINE SETA 0 62020020 .TAGEJ27 ANOP 62090020 &LINE SETA &LINE+7 62160020 * IKJ52402I LINE NUMBER LIMIT (LIMIT) EXCEEDED 62230021 * IKJ52402I HAS NO SECOND LEVEL MESSAGES. 62300021 SPACE 62370020 M402 EQU MSMOD3+8 - RELATIVE MESSAGE 8 - IKJEBEM3 62440020 M402IN1 EQU 28 - LINE LIMIT INSERTION AT OFFSET 28 62510020 SPACE 2 62580020 .TAGX27 ANOP 62650020 &I SETA &I+1 62720020 AIF (&I GT &CT).EXIT 62790020 AIF (&MSG(&I) LE 402).TAGX27 62860020 .TAGT28 AIF (&MSG(&I) EQ 422).TAGM28 62930020 AGO .TAGT31A 63000020 .TAGM28 ANOP 63070020 AIF (&LINE+15 LE 45).TAGEJ30 63140020 EJECT 63210020 &LINE SETA 0 63280020 .TAGEJ30 ANOP 63350020 &LINE SETA &LINE+15 63420020 * IKJ52422I (COMMAND) ENDED DUE TO ERROR + 63490021 * IKJ52422I HAS TWO SECOND LEVEL MESSAGES. 63560020 SPACE 63630020 M422 EQU MSMOD5+5 - RELATIVE MESSAGE 5 - IKJEBEM5 63700020 M422IN1 EQU 10 - COMMAND INSERTION AT OFFSET 10 63770020 SPACE 63840020 * *IKJ52422I SYSTEM COMPLETION CODE IS (CODE) 63910021 M4221 EQU 1 - FIRST SECOND LEVEL MESSAGE 63980020 M4221IN1 EQU 36 - COMPLETION CODE INSERTION AT OFFSET 36 64050020 SPACE 64120020 * *IKJ52422I USER COMPLETION CODE IS (CODE) 64190021 M4222 EQU 2 - SECOND SECOND-LEVEL MESSAGE 64260020 M4222IN1 EQU 34 - COMPLETION CODE INSERTION AT OFFSET 34 64330020 SPACE 2 64400020 .TAGX30 ANOP 64470020 &I SETA &I+1 64540020 AIF (&I GT &CT).EXIT 64610020 AIF (&MSG(&I) LE 422).TAGX30 64680020 .TAGT31A AIF (&MSG(&I) EQ 423).TAGM31A 64750020 AGO .TAGT31B 64820020 .TAGM31A ANOP 64890020 AIF (&LINE+6 LE 45).TAGE31A 64960020 EJECT 65030020 &LINE SETA 0 65100020 .TAGE31A ANOP 65170020 &LINE SETA &LINE+6 65240020 * IKJ52423I (TYPE) DATA SET CANNOT BE RUN 65310021 * IKJ52423I HAS NO SECOND LEVEL MESSAGES. 65380020 SPACE 65450020 M423 EQU MSMOD3+9 - RELATIVE MESSAGE 9 - IKJEBEM3 65520020 M423IN1 EQU 10 - TYPE INSERTION AT OFFSET 10 65590020 SPACE 2 65660020 .TAGX31A ANOP 65730020 &I SETA &I+1 65800020 AIF (&I GT &CT).EXIT 65870020 AIF (&MSG(&I) LT 424).TAGX31A 65940020 .TAGT31B AIF (&MSG(&I) EQ 424).TAGM31B 66010020 AGO .TAGT31C 66080020 .TAGM31B ANOP 66150020 AIF (&LINE+37 LE 45).TAGE31B 66220020 EJECT 66290020 &LINE SETA 0 66360020 .TAGE31B ANOP 66430020 &LINE SETA &LINE+37 66500020 * IKJ52424I SYSTEM ERROR+ 66570021 * IKJ52424I HAS FIVE SECOND-LEVEL MESSAGES. 66640021 SPACE 66710020 M424 EQU MSMOD6+6 - RELATIVE MESSAGE 6 - IKJEBEM6 66780020 SPACE 66850020 * *IKJ52424I UTILITY DATA SET NOT UNALLOCATED, DYNAMIC ALLOCATION 66920021 * ERROR CODE (CODE) 66990021 M4241 EQU 1 - FIRST SECOND-LEVEL MESSAGE 67060020 M4241IN1 EQU 74 - DYNAMIC ALLOCATION RETURN CODE 67130020 * INSERTION AT OFFSET 74 67200020 SPACE 67270020 * *IKJ52424I DATA SET (DSNAME) NOT UNALLOCATED, DYNAMIC ALLOCATION 67340021 * ERROR CODE (CODE) 67410021 M4242 EQU 2 - SECOND SECOND-LEVEL MESSAGE 67480020 M4242IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 67550020 M4242IN2 EQU 67 - DYNAMIC ALLOCATION RETURN CODE 67620020 * INSERTION AT OFFSET 67 67690020 SPACE 67760020 * *IKJ52424I UTILITY DATA SET NOT UNALLOCATED, CATALOG ERROR CODE 67830021 * (CODE) 67900021 M4243 EQU 3 - THIRD SECOND-LEVEL MESSAGE 67970020 M4243IN1 EQU 63 - CATALOG RETURN CODE INSERTION 68040020 * AT OFFSET 63 68110020 SPACE 68180020 * *IKJ52424I DATA SET (DSNAME) NOT UNALLOCATED, CATALOG ERROR CODE 68250021 * (CODE) 68320021 M4244 EQU 4 - FOURTH SECOND-LEVEL MESSAGE 68390020 M4244IN1 EQU 19 - DSNAME INSERTION AT OFFSET 19 68460020 M4244IN2 EQU 56 - CATALOG RETURN CODE INSERTION 68530020 * AT OFFSET 56 68600020 SPACE 68670020 * *IKJ52424I FILE (DDNAME) NOT FOUND 68740021 SPACE 68810020 M4245 EQU 5 - FIFTH SECOND-LEVEL MESSAGE 68880020 M4245IN1 EQU 15 - DDNAME INSERTION AT OFFSET 15 68950020 SPACE 2 69020020 .TAGX31B ANOP 69090020 &I SETA &I+1 69160020 AIF (&I GT &CT).EXIT 69230020 AIF (&MSG(&I) LE 424).TAGX31B 69300020 .TAGT31C AIF (&MSG(&I) EQ 425).TAGM31C 69370020 AGO .TAGT31D 69440020 .TAGM31C ANOP 69510020 AIF (&LINE+7 LE 45).TAGE31C 69580020 EJECT 69650020 &LINE SETA 0 69720020 .TAGE31C ANOP 69790020 &LINE SETA &LINE+7 69860020 * IKJ52425I COMMAND NOT FOUND - (COMMAND NAME) 69930020 * IKJ52425I HAS NO SECOND LEVEL MESSAGES. 70000020 SPACE 70070020 M425 EQU MSMOD3+11 - RELATIVE MESSAGE 11 - IKJEBEM3 70140020 M425IN1 EQU 30 - COMMAND INSERTION AT OFFSET 30 70210020 SPACE 2 70280020 .TAGX31C ANOP 70350020 &I SETA &I+1 70420020 AIF (&I GT &CT).EXIT 70490020 AIF (&MSG(&I) LE 425).TAGX31C 70560020 .TAGT31D AIF (&MSG(&I) EQ 426).TAGM31Z Y02676 70630002 AGO .TAGT31E @OZ01558 70680003 .TAGM31Z ANOP Y02676 70690002 AIF (&LINE+6 LE 45).TAGE31Z Y02676 70692002 EJECT 70694002 &LINE SETA 0 Y02676 70696002 .TAGE31Z ANOP Y02676 70698002 &LINE SETA &LINE+6 Y02676 70698402 * IKJ52426I EDIT SESSION CANCELLED Y02676 70698802 * IKJ52426I HAS NO SECOND LEVEL MESSAGES Y02676 70699202 SPACE 70699602 M426 EQU MSMOD6+7 - RELATIVE MESSAGE 7 - IKJEBEM6 Y02676 70699702 SPACE 2 70699802 .TAGX31Z ANOP 70709802 &I SETA &I+1 Y02676 70723202 AIF (&I GT &CT).EXIT Y02676 70733202 AIF (&MSG(&I) LE 426).TAGX31Z Y02676 70743202 .TAGT31E AIF (&MSG(&I) EQ 427).TAGM31E @OZ01558 70743603 AGO .TAGT31F @OZ01558 70744003 .TAGM31E ANOP @OZ01558 70744403 AIF (&LINE+6 LE 45).TAGE31E @OZ01558 70744603 EJECT 70744703 &LINE SETA 0 @OZ01558 70744803 .TAGE31E ANOP @OZ01558 70744903 &LINE SETA &LINE+6 @OZ01558 70745203 * IKJ52427I SAVE CANNOT COMPLETE TO DATASET SPECIFIED @OZ01558 70753203 * IKJ52427I HAS NO SECOND LEVEL MESSAGES @OZ01558 70755203 SPACE 70757203 M427 EQU MSMOD6+11 -RELATIVE MESSAGE 11 - IKJEBEM6 @OZ01558 70758203 SPACE 2 70759203 .TAGX31E ANOP @OZ01558 70774003 &I SETA &I+1 @OZ01558 70784003 AIF (&I GT &CT).EXIT @OZ01558 70785003 AIF (&MSG(&I) LE 427).TAGX31E @OZ01558 70786003 .TAGT31F AIF (&MSG(&I) EQ 428).TAGM31F @OZ01558 70787003 AGO .TAGT31Z @OZ01558 70788003 .TAGM31F ANOP @OZ01558 70792003 AIF (&LINE+6 LE 45).TAGE31F @OZ01558 70796003 EJECT 70798003 &LINE SETA 0 @OZ01558 70800003 .TAGE31F ANOP @OZ01558 70800303 &LINE SETA &LINE+6 @OZ01558 70800603 * IKJ52428I ENTER SAVE SPECIFYING A NEW DATASET NAME @OZ01558 70800903 * IKJ52428I HAS NO SECOND LEVEL MESSAGES @OZ01558 70801203 SPACE 70801503 M428 EQU MSMOD6+12 -RELATIVE MESSAGE 12 - IKJEBEM6 @OZ01558 70802003 SPACE 2 70808003 .TAGX31F ANOP @OZ01558 70810003 &I SETA &I+1 @OZ01558 70810603 AIF (&I GT &CT).EXIT @OZ01558 70811203 AIF (&MSG(&I) LE 428).TAGX31F @OZ01558 70812003 .TAGT31Z AIF (&MSG(&I) EQ 500).TAGM31 Y02676 70813003 AGO .TAGT32 Y02676 70814003 .TAGM31 ANOP 70824003 AIF (&LINE+8 LE 45).TAGEJ31 A45119 70840021 EJECT 70910020 &LINE SETA 0 70980020 .TAGEJ31 ANOP 71050020 &LINE SETA &LINE+8 A45119 71120021 * IKJ52500I (DOWN TERMINATED AT) END OF DATA (, LAST LINE IS -) A45119 71190021 * IKJ52500I HAS NO SECOND LEVEL MESSAGES. 71260021 SPACE 71330020 M500 EQU MSMOD5+6 - RELATIVE MESSAGE 6 - IKJEBEM5 71400020 M500IN1 EQU 10 - 'TERMINATION' INSERTION AT A45119 71410021 * OFFSET 10 A45119 71420021 M500IN2 EQU 21 - 'LAST LINE' INSERTION AT A45119 71430021 * OFFSET 21 A45119 71440021 SPACE 2 71470020 .TAGX31 ANOP 71540020 &I SETA &I+1 71610020 AIF (&I GT &CT).EXIT 71680020 AIF (&MSG(&I) LE 500).TAGX31 71750020 .TAGT32 AIF (&MSG(&I) EQ 501).TAGM32 71820020 AGO .TAGT33 71890020 .TAGM32 ANOP 71960020 AIF (&LINE+6 LE 45).TAGEJ32 72030020 EJECT 72100020 &LINE SETA 0 72170020 .TAGEJ32 ANOP 72240020 &LINE SETA &LINE+6 72310020 * IKJ52501I NO LINES IN DATA SET 72380021 * IKJ52501I HAS NO SECOND LEVEL MESSAGES. 72450021 SPACE 72520020 M501 EQU MSMOD5+7 - RELATIVE MESSAGE 7 - IKJEBEM5 72590020 SPACE 2 72660020 .TAGX32 ANOP 72730020 &I SETA &I+1 72800020 AIF (&I GT &CT).EXIT 72870020 AIF (&MSG(&I) LE 501).TAGX32 72940020 .TAGT33 AIF (&MSG(&I) EQ 502).TAGM33 73010020 AGO .TAGT34 73080020 .TAGM33 ANOP 73150020 AIF (&LINE+6 LE 45).TAGEJ33 73220020 EJECT 73290020 &LINE SETA 0 73360020 .TAGEJ33 ANOP 73430020 &LINE SETA &LINE+6 73500020 * IKJ52502I DATA SET NOT LINE NUMBERED 73570021 * IKJ52502I HAS NO SECOND LEVEL MESSAGES. 73640021 SPACE 73710020 M502 EQU MSMOD5+8 - RELATIVE MESSAGE 8 - IKJEBEM5 73780020 SPACE 2 73850020 .TAGX33 ANOP 73920020 &I SETA &I+1 73990020 AIF (&I GT &CT).EXIT 74060020 AIF (&MSG(&I) LE 502).TAGX33 74130020 .TAGT34 AIF (&MSG(&I) EQ 503).TAGM34 74200020 AGO .TAGT35 74270020 .TAGM34 ANOP 74340020 AIF (&LINE+10 LE 45).TAGEJ34 Y02676 74370002 EJECT 74480020 &LINE SETA 0 74550020 .TAGEJ34 ANOP 74620020 &LINE SETA &LINE+10 Y02676 74650002 * IKJ52503I INVALID LINE NUMBER RANGE (OLD LINE) - (END LINE) Y02676 74690002 * IKJ52503I HAS NO SECOND LEVEL MESSAGES. 74830021 SPACE 74900020 M503 EQU MSMOD5+9 - RELATIVE MESSAGE 9 - IKJEBEM5 74970020 M503IN1 EQU 36 - OLD LINE NUMBER INSERTION AT Y02676 74980002 * OFFSET 36 Y02676 74990002 M503IN2 EQU 37 - END LINE NUMBER INSERTION AT Y02676 75000002 * OFFSET 37 Y02676 75010002 SPACE 2 75020002 .TAGX34 ANOP 75110020 &I SETA &I+1 75180020 AIF (&I GT &CT).EXIT 75250020 AIF (&MSG(&I) LE 503).TAGX34 75320020 .TAGT35 AIF (&MSG(&I) EQ 504).TAGM35 75390020 AGO .TAGT36 75460020 .TAGM35 ANOP 75530020 AIF (&LINE+6 LE 45).TAGEJ35 75600020 EJECT 75670020 &LINE SETA 0 75740020 .TAGEJ35 ANOP 75810020 &LINE SETA &LINE+6 75880020 * IKJ52504I LINE NUMBER (NUMBER) NOT FOUND 75950021 * IKJ52504I HAS NO SECOND LEVEL MESSAGES. 76020021 SPACE 76090020 M504 EQU MSMOD5+10 - RELATIVE MESSAGE 10 - IKJEBEM5 76160020 M504IN1 EQU 22 - LINE NUMBER INSERTION AT OFFSET 22 76230020 SPACE 2 76300020 .TAGX35 ANOP 76370020 &I SETA &I+1 76440020 AIF (&I GT &CT).EXIT 76510020 AIF (&MSG(&I) LE 504).TAGX35 76580020 .TAGT36 AIF (&MSG(&I) EQ 505).TAGM36 76650020 AGO .TAGT37 76720020 .TAGM36 ANOP 76790020 AIF (&LINE+6 LE 45).TAGEJ36 76860020 EJECT 76930020 &LINE SETA 0 77000020 .TAGEJ36 ANOP 77070020 &LINE SETA &LINE+6 77140020 * IKJ52505I TOP OF DATA SET 77210021 * IKJ52505I HAS NO SECOND LEVEL MESSAGES. 77280021 SPACE 77350020 M505 EQU MSMOD5+11 - RELATIVE MESSAGE 11 - IKJEBEM5 77420020 SPACE 2 77490020 .TAGX36 ANOP 77560020 &I SETA &I+1 77630020 AIF (&I GT &CT).EXIT 77700020 AIF (&MSG(&I) LE 455).TAGX36 77770020 .TAGT37 AIF (&MSG(&I) EQ 506).TAGM37 77840020 AGO .TAGT38 77910020 .TAGM37 ANOP 77980020 AIF (&LINE+6 LE 45).TAGEJ37 78050020 EJECT 78120020 &LINE SETA 0 78190020 .TAGEJ37 ANOP 78260020 &LINE SETA &LINE+6 78330020 * IKJ52506I TEXT NOT FOUND 78400021 * IKJ52506I HAS NO SECOND LEVEL MESSAGES. 78470021 SPACE 78540020 M506 EQU MSMOD5+12 - RELATIVE MESSAGE 12 - IKJEBEM5 78610020 SPACE 2 78680020 .TAGX37 ANOP 78750020 &I SETA &I+1 78820020 AIF (&I GT &CT).EXIT 78890020 AIF (&MSG(&I) LE 506).TAGX37 78960020 .TAGT38 AIF (&MSG(&I) EQ 507).TAGM38 79030020 AGO .TAGT39 79100020 .TAGM38 ANOP 79170020 AIF (&LINE+11 LE 45).TAGEJ38 79240020 EJECT 79310020 &LINE SETA 0 79380020 .TAGEJ38 ANOP 79450020 &LINE SETA &LINE+11 79520020 * IKJ52507I LINE (LINE NUMBER) TRUNCATED+ 79590021 * IKJ52507I HAS ONE SECOND LEVEL MESSAGE. 79660021 SPACE 79730020 M507 EQU MSMOD5+13 - RELATIVE MESSAGE 13 - IKJEBEM5 79800020 M507IN1 EQU 15 - LINE NUMBER INSERTION AT OFFSET 15 79870020 SPACE 79940020 * *IKJ52507I LINE LENGTH IS (LENGTH) 80010021 M5071 EQU 1 - FIRST SECOND LEVEL MESSAGE 80080020 M5071IN1 EQU 25 - LENGTH INSERTION AT OFFSET 25 80150020 SPACE 2 80220020 .TAGX38 ANOP 80360020 &I SETA &I+1 80430020 AIF (&I GT &CT).EXIT 80500020 AIF (&MSG(&I) LE 507).TAGX38 80570020 .TAGT39 AIF (&MSG(&I) EQ 550).TAGM39 80640020 AGO .TAGT40 80710020 .TAGM39 ANOP 80780020 AIF (&LINE+6 LE 45).TAGEJ39 80850020 EJECT 80920020 &LINE SETA 0 80990020 .TAGEJ39 ANOP 81060020 &LINE SETA &LINE+6 81130020 * IKJ52550I NO OPERAND, SUBCOMMAND IGNORED 81200021 * IKJ52550I HAS NO SECOND LEVEL MESSAGES. 81270021 SPACE 81340020 M550 EQU MSMOD4+0 - RELATIVE MESSAGE 0 - IKJEBEM4 81410020 SPACE 2 81480020 .TAGX39 ANOP 81550020 &I SETA &I+1 81620020 AIF (&I GT &CT).EXIT 81690020 AIF (&MSG(&I) LE 550).TAGX39 81760020 .TAGT40 AIF (&MSG(&I) EQ 551).TAGM40 81830020 AGO .TAGT41 81900020 .TAGM40 ANOP 81970020 AIF (&LINE+7 LE 45).TAGEJ40 82040020 EJECT 82110020 &LINE SETA 0 82180020 .TAGEJ40 ANOP 82250020 &LINE SETA &LINE+7 82320020 * IKJ52551I (BS,ATTN) NOT AVAILABLE ON THIS TERMINAL 82390020 * IKJ52551I HAS NO SECOND LEVEL MESSAGES. 82460021 SPACE 82530020 M551 EQU MSMOD4+1 - RELATIVE MESSAGE 1 - IKJEBEM4 82600020 M551IN1 EQU 10 - INSERTION AT OFFSET 10 82670020 SPACE 2 82740020 .TAGX40 ANOP 82810020 &I SETA &I+1 82880020 AIF (&I GT &CT).EXIT 82950020 AIF (&MSG(&I) LE 551).TAGX40 83020020 .TAGT41 AIF (&MSG(&I) EQ 552).TAGM41 83090020 AGO .TAGT42 83160020 .TAGM41 ANOP 83230020 AIF (&LINE+27 LE 45).TAGEJ41 83300020 EJECT 83370020 &LINE SETA 0 83440020 .TAGEJ41 ANOP 83510020 &LINE SETA &LINE+27 83580020 * IKJ52552I EDIT DATA SET (DSNAME) AND SAVE DATA SET (DSNAME) 83650021 * ARE NOT COMPATIBLE+ 83720021 * IKJ52552I HAS TWO SECOND LEVEL MESSAGES. 83790021 SPACE 83860020 M552 EQU MSMOD4+2 - RELATIVE MESSAGE 2 - IKJEBEM4 83930020 M552IN1 EQU 24 - EDIT DSNAME INSERTION AT OFFSET 24 84000020 M552IN2 EQU 43 - SAVE DSNAME INSERTION AT OFFSET 43 84070020 SPACE 84140020 * *IKJ52552I EDIT DATA SET HAS RECORD FORMAT (RECFM), 84210021 * SAVE DATA SET HAS RECORD FORMAT (RECFM) 84280021 M5521 EQU 1 - FIRST SECOND LEVEL MESSAGE 84350020 M5521IN1 EQU 28 - EDIT RECFM INSERTION AT OFFSET 28 84420020 M5521IN2 EQU 62 - SAVE RECFM INSERTION AT OFFSET 62 84490020 SPACE 84560020 * *IKJ52552I EDIT DATA SET HAS LINE SIZE (LRECL), SAVE DATA SET HAS 84630021 * LINE SIZE (LRECL) 84700021 M5522 EQU 2 - SECOND SECOND-LEVEL MESSAGE 84770020 M5522IN1 EQU 38 - EDIT LRECL INSERTION AT OFFSET 38 84840020 M5522IN2 EQU 68 - SAVE LRECL INSERTION AT OFFSET 68 84910020 SPACE 84980020 * *IKJ52552I EDIT DATA SET HAS BLOCK LENGTH (BLKSIZE), SAVE DATA SET 85050020 * HAS BLOCK LENGTH (BLKSIZE), USE ANOTHER DATA SET 85120020 M5523 EQU 3 - THIRD SECOND-LEVEL MESSAGE 85190020 M5523IN1 EQU 41 - EDIT BLKSIZE INSERTION AT OFFSET 41 85260020 M5523IN2 EQU 74 - SAVE BLKSIZE INSERTION AT OFFSET 74 85330020 SPACE 2 85400020 .TAGX41 ANOP 85470020 &I SETA &I+1 85540020 AIF (&I GT &CT).EXIT 85610020 AIF (&MSG(&I) LE 552).TAGX41 85680020 .TAGT42 AIF (&MSG(&I) EQ 553).TAGM42 85750020 AGO .TAGT43 85820020 .TAGM42 ANOP 85890020 AIF (&LINE+6 LE 45).TAGEJ42 85960020 EJECT 86030020 &LINE SETA 0 86100020 .TAGEJ42 ANOP 86170020 &LINE SETA &LINE+6 86240020 * IKJ52553I SAVED, DATA SET IS EMPTY 86310020 * IKJ52553I HAS NO SECOND LEVEL MESSAGES. 86380021 SPACE 86450020 M553 EQU MSMOD4+3 - RELATIVE MESSAGE 3 - IKJEBEM4 86520020 SPACE 2 86590020 .TAGX42 ANOP 86660020 &I SETA &I+1 86730020 AIF (&I GT &CT).EXIT 86800020 AIF (&MSG(&I) LE 553).TAGX42 86870020 .TAGT43 AIF (&MSG(&I) EQ 554).TAGM43 86940020 AGO .TAGT44 87010020 .TAGM43 ANOP 87080020 AIF (&LINE+6 LE 45).TAGEJ43 87150020 EJECT 87220020 &LINE SETA 0 87290020 .TAGEJ43 ANOP 87360020 &LINE SETA &LINE+6 87430020 * IKJ52554I BLOCK VALUE TOO LARGE FOR OUTPUT DEVICE, NOTHING SAVED 87500021 * IKJ52554I HAS NO SECOND LEVEL MESSAGES. 87570021 SPACE 87640020 M554 EQU MSMOD4+4 - RELATIVE MESSAGE 4 - IKJEBEM4 87710020 SPACE 2 87780020 .TAGX43 ANOP 87850020 &I SETA &I+1 87920020 AIF (&I GT &CT).EXIT 87990020 AIF (&MSG(&I) LE 554).TAGX43 88060020 .TAGT44 AIF (&MSG(&I) EQ 555).TAGM44 88130020 AGO .TAGT45 88200020 .TAGM44 ANOP 88270020 AIF (&LINE+9 LE 45).TAGEJ44 88340020 EJECT 88410020 &LINE SETA 0 88480020 .TAGEJ44 ANOP 88550020 &LINE SETA &LINE+9 88620020 * IKJ52555I NOTHING SAVED 88690021 * IKJ52555I HAS NO SECOND LEVEL MESSAGES. 88760021 SPACE 88830020 M555 EQU MSMOD4+5 - RELATIVE MESSAGE 5 - IKJEBEM4 88900020 SPACE 88970020 * IKJ52563A ENTER SAVE OR END 89040020 * IKJ52563A HAS NO SECOND LEVEL MESSAGES - IT IS A PROMPT MESSAGE 89110020 SPACE 2 89180020 .TAGX44 ANOP 89250020 &I SETA &I+1 89320020 AIF (&I GT &CT).EXIT 89390020 AIF (&MSG(&I) LE 555).TAGX44 89460020 .TAGT45 AIF (&MSG(&I) EQ 556).TAGM45 89530020 AGO .TAGT46 89600020 .TAGM45 ANOP 89670020 AIF (&LINE+9 LE 45).TAGEJ45 89740020 EJECT 89810020 &LINE SETA 0 89880020 .TAGEJ45 ANOP 89950020 &LINE SETA &LINE+8 90020020 * IKJ52556I TABSET OF (TABSET) EXCEEDS MAXIMUM DATA LENGTH 90090020 * OF (LENGTH) 90160020 * IKJ52556I HAS NO SECOND LEVEL MESSAGES. 90230021 SPACE 90300020 M556 EQU MSMOD4+6 - RELATIVE MESSAGE 6 - IKJEBEM4 90370020 M556IN1 EQU 20 - TABSET INSERTION AT OFFSET 20 90440020 M556IN2 EQU 52 - LENGTH INSERTION AT OFFSET 52 90510020 SPACE 2 90580020 .TAGX45 ANOP 90650020 &I SETA &I+1 90720020 AIF (&I GT &CT).EXIT 90790020 AIF (&MSG(&I) LE 556).TAGX45 90860020 .TAGT46 AIF (&MSG(&I) EQ 557).TAGM46 90930020 AGO .TAGT47 91000020 .TAGM46 ANOP 91070020 AIF (&LINE+6 LE 45).TAGEJ46 91140020 EJECT 91210020 &LINE SETA 0 91280020 .TAGEJ46 ANOP 91350020 &LINE SETA &LINE+6 91420020 * IKJ52557I ONLY FIRST 10 VALID TABS USED 91490021 * IKJ52557I HAS NO SECOND LEVEL MESSAGES. 91560021 SPACE 91630020 M557 EQU MSMOD4+7 - RELATIVE MESSAGE 7 - IKJEBEM4 91700020 SPACE 2 91770020 .TAGX46 ANOP 91840020 &I SETA &I+1 91910020 AIF (&I GT &CT).EXIT 91980020 AIF (&MSG(&I) LE 557).TAGX46 92050020 .TAGT47 AIF (&MSG(&I) EQ 558).TAGM47 92120020 AGO .TAGT48 92190020 .TAGM47 ANOP 92260020 AIF (&LINE+6 LE 45).TAGEJ47 92330020 EJECT 92400020 &LINE SETA 0 92470020 .TAGEJ47 ANOP 92540020 &LINE SETA &LINE+6 92610020 * IKJ52558I LINE OVERFLOW, NEW LINE CREATED 92680021 * IKJ52558I HAS NO SECOND LEVEL MESSAGES. 92750021 SPACE 92820020 M558 EQU MSMOD4+8 - RELATIVE MESSAGE 8 - IKJEBEM4 92890020 SPACE 2 92960020 .TAGX47 ANOP 93030020 &I SETA &I+1 93100020 AIF (&I GT &CT).EXIT 93170020 AIF (&MSG(&I) LE 558).TAGX47 93240020 .TAGT48 AIF (&MSG(&I) EQ 559).TAGM48 93310020 AGO .TAGT49 93380020 .TAGM48 ANOP 93450020 AIF (&LINE+9 LE 45).TAGEJ48 93520020 EJECT 93590020 &LINE SETA 0 93660020 .TAGEJ48 ANOP 93730020 &LINE SETA &LINE+9 93800020 * IKJ52559I MISSING COUNT OR STRING 93870020 * IKJ52559I HAS NO SECOND LEVEL MESSAGES. 93940021 SPACE 94010020 M559 EQU MSMOD4+9 - RELATIVE MESSAGE 9 - IKJEBEM4 94080020 SPACE 94150020 * IKJ52564A ENTER COUNT OR STRING 94220020 * IKJ52564A HAS NO SECOND LEVEL MESSAGES - IT IS A PROMPT MESSAGE 94290020 SPACE 2 94360020 .TAGX48 ANOP 94430020 &I SETA &I+1 94500020 AIF (&I GT &CT).EXIT 94570020 AIF (&MSG(&I) LE 559).TAGX48 94640020 .TAGT49 AIF (&MSG(&I) EQ 560).TAGM49 94710020 AGO .TAGT50 94780020 .TAGM49 ANOP 94850020 AIF (&LINE+6 LE 45).TAGEJ49 94920020 EJECT 94990020 &LINE SETA 0 95060020 .TAGEJ49 ANOP 95130020 &LINE SETA &LINE+6 95200020 * IKJ52560I LINE NUMBER LENGTH EXCEEDS LINE SIZE 95270020 * IKJ52560I HAS NO SECOND LEVEL MESSAGES. 95340021 SPACE 95410020 M560 EQU MSMOD4+10 - RELATIVE MESSAGE 10 - IKJEBEM4 95480020 SPACE 2 95550020 .TAGX49 ANOP 95620020 &I SETA &I+1 95690020 AIF (&I GT &CT).EXIT 95760020 AIF (&MSG(&I) LE 560).TAGX49 95830020 .TAGT50 AIF (&MSG(&I) EQ 561).TAGM50 95900020 AGO .TAGT51 95970020 .TAGM50 ANOP 96040020 AIF (&LINE+7 LE 45).TAGEJ50 96110020 EJECT 96180020 &LINE SETA 0 96250020 .TAGEJ50 ANOP 96320020 &LINE SETA &LINE+7 96390020 * IKJ52561I INSERT TERMINATED, NEXT LINE NUMBER IS (NUMBER) 96460021 * IKJ52561I HAS NO SECOND LEVEL MESSAGES. 96530021 SPACE 96600020 M561 EQU MSMOD4+11 - RELATIVE MESSAGE 11 - IKJEBEM4 96670020 M561IN1 EQU 49 - LINE NUMBER INSERTION AT OFFSET 49 96740020 SPACE 2 96810020 .TAGX50 ANOP 96880020 &I SETA &I+1 96950020 AIF (&I GT &CT).EXIT 97020020 AIF (&MSG(&I) LE 561).TAGX50 97090020 .TAGT51 AIF (&MSG(&I) EQ 562).TAGM51 97160020 AGO .TAGT52 97230020 .TAGM51 ANOP 97300020 AIF (&LINE+6 LE 45).TAGEJ51 97370020 EJECT 97440020 &LINE SETA 0 97510020 .TAGEJ51 ANOP 97580020 &LINE SETA &LINE+6 97650020 * IKJ52562I TABSET OF 0 IGNORED 97720021 * IKJ52562I HAS NO SECOND LEVEL MESSAGES. 97790021 SPACE 97860020 M562 EQU MSMOD4+12 - RELATIVE MESSAGE 12 - IKJEBEM4 97930020 SPACE 2 98000020 .TAGX51 ANOP 98050020 &I SETA &I+1 98060020 AIF (&I GT &CT).EXIT 98060420 AIF (&MSG(&I) LE 564).TAGX51 98062020 .TAGT52 AIF (&MSG(&I) EQ 565).TAGM52 98064020 AGO .TAGT568 A45713 98066021 .TAGM52 ANOP 98068020 AIF (&LINE+11 LE 45).TAGEJ52 98068420 EJECT 98068820 &LINE SETA 0 98069220 .TAGEJ52 ANOP 98069620 &LINE SETA &LINE+11 98069720 * IKJ52565I SCAN FOR LINE NUMBER REFERENCE IN LINE (LINENUM) 98069820 * INCOMPLETE+ 98069920 * IKJ52565I HAS ONE SECOND-LEVEL MESSAGE. 98093220 SPACE 98103220 M565 EQU MSMOD3+4 - RELATIVE MESSAGE 4 - IKJEBEM3 98113220 M565IN1 EQU 61 - LINE NUMBER INSERTION AT OFFSET 61 98115220 SPACE 98115620 * *IKJ52565I SYNTAX ERROR OR INVALID LINE REFERENCE ENCOUNTERED 98116020 M5651 EQU 1 - FIRST SECOND-LEVEL MESSAGE 98116420 SPACE 2 98116520 .TAGX56 ANOP A45713 98116621 &I SETA &I+1 A45713 98116721 AIF (&I GT &CT).EXIT A45713 98117721 AIF (&MSG(&I) LE 565).TAGX56 A45713 98118721 .TAGT568 AIF (&MSG(&I) EQ 568).TAGM568 A45713 98119721 AGO .TAGT569 A45155 98120721 .TAGM568 ANOP A45713 98121721 AIF (&LINE+9 LE 50).TAGE568 A45713 98122721 EJECT 98123721 &LINE SETA 0 A45713 98124721 .TAGE568 ANOP A45713 98125721 &LINE SETA &LINE+9 A45713 98126721 * IKJ52568I MISSING DATA SET TYPE A45713 98127721 * IKJ52568 HAS NO SECOND LEVEL MESSAGES. A45713 98128721 SPACE 98129721 M568 EQU MSMOD2+9 - RELATIVE MESSAGE 9 - IKJEBEM2 A45713 98130721 SPACE 98131721 * IKJ52567A ENTER DATA SET TYPE- A45713 98132721 * IKJ52567A HAS NO SECOND LEVEL MESSAGES, IT IS A PROMPT MESSAGE A45713 98133721 SPACE 2 A45713 98134721 .TAGX568 ANOP A45155 98135221 &I SETA &I+1 A45155 98135321 AIF (&I GT &CT).EXIT A45155 98135421 AIF (&MSG(&I) LE 568).TAGX568 A45155 98135521 .TAGT569 AIF (&MSG(&I) EQ 569).TAGM569 A45155 98135621 AGO .TAGT570 Y01676 98135701 .TAGM569 AIF (&LINE+21 LE 50).TAGE569 A45155 98136121 EJECT 98136221 &LINE SETA 0 A45155 98136321 .TAGE569 ANOP A45155 98136421 &LINE SETA &LINE+21 A45155 98136521 * IKJ52569I WARNING, RENUMBERING DATA SET MAY CAUSE LOSS OF A45155 98136921 * DATA+ A45155 98137021 * IKJ52569I HAS TWO SECOND-LEVEL MESSAGES. A45155 98137121 SPACE 98137221 M569 EQU MSMOD2+11 - RELATIVE MESSAGE 11 - IKJEBEM2 A45155 98137321 SPACE 98137721 * *IKJ52569I DATA POSITIONS (START POSITION)-(END POSITION) A45155 98137821 * WILL BE OVERLAID WITH LINE NUMBERS A45155 98137921 M5691 EQU 1 - FIRST SECOND-LEVEL MESSAGE A45155 98138021 M5691IN1 EQU 25 - START POSITION INSERTION AT A45155 98138121 * OFFSET 25 A45155 98138221 M5691IN2 EQU 26 - END POSITION INSERTION AT A45155 98138321 * OFFSET 26 A45155 98138421 SPACE 98138521 * *IKJ52569I LINES CONTAINING MORE THAN (NUMBER) CHARACTERS A45155 98138621 * WILL BE TRUNCATED A45155 98138721 M5692 EQU 2 - SECOND SECOND-LEVEL MESSAGE A45155 98138821 M5692IN1 EQU 37 - 'NUMBER OF CHARACTERS' A45155 98138921 * INSERTION AT OFFSET 37 A45155 98139021 SPACE 2 98139121 .TAGX569 ANOP Y01676 98139601 &I SETA &I+1 Y01676 98139701 AIF (&I GT &CT).EXIT Y01676 98139801 AIF (&MSG(&I) LE 569).TAGX569 Y01676 98139901 .TAGT570 AIF (&MSG(&I) EQ 570).TAGM570 Y01676 98140401 AGO .TAGT571 Y01676 98140501 .TAGM570 AIF (&LINE+7 LE 50).TAGE570 Y01676 98140601 EJECT 98140701 &LINE SETA 0 Y01676 98140801 .TAGE570 ANOP Y01676 98141301 &LINE SETA &LINE+7 Y01676 98141401 * IKJ52570I LIB OPERAND IGNORED FOR (TYPE) DATA SET Y01676 98141501 * IKJ52570I HAS NO SECOND-LEVEL MESSAGES. Y01676 98141601 SPACE 98141701 M570 EQU MSMOD5+14 - RELATIVE MESSAGE 14 - IKJEBEM5 Y01676 98142201 M570IN1 EQU 34 - TYPE INSERTION AT OFFSET 34 Y01676 98142301 SPACE 2 98142401 .TAGX570 ANOP Y01676 98142501 &I SETA &I+1 Y01676 98142601 AIF (&I GT &CT).EXIT Y01676 98143101 AIF (&MSG(&I) LE 570).TAGX570 Y01676 98143201 .TAGT571 AIF (&MSG(&I) EQ 571).TAGM571 Y01676 98143801 AGO .TAGT572 Y01676 98144301 .TAGM571 AIF (&LINE+11 LE 50).TAGE571 Y01676 98144801 EJECT 98145301 &LINE SETA 0 Y01676 98145801 .TAGE571 ANOP Y01676 98146301 &LINE SETA &LINE+11 Y01676 98146801 * IKJ52571I SAVE REJECTED, DATA SET (DSNAME) WILL BE SAVED Y01676 98147301 * WITHOUT PRINT CONTROL CHARACTERS+ Y01676 98147801 * IKJ52571I HAS ONE SECOND-LEVEL MESSAGE. Y01676 98148301 SPACE 98148801 M571 EQU MSMOD5+15 - RELATIVE MESSAGE 15 - IKJEBEM5 Y01676 98149301 M571IN1 EQU 34 - DSNAME INSERTION AT OFFSET 34 Y01676 98149801 SPACE 98150301 * *IKJ52571I ANOTHER DATA SET MUST BE USED FOR SAVING Y01676 98150801 M5711 EQU 1 - FIRST SECOND-LEVEL MESSAGE Y01676 98151301 SPACE 2 98151801 .TAGX571 ANOP Y01676 98152301 &I SETA &I+1 Y01676 98152801 AIF (&I GT &CT).EXIT Y01676 98153301 AIF (&MSG(&I) LE 571).TAGX571 Y01676 98153801 .TAGT572 AIF (&MSG(&I) EQ 572).TAGM572 Y01676 98154301 AGO .TAGT574 Y02676 98154502 .TAGM572 AIF (&LINE+8 LE 50).TAGE572 Y01676 98155301 EJECT 98155801 &LINE SETA 0 Y01676 98156301 .TAGE572 ANOP Y01676 98156801 &LINE SETA &LINE+8 Y01676 98157301 * IKJ52572I WARNING, DATA SET (DSNAME) WILL BE SAVED Y01676 98157801 * WITHOUT PRINT CONTROL CHARACTERS Y01676 98158301 * IKJ52572I HAS NO SECOND-LEVEL MESSAGES. Y01676 98158801 SPACE 98159301 M572 EQU MSMOD5+16 - RELATIVE MESSAGE 16 - IKJEBEM5 Y01676 98159801 M572IN1 EQU 28 - DSNAME INSERTION AT OFFSET 28 Y01676 98160301 SPACE 2 98160801 .TAGX572 ANOP Y02676 98161802 &I SETA &I+1 Y02676 98162802 AIF (&I GT &CT).EXIT Y02676 98163802 AIF (&MSG(&I) LE 572).TAGX572 Y02676 98164802 .TAGT574 AIF (&MSG(&I) EQ 574).TAGM574 Y02676 98165302 AGO .TAGT575 Y02676 98166802 .TAGM574 AIF (&LINE+18 LE 50).TAGE574 Y02676 98167802 EJECT 98168802 &LINE SETA 0 Y02676 98169802 .TAGE574 ANOP Y02676 98170802 &LINE SETA &LINE+18 Y02676 98171802 * IKJ52574I UNABLE TO RENUMBER, "NEW LINENUM" (LINE NUMBER) Y02676 98172802 * IS INVALID+ Y02676 98173802 * IKJ52574I HAS ONE SECOND-LEVEL MESSAGE. Y02676 98174802 SPACE 98175802 M574 EQU MSMOD7+10 RELATIVE MESSAGE 10 - IKJEBEM7 Y02676 98176802 M574IN1 EQU 44 - LINENUM INSERTION AT OFFSET 44 Y02676 98177802 SPACE 98178802 * *IKJ52574I FOR "OLD LINENUM" (LINE NUMBER), "NEW LINENUM" Y02676 98179802 * MUST EXCEED (LINE NUMBER PREVIOUS TO OLD LINE Y02676 98180802 * NUMBER) Y02676 98181802 SPACE 98182802 M5741 EQU 1 - FIRST SECOND-LEVEL MESSAGE Y02676 98183802 M5741IN1 EQU 28 - OLD LINENUM INSERTION AT Y02676 98184802 * OFFSET 28 Y02676 98185802 M5741IN2 EQU 56 - PREVIOUS LINENUM INSERTION Y02676 98186802 * AT OFFSET 56 Y02676 98187802 SPACE 2 98188802 .TAGX574 ANOP Y02676 98189802 &I SETA &I+1 Y02676 98190302 AIF (&I GT &CT).EXIT Y02676 98190802 AIF (&MSG(&I) LE 574).TAGX574 Y02676 98191802 .TAGT575 AIF (&MSG(&I) EQ 575).TAGM575 Y02676 98192802 AGO .TAGT576 Y02676 98193802 .TAGM575 AIF (&LINE+12 LE 50).TAGE575 Y02676 98194802 EJECT 98195802 &LINE SETA 0 Y02676 98196802 .TAGE575 ANOP Y02676 98197802 &LINE SETA &LINE+12 Y02676 98198802 * IKJ52575I UNABLE TO RENUMBER, INSUFFICIENT LINE NUMBER Y02676 98199802 * ASSIGNMENTS AVAILABLE+ Y02676 98200802 * IKJ52575I HAS ONE SECOND-LEVEL MESSAGE. Y02676 98201802 SPACE 98202802 M575 EQU MSMOD7+11 - RELATIVE MESSAGE 11 - IKJEBEM7 Y02676 98203802 SPACE 98204802 * *IKJ52575I INCLUDE MORE LINES IN RANGE, SPECIFY A SMALLER Y02676 98205802 * "NEW LINENUM" AND/OR USE A SMALLER INCREMENT Y02676 98206802 SPACE 98207802 M5751 EQU 1 - FIRST SECOND-LEVEL MESSAGE Y02676 98208802 SPACE 2 98209802 .TAGX575 ANOP Y02676 98210802 &I SETA &I+1 Y02676 98211802 AIF (&I GT &CT).EXIT Y02676 98212802 AIF (&MSG(&I) LE 575).TAGX575 Y02676 98213802 .TAGT576 AIF (&MSG(&I) EQ 576).TAGM576 Y02676 98214802 AGO .TAGT577 Y02676 98215802 .TAGM576 AIF (&LINE+32 LE 50).TAGE576 Y02676 98216802 EJECT 98217802 &LINE SETA 0 Y02676 98218802 .TAGE576 ANOP Y02676 98219802 &LINE SETA &LINE+32 Y02676 98220802 * IKJ52576I (SUBCOMMAND) CANCELLED DUE TO ERROR IN (TYPE) Y02676 98221802 * PROCESSING+ Y02676 98222802 * IKJ52576I HAS TWO SECOND-LEVEL MESSAGES. Y02676 98223802 SPACE 98224802 M576 EQU MSMOD7+12 - RELATIVE MESSAGE 12 - IKJEBEM7 Y02676 98225802 M576IN1 EQU 10 - SUBCOMMAND NAME INSERTION AT Y02676 98226802 * OFFSET 10 Y02676 98227802 M576IN2 EQU 49 - DATA SET TYPE INSERTION AT Y02676 98228802 * OFFSET 49 Y02676 98229802 SPACE 98230802 * *IKJ52576I DATA EXIT ROUTINE (NAME) OUTPUT INCLUDED LINE Y02676 98231802 * NUMBER (NUMBER), CONTAINS NON-NUMERIC Y02676 98232802 * CHARACTERS Y02676 98233802 SPACE 98234802 M5761 EQU 1 - FIRST SECOND-LEVEL MESSAGE Y02676 98235802 M5761IN1 EQU 28 - DATA EXIT NAME INSERTION AT Y02676 98236802 * OFFSET 28 Y02676 98237802 M5761IN2 EQU 57 - LINE NUMBER INSERTION AT OFFSET 57 Y02676 98238802 SPACE 98239802 * *IKJ52576I DATA EXIT ROUTINE (NAME) OUTPUT INCLUDED LINE Y02676 98240802 * NUMBER (NUMBER), EXCEEDED BY PREVIOUS LINE Y02676 98241802 * NUMBER (NUMBER) Y02676 98242802 SPACE 98243802 M5762 EQU 2 - SECOND SECOND-LEVEL MESSAGE Y02676 98244802 M5762IN1 EQU 28 - DATA EXIT NAME INSERTION Y02676 98245802 * AT OFFSET 28 Y02676 98246802 M5762IN2 EQU 57 - INVALID LINE NUMBER INSERTION Y02676 98247802 * AT OFFSET 57 Y02676 98248802 M5762IN3 EQU 92 - PREVIOUS LINE NUMBER INSERTION Y02676 98249802 * AT OFFSET 92 Y02676 98250802 SPACE 2 98251802 .TAGX576 ANOP Y02676 98252802 &I SETA &I+1 Y02676 98253802 AIF (&I GT &CT).EXIT Y02676 98254802 AIF (&MSG(&I) LE 576).TAGX576 Y02676 98255802 .TAGT577 AIF (&MSG(&I) EQ 577).TAGM577 Y02676 98256802 AGO .TAGT578 @Y30NQKK 98257803 .TAGM577 AIF (&LINE+7 LE 50).TAGE577 Y02676 98258802 EJECT 98259802 &LINE SETA 0 Y02676 98260802 .TAGE577 ANOP Y02676 98261802 &LINE SETA &LINE+7 Y02676 98262802 * IKJ52577I RENUM OF LINE RANGE NOT SUPPORTED FOR BASIC Y02676 98263802 * DATA SETS Y02676 98264802 * IKJ52577I HAS NO SECOND-LEVEL MESSAGES. Y02676 98265802 SPACE 98266802 M577 EQU MSMOD7+13 - RELATIVE MESSAGE 13 - IKJEBEM7 Y02676 98280803 SPACE 2 98281603 .TAGX577 ANOP @Y30NQKK 98282403 &I SETA &I+1 @Y30NQKK 98283203 AIF (&I GT &CT).EXIT @Y30NQKK 98284003 AIF (&MSG(&I) LE 577).TAGX577 @Y30NQKK 98284803 .TAGT578 AIF (&MSG(&I) EQ 578).TAGM578 @Y30NQKK 98285603 AGO .TAGT579 @Y30NQKK 98286803 .TAGM578 AIF (&LINE+6 LE 50).TAGE578 @Y30NQKK 98292803 EJECT @Y30NQKK 98298803 &LINE SETA 0 @Y30NQKK 98304803 .TAGE578 ANOP @Y30QNKK 98307803 &LINE SETA &LINE+6 @Y30NQKK 98310803 * IKJ52578I NO LINES FOUND IN SPECIFIED LINE RANGE @Y30NQKK 98316803 * IKJ52578I HAS NO SECOND-LEVEL MESSAGES. @Y30NQKK 98322803 SPACE 98328803 M578 EQU MSMOD6+8 - RELATIVE MESSAGE 8 - IKJEBEM6 @Y30NQKK 98331803 SPACE 2 98334803 .TAGX578 ANOP @Y30NQKK 98340803 &I SETA &I+1 @Y30NQKK 98346803 AIF (&I GT &CT).EXIT @Y30NQKK 98349803 AIF (&MSG(&I) LE 578).TAGX578 @Y30NQKK 98352803 .TAGT579 AIF (&MSG(&I) EQ 579).TAGM579 @Y30NQKB 98358803 AGO .TAGT580 @Y30NQKB 98364803 .TAGM579 AIF (&LINE+6 LE 50).TAGE579 @Y30NQKB 98369803 EJECT @Y30NQKB 98374803 &LINE SETA 0 @Y30NQKB 98380503 .TAGE579 ANOP @Y30QNKB 98384503 &LINE SETA &LINE+6 &Y30NQKB 98388503 * IKJ52579I INVALID OPERANDS @Y30NQKB 98392503 * IKJ52579I HAS NO SECOND-LEVEL MESSAGES. @Y30NQKB 98396503 SPACE 98400503 M579 EQU MSMOD6+9 - RELATIVE MESSAGE 9 - IKJEBEM6 @Y30NQKB 98404503 SPACE 2 98408503 .TAGX579 ANOP @Y30NQKB 98412503 &I SETA &I+1 @Y30NQKB 98416503 AIF (&I GT &CT).EXIT @Y30NQKB 98420503 AIF (&MSG(&I) LE 579).TAGX579 @Y30NQKB 98424503 .TAGT580 AIF (&MSG(&I) EQ 580).TAGM580 @Y30NQKB 98428503 AGO .M1 @Y30NQKB 98432503 .TAGM580 AIF (&LINE+6 LE 50).TAGE580 @Y30NQKB 98436503 EJECT @Y30NQKB 98440503 &LINE SETA 0 @Y30NQKB 98444503 .TAGE580 ANOP @Y30QNKB 98448503 &LINE SETA &LINE+6 @Y30NQKB 98452503 * IKJ52580I BASIC DATA SETS NOT SUPPORTED BY MOVE OR COPY @Y30NQKB 98456503 * IKJ52580I HAS NO SECOND-LEVEL MESSAGES. @Y30NQKB 98460503 SPACE 98464503 M580 EQU MSMOD6+10 - RELATIVE MESSAGE 10 - IKJEBEM6 @Y30NQKB 98468503 SPACE 2 98480503 MEXIT Y01676 98580503 .M1 MNOTE *,'INVALID OPERAND &MSG(&I) - EXPANSION TERMINATED' 98680502 .EXIT ANOP 99080502 MEND 99480502