Batch Workstation Clone Abend U4038/SOC7
search cancel

Batch Workstation Clone Abend U4038/SOC7

book

Article ID: 45129

calendar_today

Updated On:

Products

Repository

Issue/Introduction

Repository batch program, PRMCLNB, will abend with a U4038/S0C7 if the target workstation is not defined.   

The traceback information accompanied with the abend is as follows:

Traceback:                              

  DSA   Entry                                   E  Offset      Statement
  1       CEEHDSP                            +00004A4C           
  2       BUILD_DISPLAY_ARRAY       +000009B0  1927     
  3       DBXMSGS                           +00001052  589      
  4       CALL_MESSAGE                   +00000716  944      
  5       PRMCLNB                             +00001A96  508      
  6       IBMPMINV                            +00000734           
  7       CEEEV011                            +00000224           
  8       CEEBBEXT                            +000001C6           

 

 

 

Environment

 7.2

Repository-Webstation Option
 

Resolution

The abend occurs because the target workstation specified does not exist; however, unless the job is executed in debug mode there

is not indicator or message displayed to notify the user that the workstation does not exist.  

The program, PRMCLNB, accepts 3 input parameters as follows.  Set the debug parameter to Y and resubmit the job.

//PARMFILE DD *                            
*              1. THE FROM WORKSTATION NAME
 
 FROM    ;                               
*              2. THE TO WORKSTATION NAME  
 
   TO      ;                               
   Y ; 3.  DEBUG FLAG Y = YES, N = NO      
/*                  

In the SYSPRINT of the job submitted with debug you will find the following error at the very bottom

-
REASON='TO                              
MSG_QUAL='WKS';         MSG_ID=             3; 
-

This is a Repository message that means that the 'TO' workstation does not exist.        

Define the 'TO' workstation and then resubmit the job with the debug flag set back to N.