Vision Builder Upgrade from V13 to V15 Cookbook

Products

Vision:Builder

Issue/Introduction

What are the steps required to upgrade Vision Builder from V13 to V15?

Environment

Vision:Builder

Release : 13.0

Release : 15.0

Resolution

Run the following VISION:Builder Banner job using your V13 library:

//*
//* PROCESSING - SINGLE STEP - LISTING OUTPUT
//M4BAN EXEC PGM=MARKIV,REGION=0M
//STEPLIB DD DISP=SHR,DSN=your hlq BLDR130.SMPE.T.BLSYSL            ---> user changes this
//M4LIB DD DUMMY
//M4LIST DD SYSOUT=*
//M4INPUT DD *
BANNERPGRC ---> starts in Column 1
/*

The M4LIST output will display the RSMs, (fixes in the 100 range), and the M4PARAMS/MARKLIBP installation parameter settings:

***IMPORTANT NOTE: M4LIST might list a RSM #160, this is a published fix and not an RSM***

****************************************
* VISION:Builder 4300 (MVS - 13.0) *
* COPYRIGHT 1995 *
* STERLING SOFTWARE, INC. *
***************************************** INSTALLATION NUMBER = 00859 SYSTEM OPTIONS = IMS DB2 * SERIAL NUMBER = 95121,11:38:16.0
BUILDER MODIFICATIONS (SMs) INSTALLED
138,139,141,201,202,203,204,205,206,208,209,210,211,212,213,214,215,216,217,218,219,220,222,223,225,226,227,228,229,230,231,232
COMLIB MODIFICATIONS (SMs) INSTALLED
103,201,202
====================================================================================================================================
= =
= I N S T A L L A T I O N P A R A M E T E R S ( M 4 P A R A M S , M A R K L I B P ) =
= =
= SYSTEM DELIMITER: # PAGE HEIGHT: 60 M4LIST WIDTH: 204 DEF WIDTH OF PAGE: 132 =
= =
= AUTO GRAND: N HEADING CHAR: - SUBTITLE REPEAT: N INVALID FIELD: * =
= =
= MISSING FIELD: - NON-EDIT FIELD: + PERCENT CHAR: % LEFT SEPARATOR: ( =
= =
= RIGHT SEPARATOR: ) SINGLE SEPARATOR: , SOURCE SPACING: 1 PRINT MESSAGES: Y =
= =
= CONSOLE MESSAGES: Y M4REPO BLOCKSIZE: 3248 INPUT I/O BUFFERS: 2 OUTPUT I/O BUFFERS: 1 =
= =
= SNGL-STEP STORAGE: 8,192 SNGL-STEP SORTSIZE: 524,288 DIGIT SELECT CHAR: 9 ZERO SUPPRESS CHAR: Z =
= =
= CURRENCY CHAR: $ PLUS CHAR: + MINUS CHAR: - CHECK PROTECT CHAR: * =
= =
= DECIMAL CHAR: . GROUPING CHAR: , PRIMARY PLOT CHAR: X SECONDARY PLOT CHAR:* =
= =
= FIT PLOT CHAR: . HORIZONTAL AXIS: _ HORIZONTAL HASH: | VERTICAL AXIS: | =
= =
= VERTICAL HASH: - MINUTES/HOUR: 60 SECONDS/MINUTE: 60 TIME DELIMITER: HH:MM:SS =
= =
= DATE FORMAT: MMM DD, YYYY TODAY FORMAT+DELIM: MM/DD/YY ISDATE DELIMITER: YYYY-MM-DD JULIAN DELIMITER: YY.DDD =
= =
= SORT PROGRAM CODE: 2 MINCORE VALUE: 12 K ALT M4LIST WIDTH: 132 ALT DEF W/OF PAGE: 0 =
= =
= MAX LINES OF TRACE: 1,024 ITEM TRACKING: 0 SUPPRESS NDS REPT?: N =
= =
= CONDITION CODE 1: 0 CONDITION CODE 2: 4 CONDITION CODE 3: 8 CONDITION CODE 4: 16 =
= =
= ISAM INDEX INCORE: N M4LIB BLKG FACTOR: 0 M4LIB RESERVE: 0 M4LIB COMPONENT: C4.0 B/V =
= =

====================================================================================================================================

2. Open a VISION:Builder support case to get the most current published PTFs for V15 and the ZRECEIVE, ZAPPLY, ZACCEPT jobs.

When running the Z jobs modify the JCL using the V15 libraries. The Z jobs are setup for all the published PTFs.

Please attach the M4LIST to the support case.

3. Turn on the RSM EQU settings, (being displayed in your V13 M4LIST output), within the M4PARAMS member of the V15 Target BLSAMP library.

BUILDER.R150.SMPE.T.BLSAMP(M4PARAMS)

All 100 level range special apar listed in the M4LIST output need to be turned on.

By default, the 100 level range special apars are OFF.

To turn on special apars:

Comment out line EQU X'00' DEFAULT = NOT TO APPLY

Uncomment line EQU X'##' UNCOMMENT TO APPLY AND COMMENT PRIOR DEFAULT

***********************************************************************
* FOLLOWING ARE RSMS CURRENTLY CREATED FOR THIS RELEASE *
* NOTE: WE RECOMMEND NOT TO APPLY THESE CUSTOMIZED APARS *
* UNLESS YOUR SITE HAVE BEEN USING THEM. *
***********************************************************************
SPACE 1
*++APAR(BL00103) /* RSM 103 CERTIFIED 04/29/2008
* TITLE: HOOK 10 ACTIVATION OF HOOKS 21 & 63 FOR REPORT PHASE
* M4LIST FILE.
* DESCR: THIS APAR ALLOWS STATIC OWN CODE ROUTINES TO RETURN
* A FLAG SETTING OF X'20' FROM HOOK-10 PROCESSING.
* THE X'20' SETTING WILL ACTIVATE HOOKS 21 AND 63 IN
* SINGLE-STEP RUNS "ONLY", AND "ONLY" FOR THE M4LIST
* FILE OUTPUT WRITTEN DURING THE REPORT PHASE PORTION
* OF THE RUN; I.E. JUST FOR THE REPORT OUTPUT.
* AS WITH THE OTHER HOOK-10 FLAGS, X'40' AND X'80', THE
* X'20' SETTING IS ALSO MUTUALLY EXCLUSIVE.
* HOOKS 21 AND 63 WILL NOT BE ACTIVATED IN
* SINGLE-STEP NO-SORT RUNS.
* SEE THE ENVIRONMENTS GUIDE FOR DETAILS ABOUT OWN CODE
* AND HOOKS 10, 21, 63.
* */.
SPACE 1
BL00103 EQU X'00' DEFAULT = NOT TO APPLY
*BL00103 EQU X'68' UNCOMMENT TO APPLY AND COMMENT PRIOR DEFAULT

Run the BLXASM#1 job to assemble the M4PARAMS member

The BLXASM#1 job is in the yourhlq.JCLCNTL library

//*********************************************************************

//* BLXASM#1 - ASSEMBLE AND LINK THE "PARAMETER" MODULES

//* - M4PARAMS, M4SFPARM, M4LEPARM, MARKLIBP.

//*********************************************************************

//* BEFORE YOU RUN THIS JOB, SPECIFY:

//*

//* SRCLIB - THE SOURCE PDS THAT CONTAINS THE PARAMETER MODULE.

//* SRCMEM - THE MEMBER NAME OF THE PARAMETER MODULE.

//* BLLOAD - THE LOAD LIBRARY TO CONTAIN THE LINK EDITED MODULE.

//*

Run the following VISION:Builder Banner job using your V15 library:

//M4BAN EXEC PGM=MARKIV,REGION=0M
//STEPLIB DD DISP=SHR,DSN=your hlq BLDR150.SMPE.T.BLSYSL ---> user changes this
//M4LIB DD DUMMY
//M4LIST DD SYSOUT=*
//M4INPUT DD *
BANNERPGRC ---> starts in Column 1
/*

***NOTE*** This JCL can be found in V15 “youhlq.JCLCNTL(BLXBAN#1)

Verify that all your RSMs are being displayed. Compare then the M4PARAMS/MARKLIBP installation parameter settings in the v15 M4LIST output to the v13 M4LIST output.

**** If they do not match*****

Go back to M4PARAMS and MARKLIBP members in both the BLSAMP V13 and V15 libraries and make MANUAL changes to the V15 version to match the settings in the V13 version.

DO NOT COPY V13 to V15. A complete new install will be required if you do!!!!

Re-run the BLXASM#1 job to assemble the M4PARAMS member

Update M4 Lib Databases

M4LIBs:

The internal COMLIB format was changed at release 13.5 to accommodate enhancements to field definitions. Release 15.0 can READ older release

COMLIBs just fine, but if 15.0 is used to write to a release 13.0 format M4LIB, longer records are written so items can be corrupted if overlaid.

Hence we recommend you do 2 things:

1. Use your 13.0 loadlib to take a backup using MARKDUMP. This is a safeguard to allow you to fall back to 13.0 if you need to.

Run MARKINIT

***IMPORTANT****

When running the M4LIB upgrades.

The backup, that is the MARKDUMP, will use as input the M4LIB V13 data set.

Run MARKINIT

Before running the MARKREST, you MUST define a new M4LIB V15 data set.

The MARKREST will use as output the new M4LIB V15 data set.

You CANNOT USE THE M4LIB V13 data set as output for the MARKREST job using V15 Builder library. Otherwise, their production jobs will all now fail!

If you have a hundred M4LIBs, they must run the MARKDUMP using V13, MARKDUMP using V15, define a new M4LIB V15 data set, and MARKREST to the new M4LIB V15 data set a HUNDRED TIMES.

2. Convert the M4LIBs to the 15.0 format by using the 15.0 loadlib to execute BOTH the backup and restore (MARKDUMP/MARKREST) (This differs from prior releases where you needed to backup with the old and restore with the new)

//*
// SET VBLDRV13=YOUR.BUILDER.R130.T.BLSYSL
// SET M4LIBV13=YOUR.M4LIB.R130.DATABASE
// SET BKUPV13=YOUR.M4LIB.R130.BACKUP
// SET STORV13=XXXXXX SMS STORAGE CLASS FOR M4LIB V13 BACKUP
// SET VBLDRV15=YOUR.BUILDER.R150.T.BLSYSL
// SET M4LIBV15=YOUR.M4LIB.R150.DATABASE
// SET STORV15=XXXXXX SMS STORAGE CLASS FOR M4LIB V15 DATABASE
//*
//* BACKUP M4LIB V13 FORMAT
//*
//M4DUMP EXEC PGM=MARKDUMP,REGION=0M
//STEPLIB DD DSN=&VBLDRV13,DISP=SHR
//M4LIB DD DSN=&M4LIBV13,DISP=SHR
//M4LIST DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CAOESTOP DD DUMMY
//M4WORK DD DSN=&BKUPV13,
// DISP=(NEW,CATLG),
// STORCLAS=&STORV13,
// UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//*
//* DUMP M4LIB V13 FORMAT, INIT AND RESTORE AS AN M4LIB V15 FORMAT
//*
//M4DUMP EXEC PGM=MARKDUMP,REGION=0M
//STEPLIB DD DSN=&VBLDRV15,DISP=SHR
//M4LIB DD DSN=&M4LIBV13,DISP=SHR
//M4LIST DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//M4WORK DD DSN=&&M4WORK,DISP=(NEW,PASS),
// SPACE=(CYL,(100,50),RLSE),UNIT=SYSDA
//*
//M4INIT EXEC PGM=MARKINIT,REGION=0M
//STEPLIB DD DSN=&VBLDRV15,DISP=SHR
//M4LIB DD DSN=&M4LIBV15,
// DISP=(NEW,CATLG),
// STORCLAS=&STORV15,
// UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//M4LIST DD SYSOUT=*
//*
//M4REST EXEC PGM=MARKREST,REGION=0M
//STEPLIB DD DSN=&VBLDRV15,DISP=SHR
//M4LIB DD DSN=&M4LIBV15,DISP=SHR
//M4LIST DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//M4WORK DD DSN=&&M4WORK,DISP=(OLD,DELETE)
//*
//

BEFORE PUTTING INTO PRODUCTION

!!!!TEST TEST TEST!!!!