TITLE 'ICBVMG00 - MSVC STATIC TEXT MESSAGE MODULE -- MVS' 00012003 * @Y30LB22 00020003 * /* START OF SPECIFICATIONS **** @Y30LB22 00070003 * @Y30LB22 00170003 *01* NAME = ICBVMG00 @Y30LB22 00260003 * @Y30LB22 00310003 *02* ASSEMBLY-MODULE-NAME = ICBVMG00 @Y30LB22 00350003 * @Y30LB22 00400003 *02* DESCRIPTIVE-NAME = STATIC TEXT MESSAGE MODULE @Y30LB22 00450003 * @Y30LB22 00500003 *02* LOAD-MODULE-NAME = ICBVVI00 @Y30LB22 00550003 * @Y30LB22 00600003 *02* ALIASES = NONE @Y30LB22 00650003 * @Y30LB22 00700003 *02* CSECTS = ICBVMG00 @Y30LB22 00750003 * @Y30LB22 00800003 *01* COPYRIGHT = NONE @Y30LB22 00850003 * @Y30LB22 00900003 *01* STATUS = OS/VS2 RELEASE 3, LEVEL 0 @Y30LB22 00950003 * @Y30LB22 01050003 *01* FUNCTION = CONTAINS NO EXECUTIBLE CODE, ONLY STATIC TEXT ENTRIES 01100003 * REQUIRED BY ICBVOP00. ENTRIES CONTAIN THE ADDRESS 01150003 * OF MESSAGE, TEXT OF THE MESSAGE, LENGTH OF THE 01200003 * MESSAGE, THE RETURN CODE, THE REASON CODE, THE 01250003 * DESCRIPTOR CODE, AND THE ROUTING CODE. FLAGS ARE 01300003 * ALSO SET TO INDICATE WHETHER THE MESSAGE IS FOR 01350003 * THE OPERATOR, THE LIBRARIAN, OR THE OPERATOR WITH 01400003 * REPLY, OR ANY COMBINATION THEREOF. ENTRIES CAN ALSO 01450003 * CONTAIN DISPLACEMENT AND LENGTH VALUES USED TO INSERT 01500003 * VARIABLE TEXT DATA. @Y30LB22 01550003 * @Y30LB22 01600003 *01* OPERATION = NONE @Y30LB22 01650003 * @Y30LB22 01700003 *01* NOTES = NONE @Y30LB22 01750003 * @Y30LB22 01800003 *02* CHARACTER-CODE-DEPENDENCIES = EBCDIC @Y30LB22 01850003 * @Y30LB22 01900003 *02* DEPENDENCIES = NONE @Y30LB22 01950003 * @Y30LB22 02000003 *02* RESTRICTIONS = NONE @Y30LB22 02050003 * @Y30LB22 02100003 *02* REGISTER-CONVENTIONS = N/A @Y30LB22 02150003 * @Y30LB22 02200003 *02* PATCH AREA = N/A @Y30LB22 02250003 * @Y30LB22 02300003 *01* MODULE-TYPE = TABLES @Y30LB22 02350003 * @Y30LB22 02400003 *02* PROCESSOR = ASSEMBLER @Y30LB22 02450003 * @Y30LB22 02500003 *02* MODULE-SIZE = 6225 BYTES @G24LB04 02550042 * @Y30LB22 02600003 *02* ATTRIBUTES = READ ONLY @Y30LB22 02650003 * @Y30LB22 02700003 *01* ENTRY-POINT = ICBVMG00, ADDRESS OF START OF CSECT. @Y30LB22 02750003 * @Y30LB22 02800003 *01* EXTERNAL-REFERENCES = N/A @Y30LB22 02850003 * @Y30LB22 02900003 *01* TABLES = MESSAGE ADDRESS TABLE CONTAINED HEREIN. @Y30LB22 02950003 * @Y30LB22 03000003 *01* MACROS = N/A @Y30LB22 03050003 * @Y30LB22 03100003 *01* MESSAGES = N/A @Y30LB22 03150003 * 03200003 *01* CHANGE-ACTIVITY = AS FOLLOWS 03250003 * 03252003 * CHANGE 01 01/28/75 ADD MSGS 473 AND 474. UPDATE MSGS @VS34320 03260003 * 422, 432, 446, 467, 472, AND 474. 03270003 * 03280003 * CHANGE 02 02/20/75 ADD MSGS 475 AND 476 @ZM30724 03290003 * 03290403 * CHANGE 03 03/18/75 UPDATE 409 @ZM30746 03292003 * 03294003 * CHANGE 04 05/12/75 UPDATE MSGS 463, 464, AND 465 @ZM31067 03296003 * 03300003 * CHANGE 05 07/01/75 INSURE SYS PROG MSGS ARE ROUTED TO 03350003 * SYS OPER CONSOLE @ZM31103 03360003 * 03360103 * CHANGE 06 11/4/75 ADD MESSAGE 477 @ZM31134 03360403 * 03360503 * CHANGE 07 01/29/76 CHANGE MSG 473 TO INDICATE VUA @OX10810 03360803 * 03360903 * CHANGE 08 03/23/76 CHANGE 2 DGT FDBK TO 3 DIGIT @OZ09533 03361603 * 03361703 * CHANGE 09 04/05/76 ADD MESSAGE ICB480I @OZ09538 03361803 * 03376503 * CHANGE 10 12/21/75 ADD MESSAGE 478 @ZA09550 03391203 * 03393203 * CHANGE 11 01/19/76 ADD MESSAGE 479 (SU18) @G18MB04 03401203 * 03405903 * CHANGE 12 06/07/76 ALLOCATE TO MOUNTED VOLUMES (SU24) @G24LB04 03415942 * MESSAGES 481, 482 AND 483 @G24LB04 03416342 * 03417942 * CHANGE 13 10/20/77 ELIMINATE REDUNDANT ACQUIRES @ZA27588 03419900 * 03420400 * CHANGE 14 10/21/77 SPACE ACCOUNTING, ADD MSG 441 @ZA28479 03420500 * CHANGE MESSAGE ICB408I @ZA28479 03422500 * 03427400 **** END OF SPECIFICATIONS ***/ @Y30LB22 03430400 EJECT 03435303 ********************************************************************** 03450003 * * 03500003 * THE FOLLOWING IS A DESCRIPTION OF THE MACRO AND ITS OPTIONS * 03550003 * * 03600003 ********************************************************************** 03650003 * @Y30LB22 03700003 * THE MACRO @Y30LB22 03750003 * @Y30LB22 03800003 * PROCESSOR = ASSEM @Y30LB22 03850003 * @Y30LB22 03900003 * MESSAGES = MESSAGE TEXT MUST BE SPECIFIED @Y30LB22 03950003 * REASON CODE OPERAND MUST BE SPECIFIED @Y30LB22 04000003 * NN IS INVALID DESCRIPTOR - IGNORED @Y30LB22 04050003 * NN IS INVALID ROUTE - IGNORED @Y30LB22 04100003 * NN IS INVALID FLAG - IGNORED @Y30LB22 04110003 * @Y30LB22 04150003 * TEXT = THE TEXT OF THE MESSAGE. IT IS A REQUIRED @Y30LB22 04200003 * POSITIONAL PARAMETER. AND IT MUST BE LESS @Y30LB22 04250003 * THAN OR EQUAL TO 72 CHARACTERS IN LENGTH. @Y30LB22 04300003 * @Y30LB22 04350003 * RSNCODE = REASON CODE. A 4 DIGIT HEX NUMBER WHICH @Y30LB22 04400003 * MUST BE SPECIFIED, AND WHOSE VALUE RANGE @Y30LB22 04450003 * is 0000 OR 0200 thru 0300. @Y30LB22 04500003 * @Y30LB22 04550003 * RTNCODE = RETURN CODE. A SINGLE DIGIT NUMBER WHOSE @Y30LB22 04600003 * DEFAULT VALUE IS 0. @Y30LB22 04650003 * @Y30LB22 04700003 * ROUTCDE = ROUTING CODE. A NUMBER WHOSE VALUE RANGE IS @Y30LB22 04750003 * 1 THRU 16, AND WHOSE DEFAULT VALUE IS 2. @Y30LB22 04800003 * @Y30LB22 04850003 * DESC = DESCRIPTOR CODE. A NUMBER WHOSE VALUE RANGE @Y30LB22 04900003 * IS 1 THUR 16, AND WHOSE DEFAULT VALUE IS 4. @Y30LB22 04950003 * @Y30LB22 05000003 * FLAGS = MESSAGE INDICATORS, AS FOLLOWS; @Y30LB22 05050003 * FLAGS = 1 IS OPERATOR ONLY @Y30LB22 05100003 * FLAGS = 2 IS LIBRARIAN ONLY @Y30LB22 05150003 * FLAGS = (1,2) IS BOTH OPERATOR AND LIBRARIAN @Y30LB22 05250003 * FLAGS = (1,3) IS WRITE TO OPERATOR WITH REPLY @Y30LB22 05300003 * @Y30LB22 05350003 * VARIABLE LENGTH AND LOCATION FACILITY @Y30LB22 05400003 * @Y30LB22 05450003 * OLEN = THE NUMBER OF BYTES INDICATING THE SIZE OF @Y30LB22 05500003 * THE ITH REPLACEMENT DATA. @Y30LB22 05550003 * OLOC = THE OFFSET NUMBER OF BYTES FROM THE BEGINNING @Y30LB22 05600003 * OF THE MESSAGE TEXT TO THE LOCATION OF THE @Y30LB22 05650003 * ITH rEPLACEMENT DATA. @Y30LB22 05700003 * @Y30LB22 05710003 EJECT 05750003 MACRO @Y30LB22 05850003 MSGDEF &TEXT,&RSNCODE=,&RTNCODE=0,&ROUTCDE=2,&DESC=4, @Y30LB22*05900003 &FLAGS=,&OLEN1=0,&OLEN2=0,&OLEN3=0,&OLEN4=0, @Y30LB22*05950003 &OLEN5=0,&OLOC1=0,&OLOC2=0,&OLOC3=0,&OLOC4=0, @Y30LB22*06000003 &OLOC5=0 @Y30LB22 06010003 LCLC &NAME,&ANAME,&CD(5) @Y30LB22 06050003 LCLA &I,&N,&RTN,&MLEN,&LEN1,&LEN2,&LEN3,&LEN4,&LEN5 @Y30LB22 06100003 LCLA &LOC1,&LOC2,&LOC3,&LOC4,&LOC5 @Y30LB22 06150003 LCLB &B(40) @Y30LB22 06200003 AIF (T'&TEXT NE 'O').RSCHK @Y30LB22 06250003 MNOTE 8,'MESSAGE TEXT MUST BE SPECIFIED' @Y30LB22 06300003 .RSCHK ANOP @Y30LB22 06350003 &NAME SETC '&TEXT'(2,6) @Y30LB22 06400003 &ANAME SETC '&TEXT'(5,3) @Y30LB22 06450003 AIF (T'&RSNCODE NE 'O').DSCHK @Y30LB22 06500003 MNOTE 8,'REASON CODE OPERAND MUST BE SPECIFIED' @Y30LB22 06550003 .DSCHK ANOP @Y30LB22 06600003 &RTN SETA &RTNCODE @Y30LB22 06650003 .* @Y30LB22 06700003 .* DESCRIPTOR CODES @Y30LB22 06750003 .* @Y30LB22 06800003 &I SETA 1 @Y30LB22 06850003 .DCHK AIF (T'&DESC EQ 'O').RCHK @Y30LB22 06900003 &N SETA &DESC(&I) @Y30LB22 06950003 &I SETA &I+1 @Y30LB22 07000003 AIF (&N GE 1 AND &N LE 16).ASSIGND @Y30LB22 07050003 MNOTE 8,'&DESC(&I) IS INVALID DESCRIPTOR - IGNORED' @Y30LB22 07100003 AGO .NXTD @Y30LB22 07150003 .ASSIGND ANOP @Y30LB22 07200003 &B(&N) SETB 1 @Y30LB22 07250003 .NXTD AIF (&I LE N'&DESC).DCHK @Y30LB22 07300003 &I SETA 1 @Y30LB22 07350003 .* @Y30LB22 07400003 .* ROUTE CODES @Y30LB22 07450003 .* @Y30LB22 07500003 .RCHK AIF (T'&ROUTCDE EQ 'O').FCHK @Y30LB22 07550003 &N SETA &ROUTCDE(&I) @Y30LB22 07600003 &I SETA &I+1 @Y30LB22 07650003 AIF (&N GE 1 AND &N LE 16).ASSIGNR @Y30LB22 07700003 MNOTE 8,'ROUTCDE(&I) IS INVALID ROUTE - IGNORED' @Y30LB22 07750003 AGO .NXTR @Y30LB22 07800003 .ASSIGNR ANOP @Y30LB22 07850003 &B(&N+16) SETB 1 @Y30LB22 07900003 .NXTR AIF (&I LE N'&ROUTCDE).RCHK @Y30LB22 07950003 &I SETA 1 @Y30LB22 08000003 .* @Y30LB22 08050003 .* FLAGS @Y30LB22 08100003 .* @Y30LB22 08150003 &I SETA 1 @Y30LB22 08200003 .FCHK AIF (T'&FLAGS EQ 'O').ASSIGNC @Y30LB22 08250003 &N SETA &FLAGS(&I) @Y30LB22 08300003 &I SETA &I+1 @Y30LB22 08350003 AIF (&N GE 1 AND &N LE 4).ASSIGNF @Y30LB22 08400003 MNOTE 8,'&FLAGS(&I) IS INVALID FLAG - IGNORED' @Y30LB22 08450003 AGO .NXTF @Y30LB22 08500003 .ASSIGNF ANOP @Y30LB22 08550003 &B(&N+32) SETB 1 @Y30LB22 08600003 .NXTF AIF (&I LE N'&FLAGS).FCHK @Y30LB22 08650003 .ASSIGNC ANOP @Y30LB22 08700003 &I SETA 1 @Y30LB22 08750003 &CD(&I) SETC '&B(1)&B(2)&B(3)&B(4)&B(5)&B(6)&B(7)&B(8)' @Y30LB22 08800003 &CD(&I+1) SETC '&B(9)&B(10)&B(11)&B(12)&B(13)&B(14)&B(15)&B(16)' 08850003 &CD(&I+2) SETC '&B(17)&B(18)&B(19)&B(20)&B(21)&B(22)&B(23)&B(24)' 08900003 &CD(&I+3) SETC '&B(25)&B(26)&B(27)&B(28)&B(29)&B(30)&B(31)&B(32)' 08950003 &CD(&I+4) SETC '&B(33)&B(34)&B(35)&B(36)&B(37)&B(38)&B(39)&B(40)' 09000003 &LEN1 SETA &OLEN1 @Y30LB22 09050003 &LEN2 SETA &OLEN2 @Y30LB22 09100003 &LEN3 SETA &OLEN3 @Y30LB22 09150003 &LEN4 SETA &OLEN4 @Y30LB22 09200003 &LEN5 SETA &OLEN5 @Y30LB22 09250003 &LOC1 SETA &OLOC1 @Y30LB22 09300003 &LOC2 SETA &OLOC2 @Y30LB22 09350003 &LOC3 SETA &OLOC3 @Y30LB22 09400003 &LOC4 SETA &OLOC4 @Y30LB22 09450003 &LOC5 SETA &OLOC5 @Y30LB22 09500003 &MLEN SETA K'&TEXT-2 @Y30LB22 09550003 DS 0F @Y30LB22 09600003 &NAME DC XL2'&RSNCODE' REASON CODE @Y30LB22 09650003 DC AL2(&RTN) RETURN CODE @Y30LB22 09700003 DC BL2'&CD(3)&CD(4)' ROUTE CODE @Y30LB22 09750003 DC BL2'&CD(1)&CD(2)' DESCRIPTION CODE @Y30LB22 09800003 DC AL1(&MLEN) MESSAGE LENGTH @Y30LB22 09850003 DC AL3(A&ANAME) MESSAGE LOCATION @Y30LB22 09900003 DC BL1'&CD(5)' FLAGS @Y30LB22 09950003 DC AL1(0) RESERVED @Y30LB22 10000003 DC AL1(&LEN1) COMPLETION TEXT1 LENGTH @Y30LB22 10050003 DC AL1(&LOC1) COMPLETION TEXT1 LOCATION 10100003 DC AL1(&LEN2) COMPLETION TEXT2 LENGTH @Y30LB22 10150003 DC AL1(&LOC2) COMPLETION TEXT2 LOCATION 10200003 DC AL1(&LEN3) COMPLETION TEXT3 LENGTH @Y30LB22 10250003 DC AL1(&LOC3) COMPLETION TEXT3 LOCATION 10300003 DC AL1(&LEN4) COMPLETION TEXT4 LENGTH @Y30LB22 10350003 DC AL1(&LOC4) COMPLETION TEXT4 LOCATION 10400003 DC AL1(&LEN5) COMPLETION TEXT5 LENGTH @Y30LB22 10450003 DC AL1(&LOC5) COMPLETION TEXT5 LOCATION 10500003 A&ANAME DC C&TEXT 10550003 SPACE 1 @Y30LB22 10600003 MEND @Y30LB22 10650003 EJECT @Y30LB22 10700003 ********************************************************************** 10750003 * * 10800003 * THIS MODULE IS THE MSVC STATIC TEXT MESSAGE MODULE * 10850003 * * 10900003 ********************************************************************** 10950003 ICBVMG00 CSECT @Y30LB22 11000003 * @Y30LB22 11050003 * MESSAGE ADDRESS TABLE @Y30LB22 11100003 * @Y30LB22 11150003 LIMITADR DC A(MSGLIMIT) @Y30LB22 11200003 MSGTABLE DC A(ICB400) @Y30LB22 11250003 DC A(ICB401) @Y30LB22 11300003 DC A(ICB402) @Y30LB22 11350003 DC A(ICB403) @Y30LB22 11400003 DC A(ICB404) @Y30LB22 11450003 DC A(ICB405) @Y30LB22 11500003 DC A(0) @Y30LB22 11550003 DC A(ICB407) @Y30LB22 11600003 DC A(ICB408) @Y30LB22 11650003 DC A(ICB409) @Y30LB22 11700003 DC A(ICB410) @Y30LB22 11750003 DC A(ICB411) @Y30LB22 11800003 DC A(ICB412) @Y30LB22 11850003 DC A(ICB413) @Y30LB22 11900003 DC A(ICB414) @Y30LB22 11950003 DC A(ICB415) @Y30LB22 12000003 DC A(ICB416) @Y30LB22 12050003 DC A(ICB417) @Y30LB22 12100003 DC A(ICB418) @Y30LB22 12150003 DC A(ICB419) @Y30LB22 12200003 DC A(ICB420) @Y30LB22 12250003 DC A(ICB421) @Y30LB22 12300003 DC A(ICB422) @Y30LB22 12350003 DC A(ICB423) @Y30LB22 12400003 DC A(ICB424) @Y30LB22 12410003 DC A(ICB425) @Y30LB22 12420003 DC A(ICB426) @Y30LB22 12430003 DC A(ICB427) @Y30LB22 12440003 DC A(ICB428) @Y30LB22 12442003 DC A(ICB429) @Y30LB22 12444003 DC A(ICB430) @Y30LB22 12444103 DC A(ICB431) @Y30LB22 12444203 DC A(ICB432) @Y30LB22 12448403 DC A(ICB433) @Y30LB22 12448803 DC A(ICB434) @ZA27588 12449200 DC A(ICB435) @Y30LB22 12449603 DC A(ICB436) @Y30LB22 12449703 DC A(ICB437) @Y30LB22 12449803 DC A(ICB438) @Y30LB22 12449903 DC A(ICB439) @Y30LB22 12466603 DC A(ICB440) @Y30LB22 12476603 DC A(ICB441) @ZA28479 12478600 DC A(ICB442) @Y30LB22 12480603 DC A(ICB443) @Y30LB22 12482603 DC A(ICB444) @Y30LB22 12483003 DC A(ICB445) @Y30LB22 12483103 DC A(ICB446) @Y30LB22 12483203 DC A(ICB447) @Y30LB22 12488803 DC A(ICB448) @Y30LB22 12490803 DC A(ICB449) @Y30LB22 12492803 DC A(ICB450) @Y30LB22 12493203 DC A(ICB451) @Y30LB22 12493603 DC A(ICB452) @Y30LB22 12494003 DC A(ICB453) @Y30LB22 12494103 DC A(ICB454) @Y30LB22 12494203 DC A(ICB455) @Y30LB22 12494303 DC A(ICB456) @Y30LB22 12508203 DC A(ICB457) @Y30LB22 12518203 DC A(ICB458) @Y30LB22 12520203 DC A(ICB459) @Y30LB22 12520603 DC A(ICB460) @Y30LB22 12521003 DC A(ICB461) @Y30LB22 12521403 DC A(ICB462) @Y30LB22 12521803 DC A(ICB463) @Y30LB22 12521903 DC A(ICB464) @Y30LB22 12522003 DC A(ICB465) @Y30LB22 12522103 DC A(ICB466) @Y30LB22 12526703 DC A(ICB467) @Y30LB22 12528703 DC A(ICB468) @Y30LB22 12530703 DC A(ICB469) @Y30LB22 12531103 DC A(ICB470) @Y30LB22 12531203 DC A(ICB471) @Y30LB22 12531303 DC A(ICB472) @Y30LB22 12531403 DC A(ICB473) @YM03240 12536003 DC A(ICB474) @YM03240 12538003 DC A(ICB475) @ZM30724 12540003 DC A(ICB476) @ZM30724 12540403 DC A(ICB477) @ZM31134 12540503 DC A(ICB478) @ZA09550 12542503 DC A(ICB479) @G18MB04 12544503 DC A(ICB480) @OZ09538 12554503 DC A(ICB481) @G24LB04 12564542 DC A(ICB482) @G24LB04 12564942 DC A(ICB483) @G24LB04 12566542 MSGLIMIT DC A((*-MSGTABLE)/4) @Y30LB22 12570303 EJECT @Y30LB22 12580203 MSGDEF 'ICB400I VOLUME WAS NOT LOCATED DURING THE UCB S*12590103 CAN',RSNCODE=0000,OLEN1=6,OLOC1=16,FLAGS=(1,2) @ZM31103 12600003 EJECT @Y30LB22 12650003 MSGDEF 'ICB401I LSPACE FAILURE ON VOLUME - RETURN CODE *12700003 ',RSNCODE=0000,OLEN1=6,OLOC1=34,OLEN2=4,OLOC2=55, *12750003 FLAGS=(1,2) @ZM31103 12800003 EJECT @Y30LB22 12850003 MSGDEF 'ICB402I VOLUME NOT FOUND IN MSVC INVENTORY', *12900003 RSNCODE=0000,OLEN1=6,OLOC1=16,FLAGS=2 @Y30LB22 12950003 EJECT @Y30LB22 13000003 MSGDEF 'ICB403I GROUP NOT FOUND FOR VOLUME ', *13050003 RSNCODE=0000,OLEN1=8,OLOC1=15,OLEN2=6,OLOC2=45, @Y30LB22*13100003 FLAGS=2 @Y30LB22 13110003 EJECT @Y30LB22 13150003 MSGDEF 'ICB404I THE HOST CPUID DID NOT MATCH CPUID RECORD ENTR*13200003 Y',RSNCODE=022B,RTNCODE=4,FLAGS=(1,2) @ZM31103 13210003 EJECT @Y30LB22 13300003 MSGDEF 'ICB405I MSVI I/O ERROR: ',OLEN1=36, @Y30LB22*13350003 OLOC1=25,FLAGS=(1,2),RSNCODE=0000 @Y30LB22 13400003 EJECT @Y30LB22 13450003 MSGDEF 'ICB407I NO VOLUME IN GROUP MATCHES SELECTION *13650003 REQUIREMENTS',RSNCODE=0000,OLEN1=8,OLOC1=28, @Y30LB22*13700003 FLAGS=2 @Y30LB22 13750003 EJECT @Y30LB22 13800003 MSGDEF 'ICB408I GROUP HAS REACHED ITS THRESHOLD OF TO*13850000 TAL SPACE',RSNCODE=0000,OLEN1=8,OLOC1=15, @ZA28479*13860000 FLAGS=2 @ZA28479 13890000 EJECT @Y30LB22 13950003 MSGDEF 'ICB409I NO STORAGE AVAILABLE',FLAGS=(1,2), @Y30LB22*14000003 RSNCODE=0234,RTNCODE=4 @ZM30746 14050003 EJECT @Y30LB22 14100003 MSGDEF 'ICB410I CPUID RECORD COULD NOT BE READ',FLAGS=(1,2), *14150003 RSNCODE=0000 @Y30LB22 14200003 EJECT @Y30LB22 14250003 MSGDEF 'ICB411I UNABLE TO RESTORE BASE VOLUME RECORD', *14300003 RSNCODE=0000,FLAGS=(1,2),OLEN1=6,OLOC1=39 @ZM31103 14350003 EJECT @Y30LB22 14400003 MSGDEF 'ICB412I ',FLAGS=(1,2),RSNCODE=0000,OLEN1=52,OLOC1=9 14450003 EJECT @Y30LB22 14500003 MSGDEF 'ICB413I REQUEST TYPE COULD NOT BE DETERMINED BY THE MS*14550003 VC I/O PROCESSOR',RSNCODE=0000,FLAGS=(1,2) @ZM31103 14600003 EJECT @Y30LB22 14650003 MSGDEF 'ICB414I MSVI VSAM RETURN CODE IS , FEEDBACK IS ',*14700003 RSNCODE=0000,FLAGS=(1,2),OLEN1=2,OLOC1=34, @OZ09533*14750003 OLEN2=3,OLOC2=50 @OZ09533 14800003 EJECT @Y30LB22 14850003 MSGDEF 'ICB415I GROUP NOT FOUND IN THE MSVC INVENTORY*14900003 ',RSNCODE=0000,FLAGS=2,OLEN1=8,OLOC1=15 14950003 EJECT @Y30LB22 15000003 MSGDEF 'ICB416I ICBVVICB NOT INITIALIZED',RTNCODE=4,FLAGS=1, *15050003 RSNCODE=0233 @Y30LB22 15100003 EJECT @Y30LB22 15150003 MSGDEF 'ICB417I CPU ASSOCIATION RECORD EXHAUSTED',RTNCODE=4, *15200003 RSNCODE=0234,FLAGS=(1,2) @Y30LB22 15250003 EJECT @Y30LB22 15300003 MSGDEF 'ICB418I MSVC ENABLE SUCCESSFUL',RSNCODE=0000, *15350003 FLAGS=(1,2) @Y30LB22 15400003 EJECT @Y30LB22 15450003 MSGDEF 'ICB419D REPLY Y CONT WITH MSVC DISABLED, N CONT WITHOU*15500003 T 3850; OR REIPL',RSNCODE=0000,FLAGS=(1,3),DESC=2 15550003 EJECT @Y30LB22 15600003 MSGDEF 'ICB420I MSVC PARAMETERS - ',RSNCODE=0000, @Y30LB22*15650003 FLAGS=1 @Y30LB22 15652003 EJECT @Y30LB22 15750003 MSGDEF 'ICB421I MESSAGE ID WAS NOT FOUND IN MESSAGE TA*15800003 BLE',RSNCODE=0000,FLAGS=(1,2),OLEN1=7,OLOC1=20 @ZM31103 15850003 EJECT @Y30LB22 15900003 MSGDEF 'ICB422I SYS1.PARMLIB(MVIKEY00) SPECIFICATION ERROR - *15950003 ',FLAGS=1,OLEN1=4,OLOC1=54,RSNCODE=0000 @YM04320 15960003 EJECT @Y30LB22 16050003 MSGDEF 'ICB423D REPLY WITH MSVC PARAMETERS OR U', @Y30LB22*16100003 RSNCODE=0000,FLAGS=(1,3),DESC=2 @Y30LB22 16150003 EJECT @Y30LB22 16160003 MSGDEF 'ICB424I INVALID REQUEST DURING SYSTEM INITIALIZATION',*16182003 RSNCODE=0216,FLAGS=1,RTNCODE=4 @Y30LB22 16184003 EJECT @Y30LB22 16190003 MSGDEF 'ICB425I ABEND IN PROCESS FOR MSVC TASK ( )', *16196003 RSNCODE=0200,FLAGS=1,RTNCODE=4,OLEN1=8,OLOC1=40 @Y30LB22 16196403 EJECT @Y30LB22 16198003 MSGDEF 'ICB426I RECURSIVE ABEND IN MSVC TASK (ICBVPR00)', *16198903 RSNCODE=0200,FLAGS=1,RTNCODE=4 #Y30LB22 16204203 EJECT #Y30LB22 16206703 MSGDEF 'ICB427I INVENTORY ALREADY RESERVED BY TASK', @Y30LB22*16209203 RSNCODE=0000,FLAGS=(1,2) @ZM31103 16224803 EJECT @Y30LB22 16236803 MSGDEF 'ICB428I JOURNAL ALREADY RESERVED BY TASK', @Y30LB22*16237203 RSNCODE=0000,FLAGS=(1,2) @ZM31103 16246003 EJECT @Y30LB22 16250103 MSGDEF 'ICB429I REQUEST TYPE COULD NOT BE DETERMINED BY THE RE*16254203 SERVE PROCESSOR',RSNCODE=0000,FLAGS=(1,2) @ZM31103 16258303 EJECT @Y30LB22 16262403 MSGDEF 'ICB430I INVENTORY NOT RESERVED BY TASK', @Y30LB22*16266503 RSNCODE=0000,FLAGS=(1,2) @ZM31103 16270603 EJECT @Y30LB22 16274703 MSGDEF 'ICB431I JOURNAL NOT RESERVED BY TASK', @Y30LB22*16284703 RSNCODE=0000,FLAGS=(1,2) @ZM31103 16294703 EJECT @Y30LB22 16305203 MSGDEF 'ICB432I MSVC PURGE|ASSC|DISASSC|SUSPEND FAILURE - ', *16335703 FLAGS=(1,2),OLEN1=2,OLOC1=51,RSNCODE=0000,RTNCODE=4 16337703 EJECT @Y30LB22 16341703 MSGDEF 'ICB433I UNABLE TO ESTABLISH RECOVERY ENVIRONMENT - *16343703 - ',FLAGS=1,RSNCODE=0000, @Y30LB22*16343803 OLEN1=8,OLOC1=52,OLEN2=4,OLOC2=63 @Y30LB22 16344103 EJECT @Y30LB22 16351703 MSGDEF 'ICB434I MSS VOLUME TRACKING INHIBITED - NO STORAGE AVA*16352000 ILABLE',FLAGS=1,RSNCODE=0000 @ZA27588 16354000 EJECT @Y30LB22 16361900 MSGDEF 'ICB435D REPLY (ENABLE, DISABLE, DISABLEJ), HOSTID=(ONL*16366300 INE,OFFLINE)',FLAGS=1,RSNCODE=0000 @ZM31103 16370700 EJECT #Y30LB22 16375100 MSGDEF 'ICB436D ICBVDR01 PARMS REPLY (RECOVER, BACKUP, PRINT)'*16379500 ,FLAGS=1,RSNCODE=0000 @ZM31103 16383900 EJECT #Y30LB22 16388300 MSGDEF 'ICB437I ERROR DURING SUBTASK PROCESSING CODE=*16392700 ',FLAGS=1,RSNCODE=0000,OLEN1=8,OLOC1=9 #Y30LB22*16397100 OLEN2=4,OLOC2=55 #Y30LB22 16401500 EJECT #Y30LB22 16405900 MSGDEF 'ICB438I UNABLE TO LOCATE THE ENTRY ADDRESS OF ICBVQM00*16410300 ',FLAGS=1,RSNCODE=0233,RTNCODE=4 @Y30LB22 16414700 EJECT @Y30LB22 16419100 MSGDEF 'ICB439I ABNORMALLY TERMINATED - ', *16423500 FLAGS=1,RSNCODE=0233,OLEN1=8,OLOC1=9,OLEN2=8,OLOC2=42, *16427900 RTNCODE=4 @Y30LB22 16432303 EJECT @Y30LB22 16482303 MSGDEF 'ICB440I UNABLE TO ESTABLISH THE MSVC TASK ', *16532303 FLAGS=1,RSNCODE=0233,RTNCODE=4,OLEN1=8,OLOC1=43 @Y30LB22 16582303 EJECT @ZA28479 16582700 MSGDEF 'ICB441I GROUP HAS REACHED ITS THRESHOLD OF SE*16583700 LECTABLE SPACE',RSNCODE=0000,OLEN1=8,OLOC1=15, @ZA28479*16584700 FLAGS=2 @ZA28479 16585700 EJECT @Y30LB22 16592303 MSGDEF 'ICB442I DYNAMIC ALLOCATION ERROR - MSVC INVENTORY - *16618303 ',FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=4,OLOC1=53 16620303 EJECT @Y30LB22 16620703 MSGDEF 'ICB443I DYNAMIC ALLOCATION ERROR - MSVC JOURNAL - *16621103 ',FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=4,OLOC1=51 16621503 EJECT @Y30LB22 16621903 MSGDEF 'ICB444I OPEN ERROR - MSVC INVENTORY - ', *16622003 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=4,OLOC1=39 16622103 EJECT @Y30LB22 16622203 MSGDEF 'ICB445I VOLUME NOT FOUND FOR GROUP ', *16626803 FLAGS=2,RSNCODE=0000,OLEN1=6,OLOC1=16,OLEN2=8,OLOC2=43 16628803 EJECT @Y30LB22 16631603 MSGDEF 'ICB446I OPEN ERROR - MSVC JOURNAL', @YM04320*16631703 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4 @YM04320 16631903 EJECT @Y30LB22 16632003 MSGDEF 'ICB447I MSVC ENQ/RESERVE FAILURE - ', @YM31067*16632103 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=4,OLOC1=36 16665503 EJECT @Y30LB22 16682203 MSGDEF 'ICB448I MSVC JOURNAL FAILURE - ', @Y30LB22*16692203 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=4,OLOC1=32 16702203 EJECT @Y30LB22 16882203 MSGDEF 'ICB449I I/O ERROR MSVC INVENTORY - - *16932203 ',RTNCODE=4,FLAGS=(1,2),RSNCODE=0234, @Y30LB22*16942203 OLEN1=12,OLOC1=36,OLEN2=4,OLOC2=51 @Y30LB22 16982203 EJECT @Y30LB22 17072203 MSGDEF 'ICB450I DYNAMIC DE-ALLOCATION ERROR - MSVC INVENTORY -*17074203 ',FLAGS=(1,2),RSNCODE=0234,RTNCODE=4, @Y30LB22*17076203 OLEN1=4,OLOC1=56 @Y30LB22 17078203 EJECT @Y30LB22 17080203 MSGDEF 'ICB451I DYNAMIC DE-ALLOCATION ERROR - MSVC JOURNAL - *17080603 ',FLAGS=(1,2),RSNCODE=0234,RTNCODE=4, @Y30LB22*17081003 OLEN1=4,OLOC1=54 @Y30LB22 17081403 EJECT @Y30LB22 17081803 MSGDEF 'ICB452I CLOSE ERROR - MSVC INVENTORY - ', *17081903 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4, @Y30LB22*17082003 OLEN1=4,OLOC1=40 @Y30LB22 17082103 EJECT @Y30LB22 17098803 MSGDEF 'ICB453I CLOSE ERROR - MSVC JOURNAL', @ZM30724*17108803 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4 @ZM30724 17110803 EJECT @Y30LB22 17114803 MSGDEF 'ICB454I MSVC ALREADY ENABLED', @Y30LB22*17115203 FLAGS=(1,2),RSNCODE=0000 @Y30LB22 17119503 EJECT @Y30LB22 17121403 MSGDEF 'ICB455I MSVC DISABLE SUCCESSFUL', @Y30LB22*17123303 FLAGS=(1,2),RSNCODE=0000 @Y30LB22 17125203 EJECT @Y30LB22 17127103 MSGDEF 'ICB456I ', *17129003 FLAGS=1,RSNCODE=0000,OLEN1=60,OLOC1=9 @Y30LB22 17130900 EJECT @Y30LB22 17132803 MSGDEF 'ICB457I PARAMETER SPECIFICATION ERROR', @Y30LB22*17134703 FLAGS=1,RSNCODE=0000 @Y30LB22 17136603 EJECT @Y30LB22 17138503 MSGDEF 'ICB458I I/O ERROR - MSVC JOURNAL CONTROL RECORD', *17140403 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4 @Y30LB22 17150403 EJECT @Y30LB22 17152403 MSGDEF 'ICB459I I/O ERROR - MSVC JOURNAL DATA RECORD', *17152803 FLAGS=(1,2),RSNCODE=0000 @Y30LB22 17153203 EJECT @Y30LB22 17153603 MSGDEF 'ICB460I *17154003 ',FLAGS=(1,2),RSNCODE=0000,OLEN1=61,OLOC1=9 17154103 EJECT @Y30LB22 17154203 MSGDEF 'ICB461I MSVC JRNL PROCESSING CONTINUES WITH NEXT TRACK*17154303 ',FLAGS=(1,2),RSNCODE=0000 @Y30LB22 17156303 EJECT @Y30LB22 17158303 MSGDEF 'ICB462I FOUR TRACKS IS MIN MSVC JRNL ALLOCATION', *17160303 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4 @Y30LB22 17162303 EJECT @Y30LB22 17163103 MSGDEF 'ICB463E MSVC JOURNAL THRESHOLD EXCEEDED', @YM31067*17163503 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4,DESC=3 @YM31067 17163703 EJECT @Y30LB22 17165703 MSGDEF 'ICB464E MSVC JOURNAL EXHAUSTED', @YM31067*17167703 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4,DESC=3 @YM31067 17168103 EJECT @Y30LB22 17168203 MSGDEF 'ICB465E MSVC JOURNAL DATA LOST', @YM31067*17178803 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4,DESC=3 @YM31067 17188803 EJECT @Y30LB22 17198803 MSGDEF 'ICB466I INVALID ORDER - ',OLEN1=2,OLOC1=25, @Y30LB22*17199203 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4 @Y30LB22 17199603 EJECT @Y30LB22 17200003 MSGDEF 'ICB467I HOSTID NOT FOUND - ',OLEN1=10,OLOC1=28, *17200103 FLAGS=(1,2),RSNCODE=0239,RTNCODE=4 #Y30LB22 17204803 EJECT #Y30LB22 17206503 MSGDEF 'ICB468I MSVC USER CATLG VOL NOT MOUNTED - ', *17208203 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=6,OLOC1=43 17209903 EJECT #Y30LB22 17211603 MSGDEF 'ICB469I MSVC INVENTORY VOLUME NOT MOUNTED - ', *17213303 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=6,OLOC1=45 17215003 EJECT #Y30LB22 17216703 MSGDEF 'ICB470I MSVC JOURNAL VOLUME NOT MOUNTED - ', *17218403 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=6,OLOC1=43 17220103 EJECT #Y30LB22 17221803 MSGDEF 'ICB471I MSVC LOCATE ERROR - - ',*17223503 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=17,OLOC1=29, *17225203 OLEN2=4,OLOC2=49 #YM04320 17226903 EJECT #Y30LB22 17228603 MSGDEF 'ICB472I SUSPEND FOR RECONFIGURATION INVALID - MSVC DIS*17230303 ABLED',FLAGS=(1,2),RSNCODE=0211,RTNCODE=4 #Y30LB22 17232003 EJECT #Y30LB22 17233703 MSGDEF 'ICB473I MOUNT FAILURE ON VUA FOR VOLUME - M*17234903 SC CODE ',RSNCODE=0000,OLEN1=3,OLOC1=30,OLEN2=6, *17235303 OLOC2=45,OLEN3=4,OLOC3=63,FLAGS=(1,2) @OX10810 17237703 EJECT #Y30LB22 17247403 MSGDEF 'ICB474I MSVC ENABLE INVALID - 3850 INOPERATIVE', *17249803 FLAGS=(1,2),RSNCODE=234,RTNCODE=4 @YM04320 17252203 EJECT @ZM30724 17254203 MSGDEF 'ICB475I OPEN ERROR - MSVC CATALOG - - ', *17262203 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=8, @ZM30724*17264203 OLOC1=37,OLEN2=4,OLOC2=48 @ZM30724 17266203 EJECT @ZM30724 17268203 MSGDEF 'ICB476I CLOSE ERROR - MSVC CATALOG - - ',*17270203 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=8, @ZM30724*17270603 OLOC1=38,OLEN2=4,OLOC2=49 @ZM30724 17271003 EJECT @ZM31134 17271403 MSGDEF 'ICB477I MSVC LOGICALLY DISABLED', *17274403 RSNCODE=0000,FLAGS=(1,2) @ZA09550 17277203 EJECT @ZA09550 17278003 MSGDEF 'ICB478I MSVC JOURNAL LOGICALLY DISABLED', *17278103 FLAGS=(1,2),RSNCODE=023A,RTNCODE=4 @ZA09550 17278403 EJECT @G18LB04 17278803 MSGDEF 'ICB479I JES3 REJECTED MSVC SELECTION OF VOLUME '*17278903 ,FLAGS=(2),RSNCODE=0000,RTNCODE=0,OLEN1=6, *17279003 OLOC1=48 @G18MB04 17279103 EJECT #Y30LB22 17279203 MSGDEF 'ICB480I MSVC OBTAIN ERROR - - ',*17279603 FLAGS=(1,2),RSNCODE=0234,RTNCODE=4,OLEN1=17,OLOC1=29, *17329603 OLEN2=4,OLOC2=49 @OZ09538 17339603 EJECT @G18LB04 17389642 MSGDEF 'ICB481I VOLUME IN GROUP EXPIRES '*17399642 ,FLAGS=(2),RSNCODE=0000,RTNCODE=0,OLEN1=6, *17409642 OLOC1=16,OLEN2=8,OLOC2=32,OLEN3=5,OLOC3=49 @G24LB04 17419642 EJECT @G24LB04 17421642 MSGDEF 'ICB482I INVALID DEVICE ADDRESS, X, IN MOUNT FOR VO*17423642 LUME ',FLAGS=(1,2),RSNCODE=023D,RTNCODE=4, *17424042 OLEN1=4,OLOC1=33,OLEN2=6,OLOC2=60 @G24LB04 17425642 EJECT @G24LB04 17427642 MSGDEF 'ICB483I VOLUME IN GROUP HAS INVALID RU*17428042 NNING SPACE',FLAGS=(2),RSNCODE=0000,RTNCODE=0,OLEN1=6, *17428142 OLOC1=16,OLEN2=8,OLOC2=32 @G24LB04 17428842 END ICBVMG00 @Y30LB22 17429603