IBM Application Delivery Foundation for z/OS Common Components

https://www.ibm.com/docs/en/adffzscc
Admin
IBM Application Delivery Foundation for z/OS Common Components provides foundational and shared...
Tokens:156,272
Snippets:1,054
Trust Score:10
Update:10 months ago
Show doc for...
Tokens:
Raw
### Example Data Set Names for IPVLANGP

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=ipvlangp-side-file-formatting-utility

Provides example data set names that can be used with the IPVLANGP utility, illustrating both sequential and partitioned data set formats, including member names.

```Example
MY.SYSDEBUG.SEQ.DS
MY.IPVLANGX.PDS.DS(MYPROG)
```

--------------------------------

### Examples of IPVLANGP Data Set Names

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=guide-ipvlangp-side-file-formatting-utility

Provides examples of valid data set names that can be used with the IPVLANGP utility. These include sequential data sets and partitioned data sets with member names specified in parentheses.

```JCL
MY.SYSDEBUG.SEQ.DS
MY.IPVLANGX.PDS.DS(MYPROG)

```

--------------------------------

### Start Server Command

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=overview-startup-shutdown-activity-tracing

The START procname operator command is used to initiate the server process. Ensure the correct 'procname' is specified for the target server.

```operator
START procname
```

--------------------------------

### Automate Policy Agent Startup with AUTOLOG

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=server-using-tls-encrypted-communications

This configuration example demonstrates how to automate the startup of the Policy Agent (PAGENT) using the AUTOLOG statement in the z/OS Communication Server profile. The Policy Agent is essential for AT-TLS rule enforcement.

```JCL
AUTOLOG
      PAGENT		; POLICY AGENT, required for AT-TLS
ENDAUTOLOG
```

--------------------------------

### SMP/E APPLY CHECK with Recommended Service

Source: https://www.ibm.com/docs/en/adffzscc/1.10_topic=program-directory

This command performs an SMP/E APPLY CHECK to ensure all recommended and critical service is installed with the specified FMIDs. It utilizes the latest HOLDDATA and a specific FIXCAT to identify necessary service. This is a prerequisite step before the actual APPLY.

```JCL
APPLY S(fmid,fmid,...) CHECK
FORFMID(fmid,fmid,...)
SOURCEID(RSU*)
FIXCAT(IBM.PRODUCTINSTALL-REQUIREDSERVICE)
GROUPEXTEND .


```

--------------------------------

### Automate Policy Agent Startup

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=server-using-tls-encrypted-communications

This snippet demonstrates how to configure the z/OS Communications Server AUTOLOG statement to automatically start the Policy Agent (PAGENT), which is essential for AT-TLS rules.

```z/OS Configuration
AUTOLOG
      PAGENT 	; POLICY AGENT, required for AT-TLS
ENDAUTOLOG
```

--------------------------------

### JCL Procedure for IBM PDTCC Server on z/OS

Source: https://www.ibm.com/docs/en/adffzscc/1.6_topic=overview-sample-server-procedure

This JCL procedure, IPVSRV1, is used to start the IBM PDTCC server. It accepts parameters for port number, IP address family (IPv4/IPv6), and trace level. Customization is required for high-level qualifiers and configuration datasets.

```JCL
//IPVSRV1  PROC PORT=2800,FAMILY='AF_INET',TRACE=N
//*          5655-V52 IBM PDTOOLS Common component for z/OS
//* FAMILY=AF_INET|AF_INET6   for TCP/IP V4 or V6 socket and bind         
//* TRACE =N|D                No server trace or detailed trace           
//*                                                                       
//* This is not a complete JCL procedure. It requires customisation       
//* before running. To customise,
//* 1. replace IPV. with your high level qualifier for the PDTCC product  
//* 2. replace CEE. with your high level qualifier for the LE C runtime   
//* 3. Create a configuration dataset, or use individual datasets         
//* 4. Choose between (a copy of) the server configuration member         
//*    IPVSSLOF for nonSSL or                                             
//*    IPVSSLON for SSL'ed communications or a customized version of      
//*    IPVSSLOU for SSL'ed communications with your own keydatabase       
//* 5. Add (a copy of) PDTOOLS family product configuration files to the  
//*    concatenation                                                      
//RUN      EXEC PGM=IPVSRV,REGION=40M,
//            PARM=('&PORT &FAMILY &TRACE')                           
//STEPLIB  DD DISP=SHR,DSN=CEE.SCEERUN          <== LE C RUNTIME          
//* Common component program controlled library                                   
//         DD DISP=SHR,DSN=IPV.SIPVMODA         <== PDTCC LIBRARY     
//SYSPRINT DD SYSOUT=*
//STDOUT   DD SYSOUT=*
//* Server wide, then participating product configurations               
//*ONFIG   DD DISP=SHR,DSN=IPV.SIPVSAM1(IPVSSLOU)                         
//*ONFIG   DD DISP=SHR,DSN=IPV.SIPVSAM1(IPVSSLOF)                         
//CONFIG   DD DISP=SHR,DSN=IPV.SIPVSAM1(IPVSSLON)                         
//*        DD DISP=SHR,DSN=prod1.SFMNSAM1(FMNSRV)
//*        DD DISP=SHR,DSN=prod2.CONFIG(prod2mbr)                         
```

--------------------------------

### PDTCC Server JCL Procedure (IPVSRV1)

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=overview-sample-server-procedure

This JCL procedure, IPVSRV1, is used to start the PDTCC server. It allows customization of the port, network family (IPv4/IPv6), and trace options. The procedure requires specific customization steps before execution, including setting the high-level qualifier (HLQ) and configuring the IPVCONFG member.

```JCL
//IPVSRV1  PROC PORT=2800,FAMILY='AF_INET',TRACE=N
//********************************************************************
//*   IBM Problem Determination Tools Common Components              *
//*   Release 7                                                      *
//*                                                                  *
//*   Licensed Materials - Property of IBM                           *
//*                                                                  *
//*   5655-W68                                                       *
//*                                                                  *
//*       Copyright IBM Corp. 2006, 2012.                            *
//*   All Rights Reserved.                                           *
//*                                                                  *
//*   US Government Users Restricted Rights - Use,                   *
//*   duplication or disclosure restricted by GSA ADP                *
//*   Schedule Contract with IBM Corp.                               *
//*                                                                  *
//********************************************************************
//* FAMILY=AF_INET|AF_INET6   for TCP/IP V4 or V6 socket and bind
//* TRACE=N|D|U   No server trace, detailed trace or
//* user connection trace
//*
//* This is not a complete JCL procedure. It requires customisation
//* steps before running. To customise,
//* 1. Customise the IPVCONFG member
//* 2. Customise and run the IPVMKDIR sample job to match
//* 3. replace IPV with your high level qualifier for the PDTCC product
//* 4. Uncomment and replace CEE for your hlq for the LE C runtime
//*    if SCEERUN is not in the site linklist
//*
//RUN      EXEC PGM=IPVSRV,REGION=40M,
//            PARM=('&PORT &FAMILY &TRACE')
// SET IPV=IPV                                  >== Update HLQ
//* Common component authorised library
//STEPLIB  DD DISP=SHR,DSN=&IPV.SIPVMODA        >== PDTCC APF LIBRARY
//*        DD DISP=SHR,DSN=CEE.SCEERUN          >== LE C RUNTIME
//SYSPRINT DD SYSOUT=*
//IPVTRACE DD SYSOUT=*                          >== OUTPUT if Tracing
//STDOUT   DD SYSOUT=*
//* Server wide, then participating product configurations
//CONFIG   DD DISP=SHR,DSN=&IPV.SIPVSAM1(IPVCONFG)

```

--------------------------------

### Define PDTCC Server (IPVSRV1) as a RACF Started Task

Source: https://www.ibm.com/docs/en/adffzscc/1.6_topic=authorizations-example-commands-racf

RACF commands to define the PDTCC Server (IPVSRV1) started task. This is essential for security, ensuring the started task runs under a specific user ID and has the appropriate permissions. Remember to replace 'userid' with the actual user ID.

```z/OS Command
RDEFINE STARTED IPVSRV1.* STDATA(USER(userid))
SETROPTS RACLIST(STARTED) REFRESH
```

--------------------------------

### JCL for Assembler Program Assembly and LANGX File Generation

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=programs-sample-jcl-assembling-program

This JCL defines the steps to assemble an assembler program using ASMA90 and generate a LANGX file using the IPVLANGX utility. It includes dynamic allocation of temporary files and references to necessary system libraries and the Language Environment.

```JCL
//*     - - -  ADD A JOB CARD ABOVE THIS LINE  - - - 
//*
//*  SAMPLE JCL TO PREPARE AN ASSEMBLER PROGRAM
//*  FOR THE IBM ZSERIES ADFz PRODUCTS:
//*     FAULT ANALYZER, DEBUG TOOL, AND APPLICATION PERF. ANALYZER
//*
//*  NOTES:
//*
//*   ASSEMBLER:
//*    1. AN ADATA PARM IS REQUIRED TO PRODUCE A SYSADATA FILE
//*
//*   A STEP THAT PROCESSES THE SYSADATA FILE,
//*   AND CREATES A LANGX FILE IS NEEDED.
//*
//*   BINDER (LINKAGE EDITOR):
//*    1. AMODE / RMODE CAN BE CODED AS NEEDED BY THE PROGRAM.  THEY ARE
//*       NOT REQUIRED FOR ADFz.
//*
//*  SET PARMS FOR THIS COMPILE:
//*  ---------------------------
//   SET MEM=ASAM1                        PROGRAM NAME
//   SET Language EnvironmentHLQ='CEE'    Language Environment HIGH LVL QUALIFIER
//   SET UNITDEV=SYSALLDA                 UNIT FOR TEMP FILES
//   SET LANGX='IPVLANGX'                 IPVLANGX UTILITY PROGRAM
//   SET LANGXLIB='IPV.SIPVMODA'          LIBRARY FOR IPVLANGX UTILITY
//*    NOTE: USE THE IPVLANGX FACILITY SHIPPED WITH THE COMMON COMPONENT.
//*
//*  *********************************
//*      ASSEMBLER STEP
//*  *********************************
//ASM1 EXEC  PGM=ASMA90,COND=(4,LT),REGION=32M,
//      PARM='ADATA,OBJECT'
//SYSIN    DD DISP=SHR,DSN=&SYSUID..ADLAB.SOURCE(&MEM)
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD DISP=SHR,DSN=&SYSUID..ADLAB.OBJ(&MEM)
//SYSADATA DD DISP=SHR,DSN=&SYSUID..ADLAB.SYSADATA(&MEM)
//SYSLIB  DD  DSN=SYS1.MODGEN,DISP=SHR
//        DD  DSN=SYS1.MACLIB,DISP=SHR
//        DD  DSN=&LEHLQ..SCEEMAC,DISP=SHR
//SYSUT1  DD  DISP=(NEW,DELETE),DSN=&&SYSUT1,SPACE=(1700,(900,450)),
//     UNIT=&UNITDEV
//SYSUT2  DD  DISP=(NEW,DELETE),DSN=&&SYSUT2,SPACE=(1700,(600,300)),
//     UNIT=&UNITDEV
//SYSUT3  DD  DISP=(NEW,DELETE),DSN=&&SYSUT3,SPACE=(1700,(600,300)),
//     UNIT=&UNITDEV
//*
//*  *********************************
//*     STEP TO GENERATE LANGX FILE
//*  *********************************
//LANGX    EXEC PGM=&LANGX,REGION=32M,
//  PARM='(ASM ERROR'
//STEPLIB  DD DISP=SHR,DSN=&LANGXLIB
//         DD DISP=SHR,DSN=&LEHLQ..SCEERUN
//SYSADATA DD DSN=&SYSUID..ADLAB.SYSADATA(&MEM),DISP=SHR
//IDILANGX DD DSN=&SYSUID..ADLAB.EQALANGX(&MEM),DISP=SHR
//

```

--------------------------------

### COBOL SCLM Configuration for IPVLANGX Translator

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=translator-cobol-sclm-example

COBOL SCLM statements to configure the IPVLANGX translator. This includes specifying the dataset containing the translator (IPV.SIPVMODA), its version, and options for handling errors.

```COBOL SCLM
*
           FLMTRNSL  CALLNAM='IPVLANGX',
               FUNCTN=BUILD,
               COMPILE=IPVLANGX,
               DSNAME=IPV.SIPVMODA,
               VERSION=3.5.2,
               GOODRC=0,
               PORDER=1,
               OPTIONS='@@FLMMBR(COBOL ERROR'
*
*          (* LISTING *)
           FLMALLOC  IOTYPE=U,DDNAME=LISTING
*
*          (* IDILANGX *)
           FLMALLOC  IOTYPE=P,DDNAME=IDILANGX,DFLTTYP=IDILANGX,
               KEYREF=OUT2,BLKSIZE=27998,LRECL=1562,RECFM=VB,
               RECNUM=10000,DIRBLKS=50,DFLTMEM=*
```

--------------------------------

### Enterprise PL/I Compile JCL for z/OS

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=epv3lp-sample-jcl-compiling-enterprise-pli-zos-version-37-later-programs

This JCL snippet demonstrates the compilation of an Enterprise PL/I program on z/OS. It includes setting up necessary datasets, defining compiler options for debugging and analysis, and processing the compiler listing. The compiler options are tailored for Debug Tool and Fault Analyzer, and the example shows how to specify the PL/I compiler load library and Language Environment runtime library.

```JCL
//SET MEM=PADSTAT                   PROGRAM NAME
//  SET PLICOMP='IBMZ.V3R7.SIBMZCMP'  PLI COMPILER LOADLIB
//  SET DTLIB='EQAW.SEQAMOD'          DEBUG TOOL LOADLIB
//  SET LEHLQ='CEE'                   LE HIGH LVL QUALIFIER
//  SET UNITDEV=SYSALLDA              UNIT FOR TEMP FILES
//  SET LANGX='IPVLANGX'              IPVLANGX UTILITY PROGRAM
//  SET LANGXLIB='IPV.SIPVMODA'       LIBRARY FOR IPVLANGX UTILITY
//*    NOTE: USE THE IPVLANGX FACILITY SHIPPED WITH THE COMMON COMPONENT.
//*
//ALLOCOBJ EXEC PGM=IEFBR14 ALLOC OBJ LIB IF NEEDED
//OBJ DD DSN=&SYSUID..ADLAB.OBJ,SPACE=(CYL,(3,1,15)),
// DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=8000,DISP=(MOD,CATLG)
//*
//* ***************************************
//* COMPILE STEP
//* ***************************************
//COMPILE EXEC PGM=IBMZPLI,REGION=0M,                                
// PARM=('+DD:OPTIONS')                                              
//* THE +DD:OPTIONS PARAMETER IS USED TO DIRECT THE COMPILER TO      
//* GET THE COMPILATION OPTIONS FROM THE OPTIONS DD STATEMENT        
//OPTIONS  DD *
TEST(ALL,SYM,NOHOOK,SEPARATE,SEPNAME,AALL),LIST,MAP,SOURCE,          
XREF(FULL),NOBLKOFF,AGGREGATE,ATTRIBUTES(FULL),NEST,OPTIONS,NOPT,    
STMT,NONUMBER,OFFSET    
/*
//*  Note: The above options are for Enterprise PL/I Version 3.7
//*        For Enterprise PL/I Version 3.8+, change the TEST option
//*        to  TEST(ALL,SYM,NOHOOK,SEPARATE,SEPNAME), and add the
//*        LISTVIEW(AALL) option
//STEPLIB  DD DSN=&PLICOMP,DISP=SHR
//         DD DSN=&LEHLQ..SCEERUN,DISP=SHR
//SYSIN    DD DISP=SHR,DSN=&SYSUID..ADLAB.SOURCE(&MEM)
//SYSLIB   DD DISP=SHR,DSN=&SYSUID..ADLAB.COPYLIB
//SYSPRINT DD DISP=SHR,DSN=&SYSUID..ADLAB.ENTPLI.LISTING(&MEM)
//SYSDEBUG DD DISP=SHR,DSN=&SYSUID..ADLAB.SYSDEBUG(&MEM)
//SYSUT1   DD SPACE=(CYL,(5,2),,CONTIG),DCB=BLKSIZE=1024,UNIT=&UNITDEV
//SYSLIN   DD DSN=&SYSUID..ADLAB.OBJ(&MEM),DISP=SHR
/*
//PLIPRINT EXEC PGM=IEBGENER,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&SYSUID..ADLAB.ENTPLI.LISTING(&MEM),DISP=SHR
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
/*
```

--------------------------------

### COBOL SCLM Configuration for File Copying

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=translator-cobol-sclm-example

COBOL SCLM statements configuring the file copying process. It uses FLMTRNSL to call the COPYFILE translator and FLMALLOC to allocate the LISTING dataset.

```COBOL SCLM
***********************************************************************
*        --COPY SYSPRINT FILE TO LISTING
* The COPYFILE EXEC, in dataset PDFTDEV.PROJDEFS.EXEC contains the
* following:
*
***********************************************************************
*
         FLMTRNSL   CALLNAM='COPY FILES      ',
               FUNCTN=BUILD,
               COMPILE=COPYFILE,
               DSNAME=PDFTDEV.PROJDEFS.EXEC,
               CALLMETH=TSOLNK,
               VERSION=1.0,
               PORDER=1,
               OPTIONS=(SYSPRINT,LISTING),
               GOODRC=0

           FLMALLOC  IOTYPE=W,RECFM=VBA,LRECL=133,
               RECNUM=90000,DDNAME=LISTING
```

--------------------------------

### Sample JCL for Compiling PL/I for MVS and VM Programs

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=pmvopp-preparing-pli-mvs-vm-programs-os-pli-programs

Provides a sample Job Control Language (JCL) to compile PL/I for MVS and VM programs. This is essential for preparing programs for use with IBM ADFz products.

```JCL
//STEP1   EXEC PGM=IGYCRCTL,PARM='SOURCE'
//SYSUT1   DD DISP=SHR,DSN=your.source.library(member)
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD DSN=your.object.library(member),DISP=(new,catlg,delete), 
//            UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSTERM  DD SYSOUT=*

```

--------------------------------

### Copy SYSPRINT File to Listing using REXX

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=translator-cobol-sclm-example

This REXX script copies a specified input file to an output file. It assumes both files are pre-allocated. This script is part of the COPYFILE EXEC in PDFTDEV.PROJDEFS.EXEC.

```REXX
/* REXX */
/**********************************************************************/ 
/* Copy file I to file O.  Both are assumed to be pre-allocated.      */ 
/**********************************************************************/ 
PARSE UPPER ARG I","O .
"EXECIO * DISKR "I" (STEM R. FINIS "
"EXECIO * DISKW "O" (STEM R. FINIS "
RETURN

```

--------------------------------

### Link Compiled Object Deck (JCL)

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=programs-sample-jcl-compiling-zos-c-test

This JCL step links the compiled object deck using the IEWL program. It includes options for LET, MAP, and LIST, and concatenates necessary libraries. The SYSLIN DD statement includes the compiled object and sets the entry point for the program. An optional include for a Debug Tool LE exit is also shown.

```JCL
//LKED EXEC PGM=IEWL,PARM=(LET,MAP,LIST)
//SYSLIB DD DSN=&LEPRFX..SCEELKED,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,DSN=&SYSUID..ADLAB.LOAD
//SYSUT1 DD SPACE=(TRK,(10,10)),UNIT=SYSDA
//OBJECT DD DISP=(OLD,PASS),DSN=&&TEMOBJ1
//SYSLIN DD *
 INCLUDE OBJECT(TMC01A)
 ENTRY CEESTART
 NAME TMC01(R)
/*
//*  INCLUDING A DEBUG TOOL LE EXIT (EQADBCXT, EQADDCXT, EQADICXT OR EQAD3CXT)
// IS OPTIONAL.  THE EXIT ENABLES STARTING DEBUG TOOL WITH THE
// USER EXIT DATA SET UTILITY (ONE OF THE DEBUG TOOL ISPF UTILITIES).
// AN INCLUDE CAN BE ADDED TO SYSLIN IN THE APPRORIATE SEQUENCE:
//   INCLUDE DTLIB(EQADBCXT)
```

--------------------------------

### Utility Programs for LANGX File Creation

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=programs-preparing-enterprise-cobol-zos-version-4

Lists the utility programs used to create LANGX files, which can serve as an alternative to compiler listings for source-level support when the TEST option is not used. Aliases are provided to minimize JCL changes.

```text
z/OS Debugger: EQALANGX
Fault Analyzer for z/OS: IDILANGX
Application Performance Analyzer for z/OS: CAZLANGX
```

--------------------------------

### Specify SSL Cipher String

Source: https://www.ibm.com/docs/en/adffzscc/1.7_topic=server-setting-ssl-encrypted-communications

This example demonstrates how to specify a cipher string for the System SSL component by modifying the server JCL. The ENVAR environment variable is used to set the GSK_V3_CIPHER_SPECS or GSK_V3_CIPHER_SPECS_EXPANDED.

```text
ENVAR(GSK_V3_CIPHER_SPECS=xx)
# or
ENVAR(GSK_V3_CIPHER_SPECS_EXPANDED=xx)
```

--------------------------------

### Activate and Refresh RACF Program Control

Source: https://www.ibm.com/docs/en/adffzscc/1.6_topic=authorizations-example-commands-racf

Commands to activate program control and refresh its settings. These are fundamental for enforcing program execution policies. Ensure you have the necessary administrative privileges before executing.

```z/OS Command
SETROPTS WHEN(PROGRAM)
```

```z/OS Command
SETROPTS WHEN(PROGRAM) REFRESH
```

--------------------------------

### REXX Script for Copying Files

Source: https://www.ibm.com/docs/en/adffzscc/1.8_topic=translator-cobol-sclm-example

A REXX script used by the COPYFILE EXEC to copy the content of one file to another. It assumes both input and output files are pre-allocated. The script reads from the input file (I) and writes to the output file (O).

```REXX
/* REXX */
/**********************************************************************/ 
/* Copy file I to file O.  Both are assumed to be pre-allocated.      */ 
/**********************************************************************/ 
PARSE UPPER ARG I","O .
"EXECIO * DISKR "I" (STEM R. FINIS "
"EXECIO * DISKW "O" (STEM R. FINIS "
RETURN
```
Tokens:
Raw