FMT JCL

Preparing Control Information › File Management Table › FMT JCL

FMT JCL

The JCL used to compile, assemble, and link edit an FMT is presented below.

FMT (z/OS)

//*******************************************************************
//*                                                                 *
//*        COMPILE FMT                                              *
//*                                                                 *
//*******************************************************************
//FMTC     EXEC PGM=ESVSFMTC,REGION=512K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
           DD   DSN=idms.loadlib,DISP=SHR
//SYSLST   DD   SYSOUT=A,DCB=BLKSIZE=133
//SYSPCH   DD   DSN=&.&fmt.,DISP=(NEW,PASS)
//              DCB=(RECFM=FB,LRECL=80,BLKSIZE=4560),
//              SPACE=(CYL,(1,1)),
//              UNIT=disk
//SYSIDMS  DD   *
Input SYSIDMS parameters, as required
//SYSIPT   DD   *
Insert FMT input statements here
/*
//*******************************************************************
//*                                                                 *
//*        ASSEMBLE COMPILER OUTPUT                                 *
//*                                                                 *
//*******************************************************************
//ASM      EXEC PGM=ASMA90,PARM='NOLOAD,DECK',COND=(4,LT,S1),
//              REGION=512K
//SYSPRINT DD   DUMMY
//SYSUT1   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSUT2   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSUT3   DD   UNIT=disk,SPACE=(CYL,(2,2))
//SYSPUNCH DD   DSN=&.&fmtobj.,UNIT=disk,DISP=(NEW,PASS),
//              SPACE=(80,(400,40))
//SYSIN    DD   DSN=&.&fmt.,DISP=(OLD,PASS)
//*******************************************************************
//*                                                                 *
//*        LINK FMT TO CA IDMS/DB LOAD LIBRARY                      *
//*                                                                 *
//*******************************************************************
//LINK     EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(196K,12K)',
//              REGION=512K
//SYSPRINT DD   SYSOUT=A
//SYSLIN   DD   DSN=&.&fmtobj.,DISP=(OLD,DELETE)
//SYSUT1   DD   UNIT=disk,SPACE=(TRK,(20,5))
//SYSLMOD  DD   DSN=user.loadlib(fmtname),DISP=SHR

idms.dba.loadlib	Data set name of the CA IDMS/DB load library containing CA IDMS DMCL and database name table load modules
idms.loadlib	Data set name of the CA IDMS/DB load library containing ESVSFMTC
&.&fmt.	Temporary data set that contains output from the compile step
disk	Symbolic device type for the disk file
&.&fmtobj.	Temporary data set that contains output from the assembly step
user.loadlib	Data set name of the user load library where the FMT load module will be placed
fmtname	Name of the FMT load module
SYSIDMS	DDname of the parameter file provided by CA IDMS to specify runtime directives and operating system-dependent parameters. For a complete description of the SYSIDMS parameter file, see CA IDMS Common Facilities Guide.

FMT (z/VSE)

*********************************************************************
*                                                                   *
*           COMPILE FMT                                             *
*                                                                   *
*********************************************************************
// EXEC PROC=IDMSLBLS
// DLBL     idmslib,'idms.lib'
// EXTENT   ,xxxxxx
// LIBDEF   PHASE, SEARCH=idmslib.sublib
// DLBL     IDMSPCH,'work',,SD
// EXTENT   SYS020,nnnnnn,,,ssss,llll
// ASSGN    SYS020,disk
// EXEC     ESVSFMTC
Input SYSIDMS parameters, as required
Insert FMT input statements here
/*
*********************************************************************
*                                                                   *
*           ASSEMBLE COMPILER OUTPUT                                *
*                                                                   *
*********************************************************************
// DLBL     IJSYSIN,'work',,SD
// EXTENT   SYSIPT,nnnnnn,,,ssss,llll
   ASSGN    SYSIPT,disk
// OPTION CATAL
   PHASE fmtname,*
// EXEC ASMA90
   CLOSE SYSIPT,SYSRDR
/*
*********************************************************************
*                                                                   *
*           LINK FMT TO CA IDMS/DB LIBRARY                           *
*                                                                   *
*********************************************************************
// EXEC LNKEDT
/&

IDMSLBLS	Name of the procedure provided at installation containing the file definitions for CA IDMS dictionaries, database, SYSIDMS, and other CA IDMS files.
nnnnnn	Volume serial number of disk unit
idmslib	Filename of the CA IDMS Library
cdmscl	Filename of the CA IDMS/DB library
idms.lib	File-id of the CA IDMS Library
work	File-id of work file
ssss	Relative starting track of disk file
llll	Number of tracks required for disk file
disk	Device assignment of disk file
fmtname	Name of the FMT PHASE