Export VLS source to Librarian
Article ID: 8624
Updated On:
Products
Issue/Introduction
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
IDEAL 15.0 or 15.1
Cause
Default module @ISTEXIT is no longer provided in CAILLOAD after release 14.0.
Resolution
The sample Source Transport Utility STEXIT is provided in CAILSAMP. If your site uses a customized Source Transport EXIT for Librarian, the @ISTEXIT module can be copied into your 15.0 custom load library and will execute successfully with Ideal 15.0.
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.
Feedback
