++APAR(ASZ3109). /*----------------------------------------------------- COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999. ASZ3109 991108 61VASE PS OMCSIRM V201 INCORROUT OMCSXWRP 991108 O___PJS changes for compatibility with ECL V3 (ASEC250 only) _PROBLEM DESCRIPTION: Program does not function correctly under ECL V3. _PROBLEM SUMMARY: USERS AFFECTED: ECL V3 users Program does not function correctly under ECL V3. _PROBLEM CONCLUSION RECOMMENDATION: Apply APAR fix ASZ3109 OMCSDSIR will be modified to function correctly under both ECL V2 and V3 _SMP/E SITES PLEASE NOTE: 1. If you have PTF ASP0699 installed on your system, you may apply two or more source update APAR fixes to the same source module simultaneously. If you do not have PTF ASP0699 installed, do NOT attempt to apply two or more source update APAR fixes to the same source module simultaneously - you will get incorrect results. _NON-SMP/E SITES PLEASE NOTE: 1. Apply this fix using the ASMPMAIN program. Refer to ASE Technical Bulletin TB90-0014 for sample JCL for running this program or see the .ASESAMP member called RUNASMP. 2. This fix contains ++SRCUPD statements. After applying the fix you must recompile the ECL programs named in ++SRCUPD statements to create new load modules from them. For sample JCL see the .ASESAMP member called RUNECLC which was distributed on PUT9112. NEED FURTHER HELP? CALL ASE FOR ASSISTANCE. */ ++VER(Z038) FMID(ASEC200) PRE(ASP0744,ASZ3080). ++SRCUPD(OMCSXWRP). ./ CHANGE NAME=OMCSXWRP APAR ASZ3109 Z3109002 /*PRE ASP0744,ASZ3080 Z3109004 AUDIT ON Z3109006 F 'RETURN RETC=8' Z3109008 :D1 Z3109010 :I1 Z3109012 RETURN RETC=8 RETSTRG= /* ELSE TERMINATE Z3109014 F 'RETURN RETC=8' Z3109016 C 8 '8 RETSTRG=' Z3109018 F 'RETURN RETC=8' Z3109020 C 8 '8 RETSTRG=' Z3109022 F STG0F: 1 Z3109024 F &RETC Z3109026 C IF IF# Z3109028 F 'SET &&VAR' Z3109030 :D1 Z3109032 :I1 Z3109034 SET (&VAR,V)=&VS(&TERM(&DBRTXT,2)) Z3109036 F STG0GD: 1 Z3109038 F 'RETURN RETC=8' Z3109040 C 8 '8 RETSTRG=' Z3109042 F STG0HF: 1 Z3109044 F &DBRTXT Z3109046 :D1 Z3109048 :I1 Z3109050 IF# &LN(&TERM(&SS(&DBRTXT,60,20),TRUNCB))=0 /* IF BLANK KEY.Z3109052 F 'IF &STSKIP' Z3109054 C 'IF &' 'IF# &' Z3109056 F STG0P: 1 Z3109058 F 'RETURN RETC=8' Z3109060 C 8 '8 RETSTRG=' Z3109062 F STG2: 1 Z3109064 F 'IF &RC' Z3109066 C IF IF# Z3109068 F 'IF &RC' Z3109070 C IF IF# Z3109072 F 'IF &RC' Z3109074 C IF IF# Z3109076 F 'IF &RC' Z3109078 C IF IF# Z3109080 F STG2DD: 1 Z3109082 F &IRMREPKL Z3109084 C IF IF# Z3109086 F &IRMREPKL Z3109088 C 'IF &' 'IF# &' Z3109090 F STG2HHD: 1 Z3109092 F REP# Z3109094 C REP# &REP# Z3109096 F STG2HHJ: 1 Z3109098 DO 1 Z3109100 C 'IF &' 'IF# &' Z3109102 F RDPATHS Z3109104 C 'IF &' 'IF# &' Z3109106 F STG2HX: 1 Z3109108 F 'OMCSIRFD USERPEND' Z3109110 F 'IF &RC' Z3109112 C IF IF# Z3109114 F STG2K: 1 Z3109116 F 'RETURN RETC=8' Z3109118 C 8 '8 RETSTRG=' Z3109120 F STG3DD: 1 Z3109122 F '&RNAM,TRUNCB' Z3109124 C IF IF# Z3109126 F SHTDD: 1 Z3109128 F 'SET &&STR' Z3109130 :D3 Z3109132 :I3 Z3109134 SET (T&I,V)=&VS(&TX) Z3109136 SET (C&I,V)=&VS(&CX) Z3109138 SET (X&I,V)=&VS(&XX) Z3109140 F DMPR: 1 Z3109142 F 'IF &LN' Z3109144 C IF IF# Z3109146 F REDIR: 1 Z3109148 F PRTA Z3109150 C PRTA PRTA= Z3109152 F TIMER: 1 Z3109154 F 'SET &&C' Z3109156 :D3 Z3109158 :I3 Z3109160 SET (&C,V)=&VS(&ZSYSCPUT) Z3109162 SET (&T,V)=&VS(&SS(&ZSYSTODD,1,4)) Z3109164 SET (&X,V)=&VS(&ZSYSEXCP) Z3109166 F 'SET &&TOTC' Z3109168 :D5 Z3109170 :I8 Z3109172 SET TEMP=&&TOTC+&ZSYSCPUT-&&C Z3109174 SET (&TOTC,V)=&VS(&TEMP) Z3109176 SET TEMP=&&TOTT++ Z3109178 &CVD(&B(0&SS(&BIT(&SS(&ZSYSTODD,1,4)),2)))-+ Z3109180 &CVD(&B(0&SS(&BIT(&&T),2))) Z3109182 SET (&TOTT,V)=&VS(&TEMP) Z3109184 SET TEMP=&&TOTX+&ZSYSEXCP-&&X Z3109186 SET (&TOTX,V)=&VS(&TEMP) Z3109188 END Z3109190