CA-SRAM modules called SRTOPEN/SRTCLSE/SRTFILL are missing
Article ID: 93685
CISCOMMON SERVICES FOR Z/OS90S SERVICESDATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OSCOMMON PRODUCT SERVICES COMPONENTCommon ServicesDatacom/ADCA ECOMETER SERVER COMPONENT FOCEasytrieve Report Generator for Common ServicesINFOCAI MAINTENANCEIPCUNICENTER JCLCHECK COMMON COMPONENTMainframe VM Product ManagerCHORUS SOFTWARE MANAGERCA ON DEMAND PORTALCA Service Desk Manager - Unified Self ServicePAM CLIENT FOR LINUX ON MAINFRAMEMAINFRAME CONNECTOR FOR LINUX ON MAINFRAMEGRAPHICAL MANAGEMENT INTERFACEWEB ADMINISTRATOR FOR TOP SECRETXpertwareCompress Data Compression for MVSCompress Data Compression for Fujitsu
s attempting to recompile an old COBOL program which called what I believe to be CA-SRAM modules called SRTOPEN/SRTCLSE/SRTFILL. These modules appear to have been renamed in the current Common Services CCCSLINK loadlib to SRAMOPEN, SRAMFILL (there doesn't appear to be an SRAMCLSE). Can you please point me at any documentation for CA SRAM for z/OS as I'm unable to locate any on the C.A. documentation website.
Release: COMCOM00200-15.0-Database Management Solutions-for DB2 for z/OS Component:
In the current release of Common Services (12.0 and above) CA SRAM modules were not shipped seperatly or maintianed as this component was stabilized.
The SRAMOPEN & SRAMFILL are used with the Common Earl functions and is included as is for EARL programs.
SRTOPEN, SRTFILL, & SRTCLSE are all defined alias entries utilized for external calls to SRAM.
You create these alias entries at your site as part of the setup of using SRAM.
Here is some sample JCL that you can use to create the alias entries. You probably have this already setup somewhere from the previous setup but I am providing it anyway.
//IEWL EXEC PGM=IEWL,REGION=2048K, // PARM='MAP,LET,LIST,NCAL' //SYSLIB DD DISP=SHR,DSN=your.SRAMLIB //SYSLMOD DD DISP=SHR,DSN=your.SRAMLIB //SYSLIN DD * INCLUDE SYSLIB(SRAMASCB) ALIAS SRTOPEN ALIAS SRTFILL ALIAS SRTGETR ALIAS SRTCLSE ALIAS SRTROPN NAME SRAMASCB(R) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) //SYSPRINT DD SYSOUT=* //