TDM: Mainframe Unshred from DB2 Tables to Sequential Files Fails with COND CODE 0012 in GTXUSHD

book

Article ID: 208368

calendar_today

Updated On:

Products

CA Test Data Manager (Data Finder / Grid Tools)

Issue/Introduction

//*-------------------------------------------------------------------  
//*  FLAT FILE "UNSHREDDING"                                            
//*  IN STEP03 PROGRAM GTXSHD1 READS DATA FROM DB2 AND WRITES THAT     
//*  DATA TO A DATASET, THE PARAMETER BUNDLEID DETERMINES WHICH        
//*  ROWS ARE READ FROM THE TABLES.                                   
//*  IN STEP05 PROGRAM GTXSHD2 READS THE DATASET WRITTEN BY GTXSHD1   
//*  AND USES IT TO CREATE AN "UNSHREDDED" VERSION OF THE FILE          
//*  DESCRIBED BY THE ADVANCED FILE LAYOUT (AFL) GIVEN BELOW IN DEFTGT  
//*-------------------------------------------------------------------  
//GTLIB JCLLIB ORDER=DTST.CA.TESTDATA.RD0T.LIB.PROCLIB                  
//*-------------------------------------------------------------------  
//GTUSHD EXEC PROC=GTUSHD,                                             

//  LOADLIB='DTST.CA.TESTDATA.RD0T.LOADLIB',                            
//  MSGDS='DTST.CA.TESTDATA.RD0T.MSG.KSDS',                            
//  REPHLQ='BEFU.GURALR5.USHD',      REPORT HIGH LEVEL QUALIFIER        
//  RULESDS='BEFU.GURALR5.RULES',      "RULES" FILE CREATED BY          
//*                                       PROGRAM GTXSHD, THIS IS      
//*                                       READ BY BOTH PROGRAM GTXSHD1  
//*                                       AND GTXSHD2                  
//  DEFDS='BEFU.GURALR5.LIB.DEFCSV(SYMCORZ)', AFL DESCRIBING THE TARGET 
//*                                       DATASET                      
//  FILEDS='BEFU.GURALR5.GENDATA',             THE NAME OF THE TARGET  
//*                                       DATASET                       
//  LRECL=703,BLK=27988,SP1=1,RECFM=VB  DCB DETAILS FOR THE TARGET      
//*                                       DATASET                       
//*                                                                    
//STEP03.PARMCD DD *                                                    
--TABLEOWNER=SR4DBC                                                     
BUNDLEID=6                                                              
/*                                                                      
//*STEP03.STEPLIB  DD DSN=&LOADLIB,DISP=SHR                             
//*               DD DSN=RD1T.TEST.DSNLOAD,DISP=SHR                     
//*               DD DSN=RD1T.TEST.DSNLOAD,DISP=SHR                     
//STEP03.SYSTSIN  DD *                                                 
  DSN SYSTEM(RD1T)                                                     
  RUN PROGRAM(GTXSHD1) PLAN(GTXSHD1)                 
  END                                                                  
/*                                                                    
//STEP04.PARMCD DD *                                                    
QUOTESTYLE=DOUBLE                                                       
/*                                                                      
//STEP05.PARMCD  DD *                                                   
LANGUAGE=EN                                                             
OUTPUTRECFM=VB                                                         
OUTPUTLRECL=703                                                         
INITASBLANK=N                                                          
/*                                                                      

IEF142I GURALR5B STEP03 GTUSHD - STEP WAS EXECUTED - COND CODE 0012

Cause

JCL syntax 

Environment

Release : 4.9

Component : CA Test Data Manager

Resolution

 

In GTXUSHD:

 

These lines are commented out, please uncomment and run again:

//*STEP03.STEPLIB  DD DSN=&LOADLIB,DISP=SHR                        00003101
//*               DD DSN=RD1T.TEST.DSNLOAD,DISP=SHR                     00003208
//*               DD DSN=RD1T.TEST.DSNLOAD,DISP=SHR                     00003308

You need to start the below highlighted lines in column 1 and not column 3:


//STEP03.SYSTSIN  DD *                                                  00003401
  DSN SYSTEM(RD1T)                                                      00003505
  RUN PROGRAM(GTXSHD1) PLAN(GTXSHD1)             00003601
  END                       

This resolved the issue.