A fix is available
APAR status
Closed as program error.
Error description
Recording zUnit testcases in IDz v15.0.7 with v4.x COBOL compiler generates additional bytes when BLOCK CONTAINS 0 RECORDS is used. For example with: FD OUT-FB1 RECORDING MODE F LABEL RECORDS STANDARD DATA RECORD IS OUT-FB1-REC BLOCK CONTAINS 0 RECORDS. 01 ONE-RECORD. 05 VAL1 PIC X(10). 05 PIC X(5) VALUE SPACES. 05 VAL2 PIC X(10). MOVE "HELLO" TO VAL1 MOVE "WORLD" TO VAL2 WRITE OUT-FB1-REC FROM ONE-RECORD The zUnit recording TEST1 is created but VAL1 shows value 00190000C8C5D3D3D640 instead of HELLO zUnit replay fails with an error: CRRZT0028E JES job name xxxxx and job ID xxxx failed on remote system xxxxx. Return information: CC 0016
Local fix
Recording and replay works with COBOL compiler v6.x.
Problem summary
**************************************************************** * USERS AFFECTED: 1.All DTR users making use of BLOCK CONTAINS * * 0 in COBOL V4 and prior * **************************************************************** * PROBLEM DESCRIPTION: 1.Using Block Size 0 causes zUnit * * testcase to fail * **************************************************************** 1.Using Block Size 0 causes zUnit testcase to fail for COBOL version 4 and prior
Problem conclusion
1.Corrected check for variable file type in BZUHCLCT write operation logic
Temporary fix
Comments
APAR Information
APAR number
PH59977
Reported component name
DEV FOR Z/OS
Reported component ID
5724T0700
Reported release
100
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2024-02-22
Closed date
2024-03-12
Last modified date
2024-04-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
BZU1SMPE BZU2EXEC BZU2LAYR BZU2THIN BZU2TLYR BZU3ALOC BZU6DDEF BZUACAB BZUACAF BZUACAF@ BZUACP BZUADSMF BZUAEIN@ BZUAETR@ BZUAINIT BZUAIP2 BZUAIPI BZUAIPS BZUAIPX BZUALLOC BZUAPIPI BZUAPRC2 BZUAPRCA BZUAPRCD BZUAPRCX BZUAPRH BZUAPRH@ BZUAPRS@ BZUARGID BZUARRS BZUARRS@ BZUARSMF BZUARST0 BZUARST1 BZUARST2 BZUARST3 BZUARST4 BZUARST5 BZUARST6 BZUARST7 BZUARST8 BZUARST9 BZUASSRT BZUASTB0 BZUASTB1 BZUASTB2 BZUASTB3 BZUASTB4 BZUASTB5 BZUASTB6 BZUASTB7 BZUASTB8 BZUASTB9 BZUASTC0 BZUASTC1 BZUASTC2 BZUASTC3 BZUASTC4 BZUASTC5 BZUASTC6 BZUASTC7 BZUASTC8 BZUASTC9 BZUASTMD BZUASTMP BZUASTUB BZUASTUC BZUAVRDT BZUBATCH BZUBCON@ BZUBCP BZUBDSC@ BZUBSRV@ BZUCBCBL BZUCBPL1 BZUCCDFN BZUCCINT BZUCCOLL BZUCDEFN BZUCF410 BZUCF420 BZUCF510 BZUCF520 BZUCF530 BZUCF540 BZUCF550 BZUCF560 BZUCF610 BZUCI410 BZUCI420 BZUCI510 BZUCI520 BZUCI530 BZUCI540 BZUCI550 BZUCI560 BZUCI610 BZUCICPT BZUCICSA BZUCICSL BZUCICSN BZUCICSS BZUCICST BZUCICSW BZUCICSX BZUCIDFN BZUCIDRI BZUCIDRP BZUCIDRR BZUCIDRS BZUCIDRT BZUCO410 BZUCO420 BZUCO510 BZUCO520 BZUCO530 BZUCO540 BZUCO550 BZUCO560 BZUCO610 BZUCODES BZUCPLTI BZUCPLTS BZUCPLTT BZUCRECS BZUCRECT BZUCSD BZUCSTUB BZUDB2CA BZUDB2CP BZUDB2CV BZUDB2PA BZUDB2PP BZUDB2PV BZUDB2ST BZUDCP BZUDLAYR BZUDTHIN BZUDTLYR BZUDYNAL BZUECP BZUECP10 BZUEIBPL BZUESPIE BZUESPR0 BZUESPR@ BZUESTAE BZUGETEP BZUGTARG BZUGTMEM BZUHFIO@ BZUHFIOH BZUHFIOP BZUHPRN@ BZUII410 BZUII420 BZUII510 BZUII520 BZUII530 BZUII540 BZUII550 BZUII560 BZUII610 BZUIMSSB BZUIMSSE BZUIMSSF BZUIMSTR BZUIMSVN BZUIMSVR BZUINCL BZUIO410 BZUIO420 BZUIO510 BZUIO520 BZUIO530 BZUIO540 BZUIO550 BZUIO560 BZUIO610 BZUISVI0 BZUITERC BZUITERP BZUJFIOH BZUJFIOP BZUKFIO@ BZUKFIOH BZUKFIOP BZULCEE BZULDB2 BZULEOPT BZULFIOH BZULFIOP BZULIMS BZULLE BZULMQ BZUMCP BZUMETA BZUMSGEN BZUPBCP BZUPBMP BZUPDB2 BZUPDCP BZUPDLI BZUPECP BZUPLAY BZUPMCP BZUPPLAY BZUPRH00 BZUPRH0@ BZURCP BZURI410 BZURI420 BZURI510 BZURI520 BZURI530 BZURI540 BZURI550 BZURI560 BZURI610 BZURO410 BZURO420 BZURO510 BZURO520 BZURO530 BZURO540 BZURO550 BZURO560 BZURO610 BZURPLAY BZURRCP BZURTCP BZURUN BZUSCFG BZUSCP BZUSETUP BZUSLAYR BZUSTLYR BZUSUDSN BZUSYSIN BZUTCP BZUTRACE BZUUFIOH BZUUFIOP BZUUMODC BZUUMODD
Fix information
Fixed component name
DYNAMIC TEST RU
Fixed component ID
5724T0763
Applicable component levels
R100 PSY UI96055
UP24/03/16 P F403
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU011","label":"Systems - zSystems software"},"Product":{"code":"SG19M"},"Platform":[{"code":"PF054","label":"z Systems"}],"Version":"100"}]
Document Information
Modified date:
04 April 2024