How to create a scart0.zip with PTF's based on CA RS
search cancel

How to create a scart0.zip with PTF's based on CA RS

book

Article ID: 14725

calendar_today

Updated On:

Products

Mainframe Software Manager (Chorus Software Manager)

Issue/Introduction

How can a scart0.zip be created to ensure that it has all the PTF's a specific CA RS levels?

Environment

Release: MSMNGR00200-5.1-Chorus Software Manager
Component:

Resolution

For preparing the scart0 based on the CARS files. First refer to the individual CARS files. Each file has all the products but for a specific product you could group all the PTF's for a CARS file such as CAR1701 using the product code. Here's a sample: 

++ASSIGN SOURCEID(CAR1212) TO (RO32403) /* CAX1F00 ACF2..00200 15.0 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO32706) /* CBRMB60 OUTV..00200 11.6 */
++ASSIGN SOURCEID(CAR1212) TO (RO32744) /* CBRMB70 OUTV..00200 11.7 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO33430) /* CEES850 MATUNE00200 8.5 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO33474) /* CEES850 MATUNE00200 8.5 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO35254) /* CEET850 MATUNE00200 8.5 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO35258) /* CEET850 MATUNE00200 8.5 */. 
++ASSIGN SOURCEID(CAR1212) TO (RO35693) /* CEET850 MATUNE00200 8.5 */. 

You could use the FMID also. Once you have noted all the PTF's you could use then to create your scart0. Here's a JCL to offload the CARS. This is just an example" 

//ALOC EXEC PGM=IEFBR14 
//DISTLOAD DD DSN=MEN.C5100.CARSID6, 
// DISP=(NEW,CATLG,DELETE),UNIT=(3390), 
//        STORCLAS=stoclass, 
// SPACE=(CYL,(1,1,100),RLSE), 
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 
//FTPINCOM EXEC PGM=FTP,REGION=4096K 
//SYSPRINT DD SYSOUT=* 
//OUTPUT   DD SYSOUT=* 
//SYSTCPD  DD DISP=SHR,DSN=your.VTAM.TCPIP.TCPIP.DATA 
//INPUT DD * 
ftp.ca.com 21 
[email protected]
cd /pub/ASSIGNS/ 
ascii 
locsite LR=80 REC=FB BLOCKSI=0 locsite PRI=20 SEC=10 CY 
get CAR1701.TXT 'MEN.C5100.CARSID6(CAR1701)' (REPLACE 
get CAR1702.TXT 'MEN.C5100.CARSID6(CAR7102)' (REPLACE 
get CAR1703.TXT 'MEN.C5100.CARSID6(CAR1703)' (REPLACE 
get CAR1704.TXT 'MEN.C5100.CARSID6(CAR1704)' (REPLACE 
QUIT 
//*