* 00100002 * %GOTO RBCML1; /* 00200002 MACRO 00300002 IHARB &SYS=AOS2,&DSECT=YES 00400002 GBLA &IHARB 00500002 &IHARB SETA 1 */ 00600002 *%RBCML1 : ; 00700002 * 00800002 */* **************************************************************** */ 00900002 */* OS/VS REQUEST BLOCKS */ 01000002 */* */ 01100002 */* OS/VS2 SU64, 05/12/78, LEVEL=2 */ 01150064 */* */ 01300002 */* METHOD OF ACCESS */ 01400002 */* BAL - A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 01500002 */* USING ON RBPRFX GIVES ADDRESSABILITY FOR ALL SYMBOLS.*/ 01600002 */* */ 01700002 */* THIS MACRO ASSUMES A DEFAULT OF SYS=AOS2 WHICH MEANS */ 01800002 */* A MAPPING OF OS/VS2 RB'S IS DESIRED. IF A MAPPING */ 01900002 */* OF OS/VS1 RB'S IS DESIRED, SPECIFY SYS=AOS1 ON MACRO */ 02000002 */* CALL. */ 02100002 */* */ 02200002 */* PL/S - DCL RBSECPTR PTR */ 02300002 */* IF %RBSYSTM='AOS1', ALSO SPECIFY */ 02400002 */* DCL CDBPTR PTR AND */ 02500002 */* DCL XRBPTR PTR OR %XRBPTR='RBSECPTR' */ 02600002 */* */ 02700002 */* THIS MACRO ASSUMES IT IS MAPPING OS/VS2 RB'S. IF A */ 02800002 */* MAPPING OF OS/VS1 RB'S IS DESIRED, SPECIFY */ 02900002 */* %RBSYSTM='AOS1' BEFORE THE INCLUDE FOR THIS MACRO. */ 03000002 */* DO NOT SET RBSYSTM TO 'AOS2' BECAUSE NULL MEANS */ 03100002 */* OS/VS2. */ 03200002 */* */ 03300002 */* NOTE */ 03400002 */* THIS MACRO MAPS THE RB FIELDS WHICH ARE COMMON BETWEEN */ 03500002 */* OS/VS1 AND OS/VS2. IF SYS=AOS2 OR %RBSYSTM='', IKJRB IS */ 03600002 */* INVOKED TO MAP THE OS/VS2 FIELDS. IF SYS=AOS1 OR */ 03700002 */* %RBSYSTM='AOS1', IEZXRB IS INVOKED TO MAP THE OS/VS1 FIELDS.*/ 03800002 */* THE PL/S INCLUDE STATEMENTS SPECIFY DDNAME OF SYSLIB. */ 03900002 */* **************************************************************** */ 04000002 *%GOTO RBCML2; /* 04100002 IEZBITS , - SYMBOLIC BIT DEFINITIONS 04200002 AIF ('&DSECT' EQ 'NO').NODSCT1 04300002 RBPRFX DSECT , - RBSECPTR-64 04400002 AGO .CONT1 04500002 .NODSCT1 ANOP 04600002 DS 0D 04700002 RBPRFX EQU * - RBSECPTR-64 04800002 .CONT1 ANOP 04900002 DS 8D - PREFIX IS SYSTEM DEPENDENT 05000002 RBBASIC EQU * - START OF BASIC SECTION OF RB 05100002 RBEXRTNM DS 0CL8 - EIGHT-CHARACTER NAME OF ERROR EXIT 05200002 * ROUTINE (SIRB) 05300002 RBTMFLD DS B - INDICATORS FOR TIMER ROUTINES. WHEN 05400002 * THERE ARE NO TIMER ROUTINES, THIS FIELD 05500002 * IS ZERO. (IRB) 05600002 RBTMQUE EQU BIT0 - TIMER ELEMENT NOT ON QUEUE 05700002 RBTMTOD EQU BIT1 - LOCAL TIME-OF-DAY OPTION IS USED 05800002 RBRSV005 EQU BIT2,,C'X' - RESERVED 05900002 RBWLIM EQU BIT3 - WAIT LIMIT EXCEEDED MDC001 05950002 RBTMCMP EQU BIT4 - INTERVAL HAS EXPIRED 06100002 RBTMIND2 EQU BIT5 - EXIT SPECIFIED WITH TASK OR REAL REQUEST 06200002 RBTMIND3 EQU BIT6+BIT7 - TYPE OF REQUEST 06300002 RBTREQ EQU X'00' - TASK REQUEST 06400002 RBWREQ EQU BIT7 - WAIT REQUEST 06500002 RBRREQ EQU BIT6+BIT7 - REAL REQUEST 06600002 DS XL7 - LAST 7 BYTES OF RBEXRTNM 06700002 DS H - SYSTEM-DEPENDENT FIELD 06800002 RBSTAB DS 0BL2 - STATUS AND ATTRIBUTE BITS (ALL RB'S) 06900002 XSTAB DS 0BL2 - SAME AS RBSTAB 07000002 RBSTAB1 DS 0B - FIRST BYTE OF STATUS AND ATTRIBUTE BITS 07100002 XSTAB1 DS B - SAME AS RBSTAB1 07200002 * BITS 0-4 ARE SYSTEM-DEPENDENT BITS 07210002 RBFTCKPT EQU BIT5 - A CHECKPOINT MAY BE TAKEN IN A USER EXIT 07300002 * FROM THIS SVC ROUTINE (SVRB-BOTH) 07400002 XRBCKPT EQU BIT5 - SAME AS RBFTCKPT 07500002 * BITS 6-7 ARE SYSTEM-DEPENDENT BITS 07510002 RBSTAB2 DS 0B - SECOND BYTE OF STATUS AND ATTRIBUTE BITS 07600002 XSTAB2 DS B - SAME AS RBSTAB2 07700002 RBTCBNXT EQU BIT0 - RBLINK FIELD POINTS TO TCB (ALL RB'S) 07800002 XRBTCBP EQU BIT0 - SAME AS RBTCBNXT 07900002 RBFACTV EQU BIT1 - IRB OR SIRB IS QUEUED TO TCB - PROGRAM IS 08000002 * ACTIVE 08100002 XRBACTV EQU BIT1 - ACTIVE PROGRAM (ALL RB'S EXCEPT LPRB AND 08200003 * LRB FOR OS/VS1) (MDC300) @X04EE9A 08205003 * BITS 2-5 ARE SYSTEM-DEPENDENT BITS 08210002 RBFDYN EQU BIT6 - RB STORAGE CAN BE FREED AT EXIT 08300002 XRBFRRB EQU BIT6 - SAME AS RBFDYN 08400002 RBECBWT EQU BIT7 - IF ZERO, WAIT FOR A SINGLE EVENT OR ALL 08500002 * OF A NUMBER OF EVENTS --- 08600002 * IF ONE, WAIT FOR A NUMBER OF EVENTS THAT 08700002 * IS LESS THAN THE TOTAL NUMBER OF EVENTS 08800002 * WAITING 08900002 XRBWAIT EQU BIT7 - SAME AS RBECBWT 09000002 DS A - SYSTEM-DEPENDENT FIELD 09010002 RBOPSW DS 0CL8 - USER'S OLD PSW (ALL RB'S EXCEPT FRB) 09020002 XRBPSW DS 0CL8 - SAME AS RBOPSW @X50AD9A 09030004 RBOPSWB1 DS B - OLD PSW BYTE 1 (MDC309) @G64RP9A 09035064 RBOPER EQU X'40' - PER BIT IN RBOPSWB1 (MDC310) @G64RP9A 09040064 RBOPSWB2 DS B - OLD PSW BYTE 2 (MDC304) @X50AD9A 09050004 RBOPSWPS EQU X'01' - PROBLEM STATE BIT IN OLD PSW 09060004 * (MDC305) @X50AD9A 09070004 DS CL6 - OLD PSW BYTES 3-8 @X50AD9A 09080004 DS A - SYSTEM-DEPENDENT FIELD 09100002 RBLINK DS 0A - SAME AS RBLINKB BELOW 09200002 XRBLNK DS 0A - SAME AS RBLINKB BELOW 09300002 RBWCF DS 0FL1 - NUMBER OF REQUESTS WAITING (WAIT COUNT) 09400002 * (ALL RB'S FOR OS/VS2) 09500003 XRBWT DS FL1 - SAME AS RBWCF (ALL RB'S EXCEPT LPRB AND 09560003 * LRB FOR OS/VS1) (MDC301) @X04DJ9A 09620003 RBLINKB DS 0AL3 - ADDRESS OF PREVIOUS RB, OR ADDRESS OF TCB 09700002 * WHEN THIS IS FIRST RB ON THE QUEUE 09800002 * (ALL RB'S FOR OS/VS2) 09900003 XRBLNKA DS AL3 - SAME AS RBLINKB (ALL RB'S EXCEPT LPRB AND 09960003 * LRB FOR OS/VS1) (MDC302) @X04DJ9A 10020003 RBGRSAVE DS 0CL64 - GENERAL REGISTER SAVE AREA 10100002 * (SVRB-BOTH, IRB, TIRB FOR OS/VS2) 10200003 XRBREG DS 0CL64 - SAME AS RBGRSAVE 10400002 * (IRB, SIRB, SVRB FOR OS/VS1) 10450003 RBGRS0 DS 0F - SAVE AREA FOR GENERAL REGISTER 0 10500002 XRBREG0 DS F - SAME AS RBGRS0 10600002 RBGRS1 DS 0F - SAVE AREA FOR GENERAL REGISTER 1 10700002 XRBREG1 DS F - SAME AS RBGRS1 10800002 RBGRS2 DS 0F - SAVE AREA FOR GENERAL REGISTER 2 10900002 XRBREG2 DS F - SAME AS RBGRS2 11000002 RBGRS3 DS 0F - SAVE AREA FOR GENERAL REGISTER 3 11100002 XRBREG3 DS F - SAME AS RBGRS3 11200002 RBGRS4 DS 0F - SAVE AREA FOR GENERAL REGISTER 4 11300002 XRBREG4 DS F - SAME AS RBGRS4 11400002 RBGRS5 DS 0F - SAVE AREA FOR GENERAL REGISTER 5 11500002 XRBREG5 DS F - SAME AS RBGRS5 11600002 RBGRS6 DS 0F - SAVE AREA FOR GENERAL REGISTER 6 11700002 XRBREG6 DS F - SAME AS RBGRS6 11800002 RBGRS7 DS 0F - SAVE AREA FOR GENERAL REGISTER 7 11900002 XRBREG7 DS F - SAME AS RBGRS7 12000002 RBGRS8 DS 0F - SAVE AREA FOR GENERAL REGISTER 8 12100002 XRBREG8 DS F - SAME AS RBGRS8 12200002 RBGRS9 DS 0F - SAVE AREA FOR GENERAL REGISTER 9 12300002 XRBREG9 DS F - SAME AS RBGRS9 12400002 RBGRS10 DS 0F - SAVE AREA FOR GENERAL REGISTER 10 12500002 XRBREG10 DS F - SAME AS RBGRS10 12600002 RBGRS11 DS 0F - SAVE AREA FOR GENERAL REGISTER 11 12700002 XRBREG11 DS F - SAME AS RBGRS11 12800002 RBGRS12 DS 0F - SAVE AREA FOR GENERAL REGISTER 12 12900002 XRBREG12 DS F - SAME AS RBGRS12 13000002 RBGRS13 DS 0F - SAVE AREA FOR GENERAL REGISTER 13 13100002 XRBREG13 DS F - SAME AS RBGRS13 13200002 RBGRS14 DS 0F - SAVE AREA FOR GENERAL REGISTER 14 13300002 XRBREG14 DS F - SAME AS RBGRS14 13400002 RBGRS15 DS 0F - SAVE AREA FOR GENERAL REGISTER 15 13500002 XRBREG15 DS F - SAME AS RBGRS15 13600002 DS 0D 13610002 RBEXSAVE DS 0CL48 - EXTENDED SAVE AREA FOR SVC ROUTINES 13700002 * (SVRB-BOTH) (OS/VS2) 13800002 XRBESA DS 10D - SVRB - EXTENDED SAVE AREA OF UP TO TEN 13810003 * DOUBLEWORDS REQUESTED FOR SVC ROUTINE 13820002 * (OS/VS1) (MDC303) @X04DJ9A 13830003 SPACE 2 14200002 AIF ('&SYS' EQ 'AOS2').RBCMA2 14300002 IEZXRB DSECT=NO,COM=YES 14400002 MEXIT 14500002 .RBCMA2 ANOP 14600002 IKJRB DSECT=NO,COM=YES 14700002 MEND , */ 14800002 *%RBCML2 : ; 14900002 * 14910002 *DECLARE 14920002 * 1 RBPRFX BASED(RBSECPTR-64) BDY(DWORD), 14930002 * 2 * CHAR(64) BDY(DWORD); /* PREFIX IS 14940002 * SYSTEM-DEPENDENT */ 14950002 * 15000002 *DECLARE 15100002 * 1 RBBASIC BASED(RBSECPTR) BDY(DWORD), 15200002 * 2 RBEXRTNM CHAR(8) BDY(WORD), /* EIGHT-CHARACTER NAME OF 15300002 * ERROR EXIT ROUTINE 15400002 * (SIRB) */ 15500002 * 3 RBTMFLD CHAR(1), /* INDICATORS FOR TIMER 15600002 * ROUTINES. WHEN THERE 15700002 * ARE NO TIMER ROUTINES, 15800002 * THIS FIELD IS ZERO. 15900002 * (IRB) */ 16000002 * 4 RBTMQUE BIT(1), /* TIMER ELEMENT NOT ON 16100002 * QUEUE */ 16200002 * 4 RBTMTOD BIT(1), /* LOCAL TIME-OF-DAY OPTION 16300002 * IS USED */ 16400002 * 4 RBRSV005 BIT(1), /* RESERVED */ 16500002 * 4 RBWLIM BIT(1), /* WAIT LIMIT EXCEEDED 16600002 * MDC001*/ 16650002 * 4 RBTMCMP BIT(1), /* INTERVAL HAS EXPIRED */ 16700002 * 4 RBTMIND2 BIT(1), /* EXIT SPECIFIED WITH TASK 16800002 * OR REAL REQUEST */ 16900002 * 4 RBTMIND3 BIT(2), /* TYPE OF REQUEST */ 17000002 *%DCL RBTREQ CHAR; 17100002 *%RBTREQ ='''00''B'; /* TASK REQUEST */ 17200002 *%DCL RBWREQ CHAR; 17300002 *%RBWREQ ='''01''B'; /* WAIT REQUEST */ 17400002 *%DCL RBRREQ CHAR; 17500002 *%RBRREQ ='''11''B'; /* REAL REQUEST */ 17600002 * 3 * CHAR(7), /* LAST 7 BYTES OF RBEXRTNM */ 17700002 * 2 * FIXED(15), /* SYSTEM-DEPENDENT FIELD */ 17800002 * 2 RBSTAB BIT(16), /* STATUS AND ATTRIBUTE 17900002 * BITS (ALL RB'S) */ 18000002 * 3 XSTAB BIT(16), /* SAME AS RBSTAB */ 18100002 * 4 RBSTAB1 BIT(8), /* FIRST BYTE OF STATUS AND 18200002 * ATTRIBUTE BITS */ 18300002 * 5 XSTAB1 BIT(8), /* SAME AS RBSTAB1 */ 18400002 * 6 * BIT(5), /* SYSTEM-DEPENDENT BITS */ 18500002 * 6 RBFTCKPT BIT(1), /* A CHECKPOINT MAY BE 18600002 * TAKEN IN A USER EXIT 18700002 * FROM THIS SVC ROUTINE 18800002 * (SVRB-BOTH) */ 18900002 * 7 XRBCKPT BIT(1), /* SAME AS RBFTCKPT */ 19000002 * 6 * BIT(2), /* SYSTEM-DEPENDENT BITS */ 19100002 * 4 RBSTAB2 BIT(8), /* SECOND BYTE OF STATUS 19200002 * AND ATTRIBUTE BITS */ 19300002 * 5 XSTAB2 BIT(8), /* SAME AS RBSTAB2 */ 19400002 * 6 RBTCBNXT BIT(1), /* RBLINK FIELD POINTS TO 19500002 * TCB (ALL RB'S) */ 19600002 * 7 XRBTCBP BIT(1), /* SAME AS RBTCBNXT */ 19700002 * 6 RBFACTV BIT(1), /* IRB OR SIRB IS QUEUED TO 19800002 * TCB - PROGRAM IS ACTIVE */ 19900002 * 7 XRBACTV BIT(1), /* ACTIVE PROGRAM (ALL RB'S 20000003 * EXCEPT LPRB AND LRB FOR 20030003 * OS/VS1) (MDC300) @X04EE9A*/ 20060003 * 6 * BIT(4), /* SYSTEM-DEPENDENT BITS */ 20100002 * 6 RBFDYN BIT(1), /* RB STORAGE CAN BE FREED 20200002 * AT EXIT */ 20300002 * 7 XRBFRRB BIT(1), /* SAME AS RBFDYN */ 20400002 * 6 RBECBWT BIT(1), /* IF ZERO, WAIT FOR A 20500002 * SINGLE EVENT OR ALL OF 20600002 * A NUMBER OF EVENTS --- 20700002 * IF ONE, WAIT FOR A 20800002 * NUMBER OF EVENTS THAT 20900002 * IS LESS THAN THE TOTAL 21000002 * NUMBER OF EVENTS WAITING */ 21100002 * 7 XRBWAIT BIT(1), /* SAME AS RBECBWT */ 21300002 * 2 * PTR(31), /* SYSTEM-DEPENDENT FIELD */ 21400002 * 2 RBOPSW CHAR(8) BDY(DWORD), /* USER'S OLD PSW (ALL 21500002 * RB'S EXCEPT FRB) */ 21600002 * 3 XRBPSW CHAR(8) BDY(DWORD), /* SAME AS RBOPSW */ 21700002 * 4 RBOPSWB1 BIT(8), /* OLD PSW BYTE 1 21705064 * (MDC309) @G64RP9A*/ 21710064 * 5 * BIT(1), /* BIT0 OF RBOPSWB1 @G64RP9A*/ 21712064 * 5 RBOPER BIT(1), /* PER BIT (MDC310) @G64RP9A*/ 21714064 * 4 RBOPSWB2 BIT(8), /* OLD PSW BYTE 2 21720004 * (MDC304) @X50AD9A*/ 21730004 * 5 * BIT(7), /* BITS 0-6 OF OLD PSW 21740004 * BYTE 2 @X50AD9A*/ 21750004 * 5 RBOPSWPS BIT(1), /* PROBLEM STATE BIT IN OLD 21760004 * PSW (MDC305) @X50AD9A*/ 21770004 * 2 * PTR(31), /* SYSTEM-DEPENDENT FIELD */ 21800002 * 2 RBLINK PTR(31), /* SAME AS RBLINKB BELOW */ 21900002 * 3 XRBLNK PTR(31), /* SAME AS RBLINKB BELOW */ 22000002 * 4 RBWCF PTR(8), /* NUMBER OF REQUESTS 22100002 * WAITING (WAIT COUNT) 22200002 * (ALL RB'S FOR OS/VS2) */ 22300003 * 5 XRBWT PTR(8), /* SAME AS RBWCF (ALL RB'S 22350003 * EXCEPT LPRB AND LRB FOR 22400003 * OS/VS1) (MDC301) @X04DJ9A*/ 22450003 * 4 RBLINKB PTR(24), /* ADDRESS OF PREVIOUS RB, 22500002 * OR ADDRESS OF TCB WHEN 22600002 * THIS IS FIRST RB ON THE 22700002 * QUEUE (ALL RB'S FOR 22800003 * OS/VS2) */ 22850003 * 5 XRBLNKA PTR(24), /* SAME AS RBLINKB (ALL RB'S 22900003 * EXCEPT LPRB AND LRB FOR 22930003 * OS/VS1) (MDC302) @X04DJ9A*/ 22960003 * 2 RBGRSAVE CHAR(64) BDY(WORD), /* GENERAL REGISTER SAVE 23000002 * AREA (SVRB-BOTH, IRB, 23100002 * TIRB FOR OS/VS2) */ 23200003 * 3 XRBREG CHAR(64) BDY(WORD), /* SAME AS RBGRSAVE (IRB, 23400003 * SIRB, SVRB FOR OS/VS1) */ 23450003 * 4 RBGRS0 FIXED(31), /* SAVE AREA FOR GENERAL 23500002 * REGISTER 0 */ 23600002 * 5 XRBREG0 FIXED(31), /* SAME AS RBGRS0 */ 23700002 * 4 RBGRS1 FIXED(31), /* SAVE AREA FOR GENERAL 23800002 * REGISTER 1 */ 23900002 * 5 XRBREG1 FIXED(31), /* SAME AS RBGRS1 */ 24000002 * 4 RBGRS2 FIXED(31), /* SAVE AREA FOR GENERAL 24100002 * REGISTER 2 */ 24200002 * 5 XRBREG2 FIXED(31), /* SAME AS RBGRS2 */ 24300002 * 4 RBGRS3 FIXED(31), /* SAVE AREA FOR GENERAL 24400002 * REGISTER 3 */ 24500002 * 5 XRBREG3 FIXED(31), /* SAME AS RBGRS3 */ 24600002 * 4 RBGRS4 FIXED(31), /* SAVE AREA FOR GENERAL 24700002 * REGISTER 4 */ 24800002 * 5 XRBREG4 FIXED(31), /* SAME AS RBGRS4 */ 24900002 * 4 RBGRS5 FIXED(31), /* SAVE AREA FOR GENERAL 25000002 * REGISTER 5 */ 25100002 * 5 XRBREG5 FIXED(31), /* SAME AS RBGRS5 */ 25200002 * 4 RBGRS6 FIXED(31), /* SAVE AREA FOR GENERAL 25300002 * REGISTER 6 */ 25400002 * 5 XRBREG6 FIXED(31), /* SAME AS RBGRS6 */ 25500002 * 4 RBGRS7 FIXED(31), /* SAVE AREA FOR GENERAL 25600002 * REGISTER 7 */ 25700002 * 5 XRBREG7 FIXED(31), /* SAME AS RBGRS7 */ 25800002 * 4 RBGRS8 FIXED(31), /* SAVE AREA FOR GENERAL 25900002 * REGISTER 8 */ 26000002 * 5 XRBREG8 FIXED(31), /* SAME AS RBGRS8 */ 26100002 * 4 RBGRS9 FIXED(31), /* SAVE AREA FOR GENERAL 26200002 * REGISTER 9 */ 26300002 * 5 XRBREG9 FIXED(31), /* SAME AS RBGRS9 */ 26400002 * 4 RBGRS10 FIXED(31), /* SAVE AREA FOR GENERAL 26500002 * REGISTER 10 */ 26600002 * 5 XRBREG10 FIXED(31), /* SAME AS RBGRS10 */ 26700002 * 4 RBGRS11 FIXED(31), /* SAVE AREA FOR GENERAL 26800002 * REGISTER 11 */ 26900002 * 5 XRBREG11 FIXED(31), /* SAME AS RBGRS11 */ 27000002 * 4 RBGRS12 FIXED(31), /* SAVE AREA FOR GENERAL 27100002 * REGISTER 12 */ 27200002 * 5 XRBREG12 FIXED(31), /* SAME AS RBGRS12 */ 27300002 * 4 RBGRS13 FIXED(31), /* SAVE AREA FOR GENERAL 27400002 * REGISTER 13 */ 27500002 * 5 XRBREG13 FIXED(31), /* SAME AS RBGRS13 */ 27600002 * 4 RBGRS14 FIXED(31), /* SAVE AREA FOR GENERAL 27700002 * REGISTER 14 */ 27800002 * 5 XRBREG14 FIXED(31), /* SAME AS RBGRS14 */ 27900002 * 4 RBGRS15 FIXED(31), /* SAVE AREA FOR GENERAL 28000002 * REGISTER 15 */ 28100002 * 5 XRBREG15 FIXED(31), /* SAME AS RBGRS15 */ 28200002 * 2 XRBESA CHAR(80) BDY(DWORD), /* SVRB - EXTENDED SAVE AREA 28210003 * OF UP TO TEN DOUBLEWORDS 28220003 * REQUESTED FOR SVC ROUTINE 28230003 * (OS/VS1) 28240004 * (MDC303) @X04DJ9A*/ 28270004 * 3 RBEXSAVE CHAR(48) BDY(DWORD); /* EXTENDED SAVE AREA FOR 28300002 * SVC ROUTINES (SVRB-BOTH) 28400002 * (OS/VS2) */ 28410002 *%IF RBSYSTM='' %THEN 29000002 * %GOTO RBCMA2; 29100002 *%INCLUDE SYSLIB(IEZXRB); 29200002 *%GOTO RBCMA3; 29300002 *%RBCMA2 : ; 29400002 *%INCLUDE SYSLIB(IKJRB); 29500002 *%RBCMA3 : ; 29600002