How to batch FTP MGET to get multiple solutions directly to MVS data sets instead of to UNIX files.

Products

• Datacom/DB
• Datacom/AD

Issue/Introduction

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 order solution cart (ordernumber.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 3^rd party vendor batch product such as PKUNZIP to unzip scart0.zip on mainframe.

Environment

z/OS

Resolution

Here is how…

Order the solutions for Datacom 15.1 from Support Portal 

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

• The module solutions as SOnnnnn.BIN or possibly also some older ROnnnnn.BIN
• The informational solutions as SInnnnn.txt or possibly older RInnnnn.txt
• The ERROR HOLD information as SOnnnnn.HOLDDATA.TXT or possibly older ROnnnnn.BIN

Here is example batch FTP:

The order_id is the number of the order from the Support Portal.

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

The lcd ‘dsnhlq.ptfs' and lcd ‘dsnhlq.txts' specify the HLQs for the MVS data sets to be created.

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

//FTP     EXEC PGM=FTP,REGION=0M,PARM=' (time 40'
//SYSPRINT DD SYSOUT=*
//OUTPUT   DD SYSOUT=*
//SYSIN    DD *
downloads.broadcom.com                
email password 
locsite storclass=TSO
locsite CYL primary=001 secondary=001 ucount=1
locsite recfm=FB lrecl=80 blksize=0
cd order_id
dir
lcd 'dsnhlq.ptfs'
mget *.BIN                   (rep
ascii
lcd 'dsnhlq.txts'
mget *.txt                    (rep
quit

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

This example will create MVS data sets on storclass TSO volumes with DCB fixed block 80 for cylinders of 1,1 for 1 volume.

The lcd ‘dsnhlq.ptfs' and lcd ‘dsnhlq.txts' specify the HLQs for the MVS data sets to be created.

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

Additional Information

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

//SMPPTFIN DD DISP=SHR,DSN=dsnhlq.ptfs.SOfirst.BIN
//         DD DISP=SHR,DSN=dsnhlq.ptfs.SOnext.BIN 
//         DD DISP=SHR,DSN=dsnhlq.ptfs.SOnext.BIN 
//         DD DISP=SHR,DSN=...more...                  
//         DD DISP=SHR,DSN=dsnhlq.ptfs.SOlast.BIN