Loading Binary Host Files to z/OS

Host product corrections of the type Natload (INPL), Errlodus (Error Messages), LOAD and SOURCE replacements, TAR (Tape ARchive), CPIO (CoPy file archives In and Out), Csmload and Csfload (Construct modules and frames) are created in a format that does not lend itself to file transfer using PCs. So these files are loaded into Empower in a coded and compressed format.

These were created using the IBM utility IEBCOPY (termed unloading). Once decoded, use the IEBCOPY utility to load the data set.

Please note, that SNT11x is used instead of the current version/release (e.g. SNT112).

The steps below should be done to apply one of these fixes.

Obtain and Install the Decoding Program from Software AG

You have 2 options:

Order a Tape SNT11x from Software AG

The SNT11x tape contains the following libraries and members:

Name Library Function
SNTDECOD SNT11x.LOAD The decoding program.
README SNT11x.SRCE Readme file.
RUNDECOD SNT11x.SRCE Sample job for decoding a file.

Copying the Tape Contents to Disk

If you are using System Maintenance Aid (SMA), refer to the SMA documentation.

If you are not using SMA, follow the instructions below.

This section explains how to:

  • Copy data set COPY.JOB from tape to disk.

  • Modify this data set to conform with your local naming conventions.

The JCL in this data set is then used to copy all data sets from tape to disk.

If the data sets for more than one product are delivered on the tape, the data set COPY.JOB contains the JCL to unload the data sets for all delivered products from the tape to your disk.

After that, you will have to perform the individual installation procedure for each component.

Step 1 - Copy data set COPY.JOB from tape to disk

The data set COPY.JOB (label 2) contains the JCL to unload all other existing data sets from tape to disk. To unload COPY.JOB, use the following sample JCL: 

//SAGTAPE JOB SAG,CLASS=1,MSGCLASS=X
//* ---------------------------------
//COPY   EXEC PGM=IEBGENER
//*
//SYSUT1 DD DSN=COPY.JOB,
// DISP=(OLD,PASS),
// UNIT=(CASS,,DEFER),
// VOL=(,RETAIN,SER=<Tnnnnn>),
// LABEL=(2,SL)
//*
//SYSUT2 DD DSN=<hilev>.COPY.JOB,
// DISP=(NEW,CATLG,DELETE),
// UNIT=3390,VOL=SER=<vvvvvv>,
// SPACE=(TRK,(1,1),RLSE),
// DCB=*.SYSUT1
//*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//

where:

<Tnnnnn> is the tape number
<hilev> is a valid high level qualifier
<vvvvvv> is the desired volser

Step 2 - Modify COPY.JOB

Modify the COPY.JOB to conform with your local naming conventions and set the disk space parameters before submitting this job:

  • Set HILEV to a valid high level qualifier.

  • Set LOCATION to a storage location.

  • Set EXPDT to a valid expiration date.

Step 3 - Submit COPY.JOB

Submit COPY.JOB to unload all other data sets from the tape to your disk.

Download and Install the Decoding Program from Empower

  1. Download the Zip file that contains the decoding software for this operating system. To access this file, choose Products & Documentation in the left navigation bar and then choose Download Components. In the resulting page, choose the link SNTDECOD.

  2. Use a file transfer system (FTP) to create the PDS and upload sntdecod from your PC to the host. The file transfer must be done in binary, untranslated mode.

    Sample FTP stream:

    open host
userid
password
bin
quote site filetype=seq
quote site recfm=fb
quote site lrecl=80
quote site blksize=400
quote site volume=volser
quote site unit=3390
quote site tracks
quote site primary=30
quote site secondary=30
quote site directory=45
quote MKD SAG.OBJECT
cd SAG.OBJECT
put SNTDECOD
close
bye

  3. Link the member as an executable program.

    //LNKSNT JOB SAG,CLASS=G,MSGCLASS=X
//*
//LKD2 EXEC PGM=IEWL,REGION=700K,
//   PARM=('XREF,LIST,LET,NCAL,SIZE=(512K,48K)')
//SYSLMOD  DD DISP=SHR,DSN=SAG.SNT.LOAD
//IN       DD DSN=SAG.OBJECT,DISP=SHR
//SYSUT1   DD UNIT=SYSDA,DISP=(,PASS),SPACE=(TRK,(70,35),,CONTIG)
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD *
 INCLUDE IN(SNTDECOD)
 ENTRY MAIN
 NAME SNTDECOD(R)
/*
//

Download and Decode a Binary Correction

The following topics are covered below:

Download the Binary Correction

  1. In Empower select Products & Documentation > Download Components. Click on the SNTDECOD link and click on the SNTDECOD 1.1x link for z/OS.

  2. Rename the downloaded correction to a name with a maximum length of 8 characters. The correction used in this sample is CST451P3.

  3. Use FTP to create the PDS and transfer the solution file from your PC to the host. The file must be transfered to the host in binary, untranslated mode. The file must reside on the host as fixed block, record length of 80 and blocksize 6000 (or any multiple of 80).

    Sample FTP stream:

    open host
userid
password
bin
quote site filetype=seq
quote site recfm=fb
quote site lrecl=80
quote site blksize=6000
quote site volume=volser
quote site unit=3390
quote site tracks
quote site primary=50
quote site secondary=25
quote site directory=45
quote MKD SAG.FIX
cd SAG.FIX
put CST451P3
close
bye

  4. Now browse the host file to check whether it is correct. The first 3 lines should be readable and the last line should contain the words "Last Record". It should look similar to the folowing: 

    ****** ****************************** top of data ***** 

000001 I111105
000002 C(C) Software AG, , Tue Mar 2 11:08:23 2004?
000003 TFRZ.CST451.ALLMS03,VB,4628,4624

... 

000054 ???\?F???c?'????????
000055 E ???? .@Last Record  

****** **************************** bottom of data *****

Decode the Binary Correction

Run the SNTDECOD job.

The following example job decodes an INPL fix. For other types of fixes, the DCB parameter may have to be changed, see the explanations below. This job should be adapted to your environment, especially the following parameters:

Parameter Description
INFILE This is the fix which has been downloaded as the binary correction.
OUTFILE

This will become the decoded output file. In our example above it is:

TFRZ.CST451.ALLMS03,VB,4628,4624

This file information also appears on the report produced by the decoding program SNTDECOD.

SMAOUT Specifies the name of an SMA file which will be created and which contains SMA tables. These tables can be used to install the correction. This parameter can be omitted if you are not using SMA.
STEPLIB PDS where SNTDECOD resides.
VOLSER Volser for the SMAOUT and OUTFILE data sets.
UNIT Unit for the SMAOUT and OUTFILE data sets
DCB
DCB for the OUTFILE data set. This value depends on the type of correction that you downloaded.
Correction Type DCB Information

Natural INPL
Natural Error Messages
Construct Frames
Construct Models

RECFM=VB, BLKSIZE=4628, LRECL=4624

LOAD Modules
SOURCE Replacements

RECFM=VS, BLKSIZE=6467, LRECL=6463

CPIO
TAR

RECFM=VB, BLKSIZE=3000, LRECL=2996

SMPL

RECFM=VS, BLKSIZE=6487, LRECL=6483 
//SNTDECOD JOB CLASS=G,MSGCLASS=X
//* ===============================================================
//* SAGNET DECODE
//* ===============================================================
// SET INFILE='SAG.FIX(CST451P3)'
// SET OUTFILE='TFRZ.CST451.ALLMS03'
// SET SMAOUT='SAG.SMAOUT'
// SET STEPLIB='SAG.SNT.LOAD'
// SET VOLSER=USR006
// SET UNIT=3390
//*
//* -- 1) DCB FOR INPL DATA SETS  
// SET DCB='(RECFM=VB,BLKSIZE=4628,LRECL=4624)'
//*
//* -- 2) DCB FOR LOAD AND SOURCE REPLACEMENTS  
//* SET DCB='(RECFM=VS,BLKSIZE=6467,LRECL=6463)'
//*
//* -- 3) TAR (TAPE ARCHIVE) AND CPIO  
//* SET DCB='(RECFM=VB,BLKSIZE=3000,LRECL=2996)'
//*
//* -- 4) SMPL (Compressed Sample File)  
//* SET DCB='(RECFM=VS,BLKSIZE=6487,LRECL=6483)'
//* ===============================================================
//SNTDEC   EXEC PGM=SNTDECOD
//STEPLIB  DD DSN=&STEPLIB,DISP=SHR
//SNTCOD   DD DISP=SHR,DSN=&INFILE
//*
//SNTOUT   DD DSN=&OUTFILE,DISP=(NEW,CATLG),
//   VOL=SER=&VOLSER,SPACE=(CYL,(10,5),RLSE),UNIT=&UNIT,
//   DCB=&DCB
//*
//SMAOUT   DD DSN=&SMAOUT,DISP=(NEW,CATLG),
//   VOL=SER=&VOLSER,SPACE=(TRK,5,RLSE),UNIT=&UNIT,
//   DCB=(RECFM=FB,LRECL=80,BLKSIZE=6000)
//*
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDOUT   DD SYSOUT=*
//

Restore Load and Source Partitioned Data Sets (PDS and PDSE)

You only need this step, if you downloaded Load or Source correction library replacements.

You need to restore the SNTOUT file to a partitioned data set using the IBM utility IEBCOPY (termed loading).

Sample job:

//LOADPDS  JOB CLASS=G,MSGCLASS=X
//* ===========================================
//* RESTORE TO PARTITIONED DATA SET
//* ===========================================
// SET OUTFILE='TFRZ.EXB721.L001'
// SET INFILE='TFRZ.EXB721.MVSL001'
// SET VOLSER=USR006
// SET UNIT=3390
//*
//* -- Use LIBRARY to restore a PDSE (POE) data set
// SET TYPE=LIBRARY
//* -- Use PDS to restore a PDS (PO) data set
//* SET TYPE=PDS
//*
//* ===========================================
//LOAD     EXEC PGM=IEBCOPY
//SYSUT1   DD DSN=&INFILE,DISP=SHR
//SYSUT2   DD DSN=&OUTFILE,DISP=(NEW,CATLG),UNIT=&UNIT,
//      VOL=SER=&VOLSER,SPACE=(CYL,(20,20,60),RLSE),
//      DCB=DSORG=PO,DSNTYPE=&TYPE
//SYSUT3   DD UNIT=&UNIT,SPACE=(TRK,(2,2))
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//

Install the Correction

The following topics are covered below:

SMA Sites

Run a TABLOAD job using the file that was created when decoding the binary correction (see SMAOUT above). This file should be specified on the CMWKF01 DD card.

The fix can be installed using the standard SMA procedures.

All correction data sets are documented in the TAPE administration part of SMA.

Corrective IUPDs (INPLs, ERRNs) can be installed using SMA.

Non-SMA Sites

Install the correction as described in the problem document. In most cases, this is an INPL file. You will need to run a standard batch Natural job such as the I061 job.

The file that was created when decoding the binary correction (see OUTFILE above) should be specified as input for CMWKF01 and STACK=INPL as a parameter.

For other correction types, the problem description document will describe the installation of the correction.