国产欧美日韩在线播放,欧美精品免费看,综合国产精品

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(**)

�q�就是需要查到的DSN

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

可以看到以下内容:

KDEB_INTERFACELIST=**, **即�ؓIP地址

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

如何调试Cobol�E�序

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数据集的�l�构

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

Data set structure

数据集的�l�构

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.

使用数据集需要我们理解数据集的物理和逻辑�l�构和Z/OS如果讉K��q�些数据集的信息.

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.

数据�?/div>

在Z/OS�?数据集是一个已命名的内容相��x��据记录的集合,�pȝ��通过�q�个名字保存和访问这些数据记�?数据集相当于其他操作�pȝ��里面的文�?数据集是存储在磁盘或者是��带里面�?

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)直接讉K��存储�?/div>

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

Space

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

��盘�I�间

��盘�I�间以柱�?��道,或者块为单位作分配.

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)格式,意味着每一个磁道包含一�p�d��的字�D?�q�些字段指明了磁道的开始位�|�和所用的�I�间,后面跟随着数据记录,数据记录内保存三个字�D?

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

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

.数据字段包含了用��L��实际数据

Count Key Data�Q�CKD�Q�是一�U�磁盘数据结构。每条物理磁盘记录包含一个count区，一个可选的key�Q�以及在一个记录内间隔后面的数据data记录。这个结构后面的原理��是�Q�即然数据记录的长度可能不同�Q�它们就需要有一个统计字�D�|��指示key和物理记录的长度。统计区有以柱面头记录格式记录的物理位置标识�Q�Key的长度，和数据记录的长度。Key要么没有�Q�要么是一串字�W�。大多数情况下是没有key的，记录��序排列�Q�或者以直接柱面头记录定位。如果有key,则它通常是数据记录前几个字节的拷贝，但它可以是用来找到这条记录的��M��数据。这个key(�q�有记录�Q�都是通过��g命��o来定位的。Count Key Data Achitecture是由IBM�?0世纪60�q�代创徏的，用来作�ؓSystem/360的磁盘驱动，也叫固定块架构（Fixed Block Achitecture�?/div>

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�?�U�记录格�?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.

�?/div>

数据记录��组成�ؓ数据�?是写入和��d��盘的单�?分块的方式��数据处理更加高效,因�ؓz/OS可以用一个块的单位来��d��记录,而不是一个一个记录单独来��d��.

块大��?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.

��盘�I�间分配对于数据集来说包�?primary)�W�一�ơ分配和二次(secondary)扩展,一个扩展分配了一定数量连�l�的��盘��道,柱面,或者块.��Z��块的��d��方式�?使用��盘扩展数据更加高效,应�ؓ��d��q�箋的磁道是比读写零��的数据快速很�?

Volume

�?/div>

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

��L��常被认�ؓ是磁�?/div>

Volume serial

卷名

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

是磁盘或者磁带的名字,6个字�W?例如test01

Device type

讑֤��c�d��

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

��盘讑֤�的型��h��者是�c�d��,例如3390

Organization

�l�织方式

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

处理数据的方�?例如��序讉K��

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

使用JCL建立��序文�g

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 发表评论

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�~�译�q�接生成�q�行模块�q�且�q�行cobol�E�序

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 发表评论

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 发表评论

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

Data set record formats

数据集记录根�?/div>

z/OS concepts
Z/OS的概�?/div>

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

传统意义上来��_��Z/OS的数据集的都是面向记录，�?�U�可能的格式�?/div>

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�pȝ��的上的字节流文�g�Q�Z/OS Unix有字节流文�g�Q�而这些字节流功能存在其他特定的功能区域，但是�q�些已经不是传统意义上的数据集了�Q�另当别论）

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中，没有新行�W�号�Q�NL�Q�或�?CR+LF) �{�字�W�作��录的�l�束标志。在一个给定的数据集，记录��L��固定长度的或者是可变长度的�?/div>

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

传统Z/OS有下�?中的记录格式�Q?/div>

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�Q�固定）

在磁盘的上一个物理块��是一个逻辑记录�Q�而且所有的块和记录都是同样大小的，�q�种格式是很��用的了�?/div>

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�Q�定�?分块�Q?/div>

�q�种格式意味着几个逻辑记录�l�合成�ؓ一个物理块�Q�这�U�格式能够提供高效的�I�间利用率和操作行，是一�U�经常被固定长度记录使用的格式�?/div>

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�Q�变长）

�q�种格式中，一个逻辑的记录作��Z��个物理块�Q�一个可变长度的逻辑记录包含一个记录描�q�符�Q�RDW�Q�，它放�|�在在数据的前面。这个记录描�q�符�?个字节，前两个字节描�q�C��逻辑记录的长度（长度也包含了RDW的长度在内）。长度范围可以是4字节�?2760个字节，�W�三和第四个字节必须�?�Q�因为其他值已�l�被跨越式的记录使用�Q�这�U�格式也是很��用的�?/div>

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�Q�变长，分块�Q?/div>

�q�种格式��多个可变长度的逻辑记录�Q�每一个都包含了RDW�Q�放在一个物理块里面。系�l�必��L��|�一个额外的块描�q�符�Q�BWD�Q�在块的开始部位，BDW它包含了�q�个块全部长度�?/div>

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�Q�未定义�Q?/div>

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

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.

我们�q�里需要强调一个块和一个记录的区别�Q�一个块是用于写入磁盘，而一个记录是一个逻辑实体�?/div>

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

�q�些技术词汇诏�I�了Z/OS技术文化里面中�Q�下面是关键的一些项目：

• 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)�Q�是指用于写入F或者FB格式的物理块的大��。而对于V�Q�VB和U格式的记录，BLKSIZE是数据集能够使用的最大物理块大小�?/div>

• 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.

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

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

记录格式�Q�RECFM�Q�F, FB, V, VB, or U�Q�上面已�l�讲�q�了

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.

�q�些��目��是我们知道的（DCB�Q�数据控制块�Q�被命名的DCB常用于汇�~�程序，当我们需要创建新的数据集的时候，我们�l�常需要指明这些项目的数倹{��数据集的类型和长度由它的记录格式（RECFM�Q�和逻辑记录长度�Q�LRECL�Q�来军_��的。固定长度的数据集有记录格式�Q�RECFM�Q�F, FB�{�等其他�Q�可变长度的数据集有记录格式�Q�RECFM�Q�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�q�行定义的数据集是一个固定长度的数据集，数据集的记录长度�?5个字节，B意味指分块的�Q�在一个FB格式的数据集中，LRECL��告诉了你这个数据集每个记录的长度，他们长度都是一��L��Q�如上面的记录�?/div>

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的数据集是一个可变长度的数据集，它最大的长度�?5个字节，在一个定义�ؓVB格式的数据集中，记录可以有不同的才长度，前面的四个字节是记录描述�Q�RDW�Q�，前面两个字节包含了记录的长度�Q�二�q�制表示�Q�，因此�Q�可变长度的记录的开始的数据位是5�Q�定义�ؓVB格式�Q�LRECL=25的数据集的一条记录会像下面这样保存�?/div>

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.

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

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

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

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

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

你可以start命��o再开一�?br />然后用F9切换
�?X删除

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

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

dataset�Q�数据集�Q�主��Z��最基本的存储单元，相当于fat文�g�pȝ��中的文�g。主要有四种数据集类型：��序数据�?PS)�Q�分区数据集(PDS)�Q�扩展分区数据集(PDSE)�Q�VSAM数据集以及UNIX文�g格式�?/p>

PS�Q�顺序数据集�Q�数据集的一�U�，它相当于一个文本文�Ӟ��但在物理存储上完全按照数据存入的先后��序存储的�?/p>

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

PDSE(Library)�Q�扩展分区数据集�Q�与分区数据集的区别是，PDSE的目录可�Ҏ��存储member的增加而扩大，member被删除后�Q�其占用的空间会被立即释放。主��Z��PDSE又称Library�?/p>

VSAM�Q�VSAM数据集（Virtual Storage Access Method)是在虚拟存储器和树型数据�l�构的基��上，��Z��满��数据量大、存��N��度快和�l�护方便的要求发展�v来的一�U�文件�Ş式�?/p>

HFS�Q�全�U�叫做Hierarchical file system�Q�层�ơ型文�g�pȝ��。在Z/OS上定义一个HFS数据集，�q�个HFS数据集就是一个完整的层次型文件系�l�。文件系�l�里所看到的所有数据其实都存储在这个数据集里。从外面来看�Q�这是一个普通的数据集，到这个数据集里面看，里面是与其他数据集不一��L��l�构�Q�它的内部是树�Ş�l�构。从根开始，有一些节点，�Q�节点上再连着节点。目录和文�g��挂在这些节点上�Q?00% UNIX风格。UNIX文�g�pȝ��是�q�样的结构。可以理解�ؓ�Q�HFS是在数据集里创徏了一个UNIX特别行政区，UNIX SERVICE可以在这个区域里�q�行UNIX方式的操作。值得注意的是�Q�支持HFS的数据集只能在DASD的卷上。HFS的数据集属性中的DSNTYPE�Q�数据集名属性）�?#8220;HFS”�?br />

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

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

修改ADCD.Z110.PARMLIB(PROGD9)�Q�添加以�?注D9�Ҏ��LOADPARM不同也不�?�Q?
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)
修改�q�运行ADB720.SADBSAMP(ADBBIND)

重新开�?

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

Mainframe中启动DB2与CICS指��o

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

Mainframe z/os1.9 虚拟��Z��Q�在�q�入�pȝ��之后�pȝ��不会自动启动CICS和DB2�Q�需要手动启动�?
��Z��验证一下是否启动，首先�q�入SDSF中，输入/D A,L命��o�Q�查看是否有DB2和CICS��，如果没有�Q�证明确实没有启动�?br />然后输入以下命��o�Q?br />
启动cics /s cicsa

停止cics /c cicsa

启动数据�?-db9g start db2

停止数据�?-db9g stop db2

然后再次输入/D A,L命��o�Q�这�Ӟ��出现了DB2与CICS条目�Q�说明启动成功�?/p>

�pȝ��关闭

��L��?/p>

s shutdown

$pjes2

setrrs shutdown

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

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

A load library contains programs ready to be executed.
一个加载库存里面包含着那些准备被调用的�E�序�?/p>

A load library can be any of the following:
加蝲库可以是下面几种�c�d��

System library �pȝ��?/li>
Private library �U�有�?/li>
Temporary library. 临时�?/li>

System library �pȝ��?/strong>

Unless a job or step specifies a private library, the system searches for a program in the system libraries when you code:
假如你没有在�~�码的时候指明一个私有库�Q?�pȝ��默认在系�l�库里面��L��q�个�E�序�q�行调用�?/span> //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.
�pȝ��会根据你提供的程序的名字或者是别名��L��所需要的�E�序�Q�而最常用的系�l�库是SYS1.LINKLIB,他包含了那些已经被连接和�~�译的程序�?br />

Private library �U�有�?/strong>

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:
每一个可执行�Q�用戯��q��写的�E�序都是�U�有库的一个成员，要告诉系�l�怎么调用�q�个�U�有库的�E�序�Q�可以��用DD语句�Q�方式有如下几种�Q?br />
With a DD statement with the ddname JOBLIB after the JOB statement, and before the first EXEC statement in the job.
在EXEC语句的之前，JOB语句之后�Q�用DD语句加上ddname 来编�?/li>
If the library is going to be used in only one step, with a DD statement with the ddname STEPLIB in the step.
假如�q�个库只在一个作业步中��用，那么可以使用在这个作业部上用 DD语句加上ddname STEPLI �q�行�~�码

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 或�?nbsp;STEPLIB�Q�那么系�l�就会优先搜索那些定义在JOBLIB或者STEPLIB的DD语句的库的同名程序进行调用，假如找不刎ͼ��pȝ��׃��在系�l�库里面��L��

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的之前的定义了一个私有库�Q�那么就可以用下面的�q�种方式调用之前定义了的库的�E�序�?br /> //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.
�U�有库在实际使用上是非常有用的，而系�l�库是很��被使用�Q�例如，用于季度销售税报告的程序就是一个很好的例子�?/p>

Temporary library 临时�?/strong>

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.

临时库是一个用于存储程序的分区数据集，�q�个数据集直到同名作业完成后被销毁，一个��时库是由一个作业来创徏或者被删除�?br />

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:

当我们在��试一个新�~�写的程序的时候，临时数据集十分有用，它用于存储来自于�q�接�~�辑器的加蝲模块直至被后面的作业步执行，因�ؓ�q�个模块在其他作业被��试完成时候就不需要了�Q�因此，它不应该被存为私有库或者是�pȝ��库，在下面的�?中吗�Q�LKED作业步就创徏了一个叫�?amp;&LOADMOD的��时库在名为SYSLMOD的DD语句中，在GO作业步中�Q�我们就引用了这个��时库�Q�代码如�?nbsp;
//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�pȝ��及银行业务知�?br />�W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?0�?/a>
附．银行�l�合业务�pȝ��
�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?�?/a> �W?0�?/a>

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

Big Iron: The Mainframe Story

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

File-aid training vidoes

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 COBOL training videos

Below vidoes are hosted in youtube

.NET for COBOL Programmers - Introduction

.NET for COBOL Programmers: Lesson 1-1

.NET for COBOL Programmers: Lesson 1-2

.NET for COBOL Programmers: Lesson 2-1

.NET for COBOL Programmers: Lesson 2-2

.NET for COBOL Programmers: Lesson 2-3

.NET for COBOL Programmers: Lesson 2-4

.NET for COBOL Programmers: Lesson 2-5

.NET for COBOL Programmers: Lesson 2-6

.NET for COBOL Programmers: Lesson 2-7

.NET for COBOL Programmers: Lesson 3-1

.NET for COBOL Programmers: Lesson 3-2

.NET for COBOL Programmers: Lesson 3-3

.NET for COBOL Programmers: Lesson 4-1

.NET for COBOL Programmers: Lesson 4-2

.NET for COBOL Programmers: Lesson 4-3

.NET for COBOL Programmers: Lesson 4-4

.NET for COBOL Programmers: Lesson 5-1

.NET for COBOL Programmers: Lesson 5-2

.NET for COBOL Programmers: Lesson 5-3

.NET for COBOL Programmers: Lesson 5-4

.NET for COBOL Programmers: Lesson 5-5

.NET for COBOL Programmers: Lesson 6-1

.NET for COBOL Programmers: Lesson 6-2

.NET for COBOL Programmers: Lesson 6-3

.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

COBOL training videos

Below videos are hosted in youtube.

Learn about Identification Division, Load Libraries & Documentation in Enterprise COBOL

Basics of COBOL PIC Clauses

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 时会弹出烦�h的打印窗口，可以通过下面讄��L��Q�用��C��本打开上面保存的配�|�文�?zOS1.10.ws(不能双击打开)�Q�在此文件最后加入以下内容： [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 <-- 文本文�g
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 发表评论