Mainframe program relocation

CONTENTS:

Bottom

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:

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.

Leave A Reply

Comments

No comments yet, be the first to add one!

Places

 

Clef two-factor authentication

woolrich outlet woolrich outlet online tiffany milano tiffany outlet tiffany outlet tiffany outlet tiffany outlet tiffany milano tiffany outlet peuterey outlet peuterey uomo hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel hogan outlet hogan rebel roshe run pas cher roshe run parajumpers pas cher parajumpers soldes parajumpers pas cher parajumpers soldes parajumpers pas cher parajumpers soldes louboutin pas cher louboutin pas cher louboutin pas cher nike tn pas cher nike tn pas cher