z/VSE File Characteristics Program › Overview

Overview

The z/VSE file characteristics program (IDMSFILE) enables z/VSE users to specify file characteristics at runtime in the form of control statements, providing z/VSE users with the flexibility enjoyed by z/OS users.

In the CA ADS Batch environment, you use IDMSFILE in conjunction with the CA ADS Batch runtime system (ADSBATCH) and the CA ADS Batch print log utility (ADSOBPLG). For example, to execute an CA ADS Batch application, you submit the JCL presented in Runtime Considerations. Note that the EXEC statement executes the program IDMSFILE, and not ADSBATCH.

Control statements you supply as input to IDMSFILE describe the input, output, suspense, and log files used in the application. The last control statement specifies the program you want to execute; in this example, ADSBATCH.

Types of Control Statements

IDMSFILE allows you to specify four types of control statements:

• SET OPTIONS—Used to define the beginning and ending columns for the control statements that follow.
• DEFINE CHARACTERISTICS—Used to describe file characteristics. File characteristics include block size, record length, record format, tape label format, device type, data set organization, logical unit assignment, and printer control character format.
• ACCEPT CHARACTERISTICS—Used to specify a file that contains IDMSFILE control statements. IDMSFILE processes the control statements as regular input, then continues processing the explicitly coded control statements.
• RUN PROGRAM—Used to specify the program to be executed (for example, ADSBATCH) and to supply any input parameters that would, without IDMSFILE, be coded in the EXEC statement for the program.

Example 1

The example below illustrates the JCL and control statements you could provide to execute an CA ADS Batch application that accesses a data set whose filename is PAYROLL and a log file whose filename is ADSLOGA:

// DLBL SYSCTL, 'idms.sysctl',0,SD
// DLBL       ciln,'idms.cilib'
// EXTENT     ,nnnnnn
// ASSGN      CL,SEARCH=(ciln),TEMP
// DLBL       ADSLOGA,'log.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
// DLBL       PAYROLL,'payroll.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
// DLBL       REPFILE,'report.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
// EXEC       IDMSFILE,SIZE=(ADSBATCH,128K)
DEFINE CHARACTERISTICS FOR FILE ADSLOGA
   BLKSIZE=4096
   LRECL=4092
   RECFM=VARUNB
   DEVTYPE=DISK ASSIGN TO SYS126.
DEFINE CHARACTERISTICS FOR FILE PAYROLL
   BLKSIZE=80
   LRECL=80
   RECFM=FIXUNB
   DEVTYPE=DISK ASSIGN TO SYS122.
DEFINE CHARACTERISTICS FOR FILE REPFILE
   BLKSIZE=132
   LRECL=132
   RECFM=FIXUNB
   DEVTYPE=DISK ASSIGN TO SYS125.
RUN PROGRAM ADSBATCH PARM='DIALOG1,,runtime-parm'.
/*
DICTNAME=APPLDICT.
LOG FILE1=ADSLOGA.
DIALOG DIALOG1 OUTPUT FILENAME IS PAYROL
DIALOG STATISTICS ON FOR(DIALOG1,DIALOG2).
/*
/*

Note that the control statements for the program to be executed (in this case, ADSBATCH) immediately follow the RUN PROGRAM statement. Also note that the IDMSFILE control statements allow you to specify file characteristics with JCL-like parameters. Alternatively, you can specify characteristics using COBOL- or IDD-like syntax or using greatly abbreviated syntax.

Syntax rules for the four IDMSFILE control statements are described separately below. JCL for ADSBATCH is provided in Runtime Considerations. JCL for ADSOBPLG is provided in CA ADS Batch Print Log Utility.

Example 2

The example below illustrates the JCL and control statements you could provide to execute an CA ADS Batch application where ADSLOGA goes to the printer and input is from cards. It also shows the definition of the suspense, archive, and report files:

// DLBL       ARCFILE,'log.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
// DLBL       SUSFILE,'payroll.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
// DLBL       REPFILE,'report.file'
// EXTENT     sysnnn,VOLSER,,,start-track,end-track
// ASSGN      sysnnn,DISK,VOL=VOLSER,SHR
@SYSFILES
@SYSCTL
// DLBL SYSIDMS,'#SYSIPT'
// EXEC    IDMSFILE,SIZE=(AUTO,128K)
@SYSPARMS
/*
DEFINE CHARACTERISTICS FOR FILE ADSLOGA
  LRECL=133 RECFM=FIXUNB
  CONTROL CHARACTERS ARE ASA
  DEVTYPE=PRINTER ASSIGN TO SYSLST.
DEFINE CHARACTERISTICS FOR FILE INFILE1
  LRECL=80         RECFM=FIXUNB
  SYSNO=SYSIPT
DEFINE CHARACTERISTICS FOR FILE SUSFILE
  LRECL=80 BLKSIZE=4000 RECFM=FIXBLK
  DEVTYPE=DISK ASSIGN TO SYS124.
DEFINE CHARACTERISTICS FOR FILE ARCFILE
  LRECL=128 BLKSIZE=2564 RECFM=VARBLK
  DEVTYPE=DISK ASSIGN TO SYS123.
DEFINE CHARACTERISTICS FOR FILE REPFILE
  LRECL=132 BLKSIZE=132  RECFM=FIXUNB
  CONTROL CHARACTERS ARE ASA
  DEVTYPE=PRINTER ASSIGN TO SYSLST.
RUN PROGRAM ADSBATCH.
/*
DICTNAME=APPLDICT.
LOG FILE1 = ADSLOGA NOARCHIVE.
DIALOG ARCDM INP FIL INFILE1.
DIALOG ARCDM SUS FIL SUSFILE.
DIALOG ARCD2 OUT FIL ARCFILE.
DIALOG ARCD3 OUT FIL ARCFILE.
DIALOG ARCD5 OUT FIL REPFILE .
ENTRY DIALOG ARCDM.
/*
0028
0029
0458
0459
0450
/*