Export VLS source to Librarian

Document ID : KB000008624
Last Modified Date : 14/02/2018
Show Technical Document Details
Issue:

When attempting to export VLS program source to a librarian, the job gets repeated errors until it finally times out. 

- SET EXIT LIBRARIAN 
- SET EXPORT SYSTEM P34 
- SET EXPORT VERSION PROD 
- EXPORT PGM O344140 
- OFF 
1IDEAL 15.1 SOURCE TRANSPORT October 17, 2017 
0EXPORT operation detail report: 
 ------------------------------- 
 1-IDADERRP02T - INTERR: Internal system error 
-1-IDSTEXPD26E - EXPORT operation terminated due to SET ERROR QUIT option 
1-IDADERRP02T - INTERR: Internal system error 
-1-IDSTEXPD26E - EXPORT operation terminated due to SET ERROR QUIT option 
1-IDADERRP02T - INTERR: Internal system error 
-1-IDSTEXPD26E - EXPORT operation terminated due to SET ERROR QUIT option 
1-IDADERRP02T - INTERR: Internal system error 


***** START OF IDEAL ERROR LOG ON 10/17/17 AT 10:14:12 ***** 
 1-IDADERRP02E - INTERR: Internal system error 
 SRVC=VPE FUNC=$CSP RC=002 PGM=STEXPD 15.1 +2172 
 CALPGM= CURACT=ST ACTTYP= USER=$ID ERRID= 
 SYS=$ID ENTTYP= ENTNAM= ENTVER=000 ENTSTAT= 

******* END OF IDEAL ERROR LOG ON 10/17/17 AT 10:14:12 ***

Environment:
z/os, CA IDEAL 15.0 or 15.1
Cause:

    Default module @ISTEXIT is no longer provided in CAILLOAD after       

    Release 14.0. The sample Source Transport Utility STEXIT is provided  

    in CAILSAMP. If your site uses a customized Source Transport EXIT for 

    CA Librarian, the @ISTEXIT module can be copied into your 15.0 custom 

    load library and will execute successfully with CA Ideal 15.0.        

Resolution:

The STEXIT source must be asm/linked

or

as a bypass you may copy the module @ISTEXIT from 14.0 Load library.

 

 

See below for the asm/link procedure:

//STEXIT   JOB (ACCT,INFO),'PROGRAMMER',                                

//     CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),                               

//     NOTIFY=&SYSUID                                                   

//*                                                                     

//*------------------------------------------------------------------** 

//*                                                                     

//*      ADVANTAGE CA-IDEAL SOURCE TRANSPORT EXIT ASSEMBLY              

//*                                                                     

//*    EDIT AND SUBMIT THE FOLLOWING SAMPLE JCL TO ASSEMBLE AND LINK    

//*    @ISTEXIT                                                         

//*                                                                     

//*    EXPECTED CONDITION CODE EQ 00                                    

//*                                                                     

//*------------------------------------------------------------------** 

//*                                                                     

//* INSTRUCTIONS:                                                       

//*   **  CHANGE JOB CARD AS NECESSARY FOR YOUR SITE.                   

//*                                                                     

//*   1. PERFORM A GLOBAL CHANGE OF "CAI1.IDEAL.R11"                    

//*      TO YOUR ADVANTAGE CA-IDEAL CUSTOM HLQ.                         

//*          WORKSHEET PARAMETER #4   (EG. "USERID.CUST")               

//*   2. PERFORM A GLOBAL CHANGE OF "CAI1.IDEAL.R11.CAIMAC"             

//*      TO YOUR SMP/E HLQ.                                             

//*          WORKSHEET PARAMETER #3  (EG. "USERID.SMPE")                

//*   3. PERFORM A GLOBAL CHANGE OF "ASMA90" TO THE NAME OF             

//*      THE PROGRAM USED FOR ASSEMBLING, IF DIFFERENT.                 

//*          WORKSHEET PARAMETER #42                                    

//*   4. PERFORM A GLOBAL CHANGE OF "IEWL" TO THE NAME OF THE           

//*      PROGRAM USED FOR LINK-EDITING, IF DIFFERENT.                   

//*          WORKSHEET PARAMETER #46                                    

//*                                                                     

//*------------------------------------------------------------------** 

//*                                                                     

//*                                                                     

//***  PROCEDURE ASMEXIT                                            *** 

//*                                                                     

//ASMEXIT PROC ILTML='CAI1.IDEAL.R15.CAIMAC',                           

//             ILCLL='CAI1.IDEAL.R15.CUSLIB',                           

//             ASMBLR=ASMA90,                                           

//             LINK=IEWL,                                               

//             SYSOUT='*'                                               

//*                                                                     

//*    ASSEMBLE/LINK TO USER CUSTOM LIBRARY                             

//*                                                                     

//ASMSTP  EXEC PGM=&ASMBLR,PARM='NODECK,OBJ',REGION=2048K               

//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR                                  

//         DD  DISP=SHR,                                                

//         DSN=&ILTML                                                   

//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),             

//         UNIT=SYSDA,DCB=BUFNO=1                               

//SYSLIN   DD  DSN=&&ASMOBJ,UNIT=SYSDA,                         

//         SPACE=(3120,(400,100),RLSE),                         

//         DISP=(,PASS),                                        

//         DCB=BLKSIZE=3120                                     

//SYSPRINT DD  SYSOUT=&SYSOUT                                   

//*                                                             

//LNKSTP  EXEC PGM=&LINK,COND=(5,LT,ASMSTP),                    

//             PARM='LIST,LET,XREF,MAP,REUS'                    

//SYSLIN   DD  DSN=&&ASMOBJ,DISP=(OLD,DELETE)                   

//         DD  DDNAME=SYSIN                                     

//SYSLMOD  DD  DSN=&ILCLL,                                      

//         DISP=SHR                                             

//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),     

//         UNIT=SYSDA,DCB=BUFNO=1                               

//SYSPRINT DD  SYSOUT=&SYSOUT                                   

//*                                                             

//  PEND                                                        

//*                                                             

//*    EXECUTE PROC                                             

//*                                                             

//ASLK11 EXEC ASMEXIT                                           

//*                                                             

//ASMSTP.SYSIN DD DSN=CAI1.IDEAL.R15.CAIMAC(STEXIT),DISP=SHR    

//LNKSTP.SYSIN  DD *                                            

  NAME     @ISTEXIT(R)                                          

/*                                                              

//                                                              

Additional Information:

Ideal 15.0 README APAR #: RI65881 

and

Ideal 15.1 README APAR #: RI88864

have been updated to reflect the cause.