BlogJava-The NoteBook of EricKong-随笔分类-Mainframe

LPAR和HUB IP地址查询方法

Eric_jiang — Mon, 25 Nov 2013 06:59:00 GMT

1.确定DSN

LOGON TSO->SD.DA->PRE CANSDSST->JESJCL->F RKANPARU

会看到如下内容:

... DISP=SHR, DSN=**.**.RKANPARU(**)

这就是需要查到的DSN

2.查看需要确定IP地址的LPAR的DS的KDSENV

可以看到以下内容:

KDEB_INTERFACELIST=**, **即为IP地址

Eric_jiang 2013-11-25 14:59 发表评论

如何调试Cobol程序

Eric_jiang — Mon, 29 Jul 2013 09:23:00 GMT

摘要: 一个简单的例子而已。IDENTIFICATION DIVISION. &nbs... 阅读全文

Eric_jiang 2013-07-29 17:23 发表评论

Cobol Compiler Options

Eric_jiang — Mon, 29 Jul 2013 08:02:00 GMT

The default options that were set up when your compiler was installed are in effect for your program unless you override them with other options. To check the default compiler options of your installation, do a compile and check in the compilation listing.

Ways of overriding the default options

1.Compiler options can be passed to COBOL Compiler Program (IGYCRCTL) through the PARM in JCL.

2.PROCESS or CBL statement with compiler options, can be placed before the identification division.

3.If the organization uses any third party product or its own utility then these options can be coded in the pre-defined line of the utility panel.

Precedence of Compiler Options

(Highest precedence). Installation defaults, fixed by the installation.
Options coded on PROCESS /CBL statement
Options coded on JCL PARM parameters
(Lowest Precedence). Installation defaults, but not fixed.

The complete list of compiler option is in the table:

Aspect	Compiler Option
Source Language	APOST, CMPR2, CURRENCY, DBCS, LIB, NUMBER, QUOTE, SEQUENCE, WORD
Date Processing	DATEPROC, INTDATE, YEARWINDOW
Maps and Listing	LANGUAGE, LINECOUNT, LIST, MAP, OFFSET, SOURCE, SPACE, TERMINAL, VBREF, XREF
Object Deck generation	COMPILE, DECK, NAME, OBJECT, PGMNAME
Object Code Control	ADV, AWO, DLL, EXPORTALL, FASTSRT, OPTIMIZE, NUMPROC, OUTDD, TRUNC, ZWB
Debugging	DUMP, FLAG, FLAGMIG, FLAGSTD, SSRANGE, TYPECHK
Other	ADATA, ANALYZE, EXIT, IDLGEN

ADV: It is meaningful if your program has any printer files with WRITE..ADVANCING keyword. The compiler adds one byte prefix to the original LRECL of printer files for printing control purpose. If you are manually populating printing control character in the program, then you can compile your program with NOADV.

DYNAM: Use DYNAM to cause separately compiled programs invoked through the CALL literalstatement to be loaded dynamically at run time. DYNAM causes dynamic loads (for CALL) and deletes (for CANCEL) of separately compiled programs at object time. Any CALL identifierstatements that cannot be resolved in your program are also treated as dynamic calls. When you specify DYNAM, RESIDENT is also put into effect.

LIST/OFFSET: LIST and OFFSET are mutually exclusive. If you use both, LIST will be ignored. LIST is used to produce listing a listing of the assembler language expansion of your code. OFFSET is used to produce a condensed Procedure Division listing.

With OFFSET, the procedure portion of the listing will contain line numbers, statement references, and the location of the first instruction generated for each statement. These options are useful for solving system ABENDS. Refer JCL session for more details.

MAP: Use MAP to produce a listing of the items you defined in the Data Division.

SSRANGE: If the program is compiled with SSRANGE option, then any attempt to refer an area outside the region of the table will abnormally terminate with protection exception, usually S0C4.It also avoids any meaningless operation on reference modification like negative number in the starting position of reference modification expression. If the program is compiled with NOSSRANGE, then the program may proceed further with junk or irrelevant data. So usually the programs are compiled with SSRANGE during development and testing.

RENT: A program compiled as RENT is generated as a reentrant object module. CICS programs should be compiled with RENT option to share the same copy of the program by multiple transactions (Multithreading)

RESIDENT: Use the RESIDENT option to request the COBOL Library Management Feature. (The COBOL Library Management Feature causes most COBOL library routines to be located dynamically at run time, instead of being link-edited with the COBOL program.).CICS Programs should be compiled with RESIENT option.

XREF: Use XREF to get a sorted cross-reference listing. EBCDIC data-names and procedure-names will be listed in alphanumeric order. It also includes listing, where all the data-names that are referenced within your program and the line number where they are defined. This is useful for identifying the fields that are defined but not used anywhere after the development of new program.

COMPILATION JCL:

//SMSXL86B JOB ,'COMPILATION JCL', MSGCLASS=Q,MSGLEVEL=(1,1),CLASS=C

//COMPILE1 EXEC PGM=IGYCRCTL, PARM=’XREF,APO,ADV,MAP,LIST),REGION=0M

//STEPLIB DD DSN=SYS1.COB2LIB,DISP=SHR

//SYSIN DD DSN=SMSXL86.TEST.COBOL(SAMPGM01),DISP=SHR

//SYSLIB DD DSN=SMSXL86.COPYLIB,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DSN=&&LOADSET, DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200),

// DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(5,10),RLSE),

//SYSUT1 DD UNIT=&SYSDA,SPACE=(CYL,(1,10)) => Code SYSUT2 to UT7

//LINKEDT1 EXEC PGM=IEWL,COND=(4,LT)

//SYSLIN DD DSN=&&LOADSET, DISP=(OLD,DELETE)

//SYSLMOD DD DSN=&&GOSET(SAMPGM01),DISP=(NEW,PASS),UNIT=SYSDA

// SPACE=(CYL,1,1,1))

//SYSLIB DD DSN=SMSXL86.LOADLIB,DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,10))

//SYSPRINT DD SYSOUT=*

//*** EXECUTE THE PROGRAM ***

//EXECUTE1 EXEC PGM=*.LINKEDT1.SYSLMOD,COND=(4,LT),REGION=0M

//STEPLIB DD DSN=SMSXL86.LOADLIB,DISP=SHR

// DD DSN=SYS1.SCEERUN,DISP=SHR

//SYSOUT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

Eric_jiang 2013-07-29 16:02 发表评论

Data set structure数据集的结构

Eric_jiang — Mon, 29 Jul 2013 03:36:00 GMT

Data set structure

数据集的结构

Working with data sets requires an understanding of the physical and logical structure of a data set, and how z/OS® accesses information in the data set.

使用数据集需要我们理解数据集的物理和逻辑结构和Z/OS如果访问这些数据集的信息.

Data set

In z/OS, a data set is a named collection of related data records that is stored and retrieved by an assigned name. A data set is equivalent to a file in other operating systems. Data sets are stored on tape or disks.

数据集

在Z/OS中,数据集是一个已命名的内容相关数据记录的集合,系统通过这个名字保存和访问这些数据记录.数据集相当于其他操作系统里面的文件.数据集是存储在磁盘或者是磁带里面的.

Direct Access Storage Device (DASD)

DASD is another name for a disk drive. Additional synonyms include: disk volume, disk pack, or Head Disk Assembly (HDA).

(DASD)直接访问存储器

DASD 是磁盘设备的别名,它还有其他的同义词disk volume, disk pack, or Head Disk Assembly (HDA).

Space

Disk space is allocated in units called cylinders, tracks, or blocks.

磁盘空间

磁盘空间以柱面,磁道,或者块为单位作分配.

Cylinder

A disk drive contains cylinders. A cylinder is a unit of storage on a count-key-data (CKD) device with a fixed number of tracks.

柱面

磁盘包含柱面,一个柱面是一个(CKD)设备上一个存储单位,指向一个固定号码的磁道.

Track

Cylinders contain tracks, which are circular paths on the surface of a disk or diskette on which information is magnetically recorded and from which recorded information is read. Tracks are in count-key-data (CKD) format, which means that each track contains fields that indicate the start of the track and the space used, followed by records containing three fields:

• The count field defines the length of the record

• The key field contains optional accounting information

• The data field contains the user data

磁道

柱面包含磁道,它是磁盘表面的环形轨道,以磁性物质保存和被访问数据信息. 磁道使用(CKD)格式,意味着每一个磁道包含一系列的字段,这些字段指明了磁道的开始位置和所用的空间,后面跟随着数据记录,数据记录内保存三个字段,

.记数字段包含了记录的长度

.关键字字段包含了可选的帐户信息

.数据字段包含了用户的实际数据

Count Key Data（CKD）是一种磁盘数据结构。每条物理磁盘记录包含一个count区，一个可选的key，以及在一个记录内间隔后面的数据data记录。这个结构后面的原理就是：即然数据记录的长度可能不同，它们就需要有一个统计字段来指示key和物理记录的长度。统计区有以柱面头记录格式记录的物理位置标识，Key的长度，和数据记录的长度。Key要么没有，要么是一串字符。大多数情况下是没有key的，记录顺序排列，或者以直接柱面头记录定位。如果有key,则它通常是数据记录前几个字节的拷贝，但它可以是用来找到这条记录的任何数据。这个key(还有记录）都是通过硬件命令来定位的。Count Key Data Achitecture是由IBM在20世纪60年代创建的，用来作为System/360的磁盘驱动，也叫固定块架构（Fixed Block Achitecture。

Record

记录

Tracks contain records. A record is some number of bytes containing data. The record is the basic unit of information used by a program running on z/OS.

磁道包含记录,一个记录是一些包含了数据的字节.记录是Z/OS上应用程序处理数据的基本单位.

• Records have a logical record length (abbreviated as LRECL); different types of DASD impose different maximum lengths for records.

• Records are either fixed length or variable length in a given data set. Traditional z/OS data sets have one of five record formats (abbreviated as RECFM): Fixed (F), fixed blocked (FB), variable (V), variable blocked (VB), or undefined (U).

.记录有一个逻辑记录长度(LRECL)属性,不同的DASD设备决定了数据记录的最大长度的不同

.记录可是定长的,也可以是变长的,传统上,z/OS有5种记录格式(RECFM),F固定,FB固定,分块,V变长,VB变长,分块,U未知

Blocks

Records can be grouped into data blocks, which are the units of recording on disk. Blocking makes processing more efficient because z/OS can access an entire block at once instead of reading or writing records individually.

Block size (abbreviated as BLKSIZE) is the physical block size written on the disk for fixed (F) and fixed block (FB) records. For variable and undefined (V, VB, and U) records, block size is the maximum physical block size that can be used for the data set.

块

数据记录群组成为数据块,是写入和读取磁盘的单位.分块的方式使数据处理更加高效,因为z/OS可以用一个块的单位来读写记录,而不是一个一个记录单独来读写.

块大小(BLKSIZE),是指以F(固定)和FB(固定,分块)格式的数据记录写入磁盘的块的大小,对于分块,V变长,VB变长,分块,U格式的数据记录,块大小是数据集最大的可用数据物理块大小.

Extents

扩展

Space for a disk data set is assigned in primary and secondary extents. An extent is a contiguous number of disk drive tracks, cylinders, or blocks. Data sets can increase in extents as they grow. As with blocking, the use of extents is more efficient because reading or writing contiguous tracks is faster than reading or writing data that is scattered over the disk.

磁盘空间分配对于数据集来说包括(primary)第一次分配和二次(secondary)扩展,一个扩展分配了一定数量连续的磁盘磁道,柱面,或者块.基于块的读写方式下,使用磁盘扩展数据更加高效,应为读写连续的磁道是比读写零碎的数据快速很多.

Volume

卷

The term volume is often used to refer to a disk.

卷经常被认为是磁盘

Volume serial

卷名

The six-character name of a disk or tape volume, such as TEST01.

是磁盘或者磁带的名字,6个字符,例如test01

Device type

设备类型

A model or type of disk device, such as 3390.

磁盘设备的型号或者是类型,例如3390

Organization

组织方式

The method of processing a data set, such as sequential.

处理数据的方式,例如顺序访问

Eric_jiang 2013-07-29 11:36 发表评论

使用JCL建立顺序文件

Eric_jiang — Sun, 28 Jul 2013 14:06:00 GMT

//IBMUSERA JOB 168,'ERIC KONG',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//         NOTIFY=IBMUSER
//CRTFILEA EXEC PGM=IEFBR14
//CRTFIL1 DD DSN=IBMUSER.TEST.DATAPF5,
//         DISP=(NEW,CATLG),
//         UNIT=SYSDA,
//         SPACE=(TRK,(10,5),RLSE),
//         DCB=(RECFM=FB,LRECL=208,BLKSIZE=208)

Eric_jiang 2013-07-28 22:06 发表评论

使用JCL删除一个数据集

Eric_jiang — Sun, 28 Jul 2013 13:52:00 GMT

//IBMUSERA JOB 168,'ERIC KONG',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),

// NOTIFY=IBMUSER

//CRTFILEA EXEC PGM=IEFBR14

//CRTFIL1 DD DSN=IBMUSER.TEST.DATAPF3,

// DISP=(MOD,DELETE),

// SPACE=(TRK,(0,0))

Eric_jiang 2013-07-28 21:52 发表评论

使用JCL复制数据集

Eric_jiang — Sun, 28 Jul 2013 13:50:00 GMT

//IBMUSERK JOB 168,'ERIC KONG',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//         NOTIFY=IBMUSER
//CPSTEP   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=IBMUSER.TEST.DATAPF2,DISP=SHR
//SYSUT2   DD DSN=IBMUSER.TEST.DATAPF2B,DISP=(,CATLG,DELETE),
//            SPACE=(TRK,(1,1)),
//            DCB=(RECFM=FB,LRECL=208,BLKSIZE=2080),UNIT=SYSDA
//SYSIN    DD DUMMY
//

Eric_jiang 2013-07-28 21:50 发表评论

一次编译连接多个cobol源代码的方法

Eric_jiang — Sun, 28 Jul 2013 08:53:00 GMT

//IBMUSERC JOB 'COMP BATCH',CLASS=A,MSGCLASS=H,

// NOTIFY=IBMUSER,MSGLEVEL=(1,1)

//*************** DEFINE A PROC START *******************************

//CBLBATCH PROC

//*********************************************************************

// SET SRC=&SRC

//*********************************************************************

//* JOB TO COMPILE AND LINK-EDIT COBOL PROGRAM

//*********************************************************************

//*************** COMPILE STEP ***************************************

//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,

// PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF,OFFSET'

//STEPLIB DD DSNAME=IGY410.SIGYCOMP,

// DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,

// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),

// DCB=(BLKSIZE=3200)

//SYSIN DD DSN=IBMUSER.TEST.COBOL(&SRC),DISP=SHR

//SYSLIB DD DSN=IBMUSER.TEST.COPY,DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//****************** LINK STEP *****************************************

//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K,

// PARM='LIST,XREF'

//SYSLIB DD DSNAME=CEE.SCEELKED,DISP=SHR

// DD DSN=IBMUSER.TEST.LOAD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)

//SYSLMOD DD DSNAME=IBMUSER.TEST.LOAD(&SRC),DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))

//**********************************************************************

//* DEFINE A PROC COMPLETE

//**********************************************************************

// PEND

//********* RUN THE PROC TO COMPILE COBOL RESOURCE *******************

//RUNAPP1 EXEC CBLBATCH,SRC=HELLO

//*************** RUN THE PROGRAM **************************************

//STEPRUN EXEC PGM=HELLO

//STEPLIB DD DSN=IBMUSER.TEST.LOAD(HELLO),DISP=SHR

//SYSOUT DD SYSOUT=*

Eric_jiang 2013-07-28 16:53 发表评论

zos1.10编译连接生成运行模块并且运行cobol程序

Eric_jiang — Sun, 28 Jul 2013 07:56:00 GMT

//IBMUSERC JOB 'COMP BATCH',CLASS=A,MSGCLASS=H,

// NOTIFY=IBMUSER,MSGLEVEL=(1,1)

//*********************************************************************

// SET SRC=HELLO

//*********************************************************************

//* JOB TO COMPILE AND LINK-EDIT COBOL PROGRAM

//*********************************************************************

//*************** COMPILE STEP **********************************

//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,

// PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF,OFFSET'

//STEPLIB DD DSNAME=IGY410.SIGYCOMP,

// DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,

// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),

// DCB=(BLKSIZE=3200)

//SYSIN DD DSN=IBMUSER.TEST.COBOL(&SRC),DISP=SHR

//SYSLIB DD DSN=IBMUSER.TEST.COPY,DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))

//****************** LINK STEP *****************************************

//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K,

// PARM='LIST,XREF'

//SYSLIB DD DSNAME=CEE.SCEELKED,DISP=SHR

// DD DSN=IBMUSER.TEST.LOAD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)

//SYSLMOD DD DSNAME=IBMUSER.TEST.LOAD(&SRC),DISP=SHR

//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))

//**********************************************************************

//* RUN THE COMBOL PROGRAM

//**********************************************************************

//STEP020 EXEC PGM=HELLO

//STEPLIB DD DSN=IBMUSER.TEST.LOAD(HELLO),DISP=SHR

//SYSOUT DD SYSOUT=*

Eric_jiang 2013-07-28 15:56 发表评论

Mainframe中各个编译器的介绍

Eric_jiang — Sun, 28 Jul 2013 07:28:00 GMT

IGYWC - Enterprise COBOL Compile only
IGYWCG - Enterprise COBOL Compile, load and run
IGYWCL - Enterprise COBOL Compile and link
IGYWCLG - Enterprise COBOL Compile, link and run
IGYWCPG - Enterprise COBOL Compile, prelink, load and run
IGYWCPL - Enterprise COBOL Compile, prelink and link
IGYWCPLG - Enterprise COBOL Compile, prelink, link and run

Eric_jiang 2013-07-28 15:28 发表评论

Data set record formats数据集记录根式

Eric_jiang — Sat, 27 Jul 2013 09:49:00 GMT

Data set record formats

数据集记录根式

z/OS concepts
Z/OS的概念

Traditional z/OS® data sets are record oriented, and have one of five possible formats.

传统意义上来说，Z/OS的数据集的都是面向记录，有5种可能的格式。

In normal usage, there are no byte stream files such as are found in PC and UNIX® systems. (z/OS UNIX has byte stream files, and byte stream functions exist in other specialized areas. These are not considered to be traditional data sets.)

在一般的使用上，Z/OS是没有像PC和Unix系统的上的字节流文件（Z/OS Unix有字节流文件，而这些字节流功能存在其他特定的功能区域，但是这些已经不是传统意义上的数据集了，另当别论）

In z/OS, there are no new line (NL) or carriage return and line feed (CR+LF) characters to denote the end of a record. Records are either fixed length or variable length in a given data set. When editing a data set with ISPF, for example, each line is a record.

在Z/OS中，没有新行符号（NL）或者(CR+LF) 等字符作为记录的结束标志。在一个给定的数据集，记录总是固定长度的或者是可变长度的。

Traditional z/OS data sets have one of five record formats, as follows:

传统Z/OS有下面5中的记录格式：

F (Fixed)

Fixed means that one physical block on disk is one logical record and all the blocks and records are the same size. This format is seldom used.

F（固定）

在磁盘的上一个物理块就是一个逻辑记录，而且所有的块和记录都是同样大小的，这种格式是很少用的了。

FB (Fixed Blocked)

This format designation means that several logical records are combined into one physical block. This format can provide efficient space utilization and operation. This format is commonly used for fixed-length records.

FB（定长分块）

这种格式意味着几个逻辑记录组合成为一个物理块，这种格式能够提供高效的空间利用率和操作行，是一种经常被固定长度记录使用的格式。

V (Variable)

This format has one logical record as one physical block. A variable-length logical record consists of a record descriptor word (RDW) followed by the data. The record descriptor word is a 4-byte field describing the record. The first 2 bytes contain the length of the logical record (including the 4-byte RDW). The length can be from 4 to 32,760 bytes. All bits of the third and fourth bytes must be 0, because other values are used for spanned records. This format is seldom used.

V（变长）

这种格式中，一个逻辑的记录作为一个物理块，一个可变长度的逻辑记录包含一个记录描述符（RDW），它放置在在数据的前面。这个记录描述符有4个字节，前两个字节描述了逻辑记录的长度（长度也包含了RDW的长度在内）。长度范围可以是4字节到32760个字节，第三和第四个字节必须是0，因为其他值已经被跨越式的记录使用，这种格式也是很少使用的。

VB (Variable Blocked)

This format places several variable-length logical records (each with an RDW) in one physical block. The software must place an additional Block Descriptor Word (BDW) at the beginning of the block, containing the total length of the block.

VB（变长，分块）

这种格式将多个可变长度的逻辑记录（每一个都包含了RDW）放在一个物理块里面。系统必须放置一个额外的块描述符（BWD）在块的开始部位，BDW它包含了这个块全部长度。

U (Undefined)

This format consists of variable-length physical records and blocks with no predefined structure. Although this format may appear attractive for many unusual applications, it is normally used only for executable modules.

U（未定义）

这个格式包含了可变长度的记录和没有预先定义好格式的块，这种格式对于那些不常用的应用程序是多么的吸引，但是一般来说，主要用于可执行模块的存储格式。

We must stress the difference between a block and a record: a block is what is written on disk, while a record is a logical entity.

我们这里需要强调一个块和一个记录的区别，一个块是用于写入磁盘，而一个记录是一个逻辑实体。

The terminology here is pervasive throughout z/OS literature. The key terms are:

这些技术词汇贯穿了Z/OS技术文化里面中，下面是关键的一些项目：

• Block Size (BLKSIZE) is the physical block size written on the disk for F and FB records. For V, VB, and U records, it is the maximum physical block size that can be used for the data set.

•
块大小(BLKSIZE)，是指用于写入F或者FB格式的物理块的大小。而对于V，VB和U格式的记录，BLKSIZE是数据集能够使用的最大物理块大小。

• Logical Record Size (LRECL) is the logical record size (for formats F and FB) or the maximum allowed logical record size (for formats V and VB) for the data set. Format U records have no LRECL.

逻辑记录格式大小（LRECL）是指一个逻辑记录的大小（对于F和FB的格式）或是最大的可允许的逻辑记录大小（对于V和VB格式的）数据集，对于格式U来说，是没有LRECL可言的。

•
Record Format (RECFM) is F, FB, V, VB, or U as just described.

记录格式（RECFM）F, FB, V, VB, or U，上面已经讲过了

These terms are known as data control block (DCB) characteristics, named for the control block where they may be defined in an assembly language program. The user is often expected to specify these parameters when creating a new data set. The type and length of a data set are defined by its record format (RECFM) and logical record length (LRECL). Fixed-length data sets have a RECFM of F, FB, FBS, and so on. Variable-length data sets have a RECFM of V, VB, VBS, and so on.

这些项目就是我们知道的（DCB）数据控制块，被命名的DCB常用于汇编程序，当我们需要创建新的数据集的时候，我们经常需要指明这些项目的数值。数据集的类型和长度由它的记录格式（RECFM）和逻辑记录长度（LRECL）来决定的。固定长度的数据集有记录格式（RECFM）F, FB等等其他，可变长度的数据集有记录格式（RECFM）V, VB, VBS,等等其他

A data set with RECFM=FB and LRECL=25 is a fixed-length (FB) data set with a record length of 25 bytes (the B is for blocked). For an FB data set, the LRECL tells you the length of each record in the data set; all of the records are the same length. The first data byte of an FB record is in position 1. A record in an FB data set with LRECL=25 might look like this:

Positions 1-3: Country Code = 'USA'

Positions 4-5: State Code = 'CA'

Positions 6-25: City = 'San Jose' padded with 12 blanks on the right

使用了RECFM=FB and LRECL=25进行定义的数据集是一个固定长度的数据集，数据集的记录长度为25个字节，B意味指分块的，在一个FB格式的数据集中，LRECL项告诉了你这个数据集每个记录的长度，他们长度都是一样的，如上面的记录。

A data set with RECFM=VB and LRECL=25 is a variable-length (VB) data set with a maximum record length of 25 bytes. In a VB data set, the records can have different lengths. The first four bytes of each record contain the RDW, and the first two bytes of the RDW contain the length of that record (in binary). The first data byte of a VB record is in position 5, after the 4-byte RDW in positions 1-4. A record in a VB data set with LRECL=25 might look like this:

定义为RECFM=VB and LRECL=25的数据集是一个可变长度的数据集，它最大的长度是25个字节，在一个定义为VB格式的数据集中，记录可以有不同的才长度，前面的四个字节是记录描述（RDW），前面两个字节包含了记录的长度（二进制表示），因此，可变长度的记录的开始的数据位是5，定义为VB格式，LRECL=25的数据集的一条记录会像下面这样保存。

Positions 1-2: Length in RDW = hex 0011 = decimal 17

Positions 3-4: Zeros in RDW = hex 0000 = decimal 0

Positions 5-7: Country Code = 'USA'

Positions 8-9: State Code = 'CA'

Positions 10-17: City = 'San Jose'

Figure 1 shows the relationship between records and blocks for each of the five record formats.

下面的图展示了，在不同格式下，5个记录和块的关系

Figure 1. Basic record formats 基本记录格式

Eric_jiang 2013-07-27 17:49 发表评论

No member in data set

Eric_jiang — Sat, 27 Jul 2013 06:04:00 GMT

如果数据集是一个分区数据集，如果是一个刚刚建立的分区数据集，我们按前述进行编辑的时候，右上角会提示　No member in data set，这个就是说明了，一个分区数据集是不能拿来直接编辑的，因为它是一个顺序数据集的集合，它相当于一个文件夹，怎么可以拿来直接编辑呢，所以要先在其中建立顺序数据集，这个顺序数据集一般被称为MEMBER,然后再对MEMBER进行相应的编辑。如何给分区数据集添加顺序数据集呢？很简单，就在如上的两处环境下在Data set name一项中填上数据集名称，然后在后面加上一个括号，其中写上要添加的成员的名字就可以了（例如LIB.COURCE(MEM1)），然后回车就直接进入编辑状态了。如果是一个已经有成员的分区数据集，填写好数据集名称，不用加什么括号然后直接回车，会出现一个成员列表，再在其中进行选择，然后选择一个数据集来编辑就可以了，编辑命令当然跟前面说过的那两种命令相同了。

Eric_jiang 2013-07-27 14:04 发表评论

Maimframe的简单界面切换

Eric_jiang — Thu, 18 Jul 2013 14:31:00 GMT

你可以start命令再开一个
然后用F9切换
用=X删除

Eric_jiang 2013-07-18 22:31 发表评论

主机上数据集的类型

Eric_jiang — Sun, 14 Jul 2013 09:44:00 GMT

dataset：数据集，主机上最基本的存储单元，相当于fat文件系统中的文件。主要有四种数据集类型：顺序数据集(PS)，分区数据集(PDS)，扩展分区数据集(PDSE)，VSAM数据集以及UNIX文件格式。

PS：顺序数据集，数据集的一种，它相当于一个文本文件，但在物理存储上完全按照数据存入的先后顺序存储的。

PDS(PO)：分区数据集，相当于一个文件夹，PDS内包含若干个顺序的member，每个member都是一个数据集。但物理存储上，每个PDS包含两部分：Directory(目录)和members(数据集成员)。Directory中存有每个member的名字和地址。PDS的缺陷是member被删除后，该member所占用的空间没有释放，无法立即使用，需要对该分区数据集压缩之后才会被释放。

PDSE(Library)：扩展分区数据集，与分区数据集的区别是，PDSE的目录可根据存储member的增加而扩大，member被删除后，其占用的空间会被立即释放。主机中PDSE又称Library。

VSAM：VSAM数据集（Virtual Storage Access Method)是在虚拟存储器和树型数据结构的基础上，为了满足数据量大、存放速度快和维护方便的要求发展起来的一种文件形式。

HFS：全称叫做Hierarchical file system，层次型文件系统。在Z/OS上定义一个HFS数据集，这个HFS数据集就是一个完整的层次型文件系统。文件系统里所看到的所有数据其实都存储在这个数据集里。从外面来看，这是一个普通的数据集，到这个数据集里面看，里面是与其他数据集不一样的结构：它的内部是树形结构。从根开始，有一些节点，，节点上再连着节点。目录和文件就挂在这些节点上，100% UNIX风格。UNIX文件系统就是这样的结构。可以理解为，HFS是在数据集里创建了一个UNIX特别行政区，UNIX SERVICE可以在这个区域里进行UNIX方式的操作。值得注意的是，支持HFS的数据集只能在DASD的卷上。HFS的数据集属性中的DSNTYPE（数据集名属性）是“HFS”。

Eric_jiang 2013-07-14 17:44 发表评论

CICS DSNC Module DSNAPRH could not be found 的解决方法

Eric_jiang — Tue, 14 Aug 2012 01:45:00 GMT

修改ADCD.Z110.PARMLIB(PROGD9)，添加以下(注D9根据LOADPARM不同也不同)：
APF ADD
DSNAME(DSN910.ADSNLOAD) VOLUME(ZADB92)

LNKLST ADD NAME(LNKLST00) DSN(DSN910.DB9G.SDSNEXIT) VOLUME(ZADB91)
LNKLST ADD NAME(LNKLST00) DSN(DSN910.SDSNLOAD) VOLUME(ZADB91)
LNKLST ADD NAME(LNKLST00) DSN(DSN910.SDXRRESL) VOLUME(ZADB91)
LNKLST ADD NAME(LNKLST00) DSN(DSN910.ADSNLOAD) VOLUME(ZADB92)
修改并运行ADB720.SADBSAMP(ADBBIND)

重新开机!

Eric_jiang 2012-08-14 09:45 发表评论

Mainframe中启动DB2与CICS指令

Eric_jiang — Sun, 05 Aug 2012 03:13:00 GMT

Mainframe z/os1.9 虚拟机中，在进入系统之后系统不会自动启动CICS和DB2，需要手动启动。
为了验证一下是否启动，首先进入SDSF中，输入/D A,L命令，查看是否有DB2和CICS项，如果没有，证明确实没有启动。
然后输入以下命令：

启动cics /s cicsa

停止cics /c cicsa

启动数据库/-db9g start db2

停止数据库/-db9g stop db2

然后再次输入/D A,L命令，这时，出现了DB2与CICS条目，说明启动成功。

系统关闭

主控台

s shutdown

$pjes2

setrrs shutdown

Eric_jiang 2012-08-05 11:13 发表评论

What is a load library 大型机库的加载方式

Eric_jiang — Sat, 04 Aug 2012 07:38:00 GMT

A load library contains programs ready to be executed.
一个加载库存里面包含着那些准备被调用的程序。

A load library can be any of the following:
加载库可以是下面几种类型

System library 系统库
Private library 私有库
Temporary library. 临时库

System library 系统库

Unless a job or step specifies a private library, the system searches for a program in the system libraries when you code:

假如你没有在编码的时候指明一个私有库， 系统默认在系统库里面寻找这个程序进行调用。
//stepname  EXEC  PGM=program-name

The system looks in the libraries for a member with a name or alias that is the same as the specified program-name. The most-used system library is SYS1.LINKLIB, which contains executable programs that have been processed by the linkage editor.
系统会根据你提供的程序的名字或者是别名寻找所需要的程序，而最常用的系统库是SYS1.LINKLIB,他包含了那些已经被连接和编译的程序。

Private library 私有库

Each executable, user-written program is a member of a private library. To tell the system that a program is in a private library, the DD statement defining that library can be coded in one of the following ways:
每一个可执行，用户自己编写的程序都是私有库的一个成员，要告诉系统怎么调用这个私有库的程序，可以使用DD语句，方式有如下几种：

With a DD statement with the ddname JOBLIB after the JOB statement, and before the first EXEC statement in the job.
在EXEC语句的之前，JOB语句之后，用DD语句加上ddname 来编码
If the library is going to be used in only one step, with a DD statement with the ddname STEPLIB in the step.
假如这个库只在一个作业步中使用，那么可以使用在这个作业部上用 DD语句加上ddname STEPLI 进行编码

To execute a program from a private library, code: 调用一个私有库的程序，编码如下

//stepname  EXEC  PGM=program-name

When you code JOBLIB or STEPLIB, the system searches for the program to be executed in the library defined by the JOBLIB or STEPLIB DD statement before searching in the system libraries.
当你编写了JOBLIB 或者 STEPLIB，那么系统就会优先搜索那些定义在JOBLIB或者STEPLIB的DD语句的库的同名程序进行调用，假如找不到，系统就会在系统库里面去找

If an earlier DD statement in the job defines the program as a member of a private library, refer to that DD statement to execute the program:

假如用DD语句在JOB的之前的定义了一个私有库，那么就可以用下面的这种方式调用之前定义了的库的程序。

//stepname  EXEC  PGM=*.stepname.ddname

Private libraries are particularly useful for programs used too seldom to be needed in a system library. For example, programs that prepare quarterly sales tax reports are good candidates for a private library.
私有库在实际使用上是非常有用的，而系统库是很少被使用，例如，用于季度销售税报告的程序就是一个很好的例子。

Temporary library 临时库

Temporary libraries are partitioned data sets created to store a program until it is used in a later step of the same job. A temporary library is created and deleted within a job.

临时库是一个用于存储程序的分区数据集，这个数据集直到同名作业完成后被销毁，一个临时库是由一个作业来创建或者被删除。

When testing a newly written program, a temporary library is particularly useful for storing the load module from the linkage editor until it is executed by a later job step. Because the module will not be needed by other jobs until it is fully tested, it should not be stored in a private library or a system library.

In Figure 1, the LKED step creates a temporary library called &&LOADMOD on the SYSLMOD DD statement. In the GO step, we refer back to the same temporary data set by coding:

当我们在测试一个新编写的程序的时候，临时数据集十分有用，它用于存储来自于连接编辑器的加载模块直至被后面的作业步执行，因为这个模块在其他作业被测试完成时候就不需要了，因此，它不应该被存为私有库或者是系统库，在下面的图1中吗，LKED作业步就创建了一个叫做&&LOADMOD的临时库在名为SYSLMOD的DD语句中，在GO作业步中，我们就引用了这个临时库，代码如下

//GO EXEC PGM=*.LKED.SYSLMOD,....

Figure 1. Compile, link-edit, and execute JCL

//USUAL     JOB  A2317P,'COMPLGO'
//ASM       EXEC PGM=IEV90,REGION=256K,                   EXECUTES ASSEMBLER
//          PARM=(OBJECT,NODECK,'LINECOUNT=50')
//SYSPRINT  DD   SYSOUT=*,DCB=BLKSIZE=3509                PRINT THE ASSEMBLY LISTING
//SYSPUNCH  DD   SYSOUT=B                                 PUNCH THE ASSEMBLY LISTING
//SYSLIB    DD   DSNAME=SYS1.MACLIB,DISP=SHR THE MACRO LIBRARY
//SYSUT1    DD   DSNAME=&&SYSUT1,UNIT=SYSDA,              A WORK DATA SET
//          SPACE=(CYL,(10,1))
//SYSLIN    DD   DSNAME=&&OBJECT,UNIT=SYSDA,              THE OUTPUT OBJECT DECK
//          SPACE=(TRK,(10,2)),DCB=BLKSIZE=3120,DISP=(,PASS)
//SYSIN     DD    *                                       inline SOURCE CODE
                                           .
                                           .
                                           code
                                           .
/*
//LKED      EXEC PGM=HEWL,                                 EXECUTES LINKAGE EDITOR
//          PARM='XREF,LIST,LET',COND=(8,LE,ASM)
//SYSPRINT  DD   SYSOUT=*                                  LINKEDIT MAP PRINTOUT
//SYSLIN    DD   DSNAME=&&OBJECT,DISP=(OLD,DELETE)         INPUT OBJECT DECK
//SYSUT1    DD   DSNAME=&&SYSUT1,UNIT=SYSDA,               A WORK DATA SET
//          SPACE=(CYL,(10,1))
//SYSLMOD   DD   DSNAME=&&LOADMOD,UNIT=SYSDA,              THE OUTPUT LOAD MODULE
//          DISP=(MOD,PASS),SPACE=(1024,(50,20,1))
//GO        EXEC PGM=*.LKED.SYSLMOD,TIME=(,30),            EXECUTES THE PROGRAM
//          COND=((8,LE,ASM),(8,LE,LKED))
//SYSUDUMP  DD   SYSOUT=*                                  IF FAILS, DUMP LISTING
//SYSPRINT  DD   SYSOUT=*,                                 OUTPUT LISTING
//          DCB=(RECFM=FBA,LRECL=121)
//OUTPUT    DD   SYSOUT=A,                                 PROGRAM DATA OUTPUT
//          DCB=(LRECL=100,BLKSIZE=3000,RECFM=FBA)
//INPUT     DD    *                                        PROGRAM DATA INPUT
                 .
                 .
                 data
                 .
/*
//

Eric_jiang 2012-08-04 15:38 发表评论

Quick Start on IKJEFT01 utility

Eric_jiang — Mon, 23 Jul 2012 02:28:00 GMT

Quick Start on IKJEFT01 Utility
1) Unload data using DB2 Utility IKJEFT01
2) DB2 BIND using IKJEFT01 Utility
3) Executing DB2 program using IKJEFT01 Utitlity.
1) IKJEFT01 can be used to extract data from db2 tables.
as shown below.
JCL to extract data from db2 tables using IKJEFT01 Utility.
//STEP002  EXEC PGM=IKJEFT01,
            //             DYNAMNBR=20,COND=(0,NE)
            //STEPLIB  DD  DISP=SHR,
            //             DSN=SYS.DB2.XXX.RUNXX.LOAD
            //         DD  DISP=SHR,
            //             DSN=SYS.DB2.XXX.SDSNEXIT
            //         DD  DISP=SHR,
            //             DSN=SYS.DB2.XXX.SDSNLOAD
            //SYSIN    DD  *
            SELECT  *
            FROM EMP_TABLE
            WITH UR;
            //*
            //SYSTSIN  DD  *
            DSN SYSTEM(XXX) RETRY(20)
            RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -
            LIB ('SYS.DB2.XXX.RUNXX.LOAD')
            END
            /*
            //***UNLOAD FILE
            //SYSREC00 DD  DISP=(NEW,CATLG,DELETE),
            //             DSN=DEV.UNLOAD.FILE,
            //             UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
            //*
            //***TABLE STRUCTURE
            //SYSPUNCH DD  DUMMY
            //*
            //SYSTSPRT DD  SYSOUT=*
            //SYSPRINT DD  SYSOUT=*
            //SYSUDUMP DD  SYSOUT=*
            
2) Using IKJEFT01 utility for DB2 BIND
Sample JCL to DB2 BIND
//*  DB2 BIND JCL
            //*
            //BIND     EXEC PGM=IKJEFT01,
            //             COND=(4,LT),
            //             REGION=4096K
            //STEPLIB  DD  DISP=SHR,
            //             DSN=XXX4.DB2.XXXX.XXXXLOAD
            //DBRMLIB  DD  DISP=SHR,
            //             DSN=DEV.SURESH.DBRM(DB2PROG)    <---------------  (1)
            //SYSPRINT DD  SYSOUT=*
            //SYSTSPRT DD  SYSOUT=*
            //SYSUDUMP DD  SYSOUT=*
            //SYSTSIN  DD  *
            DSN SYSTEM (DEVDB )
            BIND  MEMBER    (DB2PROG) -
            PACKAGE   (PACKG11) -
            LIBRARY   ('DEV.SURESH.DBRM') -         <---------------- (2)
            ACTION    (REP) -
            ISOLATION (CS) -
            VALIDATE  (BIND)-
            RELEASE   (COMMIT) -
            OWNER     (SURESH) -
            QUALIFIER (DEVQUALI)
            END
            /*
            
(1) & (2) - specify the location of DBRM.


It is a part of cobol db2 compile jcl.. Refer below

***************************************





//DB2COMP (XXX,XXX),'COMPILE JCL',                            
//             CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID                      
//********************************************************************
//* COMPILATION, LINK EDIT AND THE BIND STEP FOR A COBOL DB2 PROGRAM *
//* WILL BE DONE BY SUBMITTING THIS JOB.                             *
//* THE DB2 REGIONS AND CORRESPONDING PARAMETERS NEEDS TO BE CHANGED *
//* WITH RESPECT TO THE PROGRAM                                      *
//********************************************************************
//*                 PRECOMPILE DB2 PROGRAM                           *
//*--------------  LOCATION OF DBRM LIBRARY -------------------------*
//********************************************************************
//PC       EXEC PGM=DSNHPC,                                           
//             PARM='HOST(COB2),APOST,SOURCE',                        
//             REGION=4096K                                           
//DBRMLIB  DD  DISP=SHR,                                              
//             DSN=DEV.SURESH.DBRM(DB2PROG)    <------------------------ (1)                    
//STEPLIB  DD  DISP=SHR,                                              
//             DSN=SYSX.DB2.XXX.XXXXX  
//********************************************************************  
//*SYSIN -----------INPUT COBOL DB2 PROGRAM LOCATION-----------------*  
//********************************************************************  
//SYSIN    DD  DISP=SHR,                                                
//             DSN=DEV.SURESH.SRC(DB2PROG)     <----------------------  (2)                      
//SYSCIN   DD  DISP=(MOD,PASS),                                         
//             DSN=&&TEMP,                                           
//             SPACE=(800,(500,500)),                                   
//             UNIT=SYSDA                                               
//********************************************************************  
//*                          DCLGEN MEMBER LOCATION                  *  
//*SYSLIB-----------------INPUT SOURCE LIBRARY FOR SQL---------------*  
//********************************************************************  
//SYSLIB   DD  DISP=SHR,                                                
//             DSN=DEV.SURESH.DCL               <---------------------- (3)                         
//         DD  DISP=SHR,                                               
//             DSN=DEV.SURESH.CPY                              
//SYSPRINT DD  SYSOUT=T                                                
//SYSTERM  DD  SYSOUT=T                                                
//SYSUDUMP DD  SYSOUT=*                                                
//SYSUT1   DD  SPACE=(800,(500,500),,,ROUND),                          
//             UNIT=SYSDA                                              
//SYSUT2   DD  SPACE=(800,(500,500),,,ROUND),                          
//             UNIT=SYSDA                                              
//*                                                                    
//******************************************************************** 
//*                         COMPILATION                              * 
//******************************************************************** 
//*                                                                    
//COB      EXEC PGM=IGYCRCTL,                                          
//             COND=(4,LT,PC),                                         
//             PARM=('SIZE(4000K),BUFSIZE(32760),LIST,LIB,MAP,OBJECT', 
//             'DATA(31),XREF,RENT'),                                  
//             REGION=4M
//STEPLIB  DD  DISP=SHR,                                               
//             DSN=XXXX.XXXXXX                                       
//SYSIN    DD  DISP=(OLD,DELETE),                                      
//             DSN=&&TEMP                                           
//SYSLIN   DD  DISP=(MOD,PASS),                                        
//             DSN=&&LOADTMP,                                          
//             SPACE=(800,(500,500)),                                  
//             UNIT=SYSDA                                              
//******************************************************************** 
//*--------------SOURCE LIBRARIES FOR COBOL DB2 CODE (COPY LIBRARIES)* 
//******************************************************************** 
//SYSLIB   DD  DISP=SHR,                                               
//             DSN=DEV.SURESH.DCL              <-----------------  (4)
//         DD  DSN=DEV.SURESH.CPY,DISP=SHR
//SYSPRINT DD  SYSOUT=*                                               
//SYSUDUMP DD  SYSOUT=*                                               
//SYSUT1   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT2   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT3   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT4   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT5   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT6   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//SYSUT7   DD  SPACE=(800,(500,500),,,ROUND),                         
//             UNIT=SYSDA                                             
//*                                                                   
//*                                                                     
//********************************************************************  
//*                         LINK EDIT                                *  
//********************************************************************  
//*                                                                     
//LKED     EXEC PGM=IEWL,                                               
//             COND=((4,LT,COB),(4,LT,PC)),                             
//             PARM='XREF'                                              
//SYSLIB   DD  DISP=SHR,                                                
//             DSN=SXXX.SXXXXXXX                                        
//         DD  DISP=SHR,                                                
//             DSN=XXXX.DB2.XXX.XXXXLOAD                               
//         DD  DISP=SHR,                                                
//             DSN=SYS1.VSCLLIB                                         
//SYSLIN   DD  DISP=(OLD,DELETE),                                       
//             DSN=&&LOADTMP                                           
//*        DD  DDNAME=SYSIN                                             
//********************************************************************  
//*----------------LOCATION OF LOAD LIBRARY--------------------------*  
//SYSLMOD  DD  DISP=SHR,                                                
//             DSN=DEV.SURESH.LOADLIB(DB2PROG)    <------------  (5)                   
//SYSPRINT DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSUT1   DD  SPACE=(1024,(50,50)),                                    
//             UNIT=SYSDA                                               
//*                                                                     
//********************************************************************  
//*               BIND - BIND THE DB2 PACKAGE                        *  
//********************************************************************  
//BIND     EXEC PGM=IKJEFT01,                                           
//             COND=(4,LT),                                             
//             REGION=4096K                                             
//STEPLIB  DD  DISP=SHR,                                                
//             DSN=XXX4.DB2.XXXX.XXXXLOAD                               
//DBRMLIB  DD  DISP=SHR,                                                
//             DSN=DEV.SURESH.DBRM(DB2PROG)    <---------------  (6)        
//SYSPRINT DD  SYSOUT=*                                                 
//SYSTSPRT DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSTSIN  DD  *                                                        
DSN SYSTEM (DEVDB )                                                       
BIND  MEMBER    (DB2PROG) -                                             
      PACKAGE   (PACKG11) -                                            
      LIBRARY   ('DEV.SURESH.DBRM') -         <---------------- (7)                        
      ACTION    (REP) -                                                 
      ISOLATION (CS) -                                                  
      VALIDATE  (BIND)-                                                 
      RELEASE   (COMMIT) -     
      OWNER     (SURESH) -                                             
      QUALIFIER (DEVQUALI)                                               
END                                                                     
/*                                                                      
**************************** Bottom of Data ****************************

(1)  -  When we precompiled, precompiler will create the DBRM, it will
        be placed in the pds specified here.
(2)  -  Location of COBOL-DB2 program
(3)  -  Needs to speficiy DCLGEN member locations
(4)  -  Needs to specify DCLGEN and COPYBOOK locations here
(5)  -  Load module location, load module will be created here. this 
        location needs to be given in run jcl.
(5) & (6) - specify the location of DBRM, ( same location used in step1 ).
 


***************************************









3) Using IKJEFT01 utility for executing cobol db2 program.
Sample JCL to execute IKJEFT01 utility to run COBOL DB2 program.
//** COBOL DB2 RUN JCL
            //STEP01 EXEC PGM=IKJEFT01,
            //         DYNAMNBR=20
            //*
            //STEPLIB  DD  DISP=SHR,
            //             DSN=SYSL.DB2.DEV.XXXXLOAD
            //         DD  DISP=SHR,
            //             DSN=SYSL.DB2.DEV.XXXXYYYY
            //*
            //SYSTSPRT DD  SYSOUT=*
            //SYSTSIN  DD  *
            DSN SYSTEM(DEVDB)
            RUN PROGRAM(DB2PROG)              -
            PLAN(PLAN11111)                      -
            LIBRARY('DEV.SURESH.LOADLIB')
            END
            /*
            //SYSOUT   DD  SYSOUT=*
            //SYSIN    DD  *
            //*
            //* COBOL DB2 RUN JCL ENDS

Eric_jiang 2012-07-23 10:28 发表评论

DB2: Sample BIND job

Eric_jiang — Mon, 23 Jul 2012 02:05:00 GMT

Sample BIND job is below.

//BIND EXEC PGM=IKJEFT01

//SYSTSPRT DD SYSOUT=*

//SYSPRINT DD SYSOUT=*

//SYSUDUMP DD SYSOUT=*

//SYSTSIN DD *

DSN SYSTEM(DB0T) RETRY(5)

BIND PACKAGE(MYCOLLID) -

OWNER(T9289ATD) -

QUALIFIER(T9289ATD) -

MEMBER(TESTPGM) -

LIBRARY('MY.DBRM.LIB') -

ACTION(REPLACE) -

EXPLAIN(YES) -

VALIDATE(BIND) -

ISOLATION(CS) -

FLAG(I) -

CURRENTDATA(NO) -

DEGREE(1) -

RELEASE(COMMIT) -

ENABLE(*) -

SQLERROR(NOPACKAGE)

//*

Eric_jiang 2012-07-23 10:05 发表评论

DB2-CICS Program Compilation and Run Process

Eric_jiang — Sun, 22 Jul 2012 12:53:00 GMT

1.Write a DB2/CICS program
2.Compile it using DB2/CICS compailer JCL
3.Use BIND JCL for binding process
4.Now Sign on to CICS Region.
5.Define and install the program.
6.Define and install the Transation.
7.Check whether there is any DB2 Connection. If not Create a connection using ceda def db2c(....)
8.Define and install the DB2 Entry using ceda def db2e(.......)
9.Define and install the DB2 Transation using ceda def db2t(.......)
10.now your setup is ready and you can run your program using the transation ID

Eric_jiang 2012-07-22 20:53 发表评论

银行业务知识视频

Eric_jiang — Sat, 21 Jul 2012 13:42:00 GMT

八．银行IT系统及银行业务知识
第1集第2集第3集第4集第5集第6集第7集第8集第9集第10集
附．银行综合业务系统
序第1集第2集第3集第4集第5集第6集第7集第8集第9集第10集

Eric_jiang 2012-07-21 21:42 发表评论

Mainframe Training Videos

Eric_jiang — Sat, 21 Jul 2012 12:04:00 GMT

http://www.mainframe-tricks-and-tips.in/search/label/Mainframe%20Training%20Videos

DB2 training videos

The below videos are hosted in youtube

DB2 10 Discussion

Cross Platform SQL Essentials

Cross Platform SQL: Complex Queries

DB2 Optimization, Performance and Tuning

Advanced Query Tuning with IBM Data Studio

Performance 101 part 1 of 3 - What can cause performance issues in DB2 for LUW

Performance 101 part 2 of 3 - How to find performance issues in DB2 for LUW

Performance101 part 3 of 3 - Why performance tuning in DB2 for LUW is necessary

The below videos are hosted in youtube

Big Iron: The Mainframe Story Part 1 of 5 - The 1960's

Big Iron: The Mainframe Story Part 2 of 5 - The 1970's

Big Iron: The Mainframe Story Part 3 of 5 -The 1980's and 1990's

BIg Iron: The Mainframe Story Part 4 of 5 - The 2000's

Big Iron: The Mainframe Story Part 5 of 5 - 2010 & Beyond

The below videos are hosted in youtube

File-aid video Part 1

File-aid video Part 2

Quickreference (QW) training videos

The below videos are hosted in youtube

QW Scenario 1 Lookup ABEND Code

QW Scenario 2 Lookup JCL Syntax

QW Scenario 3 Find DASD Free Space

QW Scenario 4 COBOL Perform Verb

QW Scenario 5 The ToolBox

COBOL interview questions

The below videos are hosted in youtube

COBOL INTERVIEW QUESTIONS

COBOL INTERVIEW QUESTIONS - 2

COBOL INTERVIEW QUESTIONS - 3

COBOL INTERVIEW QUESTIONS - 4

Endevor: QuickEdit Demo

Endevor QuickEdit Demo - Part 1

Endevor QuickEdit Demo - part 2

ISPF training vidoes

The below vidoes are hosted in youtube

ISPF settings

ISPF commands

Editor in ISPF (z/os, s390)

Insert line

Delete line

Moving and Copying Lines

command line commands

LINECOMMANDS

How to Execute CLIST

ISPF diagnostic utility TSO ISRDDN

Create and edit file in TSO

TSO listcat listalc profile

Submitting job in ISPF

BASIC SDSF COMMANDS

Create member in ISPF

ISPF Productivity Tool Overview Part 1

ISPF Productivity Tool Overview Part 2

.NET for COBOL Programmers: Lesson 6-4

.NET for COBOL Programmers: Lesson 6-5

.NET for COBOL Programmers: Lesson 6-6

.NET for COBOL Programmers: Lesson 6-7

.NET for COBOL Programmers: Lesson 6-8

.NET for COBOL Programmers: Lesson 6-9

.NET for COBOL Programmers{ Lesson 7-1

.NET for COBOL Programmers: Lesson 7-2

.NET for COBOL Programmers: Lesson 7-3

.NET for COBOL Programmers: Lesson 7-4

.NET for COBOL Programmers: Lesson 7-5

.NET for COBOL Programmers: Lesson 7-6

.NET for COBOL Programmers: Lesson 7-7

.NET for COBOL Programmers: Lesson 7-8

.NET for COBOL Programmers: Lesson 7-9

.NET for COBOL Programmers: Lesson 7-10

Compiling and Running COBOL Code in Net Express

Common Issues Associated with Misspecified PIC Clauses in COBOL

Different Data-item Levels in COBOL

IF structures demo with simple calculator program in COBOL

Sequential File Read in COBOL

Understanding Control-Break Logic

Cobol program execution

Basics of Running COBOL / JCL and Checking Output on IBM Mainframe

Learn about COBOL Numbers in Enterprise COBOL Programming

Learn about Logic for Validation and Error Reports in Enterprise COBOL Programming

Learn about Structured Walkthrough in Enterprise COBOL Programming

Eric_jiang 2012-07-21 20:04 发表评论

去除 PCOM 打印提示

Eric_jiang — Sat, 21 Jul 2012 10:51:00 GMT

在登录和使用 TSO 时会弹出烦人的打印窗口，可以通过下面设置去掉，用记事本打开上面保存的配置文件 zOS1.10.ws(不能双击打开)，在此文件最后加入以下内容： [LT] IgnoreWCCStartPrint=Y UndefinedCode=Y UndefinedDBCSChar=Y

Eric_jiang 2012-07-21 18:51 发表评论

How to transfer data from Mainframe to PC

Eric_jiang — Sat, 21 Jul 2012 10:21:00 GMT

FTP fandezhi.homedns.org
TSO userid
password
ascii <-- 文本文件
get \'OS390.DATASET.NAME\' pc.file.name
bin <-- 二进制文件
get \'OS390.DATASET.NAME\' pc.file.name
quit

Eric_jiang 2012-07-21 18:21 发表评论

SUBmitting a JOB on the mainframe and checking your Output using SDSF

Eric_jiang — Mon, 11 Jun 2012 06:15:00 GMT

' allowfullscreen='true' width='650' height='396' pluginspage='http://www.macromedia.com/go/getflashplayer'>

Eric_jiang 2012-06-11 14:15 发表评论

The Cobol SELECT statement and the need for Internal and External file referencing

Eric_jiang — Mon, 11 Jun 2012 06:09:00 GMT

' allowfullscreen='true' width='650' height='396' pluginspage='http://www.macromedia.com/go/getflashplayer'>

Eric_jiang 2012-06-11 14:09 发表评论

IMS and DB2 Presentation Download

Eric_jiang — Mon, 11 Jun 2012 06:01:00 GMT

摘要: To download a presentation, just click on the appropriate presentation title below : Date Presentation Title Presented By 26/04/2012 Why choose IMS/TM as your enterprise ... 阅读全文

Eric_jiang 2012-06-11 14:01 发表评论

Debugging and fixing a Cobol program, using the compile listing output from SDSF

Eric_jiang — Thu, 07 Jun 2012 07:58:00 GMT

' allowfullscreen='true' width='650' height='396' pluginspage='http://www.macromedia.com/go/getflashplayer'>

Eric_jiang 2012-06-07 15:58 发表评论

Transfer a dataset member to your Windows Desktop

Eric_jiang — Thu, 07 Jun 2012 07:51:00 GMT

' allowfullscreen='true' width='650' height='396' pluginspage='http://www.macromedia.com/go/getflashplayer'>

Eric_jiang 2012-06-07 15:51 发表评论

Basics of Running COBOL / JCL and Checking Output on IBM Mainframe

Eric_jiang — Thu, 24 May 2012 07:55:00 GMT

Eric_jiang 2012-05-24 15:55 发表评论