Tech Tip: How to use batch FTP MGET to get multiple downloaded solutions directly to MVS data sets instead of to UNIX files.

Document created by Pat_OBrien Employee on Oct 12, 2017Last modified by Pat_OBrien Employee on Oct 26, 2017
Version 2Show Document
  • View in full screen mode

Using batch FTP with MGET is a way to get multiple downloaded solutions via batch directly to MVS data sets instead of to UNIX files.

 

-- This does not require saving the solution cart (scart0.zip) to the PC, unzipping and then uploading to mainframe or getting the solutions to Unix directory.

-- This does not require use of CAUNZIP.

--This does not require used of 3rd party vendor batch product such as PKUNZIP to unzip scart0.zip on mainframe.

 

Here is how…

 

In this example, I would like to get all CA Datacom/AD Version 15.0 solutions. I ordered solutions for AD 15.0 base components in (CA Datacom/AD, CA Datacom/DB, CA DATACOM DATADICTIONARY, CA DATACOM SQL, and CA IPC) from "CA Datacom/CA Ideal/CA IPC Maintenance Grid for z/OS" Product Name/Release "CA Datacom/AD Version 15.0" PTFs Available Since 0000

 

When the solution order was ready and was give the order number, I selected the “PREFERRED FTP” method which does not create a scart0.zip:

 

Host: ftp://ftpdownloads.ca.com 

Username: Anonymous 

Password: youremailaddress 

FTP location: /siteid/ordernumber

 

Note that when ordering solutions, there may be 3 kinds of files given:

  • The module solutions as ROnnnnn.BIN
  • The informational solutions as RInnnnn.txt
  • The ERROR HOLD information as ROnnnnn.HOLDDATA.TXT

 

I used the following batch FTP for that solution order…

 

The locsite sets up the storclass, space, and DCB for the MVS data sets.

The lcd ‘dsnhlq’ specifies the HLQ for the MVS data sets to be created.

The mget creates… or replaces when using “(rep”… a sequential FB 80 data set per PTF.

 

//FTP     EXEC PGM=FTP,REGION=0M,PARM=' (time 40'

//SYSPRINT DD SYSOUT=*

//OUTPUT   DD SYSOUT=*

//SYSIN    DD *

ftpdownloads.ca.com

Anonymous

emailaddress

cd /siteid/order

locsite storclass=TSO

locsite CYL primary=001 secondary=001 ucount=1

locsite recfm=FB lrecl=80 blksize=0

dir

ascii

lcd 'dsnhlq.RI'

mget *.txt

binary

lcd 'dsnhlq.RO'

mget *.BIN

quit

//

 

The FTP of this example order created the MVS data sets on storclass TSO volumes as fixed block80

   dsnhlq.ROnnnnn.BIN  <- each PTF in an MVS data set

 

 

Then, to SMP/E RECEIVE, the .BIN data sets can be concatenated to SMPPTFIN:

//SMPPTFIN DD DISP=SHR,DSN=dsnhlq.ROfirst.BIN

//                 DD DISP=SHR,DSN=dsnhlq.ROnext.BIN

//                 DD DISP=SHR,DSN=...more...

 

(The above information is also in published technical document https://support.ca.com/us/knowledge-base-articles.tec1464763.html )

Attachments

    Outcomes