On Thu, 23 Apr 2015 16:34:12 -0300, Lucas Rosalen  wrote:
>
>In the shop I work, I've been told some years ago only some of our systems
>have connectivity to IBM.
>I don't if that is true or not(never really had time to do any testing),
>but if this is really the case we might have a reason not to RECEIVE PTFs
>directly.
>We have 2 SMPE environments, 1 in a system that has connectivity to IBM
>(indicated as system A) and 1 in a system that does NOT have it (indicated
>as system B).
>When we download PTFs for system B, we do it through system A, se we need
>to indicate system's A Global zone in the download JCL. It just acts like a
>dummy, but the RECEIVE FROMNETWORK will not work without it.
>
Sample below.

>I guess this is the only case I've ever seem of some shop that does not
>want to RECEIVE FROMNETWORK directly.
>
Alas, we put our customers in a similar bind.  Mainframe software is
perhaps less than 1% of our corporate business.  Policy dictates that
any product or service package be available exactly as a .zip file
containing a README.html plus payload files.  Our payload is
Product.gimzip.pax.  There's no hope of getting an FTP server so we could
support RECEIVE FROMNETWORK, despite IBM's generosity in providing
the useful GIMZIP tool.

//* (edited for brevity and IP concerns.)
//*
//* Java one-way hash computation for RECEIVE FROMNETWORK/FROMNTS               
//* may require especially large REGION.     
//*  (fails at 220M)                                  
//*                                                                             
//RCVNTS   EXEC PGM=GIMSMP,REGION=300M                                          
//SMPCSI   DD DISP=SHR,DSN=...GLOBAL.CSI                            
//*                                                               */            
//SMPCNTL  DD *    
 SET BOUNDARY(GLOBAL) . 
    RECEIVE LIST                                                                
                                         
            SELECT(  ...        )               /* (End of Selection List.) */  
                                                  
            FROMNTS( 'Product.gimzip' )                                         
                                           
            .                                                            
//SMPNTS   DD  PATHOPTS=ORDONLY,                                                
//  PATH='&NTS/.'                                                               
//SMPWKDIR DD  PATHOPTS=ORDWR,  For SMP/E V3R2.0 and above.                     
//  PATH='&WKD'                                                                 
//*                                                                             
//* Verify these paths have been created:                                       
//* Paths used by RECEIVE FROMNETWORK/FROMNTS                                   
//PKGDIR   DD  PATHOPTS=ORDONLY,                                                
//  PATH='&NTS/.../.'                                                 
//SMPJHOME DD  PATH='&JHOME'   
//SMPCPATH DD  PATH='&CPATH' 
//

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to