Host product corrections of the type Natload (INPL) and Errlodus (Error Messages) 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.
Host product corrections of the type DOSLIBR are created in a format that gives the possibility to load the correction directly from the PC into the z/VSE library via virtual tape support. So these files are loaded into Empower in AWS format.
Note:
Please note, that SNT11x is used instead of the current
version/release (e.g. SNT112).
The steps below should be used to apply one of these fixes.
You may either get the decoding program from tape or you can download it from Empower.
To get the decoding program from tape
Order tape SNT112/VSE from Software AG.
This tape contains the SNT112 sublibrary. The SNT112 sublibrary contains the following members:
| Name | Function |
|---|---|
SNTDECOD.J |
Sample job for decoding a file. |
README.A |
Readme file. |
INPLDISK.J |
Sample job for loading the SMA skeleton. |
SNTDECOD.PHASE |
The decoding program. |
SMA sites - install the tape using SMA.
Perform a TABLOAD using the first file on the
tape as the CMWKF01 input and install product SNT112.
SMA will generate a copy of the SNT112 sublibrary into your SAG product library.
SMA sites - load the INPLDISK skeleton.
Adapt and run job INPLDISK to load the new skeleton INPLDISK into your SMA environment.
Non-SMA sites - install the tape.
Sample JCL to install the sublibrary:
// JOB RESTORE
// ASSGN SYS006,cuu,VOL=xxxxxx
// MTC REW,SYS006
// MTC FSF,SYS006,nn
// EXEC LIBR
RESTORE S=SAGLIB.SNT112:SAGLIB.SNT112 -
TAPE=SYS006 -
REPLACE=NO
/*
/&
where xxxxxx is the volume serial number and nn is the file sequence number as found on the REPORT OF TAPE CREATION.
To download and install the decoding program from Empower
Download the Zip file that contains the decoding software for this operating system. To access this file, choose Products in the left navigation bar and then choose Download Components. In the resulting page, choose the link SNTDECOD.
The Zip file contains the following members:
| Name | Function |
|---|---|
SNTDECOD.J |
Sample job for decoding a file. |
README.A |
Readme file. |
LNKEDT.J |
Job for linking the SNTDECOD OBJ. |
SNTDECOD.OBJ |
The decoding object module. |
Unzip the file and use a file transfer system which is available for your local PC-to-host connection to upload this file from your PC to your VSE host.
Upload the files to a LIBR sublibrary like
SAGLIB.SNT112 in binary mode.
The SNTDECOD.OBJ file must be done in binary,
untranslated mode.
Link the member as an executable program.
Use the sample LNKEDT.J JCL to link the
SNTDECOD module.
If the solution of your problem is a binary file (INPL or ERRN) in Empower, you can get it as follows:
Choose the download icon in Empower in order to download the solution file from the Empower server to your PC.
Use a file transfer system to upload the solution file from your PC to the host.
The file must be uploaded to the host in binary mode. The file must reside on the host as a fixed block, record length of 80.
Now browse the host file to check whether it is correct. It should look like this:
****** ****************************** top of data *****
000001 I111105
000002 C(C) Software AG, , Thu Nov 15 15:54:42 2001?
000003 TFRZ.AOS713.ALLI001,VB,4628,4624
...
...
...
002650 E ??LÄ ?.ïLast Record
****** **************************** bottom of data *****
The first 3 lines should be readable. The last line should contain the words "Last Record".
Run the SNTDECOD job.
This job should be adapted to your environment.
This job has two output files:
SNTOUT
The decoded binary host file.
This file is specified on the SNTOUT DLBL CARD
SMAOUT
The input file to the SMA TABLOAD.
This file is specified on the SMAOUT DLBL card.
This DLBL card can be omitted if you are not using SMA.
Run a TABLOAD job using the output file
SMAOUT created above. This file should be specified on the
CMWKF01 DD card.
The fix can be installed using the standard SMA procedures.
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 output file
SNTOUT created above should be specified as input for
CMWKF01 and STACK=INPL as a parameter.
There are many ways to install and operate a file transfer. In the following we want to describe three possibilities: one based on the Software AG products Entire Connection and Entire System Server, one based on IBM's SEND/RECEIVE, and one based on FTP.
The following topics are covered below:
Software AG does not offer a file transfer product presently, but you can use the technology from Software AG to implement your own file transfer.
Entire Connection and Entire System Server (formerly called Natural Process) must be installed.
Allocate a sequential file on one of your VSE disks. The size of the file must be big enough to contain the INPL.
Copy the example upload program UPLOAD into
your Natural and adapt it for your needs.
Download the correction file from Empower to your PC as described above.
Execute the program UPLOAD to copy the file
from the PC to VSE.
Once the file has been copied from the PC to the host, continue with decompressing and installing the correction as described above with step 3 of Download and Decode a Host Product Correction from Empower.
VSE offers all needed host components to do a file transfer from PC. The procedure described below is somewhat longwinded, since this file transfer works from PC to the proprietary HTF file only.
Standard VSE/SP or later.
CICS must be available.
The IUI (Interactive User Interface) must be active. IWS (intelligent workstation support) must be enabled.
Your 3270 emulation product on your PC must be able to support the SEND.EXE program.
Download the correction file from Empower to your PC as described above.
Enter CICS. This should bring you into the entry menu for IUI.
Select Operation.
Select Personal Computer Move Utilities.
Select PC File Transfer, then switch to PC mode and initiate the file transfer using SEND.EXE.
Refer to the documentation of your PC software for details on how to use SEND.EXE. It is important that you use the correct transfer options:
No translation of CR/LF.
Binary transfer, with no ASCII translation.
LRECL must be 80.
Select List and Process User Files in HTF.
Fill in the file selection parameters.
Mark the new file with "8" (Move to ICCF).
Fill in ICCF Member Name and ICCF Lib.-Number and copy from the HTF file into this ICCF library member.
Execute REPRO to copy from this ICCF library
into a sequential file using the JCL below.
We suggest that you incorporate this JCL in your job
SNTDECOD.J as the first step.
* ********************************
* COPY CARD INPUT TO DISK *
* ********************************
// ASSGN SYS005,DISK,VOL=VVVVVV,SHR <=== enter Volser of target file
// DLBL DISKFIL,'SNT.XXXXXXXX.CODED',0,SD <=== enter DSN of target file
// EXTENT SYS005,VVVVVV,,,XXXXX,XXXXX <=== enter extent of target file
// EXEC IDCAMS,SIZE=AUTO
REPRO -
OUTFILE -
( DISKFIL -
ENV ( BLKSZ(6000) RECFM(FB) -
RECSZ(80) ) ) -
INFILE -
( SYSIPT)
* $$ SLI ICCF=(mmmmmm),LIB=(11) <=== enter the member name and
/*
the library number
/&
* $$ EOJ
Once the file has been copied from the PC to the host, continue with decompressing and installing the correction as described above with step 3 of Download and Decode a Host Product Correction from Empower.
FTP on VSE/ESA. Prepare FTP startup job and INIT file.
The TCP/IP startup job must have a DLBL card like this:
// DLBL SNTFILE,'SNT.UPLOAD.FILE',2099/365,SD // EXTENT SYS049,DAVC04,1,0,255,150 // ASSGN SYS049,DISK,VOL=DAVC04,SHR
The size of the file must be big enough to contain the INPL. The
INIT-FILE used at the EXEC IPNET must have a additional File
statement, like:
DEFINE FILE,PUBLIC='SNTFILE',DLBL=SNTFILE,TYPE=SAM
Tools for using FTP on the PC are:
DOS box
WS_FTP
Netscape
DOSLIBR corrections are provided in a format that can be addressed as a "virtual tape".
You should first install the virtual tape support on your VSE machine and on your PC. See Installing the IBM Virtual Tape Server for z/VSE for further information.
The following topics are covered below:
Adapt the sample JCL VSE_Tabload and run it in
your VSE machine.
* $$ JOB JNM=TABLOAD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D,DEST=(,uid)
// JOB TABLOAD
// LIBDEF PHASE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADA742, X
SAGLIB.NAT413),TEMP
DVCDN cuu
VTAPE START,UNIT=cuu,LOC=pc-ip address:2386, X
FILE='C:/ SAG.Solution-id',READ
DVCUP cuu
/*
// ASSGN SYS001,cuu
// MTC REW,SYS001
// TLBL CMWKF01,'SMT111.TABS',,,,1
// ASSGN SYS000,READER
// ASSGN SYS041,SYSLST
// ASSGN SYS042,SYSLST
// ASSGN SYS043,SYSLST
// DLBL CMEDIT,'SAGLIB.BATCH.EDITWORK',,VSAM,CAT=VSESPUC
// EXEC NAT413BA,SIZE=NAT413BA,PARM='SYSRDR'
WORK=((1),AM=STD,RECFM=FB,BLKSIZE=6000)
BPI=(TYPE=EDIT,SEQ=0,SIZE=512,NAME=' ')
IM=D,MADIO=0,MT=0,OBJIN=R,MENU=OFF
AUTO=OFF,DLISIZE=0,ET=ON
/*
ADARUN DB=dbid,DEVICE=3390,SVC=45,MODE=MULTI
/*
LOGON SYSSMA1
MENU
LOAD
FIN
/*
DVCDN cuu
VTAPE STOP,UNIT=cuu
DVCUP cuu
/&
* $$ EOJ
Install the products as usual.
Adapt and run the JCLTODSK job to save the
COPYTAPE.JOB to a SD file on your system.
* $$ JOB JNM=JCLTODSK,DISP=D,CLASS=A
* $$ LST DISP=D,CLASS=A,DEST=(,uid)
// JOB JCLTODSK
* ********************************************************
* COPY JCL COPYTAPE.JOB TO SEQUENTIAL DISC
* ********************************************************
DVCDN cuu
VTAPE START,UNIT=cuu,LOC=pc-ip address:2386, X
FILE='C:/SAG.Solution-id',READ
DVCUP cuu
/*
// ASSGN SYS004,cuu
// MTC REW,SYS004
// TLBL TAPEFIL,'COPYTAPE.JOB',,,,2
// ASSGN SYS005,DISK,VOL=VVVVVV,SHR
// DLBL DISKFIL,'COPYTAPE.JOB',0,SD
// EXTENT SYS005,VVVVVV,1,0,strk,ntrk
// EXEC IDCAMS,SIZE=AUTO
REPRO -
INFILE -
( TAPEFIL -
ENV ( BLKSZ(80) RECFM(F) RECSZ(80) -
PDEV(2400) STDLABEL NOREWIND ) ) -
OUTFILE -
( DISKFIL -
ENV ( BLKSZ(80) RECFM(FB) -
RECSZ(80) ) )
/*
DVCDN cuu
VTAPE STOP,UNIT=cuu
DVCUP cuu
/*
/&
* $$ EOJ
Adapt the COPYTAPE.JOB to suit your VSE
environment.
Run it in your VSE machine to restore the product libraries.
| Name | Function |
|---|---|
SMT111.TABS |
z/VSE System Maintenance Aid tables. |
COPYTAPE.JOB |
JCL for unload data sets on disk without SMA. |
| Product correction | Correction file in librarian format. |