* %GOTO RCAPLS; /* 00050002 MACRO 00100002 IHARCA &DSECT=YES 00150002 IEZBITS 00200002 AGO .RCAARND 00250002 *********************************************************************** 00300002 * * 00350002 * STATUS - * 00400002 * CHANGE LEVEL 0 * 00450002 * OZ28519 * 00470043 * FUNCTION - * 00500002 * MAPPING MACRO FOR RECOVERY COMMUNICATIONS AREA * 00550002 * ENTRY POINTS - * 00600002 * IHARCA MACRO CALL * 00650002 * INPUT - * 00700002 * SEE IHARCA MACRO DEFINITION * 00750002 * OUTPUT - * 00800002 * RCA MAPPING MACRO * 00850002 * EXTERNAL REFERENCES - * 00900002 * N/A * 00950002 * EXITS, NORMAL - * 01000002 * N/A * 01050002 * EXITS, ERROR - * 01100002 * N/A * 01150002 * TABLES/WORK AREAS - * 01200002 * N/A * 01250002 * ATTRIBUTES - * 01300002 * BILINGUAL MACRO * 01350002 * CHARACTER CODE DEPENDENCY - * 01400002 * NONE * 01450002 * NOTES - * 01500002 * NONE * 01550002 * * 01600002 *********************************************************************** 01650002 .RCAARND ANOP 01700002 *********************************************************************** 01750002 ** RECOVERY COMMUNICATIONS AREA 2/21/78 * 01770043 ** * 01780043 ** THIS MACRO SUPPORTS: SU33 * 01790043 ** * 01850002 ** THE RSM RCA CONTAINS INFORMATION REQUIRED BY THE RSM FUNCTIONAL * 01900002 ** RECOVERY ROUTINE. THE RSM RCA IS MAPPED TO THE WORK AREA RETURNED * 01950002 ** BY SETFRR WHEN AN FRR IS ESTABLISHED. EACH RSM ROUTINE * 02000002 ** COMMUNICATES TO THE FRR VIA THIS AREA. * 02010002 ** * 02020002 *********************************************************************** 02050002 AIF ('&DSECT' EQ 'NO').RCA001 02100002 RCA DSECT , RCAPTR 02150002 AGO .RCA002 02200002 .RCA001 ANOP 02250002 RCA DS 0F 02300002 .RCA002 ANOP 02350002 *********************************************************************** 02374802 RCAPARM0 DS F - VALUE TO BE PLACED IN REGISTER 0 WHEN 02377402 * ROUTINE RETRY IS INVOKED. 02378002 RCAPARM1 DS F - VALUE TO BE PLACED IN REGISTER 1 WHEN 02378602 * ROUTINE RETRY IS INVOKED. 02379202 RCANAME7 DS BL1 BIT MAP REPRESENTING RSM ENTRY POINTS 02381243 * SET TO 1 ON ENTRY. ZERO ON EXIT. @Z40WPYD 02383243 RCAPIOI EQU BIT0 - IEAVPIOI FLAG @Z40WPYD 02385243 RCAPSIY EQU BIT1 - @G33VPOD 02386243 RCAPRSB EQU BIT2 - IEAVPRSB FLAG @G33VPOD 02388243 RCAPRSR EQU BIT3 - IEAVPRSR FLAG @G33VPOD 02389243 RCAPRSS EQU BIT4 - IEAVPRSS FLAG @G33VPOD 02390243 RCACSECT DS XL1 - ID OF THE MODULE IN CONTROL 02394002 RCAC001 EQU X'01' RESERVED MODULE ID 02394402 RCACRSB EQU X'02' IEAVPRSB MODULE ID @G33VPOD 02394643 RCACINIO EQU X'03' IEAVPIOI MODULE ID @Z40WPYD 02395240 RCACSQA EQU X'04' IEAVSQA MODULE ID 02395602 RCACVR EQU X'05' IEAVEQR MODULE ID 02395702 RCACPS EQU X'06' IEAVPSI MODULE ID 02395802 RCACPGRL EQU X'07' IEAVRELS MODULE ID 02395902 RCACINIT EQU X'08' IEAVITAS MODULE ID 02398002 RCACDELE EQU X'09' IEAVDLAS MODULE ID 02400002 RCACREAT EQU X'0A' IEAVCSEG MODULE ID 02400402 RCACDEST EQU X'0B' IEAVDSEG MODULE ID 02400802 RCACREP EQU X'0C' IEAVPCB MODULE ID @Z30GNYD 02400903 RCACPIX EQU X'0D' IEAVPIX MODULE ID 02401402 RCACGFA EQU X'0E' IEAVGFA MODULE ID 02401802 RCACREPL EQU X'0F' IEAVRFR MODULE ID 02403802 RCACRECF EQU X'10' IEAVRCF MODULE ID 02404102 RCACPTRM EQU X'11' IEAVTERM MODULE ID 02404502 RCACSWPC EQU X'12' IEAVSWPC MODULE ID @Z40WPYD 02404640 RCACPOST EQU X'13' IEAVPIOP MODULE ID 02405140 RCACCOMP EQU X'14' IEAVIOCP MODULE ID 02405240 RCACPGFR EQU X'15' IEAVFREE MODULE ID 02405302 RCACPGFL EQU X'16' IEAVFXLD MODULE ID 02405702 RCACPGOT EQU X'17' IEAVOUT MODULE ID 02406102 RCACVAM EQU X'18' IEAVAMSI MODULE ID 02406202 RCACSPIN EQU X'19' IEAVSWIN MODULE ID 02406702 RCACSPOT EQU X'1A' IEAVSOUT MODULE ID 02407102 RCAFLAGS DS BL1 - FLAG BYTE 02407902 RCALOCKS EQU RCAFLAGS 02408302 RCASAL EQU BIT0 - 1 - SALLOC LOCK AQUIRED 02408402 RCALL EQU BIT1 - 1 - LOCAL LOCK AQUIRED 02408902 RCAABEND EQU BIT2 - 1 - RSM IS ABENDING CALLER 02409302 RCAPSIER EQU BIT3 - 1 - PSI ABENDED WITH INPUT ERROR 02411302 RCAQS EQU BIT4 - 1 - RSM QUEUES ARE BEING ALTERED 02413302 ** BIT 5 IS USED BY SE1 @ZA28519 02415343 RCADISP EQU BIT6 - 1 - DISP LOCK ACQUIRED @ZA28519 02416243 ** BIT 7 IS RESERVED @ZA28519 02417143 RCARCRD DS BL1 - REASON CODE 02419202 RCANAME1 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02421202 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02423202 RCAVAMSI EQU BIT0 - IEAVAMSI FLAG 02425202 RCACSEG EQU BIT1 - IEAVCSEG FLAG 02427202 RCADLAS EQU BIT2 - IEAVDLAS FLAG 02429202 RCADSEG EQU BIT3 - IEAVDSEG FLAG 02431202 RCAVEQR EQU BIT4 - IEAVEQR FLAG 02433202 RCAFXLD EQU BIT5 - IEAVFXLD FLAG 02435202 RCAGFA EQU BIT6 - IEAVGFA FLAG 02437202 RCAINV EQU BIT7 - IEAVINV FLAG 02439202 RCANAME2 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02441202 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02443202 RCAIOCP EQU BIT0 - IEAVIOCP FLAG 02445202 RCAITAS EQU BIT1 - IEAVITAS FLAG 02447202 RCAOUT EQU BIT2 - IEAVOUT FLAG 02449202 RCAPCB EQU BIT3 - IEAVPCB FLAG 02451202 RCAPFTE EQU BIT4 - IEAVPFTE FLAG 02453202 RCASWPP EQU BIT5 - IEAVSWPP FLAG @Z40WPYD 02453840 RCASWPC EQU BIT6 - IEAVSWPC FLAG @Z40WPYD 02454440 RCAPIOP EQU BIT7 - IEAVPIOP FLAG 02459202 RCANAME3 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02461202 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02463202 RCAPIX EQU BIT0 - IEAVPIX FLAG 02465202 RCAPS112 EQU BIT1 - IGC112 FLAG 02467202 RCAPSIB EQU BIT2 - IEAVPSIB FLAG 02469202 RCAPSII EQU BIT3 - IEAVPSII FLAG 02471202 RCARCF EQU BIT4 - IEAVRCF FLAG 02473202 RCARCFI EQU BIT5 - IEAVRCFI FLAG 02475202 RCARELS EQU BIT6 - IEAVRELS FLAG 02477202 RCARFR EQU BIT7 - IEAVRFR FLAG 02479202 RCANAME4 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02481202 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02483202 RCASOUT EQU BIT0 - IEAVSOUT FLAG 02485202 RCASWIN EQU BIT1 - IEAVSWIN FLAG 02487202 RCASQA EQU BIT2 - IEAVSQA FLAG 02489202 RCATERM EQU BIT3 - IEAVTERM FLAG 02491202 RCAVEQRC EQU BIT4 - IEAVEQRC FLAG 02493202 RCAVEQRF EQU BIT5 - IEAVEQRF FLAG 02495202 RCAVEQRI EQU BIT6 - IEAVEQRI FLAG 02497202 RCAGFAD EQU BIT7 - IEAVGFAD FLAG 02499202 RCANAME5 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02501202 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02503202 RCARELF EQU BIT0 - IEAVRELF FLAG 02513202 RCARELV EQU BIT1 - IEAVRELV FLAG 02513302 RCASIRT EQU BIT2 - IEAVSIRT FLAG 02513402 RCASORT EQU BIT3 - IEAVSORT FLAG 02513502 RCAOPBR EQU BIT4 - IEAVOPBR FLAG 02515102 RCACPBR EQU BIT5 - IEAVCPBR FLAG 02517102 RCARFR2 EQU BIT6 - IEAVRFR2 FLAG 02517202 RCAFREE EQU BIT7 - IEAVFREE FLAG 02517302 RCANAME6 DS BL1 - BIT MAP REPRESENTING RSM ENTRY POINTS *02517402 SET TO 1 ON ENTRY. SET TO 0 ON EXIT. 02519502 RCAPS113 EQU BIT0 - IGC113 FLAG 02521502 RCAFXL EQU BIT1 - IEAVFXL FLAG 02521602 RCACSGB EQU BIT2 - IEAVCSGB FLAG 02526402 RCARCFC EQU BIT3 - IEAVRCFC FLAG 02528402 RCAVEQRP EQU BIT4 - IEAVEQRP FLAG 02530402 RCAPSIX EQU BIT5 - IEAVFXLD FAST-PATH FOR IOS FLAG 02532402 RCAPSIF EQU BIT6 - IEAVFREE FAST-PATH FOR IOS FLAG 02533402 RCAREP1 EQU BIT7 - IEAVREP1 FLAG @Z30GNYD 02534803 RCATASID DS AL2 @G33VPOD 02534943 RCARETAD DS F - ADDRESS OF RETRY ROUTINE TO BE INVOKED IF 02577002 * AN UNEXPECTED ERROR OCCURS. 02579002 RCALENTH EQU *-RCA - LENGTH OF RCA 02581602 MEND , */ 02586202 *%RCAPLS : ; 02590802 * /*******************************************************************/ 02595402 * /* RECOVERY COMMUNICATIONS AREA 2/21/78 */ 02597443 * /* */ 02604443 * /*THIS MACRO SUPPORTS: SU33 */ 02611443 * /* */ 02650002 * /*THE RSM RCA CONTAINS INFORMATION REQUIRED BY THE RSM FUNCTIONAL */ 02700002 * /*RECOVERY ROUTINE. THE RSMRCA IS MAPPED TO THE WORK AREA RETURNED*/ 02750002 * /*BY SETFRR WHEN AN FRR IS ESTABLISHED. EACH RSM ROUTINE */ 02800002 * /*COMMUNICATES TO THE FRR VIA THIS AREA. */ 02810002 * /*******************************************************************/ 02850002 * %IF RCALEVEL ^= '' /* IF THIS IS CONCATENATED */ 03000002 * %THEN %GOTO RCAPLS1; /* THEN SKIP DCL */ 03050002 *DCL 1 RCA BASED (RCAPTR) /* DECLARE RCA LEVEL 1 */ 03100002 * %GO TO RCAPLS2; /* AND SKIP LEVEL TWO DCL */ 03150002 *%RCAPLS1: RCADUM=RCALEVEL||' RCA'; /* SET LEVEL FOR MINOR STRUCTURE */ 03200002 * RCADUM /* MINOR STRUCTURE NAME PARM */ 03250002 *%RCAPLS2:; 03300002 * BDY(WORD), 03350002 * 4 RCAPARM0 PTR(32), /* VALUE TO BE PLACED IN REG 0 IF RETRY 03377502 * IS ROUTINE INVOKED VIA RCARETAD. */ 03380002 * 4 RCAPARM1 PTR(32), /* VALUE TO BE PLACED IN REG 1 IF RETRY 03383002 * IS ROUTINE INVOKED VIA RCARETAD. */ 03386002 * 4 RCANAME7 BIT(8), /* BIT REPRESENTING RSM ENTRY POINTS. SET TO 1 03386643 * ON ENTRY. SET TO 0 ON EXIT. @Z40WPYD */ 03387243 * 8 RCAPIOI BIT(1), /* IEAVPIOI FLAG @Z40WPYD */ 03388443 * 8 RCAPSIY BIT(1), /* @G33VPOD*/ 03388543 * 8 RCAPRSB BIT(1), /* IEAVPRSB FLAG @G33VPOD*/ 03389043 * 8 RCAPRSR BIT(1), /* IEAVPRSR FLAG @G33VPOD*/ 03389843 * 8 RCAPRSS BIT(1), /* IEAVPRSS FLAG @G33VPOD*/ 03390643 * 8 * BIT(3), /* RESERVED @G33VPOD*/ 03391443 * 4 RCACSECT CHAR(1), /* ID OF THE CSECT IN CONTROL */ 03394002 * 4 RCAFLAGS BIT(8), /* FLAG BYTE */ 03396002 * 8 RCASAL BIT(1),/* SALLOC LOCK OBTAINED */ 03398002 * 8 RCALL BIT(1),/* LOCAL LOCK OBTAINED */ 03398402 * 8 RCAABEND BIT(1),/* RSM IS ABENDING CALLER */ 03398502 * 8 RCAPSIER BIT(1),/* PSI ABENDED WITH INPUT ERROR. */ 03398602 * 8 RCAQS BIT(1),/* RSM QUEUES ARE BEING ALTERED */ 03398802 * 8 * BIT(1),/* USED BY SE1 @ZA28519*/ 03410943 * 8 RCADISP BIT(1),/* DISP LOCK OBTAINED @ZA28519*/ 03411943 * 8 * BIT(1),/* RESERVED @ZA28519*/ 03412943 * 4 RCARCRD CHAR(1), /* REASON CODE */ 03416902 * 4 RCANAMES BIT(48), /* BIT MAP REPRESENTING RSM MODULES ENTERED 03422902 * SET TO 1 ON ENTRY. SET TO 0 ON EXIT. */ 03428902 * 6 RCANAME1 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03429940 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03430940 * @Z40WPYD */ 03431940 * 8 RCAVAMSI BIT(1),/* IEAVAMSI FLAG */ 03434902 * 8 RCACSEG BIT(1),/* IEAVCSEG FLAG */ 03440902 * 8 RCADLAS BIT(1),/* IEAVDLAS FLAG */ 03449902 * 8 RCADSEG BIT(1),/* IEAVDSEG FLAG */ 03459902 * 8 RCAVEQR BIT(1),/* IEAVEQR FLAG */ 03469902 * 8 RCAFXLD BIT(1),/* IEAVFXLD FLAG */ 03479902 * 8 RCAGFA BIT(1),/* IEAVGFA FLAG */ 03489902 * 8 RCAINV BIT(1),/* IEAVINV FLAG */ 03495902 * 6 RCANAME2 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03496440 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03496940 * @Z40WPYD */ 03497440 * 8 RCAIOCP BIT(1),/* IEAVIOCP FLAG */ 03497902 * 8 RCAITAS BIT(1),/* IEAVITAS FLAG */ 03498302 * 8 RCAOUT BIT(1),/* IEAVOUT FLAG */ 03498702 * 8 RCAPCB BIT(1),/* IEAVPCB FLAG */ 03499102 * 8 RCAPFTE BIT(1),/* IEAVPFTE FLAG */ 03499502 * 8 RCASWPP BIT(1),/* IEAVSWPP FLAG @Z40WPYD */ 03499640 * 8 RCASWPC BIT(1),/* IEAVSWPC FLAG @Z40WPYD */ 03509640 * 8 RCAPIOP BIT(1),/* IEAVPIOP FLAG */ 03539840 * 6 RCANAME3 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03541840 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03543840 * @Z40WPYD */ 03545840 * 8 RCAPIX BIT(1),/* IEAVPIX FLAG */ 03549802 * 8 RCAPS112 BIT(1),/* IGC112 FLAG */ 03559802 * 8 RCAPSIB BIT(1),/* IEAVPSIB FLAG */ 03569802 * 8 RCAPSII BIT(1),/* IEAVPSII FLAG */ 03579802 * 8 RCARCF BIT(1),/* IEAVRCF FLAG */ 03589802 * 8 RCARCFI BIT(1),/* IEAVRCFI FLAG */ 03591802 * 8 RCARELS BIT(1),/* IEAVRELS FLAG */ 03592202 * 8 RCARFR BIT(1),/* IEAVRFR FLAG */ 03592302 * 6 RCANAME4 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03592440 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03592540 * @Z40WPYD */ 03592640 * 8 RCASOUT BIT(1),/* IEAVSOUT FLAG */ 03592740 * 8 RCASWIN BIT(1),/* IEAVSWIN FLAG */ 03592840 * 8 RCASQA BIT(1),/* IEAVSQA FLAG */ 03593240 * 8 RCATERM BIT(1),/* IEAVTERM FLAG */ 03593302 * 8 RCAVEQRC BIT(1),/* IEAVEQRC FLAG */ 03593702 * 8 RCAVEQRF BIT(1),/* IEAVEQRF FLAG */ 03595702 * 8 RCAVEQRI BIT(1),/* IEAVEQRI FLAG */ 03597702 * 8 RCAGFAD BIT(1),/* IEAVGFAD FLAG */ 03599702 * 6 RCANAME5 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03609740 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03619740 * @Z40WPYD */ 03629740 * 8 RCARELF BIT(1),/* IEAVRELF FLAG */ 03649702 * 8 RCARELV BIT(1),/* IEAVRELV FLAG */ 03659702 * 8 RCASIRT BIT(1),/* IEAVSIRT FLAG */ 03669702 * 8 RCASORT BIT(1),/* IEAVSORT FLAG */ 03679702 * 8 RCAOPBR BIT(1),/* IEAVOPBR FLAG */ 03689702 * 8 RCACPBR BIT(1),/* IEAVCPBR FLAG */ 03691702 * 8 RCARFR2 BIT(1),/* IEAVRFR2 FLAG */ 03693702 * 8 RCAFREE BIT(1),/* IEAVFREE FLAG */ 03695702 * 6 RCANAME6 BIT(8), /* BIT MAP REPRESENTING RSM ENTRY POINTS. 03695840 * SET TO 1 ON ENTRY, SET TO 0 ON EXIT. 03695940 * @Z40WPYD */ 03696040 * 8 RCAPS113 BIT(1),/* IGC113 FLAG */ 03696102 * 8 RCAFXL BIT(1),/* IEAVFXL FLAG */ 03696502 * 8 RCACSGB BIT(1),/* IEAVCSGB FLAG */ 03696602 * 8 RCARCFC BIT(1),/* IEAVRCFC FLAG */ 03696902 * 8 RCAVEQRP BIT(1),/* IEAVEQRP FLAG */ 03697302 * 8 RCAPSIX BIT(1),/* IEAVFXLD FAST-PATH FOR IOS FLAG */ 03697502 * 8 RCAPSIF BIT(1),/* IEAVFXLD FAST-PATH FOR IOS FLAG */ 03703502 * 8 RCAREP1 BIT(1),/* IEAVREP1 FLAG @Z30GNYD */ 03709503 * 4 RCATASID CHAR(2), /* @G33VPOD */ 03709643 * 4 RCARETAD PTR(31) ; /* ADDRESS OF A RETRY ROUTINE TO BE INVOKED 03759602 * IF AN UNEXPECTED ERROR OCCURS*/ 03764602 * /**************************************************************/ 03769602 * /* MODULE IDS FOR THE RCACSECT FIELD */ 03771602 * /**************************************************************/ 03773602 * DCL RCAC001 BIT(8) CONSTANT('01'X), /* RESERVED MODULE ID */ 03779640 * RCACRSB BIT(8) CONSTANT('02'X), /* IEAVPRSB MODULE ID 03780643 * @G33VPOD */ 03781643 * RCACINIO BIT(8) CONSTANT('03'X), /* IEAVPIOI MODULE ID 03787640 * @Z40WPYD */ 03788640 * RCACSQA BIT(8) CONSTANT('04'X), /* IEAVSQA MODULE ID */ 03791640 * RCACVR BIT(8) CONSTANT('05'X), /* IEAVEQR MODULE ID */ 03795640 * RCACPS BIT(8) CONSTANT('06'X), /* IEAVPSI MODULE ID */ 03799640 * RCACPGRL BIT(8) CONSTANT('07'X), /* IEAVRLSE MODULE ID */ 03803640 * RCACINIT BIT(8) CONSTANT('08'X), /* IEAVITAS MODULE ID */ 03807640 * RCACDELE BIT(8) CONSTANT('09'X), /* IEAVDLAS MODULE ID */ 03811640 * RCACREAT BIT(8) CONSTANT('0A'X), /* IEAVCSEG MODULE ID */ 03815640 * RCACDEST BIT(8) CONSTANT('0B'X), /* IEAVDSEG MODULE ID */ 03819640 * RCACREP BIT(8) CONSTANT('0C'X), /* IEAVPCB MODULE ID 03823640 * @Z30GNYD */ 03834503 * RCACPIX BIT(8) CONSTANT('0D'X), /* IEAVPIX MODULE ID */ 03839540 * RCACGFA BIT(8) CONSTANT('0E'X), /* IEAVGFA MODULE ID */ 03845540 * RCACREPL BIT(8) CONSTANT('0F'X), /* IEAVRFR MODULE ID */ 03851540 * RCACRECF BIT(8) CONSTANT('10'X), /* IEAVRCF MODULE ID */ 03857540 * RCACPTRM BIT(8) CONSTANT('11'X), /* IEAVTERM MODULE ID */ 03863540 * RCACSWPC BIT(8) CONSTANT('12'X), /* IEAVSWPC MODULE ID 03869540 * @Z40WPYD */ 03875540 * RCACPOST BIT(8) CONSTANT('13'X), /* IEAVPIOP MODULE ID */ 03891540 * RCACCOMP BIT(8) CONSTANT('14'X), /* IEAVIOCP MODULE ID */ 03892340 * RCACPGFR BIT(8) CONSTANT('15'X), /* IEAVFREE MODULE ID */ 03893140 * RCACPGFL BIT(8) CONSTANT('16'X), /* IEAVFXLD MODULE ID */ 03893940 * RCACPGOT BIT(8) CONSTANT('17'X), /* IEAVOUT MODULE ID */ 03894740 * RCACVAM BIT(8) CONSTANT('18'X), /* IEAVAMSI MODULE ID */ 03895540 * RCACSPIN BIT(8) CONSTANT('19'X), /* IEAVSWIN MODULE ID */ 03896340 * RCACSPOT BIT(8) CONSTANT('1A'X); /* IEAVSOUT MODULE ID */ 03897140 * %RCALEN = 'LENGTH(RCA)'; /* OBTAIN LENGTH OF RCA. */ 03899502