* NAME: Z6061434 PRODUCT: BASE CATEGORY: REQU SYSTEM: MVS * DATE: 03MAY91 STATUS: DZ+UT USAGE-ID: V6-FUNCTIONS-1434 * * ROUND function does not round correctly in all cases * * * The linkage editor must be used to expand the module SASWUMOD * to accomodate this zap. Sample JCL and linkage editor input * to perform the necessary expansion and apply the zap are shown * in the comments below. * * Parameters shown in lower case in the JCL should be modified * as appropriate for your site. * * // job card * //EXPAND EXEC PGM=IEWL, * // PARM='NCAL,RENT,REFR,REUS,AMODE=31,RMODE=24' * //SYSLMOD DD DSN=your.sas.library,DISP=SHR * //SYSPRINT DD SYSOUT=class * //SYSUT1 DD UNIT=scratchdisk,SPACE=(TRK,(10,4)) * //SYSLIN DD * * INCLUDE SYSLMOD(SASWUMOD) * EXPAND FNCRND@:(130) * ENTRY SASWUMOD * NAME SASWUMOD(R) * /* * //ZAP EXEC PGM=IMASPZAP * //SYSLIB DD DSN=*.EXPAND.SYSLMOD,DISP=SHR * //SYSPRINT DD SYSOUT=class * //SYSIN DD DSN=your.zap.library(Z6061434),DISP=SHR * // end of job * * END NAME SASWUMOD FNCRND@ CHECKSUM VER 00C8 2D64,2266 VER 00CC 47C0,50F6 VER 00D0 2806,6820 VER 00D4 4020 VER 00D6 2A02,6820 VER 00DA C030,2E20 VER 00DE 6A20 VER 00E0 C018,2920 VER 00E4 4780 VER 00E6 511E,2200 VER 00EA 47B0 VER 00EC 511E,6B20 VER 00F0 C020,47F0 VER 00F4 511E VER 00F6 2806 VER 00F8 6B00,4020 VER 00FC 6820 VER 00FE C030 VER 0100 2E20,6A20 VER 0104 C018 VER 0106 2920,4780 VER 010A 5116 VER 010C 2200,47D0 VER 0110 5116 VER 0112 6A20,C020 VER 0116 6020 VER 0118 C090,6820 VER 011C C090,2C24 VER 0120 6020,7000 * REP 00C8 6940,C020 REP 00CC 47B0,405E REP 00D0 6800,C020 REP 00D4 2D04 REP 00D6 6A00,40C2 REP 00DA 6820,C030 REP 00DE 2E20 REP 00E0 6A20,C018 REP 00E4 2920 REP 00E6 4780,50F4 REP 00EA 2200 REP 00EC 47B0,50F4 REP 00F0 6B20,C020 REP 00F4 2842 REP 00F6 2266 REP 00F8 47C0,4028 REP 00FC 2806 REP 00FE 2C04 REP 0100 6820,4020 REP 0104 2A02 REP 0106 6820,C030 REP 010A 2E20 REP 010C 6A20,C018 REP 0110 2920 REP 0112 4780,4054 REP 0116 2200 REP 0118 47B0,4054 REP 011C 6B20,C020 REP 0120 47F0,4054 CHECKSUM 34A148F8 IDRDATA Z6061434 NAME SASWUMOD FNCRND@: VER 0028 4028 VER 002A 402A VER 002C 402C,402E VER 0030 4030 VER 0032 4032,4034 VER 0036 4036 VER 0038 4038,403A VER 003C 403C VER 003E 403E,4040 VER 0042 4042 VER 0044 4044,4046 VER 0048 4048,404A VER 004C 404C,404E VER 0050 0000,0000 VER 0054 0000 VER 0056 0000,0000 VER 005A 0000,0000 VER 005E 0000 VER 0060 0000,0000 VER 0064 0000 VER 0066 0000 VER 0068 0000,0000 VER 006C 0000 VER 006E 0000 VER 0070 0000,0000 VER 0074 0000 VER 0076 0000,0000 VER 007A 0000 VER 007C 0000,0000 VER 0080 0000 VER 0082 0000,0000 VER 0086 0000,0000 VER 008A 0000,0000 VER 008E 0000 VER 0090 0000 VER 0092 0000,0000 VER 0096 0000,0000 VER 009A 0000 VER 009C 0000,0000 VER 00A0 0000 VER 00A2 0000,0000 VER 00A6 0000 VER 00A8 0000,0000 VER 00AC 0000,0000 VER 00B0 0000,0000 VER 00B4 0000,0000 VER 00B8 0000 VER 00BA 0000,0000 VER 00BE 0000,0000 VER 00C2 0000,0000,0000,0000 * REP 0028 2806 REP 002A 2C04 REP 002C 6820,4020 REP 0030 2B02 REP 0032 6820,C030 REP 0036 2E20 REP 0038 6A20,C018 REP 003C 2920 REP 003E 4780,404C REP 0042 2200 REP 0044 47D0,404C REP 0048 6A20,C020 REP 004C 6020,C090 REP 0050 6820,C090 REP 0054 2D24 REP 0056 6020,7000 REP 005A 47F0,5124 REP 005E 2266 REP 0060 47C0,408E REP 0064 2806 REP 0066 2D04 REP 0068 6820,4020 REP 006C 2A02 REP 006E 0700 REP 0070 6820,C030 REP 0074 2E20 REP 0076 6A20,C018 REP 007A 2920 REP 007C 4780,40B8 REP 0080 2200 REP 0082 47B0,40B8 REP 0086 6B20,C020 REP 008A 47F0,40B8 REP 008E 2806 REP 0090 2D04 REP 0092 6B00,4020 REP 0096 6820,C030 REP 009A 2E20 REP 009C 6A20,C018 REP 00A0 2920 REP 00A2 4780,40B0 REP 00A6 2200 REP 00A8 47D0,40B0 REP 00AC 6A20,C020 REP 00B0 6020,C090 REP 00B4 6820,C090 REP 00B8 2C24 REP 00BA 6020,7000 REP 00BE 47F0,5124 REP 00C2 3D68,DB8B,AC71,0CB3 CHECKSUM A249BD38 IDRDATA Z6061434