Mainframe program relocation
CONTENTS:
Case 1. Source program relocation
1.1. Copy of source program to another source library on the same Mainframe
1.2. Receiving the source program from Mainframe on PC in character format and sending to remote Mainframe with PC connected
– Download source program on PC using TSO/IND$FILE
– Download source program or full source library on PC using TSO/ISPF C/S and WSA
– Transport source program to another Mainframe portable or via Internet
– Upload source program on remote Mainframe using TSO/IND$FILE
– Upload source program on remote Mainframe using TSO/ISPF C/S and WSA
1.3. Relocation of full source library between local and remote Mainframe via PC
– Download full source library on PC using FTP
– Transport the full source library to another Mainframe portable or via Internet
– Upload full source library on remote Mainframe using FTP
1.4. Compile and execute the received source program on remote Mainframe
– Compile source and catalog load program
– Execute cataloged load program
– Transfer the result of execution output file for comparison between local and remote Mainframe using Internet
1.5. Relocation of VSAM files between local and remote Mainframe
– Export VSAM KSDS files
– Import VSAM KSDS files
– Export VSAM ESDS files
– Import VSAM ESDS files
– Export/Import mixed VSAM KSDS/ESDS files
Case 2. Object module relocation
2. 1. Copy of object module to another object library on the same Mainframe
– Compile source program and catalog object module
– Copy object module to another object library
2.2. Receiving the object member from Mainframe on PC in binary format and sending to remote Mainframe with PC connected
– Download object member on PC using TSO/IND$FILE
– Download object member or full object library on PC using TSO/ISPF C/S and WSA
– Transport object member to another Mainframe portable or via Internet
– Upload object member on remote Mainframe using TSO/IND$FILE
– Upload object member on remote Mainframe using TSO/ISPF C/S and WSA
2.3. Relocation of full object library between local and remote Mainframe via PC
– Download full object library on PC using FTP
– Transport the full object library to another Mainframe portable or via Internet
– Upload full object library on remote Mainframe using FTP
2.4. Linkedit and execute the received object member on remote Mainframe
– Linkedit object member and catalog load program
– Execute cataloged load program
2.5. Preparation job stream (JCL + object data – ready for execution) in local Mainframe and transfer to remote Mainframe via PC
– Preparation composed member (JCL + object data) in local Mainframe
– Download the composed member on PC using FTP
– Download the composed member on PC using TSO/ISPF C/S and WSA
– Transport the composed member to another Mainframe portable or via Internet
– Upload the composed member for immediate execution on remote Mainframe using FTP
– Upload the composed member for immediate execution on remote Mainframe using TSO/ISPF C/S and WSA
Case 3. Load program relocation
3. 1. Copy of load program to another load program library on the same Mainframe
– Compile source program and catalog load module
– Copy load program to another load library
3.2. Receiving the load member from Mainframe on PC and sending to remote Mainframe with PC connected
– Download load member on PC using TSO/IND$FILE
– Download load member or full load library on PC using TSO/ISPF C/S and WSA
– Transport load member to another Mainframe portable or via Internet
– Upload load member on remote Mainframe using TSO/IND$FILE
– Upload load member on remote Mainframe using TSO/ISPF C/S and WSA
3.3. Relocation of full load library between local and remote Mainframe via PC
– Download full load library on PC using FTP
– Transport the full load library to another Mainframe portable or via Internet
– Upload full load library on remote Mainframe using FTP
3.4. Linkedit and execute the received load member on remote Mainframe
– Linkedit object member and catalog load program
– Execute cataloged load program
Sometimes it’s necessary to move some programs and data from one place to another (as is the case with program distribution or exchange among the program developers in one team) on the same z/OS Mainframe in different formats – source, object or load. When the relocation requires the programs and data to be transferred to another remote Mainframe, the process may be extended with inclusion Internet and removable portable media (CD, DVD, tape cartridge).
Case 1. Source program relocation
1.1. Copy of source program to another source library on the same Mainframe
Enter TSO/ISPF – p.3.4 – BCI05.LIB.BASE.SOURCE(CIFTEST) – / – 8 (Copy function):
CURRENT from data set: ‘BCI05.LIB.BASE.SOURCE(CIFTEST)’
To Library Replace option:
Project . . . Enter “/” to select option
Group . . . . / Replace like-named members
Type . . . .
To Other Data Set Name
Data Set Name . . . BCA1MGP.STEF.JCL2
Volume Serial . . . (If not cataloged)
NEW member name . . . CIFTESTS (Blank unless member to be renamed)
The source Cobol II program CIFTEST is moved from library BCI05.LIB.BASE.SOURCE to library BCA1MGP.STEF.JCL2 as source member CIFTESTS with the following contents:
IDENTIFICATION DIVISION.
PROGRAM-ID. CIFTEST.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRTFILE
ASSIGN TO PRTFILE
FILE STATUS IS FS-CODE.
SELECT CIKMSTR
ASSIGN TO CIKMSTR
ORGANIZATION IS INDEXED
ACCESS DYNAMIC
RECORD KEY IS CIKM-KEY
FILE STATUS IS FS-CODE VSAM-CODE.
DATA DIVISION.
FILE SECTION.
FD PRTFILE
RECORDING MODE F
BLOCK 0 RECORDS
RECORD 301 CHARACTERS
LABEL RECORD OMITTED.
1.1. PRT-RECORD.
03 PRT-CLIENT-ID1 PIC 9(7).
03 PRT-RESTRICTED-CODE PIC X(1).
03 PRT-CLIENT-ID2 PIC 9(7).
03 PRT-EGN-BULSTAT PIC X(13).
03 PRT-CUST-CATEGORIA PIC X(1).
03 PRT-BIRTH-DATE PIC X(10).
03 RE-PRT-BIRTH REDEFINES PRT-BIRTH-DATE.
05 DD-BIRTH PIC X(2).
05 B-O1 PIC X(1).
05 MM-BIRTH PIC X(2).
05 B-O2 PIC X(1).
05 YYYY-BIRTH PIC X(4).
03 PRT-POST-CODE PIC X(4).
03 PRT-BRANCH PIC X(4).
03 PRT-DATE-OPEN PIC X(10).
03 RE-PRT-OPEN REDEFINES PRT-DATE-OPEN.
05 DD-OPEN PIC X(2).
05 P-O1 PIC X(1).
05 MM-OPEN PIC X(2).
05 P-O2 PIC X(1).
05 YYYY-OPEN PIC X(4).
03 PRT-CUST-NAME PIC X(40).
03 PRT-DANACHEN-NBR PIC X(40).
03 PRT-EGN-for-BUSINESS PIC X(40).
03 PRT-ADDRESS PIC X(40).
03 PRT-PASSPORT-FIRMdelo PIC X(40).
03 PRT-TOWN PIC X(40).
03 PRT-COUNTRY PIC X(2).
03 PRT-SECTOR-CLIENT PIC X(2).
FD CIKMSTR.
01 CIKM-RECORD.
05 CIKM-KEY.
10 CIKM-KEY-BANK PIC X(2).
10 CIKM-KEY-NAME PIC X(64).
05 CIKM-SHORT-NAME PIC X(20).
05 CIKM-CUST-TYPE PIC X(1).
05 FILLER PIC X(1).
05 CIKM-POST-CODE PIC X(4).
05 FILLER PIC X(9).
05 CIKM-BRANCH PIC X(4).
05 FILLER PIC X(1).
* 05 FILLER PIC X(14).
* —– – 106 —
05 CIKM-TDD PIC X(6).
05 FILLER PIC X(2).
* —— – 115 –
05 CIKM-BULSTAT PIC X(30).
* 05 FILLER PIC X(184).
05 FILLER PIC X(178).
* —— – 323 –
05 CIKM-BIRTH-DATE PIC S9(7) COMP-3.
05 FILLER PIC X(1).
* —– – 328 – RESTRICTED-CODE => Y=YES or N=NO
05 CIKM-RESTRICTED-CODE PIC X(1).
05 CIKM-REG-O-CODE PIC X(1).
* —— – 330 –
05 FILLER PIC X(59). 330:5
05 CIKM-FIRM-TYPE PIC X(2). 389:2
05 CIKM-DEPARTMENT PIC X(2). 391:2
05 CIKM-SECTOR-CLIENT PIC X(2). 393:2
05 CIKM-SECTOR-CLIENT PIC X(2). 393:2
05 CIKM-USER-ALPHA-4 PIC X(2). 395:2
05 CIKM-USER-ALPHA-5 PIC X(2). 397:2
05 CIKM-TEST PIC X(54). 399:5
* —— – 453 –
05 CIKM-OPEN-DATE PIC S9(7) COMP-3. 453:4
05 FILLER PIC X(67). 457:6
05 CIKM-COUNTRY PIC X(02). 524:2
05 FILLER PIC X(44). 526:4
* —— – 570 –
05 CIKM-OLAV-NBR PIC S9(15) COMP-3. 570:8
05 CIKM-GROUP-NBR-GVK PIC S9(15) COMP-3.
05 CIKM-CLEX PIC S9(15) COMP-3.
05 CIKM-USER-AMT-4 PIC S9(15) COMP-3.
05 CIKM-USER-AMT-5 PIC S9(15) COMP-3.
* —— – 610 –
05 CIKM-CLIENT-ID-prev PIC S9(7) COMP-3.
05 CIKM-EXECUTIVE PIC S9(7) COMP-3.
05 CIKM-VIENA-CLI-CLASS PIC S9(7) COMP-3.
05 CIKM-NACE-CODE PIC S9(7) COMP-3.
05 CIKM-SOC-INSURANCE PIC S9(7) COMP-3.
05 CIKM-REVIEW-DATE PIC S9(7) COMP-3.
05 CIKM-CLIENT-AGREEMENT PIC S9(7) COMP-3.
05 CIKM-USER-DATE-3 PIC S9(7) COMP-3.
05 CIKM-USER-DATE-4 PIC S9(7) COMP-3.
05 CIKM-USER-DATE-5 PIC S9(7) COMP-3.
05 CIKM-RATING PIC X(3).
* —— – 653 –
05 CIKM-OPU PIC X(3).
05 CIKM-SUB-SEG PIC X(3).
88 FK VALUE ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’, ‘9’, ‘10’.
05 CIKM-CLIENT-TYPE-IDENT PIC X(3).
05 CIKM-CIMIS-CLIENT PIC X(3).
05 filler PIC X(77).
* —— – 742 –
05 CIKM-CLIENT-ID PIC S9(7) COMP-3.
05 FILLER PIC X(19).
05 CIKM-BUF-LEN PIC 9(4) BINARY.
05 CIKM-BUF PIC X(252).
* RLEN => 1018
WORKING-STORAGE SECTION.
1.2. RETURN-STATUS.
02 FS-CODE PIC XX.
02 VSAM-CODE.
05 VSAM-RET PIC 9(2) COMP.
05 VSAM-COMP PIC 9(1) COMP.
05 VSAM-REAS PIC 9(3) COMP.
1.3. FORM-DATE.
02 CHANGE-CODE PIC X(01).
02 NORM-DATE PIC X(10).
02 DIM-DATE PIC S9(07) PACKED-DECIMAL.
1.4. FLD-TABLE.
05 W-FLD OCCURS 6 TIMES PIC X(40).
01 START-POS PIC 9(3).
01 LENFLD PIC S9(03) PACKED-DECIMAL.
01 DAKTR-NUM PIC 9(02).
01 FLD-LEN PIC 9(2).
01 K PIC 9(2).
01 P PIC 9(3).
01 W PIC 9(3).
01 W-NAME PIC X(40).
01 W-FIELD PIC X(40).
01 W-NOT-ALPHBET PIC X(40).
01 W-CHAR-OK PIC X(40).
01 COUNT-NBR PIC 9(3).
01 W-TYPE PIC 9(4).
01 W-INT-RATE PIC Z(2)9.9(8).
01 W-VALUE-DATE PIC S9(7) PACKED-DECIMAL.
01 W-PRT-DATE PIC 9(8).
01 W-CLIENT-ID PIC 9(7).
01 W-EGN-BULSTAT PIC X(13).
01 W-CUST-CATEGORIA PIC X(1).
01 LEN-FLD PIC 9(3) COMP-3.
77 LEN PIC 9(02).
77 LEN1 PIC 9(03) USAGE PACKED-DECIMAL.
77 POS-BUF PIC S9(03) USAGE PACKED-DECIMAL.
77 I PIC 9(05) PACKED-DECIMAL VALUE 0.
77 J PIC 9(05) PACKED-DECIMAL VALUE 0.
PROCEDURE DIVISION.
OPEN OUTPUT PRTFILE.
OPEN INPUT CIKMSTR
IF FS-CODE > ‘00’ AND FS-CODE < ‘97’
DISPLAY ‘OPEN CIKMSTR ERR –‘ FS-CODE
STOP RUN
END-IF.
READ CIKMSTR NEXT.
READ-CIKM.
READ CIKMSTR NEXT AT END GO TO END-PROG
END-READ
*** TEST
* IF CIKM-CLIENT-ID NOT = 0107075
* GO TO READ-CIKM
* END-IF
*** TEST
MOVE LOW-VALUE TO PRT-RECORD
INITIALIZE PRT-RECORD
MOVE CIKM-CLIENT-ID-prev TO PRT-CLIENT-ID1
MOVE CIKM-CLIENT-ID TO PRT-CLIENT-ID2
IF PRT-CLIENT-ID1 = SPACES
MOVE ZEROS TO PRT-CLIENT-ID1
END-IF
IF PRT-CLIENT-ID2 = SPACES
MOVE ZEROS TO PRT-CLIENT-ID2
END-IF
MOVE CIKM-RESTRICTED-CODE TO PRT-RESTRICTED-CODE
MOVE CIKM-BULSTAT(1:13) TO PRT-EGN-BULSTAT
MOVE CIKM-CUST-TYPE TO PRT-CUST-CATEGORIA
MOVE CIKM-BRANCH TO PRT-BRANCH
MOVE ZEROS TO W-PRT-DATE
IF CIKM-BIRTH-DATE > 1900000
COMPUTE W-PRT-DATE = FUNCTION DATE-OF-INTEGER
(FUNCTION INTEGER-OF-DAY(CIKM-BIRTH-DATE))
END-IF
MOVE W-PRT-DATE(1:4) TO YYYY-BIRTH
MOVE W-PRT-DATE(5:2) TO MM-BIRTH
MOVE W-PRT-DATE(7:2) TO DD-BIRTH
MOVE ‘.’ TO B-O1, B-O2
MOVE CIKM-POST-CODE TO PRT-POST-CODE
MOVE CIKM-COUNTRY TO PRT-COUNTRY
INSPECT PRT-COUNTRY REPLACING ALL ‘”’ BY ‘ ‘
INSPECT PRT-COUNTRY REPLACING ALL ‘&’ BY ‘ ‘
INSPECT PRT-COUNTRY REPLACING ALL ‘<’ BY ‘ ‘
INSPECT PRT-COUNTRY REPLACING ALL ‘>’ BY ‘ ‘
INSPECT PRT-COUNTRY REPLACING ALL ‘.’ BY ‘ ‘
MOVE ZEROS TO W-PRT-DATE
IF CIKM-OPEN-DATE > 1900000
COMPUTE W-PRT-DATE = FUNCTION DATE-OF-INTEGER
(FUNCTION INTEGER-OF-DAY(CIKM-OPEN-DATE))
END-IF
MOVE W-PRT-DATE(1:4) TO YYYY-OPEN
MOVE W-PRT-DATE(5:2) TO MM-OPEN
MOVE W-PRT-DATE(7:2) TO DD-OPEN
MOVE ‘.’ TO P-O1, P-O2
MOVE CIKM-SECTOR-CLIENT TO PRT-SECTOR-CLIENT
INSPECT PRT-SECTOR-CLIENT REPLACING ALL ‘”’ BY ‘ ‘
INSPECT PRT-SECTOR-CLIENT REPLACING ALL ‘&’ BY ‘ ‘
INSPECT PRT-SECTOR-CLIENT REPLACING ALL ‘<’ BY ‘ ‘
INSPECT PRT-SECTOR-CLIENT REPLACING ALL ‘>’ BY ‘ ‘
INSPECT PRT-SECTOR-CLIENT REPLACING ALL ‘.’ BY ‘ ‘
MOVE 1 TO start-pos
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 6
CALL ‘XTOPD’ USING CIKM-BUF(start-pos:1) LEN-FLD
COMPUTE start-pos = start-pos + 2
MOVE CIKM-BUF(start-posLLEN-FLD – 1)) TO W-FLD(I)
COMPUTE start-pos = start-pos + LEN-FLD – 1
END-PERFORM
INSPECT W-FLD(1) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(1) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(1) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(1) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(1) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(1) TO PRT-CUST-NAME
INSPECT W-FLD(2) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(2) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(2) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(2) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(2) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(2) TO PRT-DANACHEN-NBR
INSPECT W-FLD(3) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(3) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(3) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(3) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(3) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(3) TO PRT-EGN-for-BUSINESS
INSPECT W-FLD(4) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(4) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(4) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(4) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(4) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(4) TO PRT-ADDRESS
INSPECT W-FLD(5) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(5) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(5) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(5) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(5) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(5) TO PRT-PASSPORT-FIRMdelo
INSPECT W-FLD(6) REPLACING ALL ‘”’ BY ‘ ‘
INSPECT W-FLD(6) REPLACING ALL ‘&’ BY ‘ ‘
INSPECT W-FLD(6) REPLACING ALL ‘<’ BY ‘ ‘
INSPECT W-FLD(6) REPLACING ALL ‘>’ BY ‘ ‘
INSPECT W-FLD(6) REPLACING ALL ‘.’ BY ‘ ‘
MOVE W-FLD(6)(1:20) TO PRT-TOWN
WRITE PRT-RECORD
IF FS-CODE > ‘04’
DISPLAY ‘ERR WRITE FOR CLIENT-ID1=’ PRT-CLIENT-ID1
‘ , CLIENT-ID2=’ PRT-CLIENT-ID2
END-IF
GO TO READ-CIKM.
END-PROG.
CLOSE PRTFILE CIKMSTR
STOP RUN.
1.2. Receiving the source program from Mainframe on PC in character format and sending to remote Mainframe with PC connected
– Download source program on PC using TSO IND$FILE
Set TSO ISPF function P.6 in a: Telnet session of Mainframe and from Command Prompt Icon of PC desktop enter the command:
receive d:\ciftests.txt a: BCA1MGP.STEF.JCL2(CIFTESTS) ascii crlf
The source program CIFTESTS from library BCA1MGP.STEF.JCL2 is received on PC in character format as PC file d:\ ciftests.txt and can be opened with WordPad, Notepad.
– Download source program or full source library on PC using TSO ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) Installation and Setup is performed following the C/S WSA instructions do the following:
Click on WSA.exe in PC directory c:\WSA-INSTALL where WSA application client agent is installed to become active.
Sign on in TSO/ISPF (without split screen) and on “Primary Option Menu” (P) command line enter WSCON. The panel “Initiate Workstation Connection” appears with all prepared settings according the C/S WSA instructions. (Type 2 in the Workstation Connection selection field – 2.Without GUI display. Type 1 in the GUI Network Protocol selection field – 1.TCP/IP. Type the IP address of your PC in the TCP/IP Address entry field /10.250.20.212/. Enter Host Codepage as 0037, Host Character SET as 0697.). After pressing Enter, small “Connection” window appears requring answer Yes to Accept connection. Click on button Yes and return to TSO/ISPF Primary Option Menu (P) to see the message “Connected” on the right upper end of the screen. Then you can enter 3.7.2 on command line and the “Download/Upload Data Set To/From Workstation” panel will be displayed where it is necessary to insert the following information(marked in bold):
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘BCA1MGP.STEF.JCL2’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftest.txt
On “Transfer Option Options “ enter:
1 1. Download to workstation Generate statistics on upload
2. Upload from workstation / Transfer in text mode
/ Replace existing member/file
After pressing Enter the following panel will appear :
MEMBER LIST BCA1MGP.STEF.JCL2
Name Prompt Size Created Changed ID
. CIFTES11
. CIFTEST
. CIFTEST7
. CIFTESTE
. CIFTESTO 150
S CIFTESTS *XFER 310
. CIFTJCL 1068
. LKEDOBJ 23
Chose the member CIFTESTS with S (select) and press Enter – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt .
The source program CIFTESTS from library BCA1MGP.STEF.JCL2 is received on PC in character format as PC file d:\ ciftests.txt and can be opened with WordPad, Notepad.
To download full source library, on panel “Download/Upload Data Set To/From Workstation” locate field
“Workstation File:
File Name . . . . . :” and enter “d:\ciftests\*.txt” (d:\ciftests directory should be created previously). After Enter select (with S) all members in the member list. Then Enter again and soon the list panel will look like this:
MEMBER LIST BCA1MGP.STEF.JCL2 Transfer completed
. CIFTES11 *XFER
. CIFTEST *XFER
. CIFTEST7 *XFER
. CIFTESTE *XFER
. CIFTESTO *XFER
. CIFTESTS *XFER
. CIFTJCL *XFER
. LKEDOBJ *XFER
All members of source library BCA1MGP.STEF.JCL2 will be downloaded on directory d:\ciftests in character format.
– Transport source program to another Mainframe portable or via Internet (Zip source program, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip source program)
The PC file ciftests.txt with source program CIFTEST may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it.
If you want to accelerate the process of transportation of the source program, use Internet as follows:
Zip the file ciftests.txt as ciftests.zip and send a mail to the system administrator of the remote Mainframe with the file ciftests.zip attached . The system administrator of the remote Mainframe unzip the attached received file ciftests.zip to file ciftests.txt on PC.
– Upload source program on remote Mainframe using TSO IND$FILE
The following command may be used with the similar environment (TSO ISPF function P.6 in b: Telnet session of remote Mainframe and Command Prompt Icon of PC desktop) for sending to Mainframe:
send d:\ciftests.txt b: library.remote.source(CIFTESTS) ascii crlf
The file ciftests.txt with the source program CIFTEST is sent to library.remote.source as member CIFTESTS.
– Upload source program on remote Mainframe using ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) Installation and Setup is performed following the C/S WSA instructions do the following:
Click on WSA.exe in PC directory c:\WSA-INSTALL where WSA application client agent is installed to become active.
Sign on in TSO/ISPF (without split screen) and on “Primary Option Menu” (P) command line enter WSCON. The panel “Initiate Workstation Connection” appears with all prepared settings according the C/S WSA instructions. After pressing Enter, small “Connection” window appears requring answer Yes to Accept connection. Click on button Yes and return to TSO/ISPF Primary Option Menu (P) to see the message Connected on the right upper end of the screen. Then you can enter 3.7.2 on command line and the “Download/Upload Data Set To/From Workstation” panel will be displayed where it is necessary to insert the following information(marked in bold):
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘library.remote.source(ciftests)‘
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftests.txt
On “Transfer Option Options “ enter:
2 1. Download to workstation Generate statistics on upload
2. Upload from workstation / Transfer in text mode
/ Replace existing member/file
After pressing Enter – message Transfer completed will appear on the right upper end of the screen.
The file ciftests.txt with the source program CIFTEST is sent to library.remote.source as member CIFTESTS.
1.3. Relocation of full source library between local and remote Mainframe via PC
– Download full source library on PC using FTP
To get full TSO ISPF z/OS library bca1mgp.stef.jcl2 to PC use FTP z/OS mget command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– Prompt – prompt is off /no confirm Y is expected/
– Cd ‘bca1mgp.stef.jcl2’ – The Working directory “bca1mgp.stef.jcl2” is a partition data set
– Lcd d:\stef.jcl2 – Local directory now: d:\ stef.jcl2 – necessary to be created previously!!!
– Mget * – all members from TSO ISPF z/OS library bca1mgp.stef.jcl2 are transferred in 80 char records as PC file d:stef.jcl2 in text format
– Quit – Quit command received. Goodbye.
All members from TSO ISPF z/OS source library bca1mgp.stef.jcl2 are transferred in 80 char records to PC d:\stef.jcl2 in text format and can be viewed with WordPad editor.
– Transport the full source library to another Mainframe portable or via Internet (Zip source library, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip source library)
The full source library bca1mgp.stef.jcl2 may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it.
If you want to accelerate the process of transportation of the source program, use Internet as follows:
Zip the source library d:\stef.jcl2 as stef.jcl2.zip and send a mail to the system administrator of the remote Mainframe with the file stef.jcl2.zip attached.
The system administrator of the remote Mainframe unzip the attached received file stef.jcl2.zip to file d:\stef.jcl2 on PC in text character format.
– Upload full source library on remote Mainframe using FTP
To put full library from PC folder d:\stef.jcl2 to TSO ISPF z/OS library bca1mgp.stef.jcl8 use FTP z/OS mput command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– Prompt – prompt is off /no confirm Y is expected/
– Cd ‘bca1mgp.stef.jcl8’ – The Working directory “bca1mgp.stef.jcl8” is a partition data set
– Lcd d:\stef.jcl2 – Local directory now: d:\ stef.jcl2 – full with z/OS source libray members
– Mput * – all members from PC folder d:\stef.jcl2 are transferred in 80 char records to TSO ISPF z/OS library bca1mgp.stef.jcl8 in text format.
1.4. Compile and execute the received source program on remote Mainframe
– Compile source and catalog load program
To compile the source program CIFTEST transferred to LIBRARY.REMOTE.SOURCE(or if included in the transferred full library bca1mgp.stef.jcl8) and to catalog in remote library ‘BCI05.LIB.BASE.LOAD’ as program CIFTEST use the following JCL:
//COBBATCH JOB (ACCTNUM),’CORNERST’,
// USER=,
// GROUP=,
// PASSWORD=,
// TIME=1440,
// NOTIFY=&SYSUID,
// REGION=6500K,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1)
//*——————————————————————-
//* COBOL JCL – 07/2003 –
//* –
//* CHANGE PARMS BELOW: –
//* BCCSLIB = SOURCE LIBRARY –
//* BCCTLOAD = LOAD LIBRARY –
//* BCCMEMBR = SOURCE AND OUTPUT MEMBER NAME –
//*——————————————————————-
// SET BCCSLIB= ‘LIBRARY.REMOTE.SOURCE ‘ ** SOURCE LIBRARY
// SET BCCCPBK=’BCI05.LIB.BASE.COPY’ ** COPYBOOK LIBRARY
// SET BCCTLOAD=’BCI05.LIB.BASE.LOAD’ ** LOAD LIBRARY
// SET BCCTOBJ=’BCI05.LIB.BASE.OBJECT’ ** OBJ LIBRARY
// SET BCCMEMBR=CIFTEST
//*——————————————————————-
//*- JCL BELOW –
//*——————————————————————-
//*- COBOL BATCH COMPILE – 07/03 –
//*——————————————————————-
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,PARM=(LIB,MAP,XREF,LIST)
//STEPLIB DD DSNAME=IGY.SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT3 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT4 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT5 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT6 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT7 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS,DELETE),
// DCB=BLKSIZE=800,
// UNIT=VIO,SPACE=(TRK,(15,5),RLSE)
//SYSLIB DD DSN=&BCCCPBK,DISP=SHR
//SYSIN DD DSN=&BCCSLIB(&BCCMEMBR),DISP=SHR
//*
//*LINKEDT EXEC PGM=HEWL,REGION=1024K,
//LINKEDT EXEC PGM=HEWL,REGION=1024K,PARM=’XCAL’,
// COND=(7,LT)
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=&BCCTLOAD,DISP=SHR
// DD DSN=&BCCTOBJ,DISP=SHR
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(10,5))
//SYSLMOD DD DSN=&BCCTLOAD(&BCCMEMBR),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE,DELETE),
// UNIT=VIO
//*
– Execute cataloged load program
To execute the cataloged load program CIFTEST from library BCI05.LIB.BASE.LOAD use the following JCL:
//JCIF0595 JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440
//***
//JOBLIB DD DSN=BCI05.LIB.BASE.LOAD,DISP=SHR
// DD DSN=KCI01.LIB.PROD.LOAD,DISP=SHR
//*
//STEP1D EXEC PGM=IEFBR14
//CUSTOMER DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DISP=(MOD,DELETE),
// DCB=(RECFM=FB,LRECL=301,DSORG=PS),
// SPACE=(TRK,(1,1)),UNIT=VIO
//*
//STEP1 EXEC PGM=CIFTEST,REGION=8M
//CIKMSTR DD DSN=KCI02.D0595.CIKMSTR,DISP=SHR
//PRTFILE DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DCB=(RECFM=FB,LRECL=301,DSORG=PS,BUFNO=100),
// DISP=(NEW,CATLG),
// SPACE=(CYL,(850,150),RLSE),UNIT=VIO
//*
– Transfer the result of execution file for comparison between local and remote Mainframe using Internet
The result of execution is the text file PRINT01.KCI01.CIF0595.TXT with the following dataset parameters:
Data Set Information
Data Set Name . . . . : PRINT01.KCI01.CIF0595.TXT
General Data Current Allocation
Management class . . : MCMIG Allocated cylinders : 1
Storage class . . . : SCFAST Allocated extents . : 1
Volume serial . . . : PRD818 +
Device type . . . . : 3390
Data class . . . . . : DCPRINT Current Utilization
Organization . . . : PS Used cylinders . . : 1
Record format . . . : FB Used extents . . . : 1
Record length . . . : 301
Block size . . . . : 32508
1st extent cylinders: 1
Secondary cylinders : 150
Data set name type : EXTENDED SMS Compressible . : YES
This text file PRINT01.KCI01.CIF0595.TXT with fixed 301 bytes records can be sent via removable media (CD,DVD, flash memory, tape catrtridge) or Internet (from Local to Remote Mainframe and vice versa) for comparison the output result in the both Mainframes as follows:
To download the text output file PRINT01.KCI01.CIF0595.TXT from Mainframe to PC use the dropdown Actions menu of P.6 menue of TSO ISPF z/OS with Telnet session active to receive file PRINT01.KCI01.CIF0595.TXT from Mainframe to PC as file d:\print01_301.txt in character format with Set ‘Options’: MVS/TSO – Transfer type: text; File options: asci crlf; Record format: Fixed; Logical Record Length =301.
If you want to accelerate the process of transportation of the output data with lowly size, use Internet as follows:
Zip the file print01_301.txt as print01_301.zip and send a mail to the system administrator of the other Mainframe with the file print01_301.zip attached.
The system administrator of the other Mainframe unzip the attached received file print01_301.zip to file print01_301.txt on PC and use the similar environment (dropdown Actions menu of P.6 menue of TSO ISPF z/OS with Telnet session active and Set ‘Options’: MVS/TSO – Transfer type: text; File options: asci crlf; Record format: Fixed; Logical Record Length =301) to send the file print01_301.txt from PC to Mainframe as file PRINT01.KCI01.CIF0595.TXT in character format.
1.5. Relocation of VSAM files between local and remote Mainframe
Referring the VSAM KSDS file KCI02.D0595.CIKMSTR that appears as large input data for the program CIFTEST, the data relocation of such a big VSAM KSDS file is reasonable only via export/import VSAM function using tape cartridge removavle media (VOL=SER=CB0131) as follows:
– Export VSAM KSDS files
On the local Mainframe use the job EXPORTK to write VSAM KSDS key file KCI02.D0595.CIKMSTR as tape file KCI02.EXP.KSDS on tape cartridge CB0131:
//EXPORTK JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* KSDS key file
//STEP1 EXEC PGM=IDCAMS
//RECEIVE DD DSN= KCI02.EXP.KSDS,DISP=(NEW,CATLG),
// UNIT=(300,,DEFER),VOL=SER=CB0131,
// LABEL=(1,SL),BLKSIZE=2056
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
EXPORT –
KCI02.D0595.CIKMSTR –
OUTFILE(RECEIVE) –
TEMPORARY –
INHIBITSOURCE
– Import VSAM KSDS files
On the remote Mainframe use the job IMPORTK to read the tape file KCI02.EXP.KSDS from tape cartridge CB0131 and import it as VSAM KSDS file KCI02.D0595.CIKMSTR :
//IMPORTK JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* KSDS key file
//STEP1 EXEC PGM=IDCAMS,REGION=8M
//SOURCE DD DSN=KCI02.EXP.KSDS,DISP=SHR,
// BLKSIZE=2056,LABEL=(1,SL),
// UNIT=(300,,DEFER),VOL=SER=CB0131
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
IMPORT –
INFILE(SOURCE) –
OUTDATASET(KCI02.D0595.CIKMSTR) –
OBJECTS ((KCI02.D0595.CIKMSTR –
VOLUMES(CNV001 CNV002 CNV003) –
NEWNAME(KCI02.D0595.CIKMSTR)) –
(KCI02.D0595.CIKMSTR.DATA –
VOLUMES(CNV001 CNV002 CNV003) –
NEWNAME(KCI02.D0595.CIKMSTR.DATA)) –
(KCI02.D0595.CIKMSTR.INDEX –
VOLUMES(CNV001 CNV002 CNV003) –
NEWNAME(KCI02.D0595.CIKMSTR.INDEX) –
)) –
CATALOG(CATALOG.MVSICF1.VCNV001)
The same technology may be used for VSAM ESDS sequential files as follows:
– Export VSAM ESDS files
On the local Mainframe use the job EXPORTE to write VSAM ESDS sequential file KCI02.DMNSNDSK.ACKBCTL as tape file KCI02.EXP.ESDS on tape cartridge CB0131:
//EXPORTE JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* ESDS sequential file
//STEP1 EXEC PGM=IDCAMS
//RECEIVE DD DSN= KCI02.EXP.ESDS,DISP=(NEW,CATLG),
// UNIT=(300,,DEFER),VOL=SER=CB0131,
// LABEL=(1,SL),BLKSIZE=2056
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
EXPORT –
KCI02.DMNSNDSK.ACKBCTL –
OUTFILE(RECEIVE) –
TEMPORARY –
INHIBITSOURCE
– Import VSAM ESDS files
On the remote Mainframe use the job IMPORTE to read the tape file KCI02.EXP.ESDS from tape cartridge CB0131 and import it as VSAM ESDS file KCI02.DMNSNDSK.ACKBCTL:
//IMPORTE JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* ESDS sequential file
//STEP1 EXEC PGM=IDCAMS,REGION=8M
//SOURCE DD DSN=KCI02.EXP.ESDS,DISP=SHR,
// BLKSIZE=2056,LABEL=(1,SL),
// UNIT=(300,,DEFER),VOL=SER=CB0131
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
IMPORT –
INFILE(SOURCE) –
OUTDATASET(KCI02.DMNSNDSK.ACKBCTL) –
OUTDATASET(KCI02.DMNSNDSK.ACKBCTL) –
OBJECTS((KCI02.DMNSNDSK.ACKBCTL –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBCTL)) –
(KCI01.DMNSNDSK.ACKBCTL.DATA –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBCTL.DATA) –
)) –
CATALOG(CATALOG.MVSICF1.VCNV001)
– Export/Import mixed VSAM KSDS/ESDS files
If you want to gather more files on one tape cartridge (mixed KSDS and ESDS) then use the following JCL:
From local Mainframe use job EXPACK to write 3 files on tape HV0262 – two KSDS and one ESDS.
//EXPACK JOB (9999,IPO,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//EXPORT1 EXEC PGM=IDCAMS,REGION=1024K
//RECEIVE1 DD DSN= EXPORT.FILE1,DISP=(NEW,CATLG),
// UNIT=(300,,DEFER),VOL=SER= HV0262,
// LABEL=(1,SL),BLKSIZE=2056
//RECEIVE2 DD DSN= EXPORT.FILE2,DISP=(NEW,CATLG),
// UNIT=(300,,DEFER),VOL=SER= HV0262,
// LABEL=(2,SL),BLKSIZE=2056
//RECEIVE3 DD DSN= EXPORT.FILE3,DISP=(NEW,CATLG),
// UNIT=(300,,DEFER),VOL=SER= HV0262,
// LABEL=(3,SL),BLKSIZE=2056
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
EXPORT –
KCI02.DMNSNDSK.ACKBAAC – KSDS key file
OUTFILE(RECEIVE1) –
TEMPORARY –
INHIBITSOURCE
EXPORT –
KCI02.DMNSNDSK.ACKBCTL – ESDS sequential file
OUTFILE(RECEIVE1) –
TEMPORARY –
INHIBITSOURCE
EXPORT –
KCI02.DMNSNDSK.ACKBTCH – KSDS key file
OUTFILE(RECEIVE1) –
TEMPORARY –
INHIBITSOURCE
From remote Mainframe use job IMPACK to read 3 files from tape HV0262 – two KSDS and one ESDS.
//IMPACK JOB (9999,IPO,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//IMPORT1 EXEC PGM=IDCAMS,REGION=1024K
//IN1 DD DSN=EXPORT.FILE1,DISP=SHR,
// LABEL=(1,SL),VOL=SER=(HV0262),
// UNIT=(300,,DEFER),BLKSIZE=2056
//IN2 DD DSN=EXPORT.FILE2,DISP=SHR,
// LABEL=(2,SL),VOL=SER=(HV0262),
// UNIT=(300,,DEFER),BLKSIZE=2056
//IN3 DD DSN=EXPORT.FILE3,DISP=SHR,
// LABEL=(3,SL),VOL=SER=(HV0262),
// UNIT=(300,,DEFER),BLKSIZE=2056
…….
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
IMPORT –
INFILE(IN1) –
OUTDATASET(KCI02.DMNSNDSK.ACKBAAC) –
OBJECTS((KCI02.DMNSNDSK.ACKBAAC –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBAAC)) –
(KCI02.DMNSNDSK.ACKBAAC.DATA –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBAAC.DATA)) –
(KCI02.DMNSNDSK.ACKBAAC.INDEX –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBAAC.INDEX) –
)) –
CATALOG(CATALOG.MVSICF1.VCNV001)
IMPORT –
INFILE(IN2) –
OUTDATASET(KCI02.DMNSNDSK.ACKBCTL) –
OBJECTS((KCI02.DMNSNDSK.ACKBCTL –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBCTL)) –
(KCI02.DMNSNDSK.ACKBCTL.DATA –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBCTL.DATA) –
)) –
CATALOG(CATALOG.MVSICF1.VCNV001)
IMPORT –
INFILE(IN3) –
OUTDATASET(KCI02.DMNSNDSK.ACKBTCH) –
OBJECTS((KCI02.DMNSNDSK.ACKBTCH –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBTCH)) –
(KCI02.DMNSNDSK.ACKBTCH.DATA –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBTCH.DATA)) –
(KCI02.DMNSNDSK.ACKBTCH.INDEX –
VOLUME(CNV001) –
NEWNAME(KCI02.DMNSNDSK.ACKBTCH.INDEX) –
)) –
CATALOG(CATALOG.MVSICF1.VCNV001)
/+/+
Case 2. Object module relocation
2.1. Copy of object module to another object library on the same Mainframe
– Compile source program and catalog object module
To compile the source program CIFTEST from source library ‘BCI05.LIB.BASE.SOURCE’ and catalog in library ‘BCI05.LIB.BASE.OBJECT’ as object member CIFTEST COMPOBJ :
//COMPOBJ JOB (ACCTNUM),’CORNERST’,
// TIME=1440,
// NOTIFY=&SYSUID,
// REGION=6500K,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1)
//*——————————————————————-
//* COBOL JCL – 07/2003 –
//* –
//* CHANGE PARMS BELOW: –
//* BCCSLIB = SOURCE LIBRARY –
//* BCCTOBJ = OBJECT LIBRARY –
//* BCCMEMBR = SOURCE AND OUTPUT MEMBER NAME –
//*——————————————————————-
// SET BCCSLIB=‘BCI05.LIB.BASE.SOURCE’ ** SOURCE LIBRARY
// SET BCCTOBJ=’BCI05.LIB.BASE.OBJECT’ ** OBJECT LIBRARY
// SET BCCMEMBR=CIFTEST ** MEMBER
//*——————————————————————-
//*- JCL BELOW –
//*——————————————————————-
//*- COBOL BATCH COMPILE – 07/03 –
//*——————————————————————-
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K
//STEPLIB DD DSNAME=IGY.SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT3 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT4 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT5 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT6 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT7 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLIN DD DSN=&BCCTOBJ(&BCCMEMBR),DISP=(OLD,PASS),
// DCB=BLKSIZE=800,
// UNIT=VIO,SPACE=(TRK,(15,5),RLSE)
//SYSIN DD DSN=&BCCSLIB(&BCCMEMBR),DISP=SHR
//*
– Copy object module to another object library
Enter TSO/ISPF – p.3.4 – BCI05.LIB.BASE.OBJECT(CIFTEST) – / – 8 (Copy function):
CURRENT from data set: ‘BCI05.LIB.BASE.OBJECT(CIFTEST)’
To Library Replace option:
Project . . . Enter “/” to select option
Group . . . . / Replace like-named members
Type . . . .
To Other Data Set Name
Data Set Name . . . BCI05.LIB.BASE.OBJECT .IBAN
Volume Serial . . . (If not cataloged)
NEW member name . . . CIFTESTS (Blank unless member to be renamed)
The object Cobol II module CIFTEST is moved from library BCI05.LIB.BASE.OBJECT to library BCI05.LIB.BASE.OBJECT .IBAN as object member CIFTESTS with the following contents:
.ESD .. ..CIFTEST ……..CEEDAYS …. CEESGL …. CIFT0001
.ESD .. ..CEEDATE …. XTOPD …. IGZCBSO …. CIFT0002
.ESD .. ..CEESTART…. CEEBETBL…. CEESG005…. CIFT0003
.TXT … .. ..?00..CEE…y….?00.q??….?…………??}. .0.q?0<.»..CIFT8244
.TXT … .. ………….q…?…….m…….?.. …..CIFTEST 20111101CIFT8245
.TXT ..? .. ..120333030200.?…..%?.@<.?.?.h???. &…..?…..?…^..?.CIFT8246
……..
.TXT … .. …………………………..??}..???..KX&…K.&Y.?K.&?CIFT8360
.TXT ..? .. …2?-.. -/-&-&0K.&4.6K.&8.?K.&?.?K.?…K.?…?-.. -/?&-?.CIFT8361
.TXT ..? .. ..K.?…?-.. -/?&-?.?-..&-?.K.?…?-..&-?.?-..&-?.K.?…?-CIFT8362
.TXT ..S .. ….&-?.K.?…?-..&-???-..&-?*K.?-..?-..&-?%K.??.[??..K^&.CIFT8363
.TXT … .. …+??..K?&..??-..&-&?K.&@..K.&u.+K,&y.???..Kt&..?K.&u.?K,CIFT8364
.TXT ..? .. ..&y.???..K?&..Kq?}..?………………………………CIFT8365
.TXT ..q .. …..u…?…U……………………………………..CIFT8366
.RLD .. …….?…….?…q…?…? CIFT8367
.END … .. …?15655G5300 320011305 CIFT0128
2.2. Receiving the object member from Mainframe on PC in binary format and sending to remote Mainframe with PC connected
– Download object member on PC using TSO/IND$FILE
Set TSO ISPF function P.6 in a: Telnet session of Mainframe and from Command Prompt Icon of PC desktop enter the command:
receive d:\ciftesto a: BCI05.LIB.BASE.OBJECT(CIFTEST)
The object member CIFTEST from library BCI05.LIB.BASE.OBJECT is received on PC in binary format as PC file d:\ ciftesto and can be opened with editor UltaEdit in EBCDIC.
– Download object member or full object library on PC using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (download source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘BCI05.LIB.BASE.OBJECT’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftest.obj
On “Transfer Option Options “ enter:
1 1. Download to workstation Generate statistics on upload
2. Upload from workstation Transfer in text mode
/ Replace existing member/file
After pressing Enter the panel MEMBER LIST BCI05.LIB.BASE.OBJECT will appear. Chose the member CIFTEST with S (select) and press Enter – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt.
The object member CIFTEST from library BCI05.LIB.BASE.OBJECT is received on PC in binary format as PC file d:\ ciftest.obj and can be opened with UltraEdit.
To download full object library, on panel “Download/Upload Data Set To/From Workstation” enter the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘BCI05.LIB.BASE.OBJECT’
On “ Workstation File:
File Name . . . . . :” and enter “d:\ciftesto\*.obj” (d:\ciftesto directory should be created previously).
After Enter on the panel MEMBER LIST BCI05.LIB.BASE.OBJECT select all (or chosed) members with S (select) and press Enter – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt field.
All selected members of object library ‘BCI05.LIB.BASE.OBJECT’ will be downloaded on directory d:\ciftesto in binary format.
– Transport object member to another Mainframe portable or via Internet (Zip object member, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip object member)
The file d:\ciftesto with object member CIFTEST may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it.
If you want to accelerate the process of transportation of the object member, use Internet as follows:
Zip the file d:\ciftesto as ciftesto.zip and send a mail to the system administrator of the remote Mainframe with the file ciftesto.zip attached . The system administrator of the remote Mainframe unzip the attached received file ciftesto.zip to file d:\ciftesto on PC.
– Upload object member on remote Mainframe using TSO/IND$FILE
The following command may be used with the similar environment (TSO ISPF function P.6 in b: Telnet session of remote Mainframe and Command Prompt Icon of PC desktop) for sending to Mainframe:
send d:\ciftesto b: library.remote.object(CIFTEST)
The file d:\ciftesto with the object member CIFTEST is sent to library.remote.object as member CIFTEST.
– Upload object member on remote Mainframe using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (upload source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘library.remote.object(ciftest)’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftest.obj
On “Transfer Option Options “ enter:
2 1. Download to workstation Generate statistics on upload
2. Upload from workstation Transfer in text mode
/ Replace existing member/file
The file d:\ciftest.obj with the object member CIFTEST is sent to library.remote.object as member CIFTEST in binary mode.
2.3. Relocation of full object library between local and remote Mainframe via PC
– Download full object library on PC using FTP
To get full TSO ISPF z/OS object library bci05.lib.base.object.iban to PC use FTP z/OS mget command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– binary – Representation type is Image
– Prompt – prompt is off /no confirm Y is expected/
– Cd ‘bci05.lib.base.object.iban’ – The Working directory ‘bci05.lib.base.object.iban’ is a partition data set
– Lcd d:\stef.obj – Local directory now: d:\ stef.obj – necessary to be created previously!!!
– Mget * – all members from TSO ISPF z/OS object library ‘bci05.lib.base.object.iban’ are transferred at PC directory d:\stef.obj in binary format and can be viewed with editor UltaEdit in EBCDIC.
– Quit – Quit command received. Goodbye.
– Transport the full object library to another Mainframe portable or via Internet (Zip object library, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip object library)
The full object library ‘bci05.lib.base.object.iban’ in the directory file d:\stef.obj may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it.
If you want to accelerate the process of transportation of the object library , use Internet as follows:
Zip the object library directory d:\stef.obj on PC in binary format as file stef.obj.zip and send a mail to the system administrator of the remote Mainframe with the file stef.obj.zip attached.
The system administrator of the remote Mainframe unzip the attached received file stef.obj.zip to directory file d:\ stef.obj on PC in binary format.
– Upload full object library on remote Mainframe using FTP
To put full object library from PC folder d:\stef.obj to TSO ISPF z/OS object library ‘bci05.lib.base.objectol’ use FTP z/OS mput command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– Prompt – prompt is off /no confirm Y is expected/
– binary – Representation type is Image
– Cd ‘bci05.lib.base.objectol’ – The Working directory ‘bci05.lib.base.objectol’ is a partition data set
– Lcd d:\stef.obj – Local directory now: d:\ stef.obj – full with z/OS object libray members
– Mput * – all members from PC folder d:\stef.obj are transferred to TSO ISPF z/OS object library ‘bci05.lib.base.objectol’ in binary format.
– Quit – Quit command received. Goodbye.
2.4. Linkedit and execute the received object member on remote Mainframe
– Linkedit object member and catalog load program
To Linkedit object member CIFTEST transferred to LIBRARY.REMOTE.OBJECT (or if included in the transferred full library ‘bci05.lib.base.objectol’ ) and to catalog in remote library ‘BCI05.LIB.BASE.LOAD’ as program CIFTEST use the following JCL in job LKEDO :
//LKEDO JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* BCCTLOAD = LOAD LIBRARY –
//* BCCMEMBR = OUTPUT MEMBER NAME –
//*——————————————————————-
// SET BCCTLOAD=’BCI05.LIB.BASE.LOAD’ ** LOAD LIBRARYARY
// SET BCCTOBJ=’BCI05.LIB.BASE.OBJECTOL’ ** OBJ LIBRARY
// SET BCCMEMBR=CIFTEST ** MEMBER
//*——————————————————————-
//LINKEDT EXEC PGM=HEWL,REGION=1024K,PARM=’REUS’
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=&BCCTLOAD,DISP=SHR
// DD DSN=&BCCTOBJ,DISP=SHR
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(10,5))
//SYSLMOD DD DSN=&BCCTLOAD(&BCCMEMBR),DISP=SHR
//SYSPRINT DD SYSOUT=*
//CSL DD DSN=’BCI05.LIB.BASE.OBJECTOL’,DISP=SHR
//SYSLIN DD *
ENTRY CIFTEST
INCLUDE CSL(CIFTEST)
NAME CIFTEST(R)
– Execute cataloged load program
To execute the cataloged load program CIFTEST from library BCI05.LIB.BASE.LOAD use the following JCL:
//JCIF0595 JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440
//***
//JOBLIB DD DSN=BCI05.LIB.BASE.LOAD,DISP=SHR
// DD DSN=KCI01.LIB.PROD.LOAD,DISP=SHR
//*
//STEP1D EXEC PGM=IEFBR14
//CUSTOMER DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DISP=(MOD,DELETE),
// DCB=(RECFM=FB,LRECL=301,DSORG=PS),
// SPACE=(TRK,(1,1)),UNIT=VIO
//*
//STEP1 EXEC PGM=CIFTEST,REGION=8M
//CIKMSTR DD DSN=KCI02.D0595.CIKMSTR,DISP=SHR
//PRTFILE DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DCB=(RECFM=FB,LRECL=301,DSORG=PS,BUFNO=100),
// DISP=(NEW,CATLG),
// SPACE=(CYL,(850,150),RLSE),UNIT=VIO
//*
2.5. Preparation job stream (JCL + object data – ready for execution) in local Mainframe and transfer to remote Mainframe via PC
– Preparation composed member (JCL + object data in) in local Mainframe
The cataloged object member CIFTEST is copied with TSO/ISPF service function from BCI05.lib.base.object to source library bca1mgp.stef.jcl2 as member CIFTESTL. Enter the member bca1mgp.stef.jcl2(CIFTESTL) in edit mode and insert the following JCL at the beginning before the object code using copy/paste function (PC/Mainframe):
//JCIFZ595 JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440
//***
//STEP1D EXEC PGM=IEFBR14
//CUSTOMER DD DSN=PRINT01.KCI01.CIFZ595.TXT,
// DISP=(MOD,DELETE),
// DCB=(RECFM=FB,LRECL=301,DSORG=PS),
// SPACE=(TRK,(1,1)),UNIT=VIO
//EXTR EXEC PGM=LOADER,PARM=’/,,Unicredit bank’
//SYSPRINT DD SYSOUT=*
//SYSLOUT DD SYSOUT=*
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=BCI05.LIB.BASE.OBJECT,DISP=SHR
//CIKMSTR DD DSN=KCI02.D0595.CIKMSTR,DISP=SHR
//PRTFILE DD DSN=PRINT01.KCI01.CIFZ595.TXT,
// DCB=(RECFM=FB,LRECL=301,DSORG=PS,BUFNO=100),
// DISP=(NEW,CATLG),
// SPACE=(CYL,(850,150),RLSE),UNIT=VIO
//EXCLUDE DD *
* LIST THE LPARNAMES THAT YOU WOULD LIKE EXCLUDED FROM THE REPORT
* IN A FORMAT STARTING IN POSITION 1 OF:
* LPARNM1,LPARNM2
//SYSLIN DD *
The following data are followed after //SYSLIN DD * :
ESD .. ..CIFTEST ……..CEEDAYS …. CEESGL …. CIFT0001
.ESD .. ..CEEDATE …. XTOPD …. IGZCBSO …. CIFT0002
.ESD .. ..CEESTART…. CEEBETBL…. CEESG005…. CIFT0003
.TXT … .. ..?00..CEE…y….?00.q??….?…………??}. .0.q?0<.»..CIFT8244
.TXT … .. ………….q…?…….m…….?.. …..CIFTEST 20111101CIFT8245
.TXT ..q .. …..u…?…U……………………………………..CIFT8366
……….
.RLD .. …….?…….?…q…?…? CIFT8367
.END … .. …?15655G5300 320011305 CIFT0128
– Download the composed member on PC using FTP
To get the composed member CIFTESTL from source library bca1mgp.stef.jcl2(CIFTESTL) to PC use FTP z/OS get command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– binary – Representation type is Image
– Get bca1mgp.stef.jcl2(CIFTESTL) d: \ciftestl – port request OK. Transfer successfully.
bca1mgp.stef.jcl2(CIFTESTL) composed library member is received on PC as d: \ciftestl file in binary format.
– Quit – Quit command received. Goodbye.
– Download the composed member on PC using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (download source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘bca1mgp.stef.jcl2(CIFTESTL)’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftestl
On “Transfer Option Options “ enter:
1 1. Download to workstation Generate statistics on upload
2. Upload from workstation Transfer in text mode
/ Replace existing member/file
After pressing Enter – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt.
The object member CIFTESTL from library bca1mgp.stef.jcl2 is received on PC in binary format as PC file d:\ ciftestl and can be opened with UltraEdit.
– Transport the composed member to another Mainframe portable or via Internet (Zip composed member, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip composed member)
The composed library member is received as d: \ciftestl file and may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it for immediate execution.
If you want to accelerate the process of transportation of the composed library member received as d: \ciftestl file, use Internet as follows:
Zip the d: \ciftestl file on PC in binary format as file ciftestl.zip and send a mail to the system administrator of the remote Mainframe with the fileciftestl.zip attached .
unzip the attached received file ciftestl.zip to file d:\ciftestl on PC in binary format.
– Upload the composed member for immediate execution on remote Mainframe using FTP
To put file d:\ ciftestl with composed member from PC to TSO ISPF z/OS source library as bca1mgp.stef.jcl8(CIFTESTL) use FTP z/OS put command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– binary – Representation type is Image
– binary – Representation type is Image
– Put d: \ciftestl bca1mgp.stef.jcl8(CIFTESTL) – port request OK. Transfer successfully.
d: \ciftestl file is received as bca1mgp.stef.jcl2(CIFTESTL) composed library member in binary format on Mainframe.
– Quit – Quit command received. Goodbye.
To execute the composed library member enter member CIFTESTL in source library as bca1mgp.stef.jcl8(CIFTESTL) and submit it for immediate execution (sub CIFTESTL).
– Upload the composed member for immediate execution on remote Mainframe using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (upload source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘library.remote.source(cifteste)’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftestl
On “Transfer Option Options “ enter:
2 1. Download to workstation Generate statistics on upload
2. Upload from workstation Transfer in text mode
/ Replace existing member/file
The file d:\ciftestl with the object member CIFTEST is sent to source library.remote.source as member CIFTESTE in binary mode.
To execute the composed library member enter member CIFTESTE in source library as library.remote.source (CIFTESTE) and submit it for immediate execution (sub CIFTESTE).
Case 3. Load program relocation
3.1. Copy of load program to another load library on the same Mainframe
– Compile source program and catalog load module
To compile the source program CIFTEST from source library ‘BCI05.LIB.BASE.SOURCE’ and catalog in library ‘BCI05.LIB.BASE.LOAD ’ as load member CIFTEST use the following JCL in job COBBATCH :
//COBBATCH JOB (ACCTNUM),’CORNERST’,
// TIME=1440,
// NOTIFY=&SYSUID,
// REGION=6500K,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1)
/*——————————————————————-
//* CHANGE PARMS BELOW: –
//* BCCSLIB = SOURCE LIBRARY –
//* BCCTLOAD = LOAD LIBRARY –
//* BCCMEMBR = SOURCE AND OUTPUT MEMBER NAME –
//*——————————————————————-
// SET BCCSLIB=‘BCI05.LIB.BASE.SOURCE’ ** SOURCE LIBRARY
// SET BCCCPBK=‘BCI05.LIB.BASE.COPY’ ** COPYBOOK LIBRARY
// SET BCCTLOAD=‘BCI05.LIB.BASE.LOAD’ ** LOAD LIBRARY
// SET BCCTOBJ=‘BCI05.LIB.BASE.OBJECT’ ** OBJ LIBRARY
// SET BCCMEMBR=CIFTEST
//*——————————————————————-
//*- JCL BELOW –
//*——————————————————————-
//*- COBOL BATCH COMPILE – 07/03 –
//*——————————————————————-
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,PARM=(LIB,MAP,XREF,LIST)
//STEPLIB DD DSNAME=IGY.SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT3 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT4 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT5 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT6 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT7 DD UNIT=VIO,SPACE=(CYL,(5,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS,DELETE),
// DCB=BLKSIZE=800,
// UNIT=VIO,SPACE=(TRK,(15,5),RLSE)
//SYSLIB DD DSN=&BCCCPBK,DISP=SHR
//SYSIN DD DSN=&BCCSLIB(&BCCMEMBR),DISP=SHR
//*
//*LINKEDT EXEC PGM=HEWL,REGION=1024K,
//LINKEDT EXEC PGM=HEWL,REGION=1024K,PARM=’XCAL’,
// COND=(7,LT)
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=&BCCTLOAD,DISP=SHR
// DD DSN=&BCCTOBJ,DISP=SHR
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(10,5))
//SYSLMOD DD DSN=&BCCTLOAD(&BCCMEMBR),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE,DELETE),
// UNIT=VIO
//*
– Copy load program to another load library
Enter TSO/ISPF – p.3.4 – BCI05.LIB.BASE.LOAD(CIFTEST) – / – 8 (Copy function):
CURRENT from data set: ‘BCI05.LIB.BASE.SOURCE(CIFTEST)’
To Library Replace option:
Project . . . Enter “/” to select option
Group . . . . / Replace like-named members
Type . . . .
To Other Data Set Name
Data Set Name . . . BCI05.LIB.BASE.LOAD .IBAN
Volume Serial . . . (If not cataloged)
NEW member name . . . (Blank unless member to be renamed)
The load Cobol II program CIFTEST is moved from library BCI05.LIB.BASE.LOAD to library BCI05.LIB.BASE.LOAD.IBAN as load member CIFTEST with LRECL=4096 and the following contents:
********************************* Top of Data **********************************
IEWPLMH …?……?…………?………..?… …….?…&……………….
?00..CEE…y….?00.q??….?…………??}. .0.q?0<.»………….q…?…….m
?.?.?.?.].?.&.J?..&.J? .J.&.Jh .?s&.Jd .J?&.J?o?J? .J??0?.?{??.??{?Ym?J.?0?.?.?*
????…….?………..?……..IGZEINI ……DB..?… … ……??….?……..
.}….”»…….?…?…..SYSLIB ..CEESTART…………….
..&.IEWBXLFSCLAS……&………..&?……………………….SDM …………
………………..ERL …….?……..IEWBXLFSCLAS……-?……….-?56962340
******************************** Bottom of Data ***********************.
3.2. Receiving the load member from Mainframe on PC and sending to remote Mainframe with PC connected
– Download the load member on PC using TSO/IND$FILE
Set TSO ISPF function P.6 in a: Telnet session of Mainframe and from Command Prompt Icon of PC desktop enter the command:
receive d:\ciftest a: BCI05.LIB.BASE.LOAD(CIFTEST) ascii crlf
The load program CIFTEST from library BCI05.LIB.BASE.LOAD is received on PC in as PC file d:\ ciftest and can be opened with editor UltraEdit.
– Download load member or full load library on PC using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (download source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘BCI05.LIB.BASE.LOAD’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftest.txt
On “Transfer Option Options “ enter:
1 1. Download to workstation Generate statistics on upload
2. Upload from workstation /Transfer in text mode
/Replace existing member/file
After pressing Enter the panel MEMBER LIST BCI05.LIB.BASE.LOAD will appear. Chose the member CIFTEST with S (select) and press Enter – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt.
The load member CIFTEST from library BCI05.LIB.BASE.LOAD is received on PC as PC file d:\ ciftest.txt in ASCII code and can be opened with UltraEdit.
To download full load library, on panel “Download/Upload Data Set To/From Workstation” enter the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘BCI05.LIB.BASE.LOAD’
On “ Workstation File:
File Name . . . . . :” and enter “d:\ciftestl\*.txt” (d:\ciftestl directory should be created previously).
Press Enter and on the panel MEMBER LIST BCI05.LIB.BASE.OBJECT select all (or chosed) members with S (select) and press Enter again – Transfer completed will appear on the right upper end of the screen and *XFER under Prompt field.
All selected members of load library ‘BCI05.LIB.BASE.LOAD’ will be downloaded on directory d:\ciftestl in ASCII code.
– Transport the load member to another Mainframe portable or via Internet (Zip load member, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip load member)
The load library member is received as d: \ciftest file and may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it for execution.
If you want to accelerate the process of transportation of the load library member received as d: \ciftest file, use Internet as follows:
Zip the d: \ciftest file on PC in binary format as file ciftest.zip and send a mail to the system administrator of the remote Mainframe with the file ciftest.zip attached .
The system administrator of the remote Mainframe unzip the attached received file ciftest.zip to file d:\ ciftest on PC.
– Upload the load member on remote Mainframe using TSO/IND$FILE
The following command may be used with the similar environment (TSO ISPF function P.6 in b: Telnet session of remote Mainframe and Command Prompt Icon of PC desktop) for sending to Mainframe:
send d:\ciftest b: library.remote.load(CIFTEST1) ascii crlf
The file d:\ciftest with the load program CIFTEST is sent to library.remote.load as member CIFTEST1.
– Upload load member on remote Mainframe using TSO/ISPF C/S and WSA
After ISPF C/S (Client Server) and WSA (Work Station Agent) “Connection” is established as it’s explained in 1.2 (upload source members using TSO/ISPF C/S and WSA) and after ISPF – p.3.7.2 is entered and the panel “Download/Upload Data Set To/From Workstation” appears, then insert the following information:
On “Other Partitioned or Sequential Data Set:
Data Set Name . . .” enter: ‘library.remote.load(ciftest)’
On “ Workstation File:
File Name . . . . . “ enter: d:\ciftest.txt
On “Transfer Option Options “ enter:
2 1. Download to workstation Generate statistics on upload
2. Upload from workstation / Transfer in text mode
/ Replace existing member/file
The file d:\ciftest.txt with the load member CIFTEST is sent to library.remote.load as member CIFTEST in text mode.
3.3. Relocation of full load library between local and remote Mainframe via PC
– Download full load library on PC using FTP
To get full TSO ISPF z/OS load library bca1mgp.stef.load to PC use FTP z/OS mget command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– ascii
– 200 – Representation type is Ascii Nonprint
– Prompt – prompt is off /no confirm Y is expected/
– Cd ‘bca1mgp.stef.load’
– 250 – The working directory may be a load library
– 250 – The Working directory ‘bca1mgp.stef.load’ is a partition data set
– Lcd d:\stef.load – Local directory now: d:\ stef.load– necessary to be created previously!!!
– Mget * – all members from TSO ISPF z/OS load library ‘bca1mgp.stef.load’ are transferred at PC directory d:\stef.load and can be viewed with editor UltaEdit in EBCDIC.
– Quit – Quit command received. Goodbye.
– Transport the full load library to another Mainframe portable or via Internet (Zip object library, send e- mail with attached zip file, receive e- mail with attached zip file, Unzip object library)
The full load library ‘bca1mgp.stef.load’ in the directory file d:\stef.load may be moved to CD/DVD or flash memory and transported portable to another remote Mainframe destination with PC connected to it.
If you want to accelerate the process of transportation of the object library, use Internet as follows:
Zip the object library d:\stef.load on PC as file stef.load.zip and send a mail to the system administrator of the remote Mainframe with the file stef.load.zip attached .
The system administrator of the remote Mainframe unzip the attached received file stef.load.zip to directory file d:\ stef.load on PC.
– Upload full load library on remote Mainframe using FTP
To put full load library from PC folder d:\stef.load to TSO ISPF z/OS load library ‘bca1hav.load’ use FTP z/OS mput command with TCP/IP sign on TSO from PC Command prompt as follows:
– FTP 10.212.5.91
– Bca1mgp – connected to 10.212.5.91 – send PW please
– Yana3 – Bca1mgp is logged on. Working directory is “bca1mgp”
– cd .. – “” is the working directory name prefix
– Prompt – prompt is off /no confirm Y is expected/
– ascii
– 200 – Representation type is Ascii Nonprint
– Cd ‘bca1hav.load’
– 250 – The working directory may be a load library
– 250 – The Working directory ‘bca1hav.load’ is a partition data set
– Lcd d:\stef.load – Local directory now: d:\ stef.load – full with z/OS load libray members
– Mput * – all members from PC folder d:\stef.load are transferred to TSO ISPF z/OS load library ‘bca1hav.load’ .
– Quit – Quit command received. Goodbye.
3.4. Linkedit and execute the received load member on remote Mainframe
– Linkedit load member and catalog load program
To Linkedit load member CIFTEST 1 transferred to LIBRARY.REMOTE.LOAD (or if included in the transferred full library ‘bca1hav.load ’ ) and catalog in remote library ‘BCI05.LIB.BASE.LOAD’ as program CIFTEST use the following JCL in job LKEDL :
//LKEDL JOB MSGCLASS=X,
// MSGLEVEL=(1,1)
//* BCCTLOAD = LOAD LIBRARY
//* BCCMEMBR = OUTPUT MEMBER NAME –
//*————————————————————–
// SET BCCTLOAD=‘BCI05.LIB.BASE.LOAD’ ** LOAD LIBRARY
// SET BCCTOBJ=‘BCI05.LIB.BASE.OBJECT’ ** OBJ LIBRARY
// SET BCCMEMBR=CIFTEST ** MEMBER
//*————————————————————–
//LINKEDT EXEC PGM=HEWL,REGION=1024K,PARM=’REUS’
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=&BCCTLOAD,DISP=SHR
// DD DSN=&BCCTOBJ,DISP=SHR
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(10,5))
//SYSLMOD DD DSN=&BCCTLOAD(&BCCMEMBR),DISP=SH
//SYSPRINT DD SYSOUT=*
//CSL DD DSN= LIBRARY.REMOTE.LOAD,DISP=SHR
//SYSLIN DD *
ENTRY CIFTEST
INCLUDE CSL(CIFTEST1)
NAME CIFTEST(R)
After LINKEDIT the cataloged program CIFTEST is chaged as follows:
********************************* Top of Data **********************************
.?…..0CIFTEST …….?IGZCBSO …&…?CEESTART…?…?CEEBETBL…?….CEEDAYS
.?…..0IEWBLIT …… CEEMAIN …… CEEFMAIN…… CEEROOTA…… CEEROOTD
.?…..0CEESG001…… CEESG002…… CEESG003…… CEESG004…… CEESG006
??……………………………………………………………………
?..5695PMB01 ….^.& ?
??.?..5655G5300 ….^..?..569623400 ….^PL/X-370 ….^…………..?..5696234
?.h….^.RSI20951023….^.RSI20950481
….. …… ..y…?…….?……………….?…?…?…Q…Y…?…y…-….
?00..CEE…y….?00.q??….?…………??}. .0.q?0<.»………….q…?…….m
…….?………………….. …?…?…<…?…F…?…O………..?…<….
…….?…………?..q…….?…………….?..?….?……….?….?..?….
…….?…………?..?….?..%….?..?….?..?….?..?….?..@….?..?….?..d
– Execute cataloged load program
To execute the cataloged load program CIFTEST from library ‘BCI05.LIB.BASE.LOAD use the following JCL:
//JCIF0595 JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440
//***
//JOBLIB DD DSN= ‘BCI05.LIB.BASE.LOAD,DISP=SHR
// DD DSN=KCI01.LIB.PROD.LOAD,DISP=SHR
//*
//STEP1D EXEC PGM=IEFBR14
//CUSTOMER DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DISP=(MOD,DELETE),
// DCB=(RECFM=FB,LRECL=301,DSORG=PS),
// SPACE=(TRK,(1,1)),UNIT=VIO
//*
//STEP1 EXEC PGM=CIFTEST,REGION=8M
//CIKMSTR DD DSN=KCI02.D0595.CIKMSTR,DISP=SHR
//PRTFILE DD DSN=PRINT01.KCI01.CIF0595.TXT,
// DCB=(RECFM=FB,LRECL=301,DSORG=PS,BUFNO=100),
// DISP=(NEW,CATLG),
// SPACE=(CYL,(850,150),RLSE),UNIT=VIO
//*
Remark1: Always is necessary to linkedit the uploaded load member from PC to Mainframe before execution!!!
Remark2: The used keywords program, module and member refer to the same source, object or load library member.
Comments
No comments yet, be the first to add one!