說明：本人寫這個(gè)課件資料，只是憑據(jù)自己多年工作經(jīng)驗(yàn)的一些體會，不具完整性，肯定也存在謬誤，但可具有實(shí)用性的參考價(jià)值！-

2011.10.31.SDSF

OUTPUT

ALL

CLASSESCOMMAND

INPUT

===>ALL

FORMSJOBNAME

JobID

OwnerPrty

CFormsDestTot-RecCICS21A JOB02580

TE021128

ASTDLOCAL2,220…XP99TSU02702XP9996ASTDLOCAL23,752XP99JOB03019XP98128ASTDLOCAL3,009BILLAJOB03190BILL128ASTDLOCAL2,108BILLJOB03191BILL128ASTDLOCAL3,988問-1：上面兩個(gè)XP99各表何意？上面BILLA、BILL又各表何意？注：USERID=XP99、XP98、BILLJOBNAMEXP99XP99JobID

OwnerTSU02702

XP99JOB03019

XP98JobID Owner

CJOBNAMEBILLABILLJOB03190

BILL

AJOB03191

BILL

ALOGONSUB//XP99

JOB可以嗎？USERID:

XP99USERID:

XP98SUB：//BILLA

JOBUSERID:

BILLSUB：//BILL

JOB如何實(shí)現(xiàn)？USERID:

BILLCC=0CC≠0問-2：JOB1

可否在自己的JCL流中不用SUB來提交JOB2？ 下列流程可以實(shí)現(xiàn)嗎？JOB1：XP99J1//STEP1

EXEC

PGM=P1//STEP2

EXECPGM=P2JOB2：XP99J2JES2的幾個(gè)要點(diǎn)啟動(dòng)程序（INIT）JES2

參數(shù)定義JES2

處理作業(yè)的幾個(gè)階段SPOOLJES2JES2是MVS執(zhí)行

批作業(yè)處理的子系統(tǒng)（前臺是TSO）.JES2模塊以HASP為前綴，JES2的所有信息與消息號也以$HASP為前綴。、JES2向系統(tǒng)操作員提供了一套命令系統(tǒng)，用于管理(調(diào)度)作業(yè)的運(yùn)行，JES2命令的前綴冠以“$”。JES2

的幾乎任何工作都離不開SPOOL，它是JES2

執(zhí)行批作業(yè)的緩存空間。JES2也離不開啟動(dòng)程序

(initiators)，INIT是啟動(dòng)JOB的執(zhí)行者（也是作業(yè)能否運(yùn)行的系統(tǒng)資源之一）。JES2的工作由WLM來控制.INIT

&

CLASS--- SDSF

PRIMARY

OPTION

---COMMAND

INPUT

===>

INITDAIOHSTActive

usersInput

queueOutput

queue

Held

output

queueStatus

of

jobsINIT

InitiatorsPR

PrintersPUN

PunchesRDR

ReadersLINE

LinesNODE

NodesSO Spool

offloadULOGUser

session

logLOG System

logMAS Members

in

the

MAJC Job

classesSE Scheduling

environmentsRES WLM

resources如何查看系統(tǒng)的啟動(dòng)程序？_

通過SDSF的“INIT”選項(xiàng)：END Exit

SDSFSDSF

INITIATOR

DISPLAYTESTMVSCOMMAND

INPUT

===>SCROLL

===>

CNPIDStatusClassesJobNameStepNameProcStepJobIDCASID1INACTIVEA422INACTIVEBA43444546474849505152INACTIVEINACTIVEINACTIVEINACTIVEINACTIVEDRAINEDINACTIVEINACTIVEINACTIVEINACTIVE 17

HALTERINACTIVEINACTIVEINACTIVE3INACTIVECBA4INACTIVEDCBA5INACTIVEDCBA6INACTIVEDCBADCBADCBAIIITAAAAAAAA5354555657585960??啟動(dòng)程序與CLASS的關(guān)系每個(gè)JOB

在提交時(shí)都要(在JCL中)給出一個(gè)CLASS參數(shù)，不同的CLASS決定了作業(yè)不同的優(yōu)先數(shù).JOB

的投入運(yùn)行是由CLASS所對應(yīng)的INIT來完成的.CLASS與啟動(dòng)程序的對應(yīng)關(guān)系是一對一，或一對多的.問1：在這個(gè)系統(tǒng)中，哪些個(gè)INIT為CLASS服務(wù)最多？問2：你認(rèn)為設(shè)定哪個(gè)CLASS會被INIT選中的概率最大？問3：設(shè)置INIT12的好處在哪里？為什么它的ASID

沒有？ID

StatusClassesJobname1ACTIVEAXP99J12INACTIVEAB…S11DRAINEDABCDS17…HALTERAINIT11、17被激活后狀態(tài)變?yōu)镮NACTIVE在JES2的參數(shù)庫(JES2PARM)中定義INIT，INIT的初始啟動(dòng)狀態(tài)有兩種：PARTNUM=20 /*

NUMBER

OF

INITIATORS &MAXPART

wnc*/NITDEF..INIT(8)INIT(9)/*

INITIALJOB

CLASSES/*

Start

Automatically/*

INITIATOR

NAMENAME=8,CLASS=A,START=NONAME=9,CLASS=AB,START=YES/*

Start

Automaticallywnc*/ownc*/wnc*/wnc*/ownc*/wnc*/..INIT共有四種狀態(tài)：ACTIVE

-正在服務(wù)INACTIVE

-空閑DRAINED

-

未啟動(dòng)HALTER

-

暫停(掛起)后兩種可通過“S”動(dòng)作，使之變?yōu)椤癐NACTIVE”狀態(tài)。INIT8在系統(tǒng)中的狀態(tài)顯示為:DRAINEDINIT9在系統(tǒng)中的狀態(tài)顯示為:INACTIVE$DI$HASP892

INIT(1)

218$HASP892INIT(1)STATUS=INACTIVE,CLASS=A,NAME=1,$HASP892ASID=002A$HASP892INIT(2)219$HASP892INIT(2)STATUS=INACTIVE,CLASS=BA,NAME=2,$HASP892ASID=002B$HASP892INIT(3)220$HASP892INIT(3)STATUS=INACTIVE,CLASS=CBA,NAME=3,$HASP892ASID=002C$HASP892INIT(4)221$HASP892INIT(4)STATUS=INACTIVE,CLASS=DCBA,NAME=4,$HASP892ASID=002D..$HASP892INIT(19)236$HASP892INIT(19)STATUS=INACTIVE,CLASS=A,NAME=19,$HASP892ASID=003B$HASP892INIT(20)237$HASP892INIT(20)STATUS=INACTIVE,CLASS=A,NAME=20,$HASP892ASID=003C如何查看啟動(dòng)程序？_通過JES2命令：$DI這個(gè)系統(tǒng)定義了20個(gè)啟動(dòng)程

序，這意味著（在資源滿足的條件下）最多可以有20個(gè)JOB同時(shí)運(yùn)行.案倒：提交下列作業(yè)，其中的CLASS=M是系統(tǒng)未定義的，如何修改它，使之執(zhí)行：//XP99J1

JOB

1,HXP,CLASS=M,MSGCLASS=H,//

MSGLEVEL=(1,1),NOTIFY=&SYSUID//S1

EXEC

PGM=IEBGENER,REGION=4M//SYSPRINT

DD

SYSOUT=*//SYSIN DD

DUMMY//SYSUT1

DD

*1111111111//SYSUT22222222222DD

SYSOUT=*用JES2命令/SDSF功能來修改INIT-CALSS的關(guān)系使用JES2

Command：方法①：修改JOB的ClassCOMMAND

INPUT

===>/$TJ6734,C=A方法②：修改INIT(10)對應(yīng)的Class假定該作業(yè)被INIT(10)選中，且INIT(10)對應(yīng)的CLASS=ACOMMAND

INPUT

===>/$TI10,C=M恢復(fù)命令：$TI10,C=A（恢復(fù)INIT(10)-CLASS=A）JOBNAME

JobID

OwnerXP99L JOB06735

XP99CA

（修改后M變?yōu)锳）INACIVEINACTIVEM

（修改后

CLASS=A

變?yōu)?M）ABCD$HASP892

INIT(10)

TATUS=INACTIVE,CLASS=A在SDSF中直接修改：方法①

直接將CLASS

A

改為

M方法②在INIT10

對應(yīng)之CLASS→ABCD的后面直接將加上MJOBNAMEXP99LJobIDJOB06734OwnerXP99CM

（由A變?yōu)镸）INACTIVEINACTIVECLASSESAMABCD提示：對INIT-CLASS

的修改不要隨心所欲，目的完成后應(yīng)恢復(fù)原狀！值得關(guān)注（也是容易犯錯(cuò)）的幾種現(xiàn)象：提交一個(gè)作業(yè)后，發(fā)現(xiàn)無任何動(dòng)靜，如：沒有運(yùn)行看不到結(jié)果處于等待狀態(tài)SDSF中找不到…等什么原因？如何排查、解決？系統(tǒng)中沒有定義CLASS=R進(jìn)入SDSF選擇‘I’

(輸入隊(duì)列)查看、修改

INIT

或

CLASS系統(tǒng)中沒有定義MSGCLASS=A修改JCL的這個(gè)參數(shù)，重新提交//XP99J

JOB

1,HXP,CLASS=R,MSGCLASS=A,//

MSGLEVEL=(0,0),TYPRUN=HOLD//S1

EXEC

PGM=IEFBR14MGCLEVEL=(0,0)在SDSF中是看不到任何結(jié)果信息的(在SYSLOG中檢查作業(yè)執(zhí)行否)作業(yè)提交后被掛起，進(jìn)入SDSF-I，該作業(yè)其它可能的情況：作業(yè)名不對(不是你的userid)INIT資源不夠與正在運(yùn)行的作業(yè)同名…等.JES2過程&

JES2PARMJES2啟動(dòng)：暖啟動(dòng)（不清SPOOL）S

JES2,WARM,NOREQS

JES2,COLD,NOREQ

冷啟動(dòng)（清SPOOL及SYSLOG）JES2過程存放在SYS1.PROCLIB中JES2初始化程序放在SYS1.LINKLIB中JES2參數(shù)存放在

SYS1.PARMLIB

(JES2PARM)中USER.PARMLIB(COMMNDUR)******************************************************COM=‘S

JES2,PARM=’WARM,NOREQ‘‘

（冷啟動(dòng)：COLD,NOREQ）COM='S

VLF,SUB=MSTR'COM='S

VTAM'COM='S

VTAMUR'COM='S

DLF,SUB=MSTR'COM='DD

ADD,VOL=DUMP02'COM='DD

NAME=DUMP.&JOBNAME..D&YYMMDD..T&HHMM..S&SEQ'COM='DD

ALLOC=ACTIVE'COM='S

EZAZSSI,P=P390'COM='SETPROG

LPA,ADD,MASK=*,DSNAME=WAS500.SBBOLPA'COM='SETPROG

LPA,ADD,MASK=*,DSNAME=WAS500.SBBOLOAD'JES2

暖啟動(dòng)ADCD.ZOSV1R5.PROCLIB(JES2)

_

JES2啟動(dòng)過程*****************************************************************//JES2PROCMEMBER=JES2PARM,ALTMEM=JES2ALT//IEFPROCEXECPGM=HASJES20,DPRTY=(15,15),TIME=1440,PERFORM=9//HASPPARMDDDSN=ADCD.ZOSV1R5.PARMLIB(&MEMBER),DISP=SHR//ALTPARMDDDSN=ADCD.ZOSV1R5.PARMLIB(&ALTMEM),DISP=SHR//PROC00DDDSN=USER.PROCLIB,DISP=SHR//DDDSN=ADCD.ZOSV1R5.PROCLIB,DISP=SHR//DDDSN=CEE.SCEEPROC,DISP=SHR//DDDSN=CSQ531.SCSQPROC,DISP=SHR//DDDSN=EUV.SEUVPRC,DISP=SHR//DDDSN=IOE.SIOEPROC,DISP=SHR//DDDSN=EOY.SEOYPROC,DISP=SHR//DDDSN=HLA.SASMSAM1,DISP=SHR//DDDSN=CBC.SCBCPRC,DISP=SHR////DDDDPRC,DISP=SHRDSN=SYS1.PROCLIB,DISP=SHR//HASPLISTDDDDNAME=IEFRDERJES2PARM是系統(tǒng)參教庫的成員名，內(nèi)含JES2的各種參數(shù)定義.JES2ALT是什么意思?KEPTKEPT$PJES2,TERMIEF196I

IEF285IIEF196I

IEF285IIEF196I

IEF285IIEF196I

IEF285I$HASP085

JES2

TERMINATION

COMPLETEIEF404I

JES2

-

ENDED

-

TIME=16.20.49KEPTKEPTIEF196IIEF196IIEF196IIEF285IIEF285IIEF285IIEF196I

IEF285ICPAC.PARMLIBVOL

SER

NOS=

AB1CAT.SYS1.PROCLIBVOL

SER

NOS=

AB1CAT.KEPTKEPT16:20:48.2916:20:49.6716:20:49.6716:20:49.6716:20:49.6716:20:49.6716:20:49.78..16:20:49.7816:20:49.7816:20:49.7816:20:49.78..16:20:49.7816:2:49.7816:2:49.7816:2:49.7816:2:49.78IEF196IIEF196IIEF196IIEF196IIEF285IIEF285IIEF285IIEF285IIEF196I

IEF285IVOL

SER

NOS=

AB1RS3.SYS1.HASPACEVOL

SER

NOS=

SPOLP1.SYS1.HASPACEVOL

SER

NOS=

SPOLP2.JES2關(guān)閉命令SYS1.HASPCKP1VOL

SER

NOS=

SPOLP1.SYS1.HASPCKP2VOL

SER

NOS=

SPOLP2.SYS1.PARMLIB(JES2PARM)/********************************************************************/CKPTDEF

CKPT1=(DSNAME=SYS1.HASPCKPT,onc*/VOLSER=OS39M1,INUSE=YES),/*

NAMEFOR

CKPT&DSNPRFX/*

SYS1.HASPCKPT

onc*//*onc*/CKPT2=(DSNAME=SYS1.HASPCKP2,/*

NAMEFOR

CKPT&DSNPRFXonc*/VOLSER=Z5RES2,INUSE=YES),DUPLEX=ON,/*

SYS1.HASPCKP2

ONC*//*/*

NO

DUPLEXING&CHKPT2onc*/nc*/..NITDEFPARTNUM=20/*NUMBER

OF

INITIATORSINIT(1)//*INITIATOR

NAMENAME=1,CLASS=A,START=YES/*

INITIAL

JOB

CLASSES/*

Start

Automatically&MAXPARTwnc*/*/wnc*/ownc*/wnc*/..INIT(20)

NAME=20,/*

INITIATOR

NAMEwnc*/CLASS=ABC,/*INITIAL

JOB

CLASSESownc*/START=YES/*Start

Automaticallywnc*/..所有JES2參數(shù)的定義都放在這個(gè)成員中定義SPOOL

CKPT名定義啟動(dòng)程序D

PARMLIB

（ADCD

z/OS

V1.5）IEE251I

23.46.32

PARMLIB

DISPLAY

558PARMLIB

DATA

SETS

SPECIFIEDAT

IPLDATA

SETUSER.PARMLIBADCD.ZOSV1R5.PARMLIBENTRY

FLAGS

VOLUMES

OS39M1S

Z5RES1S

Z5RES1SYS1.PARMLIBD

PARMLIB

（DEMOpkg

z/OS

V1.8）IEE251I

23.53.40

PARMLIB

DISPLAY

969PARMLIB

DATA

SETS

SPECIFIEDAT

IPLENTRY

FLAGS

VOLUMES

DMTP07S

DMTRESDATA

SETUSER.PARMLIBSYS1.PARMLIB注意：(JES2PARM)的有效參數(shù)按當(dāng)前有效的系統(tǒng)參數(shù)庫(*.PARMLIB）的存放順序來尋找！JES2

處理作業(yè)的幾個(gè)階段輸出-把作業(yè)送到輸出隊(duì)列(SYSOUT)打印

-

數(shù)據(jù)從輸出隊(duì)列送到

、硬拷貝等硬設(shè)備.刪除-作業(yè)結(jié)束后，一旦刪除，系統(tǒng)即回收所用的全部空間。輸入輸入-對全部輸入的作業(yè)(包括JCL、數(shù)據(jù)集等）進(jìn)行正確性校驗(yàn)，然后根據(jù)作業(yè)的Class與優(yōu)先數(shù)，排隊(duì)進(jìn)入轉(zhuǎn)換隊(duì)列。執(zhí)行-處理并產(chǎn)生輸出數(shù)據(jù)與提示信息等.轉(zhuǎn)換

-

把JCL轉(zhuǎn)換成可讀的

格式，并進(jìn)行有關(guān)的檢查，然后按優(yōu)先級進(jìn)行排隊(duì)，進(jìn)入執(zhí)行隊(duì)列。轉(zhuǎn)換執(zhí)行輸出打印清除SPOOL在各階段，提供了一系列的JES2命令--JES2

作業(yè)流程輸 轉(zhuǎn)

換

執(zhí)

行

輸

出入JES2

作業(yè)流程Stages

of

Job

Processing–

Input打

印

清

除////S1MSGLEVEL=(1,1),TYPRUN=HOLDEXEC

PGM=IEBGENER,REGION=2M//SYSPRINT

DD

SYSOUT=*//SYSIN DD

DUMMY//SYSUT1

DD

*1111111111//SYSUT22222222222DD

SYSOUT=*輸入

-

對全部輸入的作業(yè)（包括JCL、數(shù)據(jù)集等）進(jìn)行正確性校驗(yàn)，然后根據(jù)作業(yè)Class與優(yōu)先數(shù)，排隊(duì)進(jìn)入轉(zhuǎn)換隊(duì)列。//&SYSUID.J

JOB

1,HXP,CLASS=A,MSGCLASS=H,TSO

SUBMITOF

Batch

JOB作業(yè)進(jìn)入系統(tǒng)的幾種方法Net

WORKJOB

EntrySTARTTASK讀入器INTERNAL

READERSJES讀入器：Internal

reader讀入器是JES2的一項(xiàng)技術(shù)，是將JOB送入系統(tǒng)段.z/OS通過又是通過多個(gè)讀入器把輸入流傳給JES2，而JES2讀入器來同時(shí)接收多個(gè)JOB.z/OS對來自STC、START命令

及

TSO

Logon

的請求，先把JCL傳給了JES2，JES2在初始化處理期間分配

讀入器.系統(tǒng)程序員定義

讀入器去處理所有（除STCs和TSO請求之外）的批作業(yè).MASTER

SCHEDULER

JCL

FOR

THIS

IPL

TAKEN

FROM

MEMBER

MSTJCL00

OF

PARMLIB//MSTJCL00

JOB

MSGLEVEL=(1,1),TIME=1440// EXEC

PGM=IEEMB860,DPRTY=(15,15)//STCINRDR

DD

SYSOUT=(A,INTRDR)//TSOINRDR

DD

SYSOUT=(A,INTRDR)//IEFPDSI////SYSUADS//SYSLBCDD

DSN=ADCD.ZOSV1R5.PROCLIB,DISP=SHRDD

DSN=SYS1.PROCLIB,DISP=SHRDD

DSN=SYS1.UADS,DISP=SHRDD

DSN=SYS1.BRODCAST,DISP=SHR//IEFPARM

DD

DISP=SHR,UNIT=SYSALLDA,VOL=SER=OS39M1,//

DSN=USER.PARMLIB// DD

DISP=SHR,UNIT=SYSALLDA,VOL=SER=Z5RES1,//

DSN=ADCD.ZOSV1R5.PARMLIB// DD

DISP=SHR,UNIT=SYSALLDA,VOL=SER=Z5RES1,//

DSN=SYS1.PARMLIB//*

LOADxx

parmlibs

put

in

MSTRJCL

concatenationIEF403I

MSTJCL00

-

STARTED

-

TIME=20.51.43…在主調(diào)度的啟動(dòng)程序中，使用了

讀入器技術(shù)！(這兩條語句是完成什么工作的？)它可以通過批作業(yè)(或程序)

來產(chǎn)生其它的批作業(yè)，并將它們送入系統(tǒng)中運(yùn)行，如：通過一個(gè)SYSOUT數(shù)據(jù)集格式來生成一個(gè)作業(yè)，直接指向讀入器.（就是說JES2將SYSOUT數(shù)據(jù)集視為一個(gè)引入的作業(yè)讀入到SPOOL中）你也可以在一個(gè)（如匯編）源程序中將一個(gè)作業(yè)流寫到讀入器中.讀入器有一個(gè)特別的功能在XP99.J1中引出另一個(gè)作業(yè)XP99.J2，將其讀入SPOOL中，并執(zhí)行XP99.J2

(無須使用SUB命令)//XP99J1

JOB

1,HXP,

MSGCLASS=H,MSGLEVEL=(1,1),////S1CLASS=A,NOTIFY=&SYSUIDEXEC

PGM=IEBGENER//SYSUT1DD

DATA,DLM=##//SYSPRINT

DD//SYSIN

DDDUMMY//XP99J2

JOB

1,HXP,MSGCLASS=H,MSGLEVEL=(1,1),//

CLASS=A,NOTIFY=&SYSUID//S2

EXEC

PGM=IEFBR14##//SYSUT2

DDSYSOUT=(*,INTRDR)SYSOUT=*讀入器(INTRDR)使用案例-1：如果將XP99J2

改成XP99，結(jié)果顯示為:JOBNAMEXP99J1XP99JobIDJOB01290JOB01291OwnerXP99XP99Prty

C128

A128

AJOB：XP99J1EXEC：STEP2EXEC：STEP3EXEC：STEP1EXEC：STEP1EXEC：STEP2CC=0CC=0CC≠0CC≠0JOB：XP99J1JOB：XP99J2在一個(gè)JOB中（根據(jù)條件碼）僅可實(shí)現(xiàn)

STEP

之間的轉(zhuǎn)移：而利用

讀入器（INTRDR）則可實(shí)現(xiàn)

JOB

之間的轉(zhuǎn)移：XP99.JCL(ALOC)//XP99AJOB

..//STEP EXEC

..//DD

DD

..系統(tǒng)命令：S

SUBJOB,DSN=XP99.JCL,MEM=ALOC那么這個(gè)“SUBJOB”過程是如何編寫的呢？讀入器使用案例-2：使用START命令（在SDSF

/Console環(huán)境中）觸發(fā)INTRDR來讀入一個(gè)PO數(shù)據(jù)集中的成員(其內(nèi)必須是一個(gè)JCL作業(yè))，實(shí)現(xiàn)在

提交一個(gè)(JCL)JOB

執(zhí)行之！我不必登錄TSO，只要有個(gè)Console/SDSF環(huán)境.我也不必進(jìn)入某個(gè)JCL作業(yè)所在的數(shù)據(jù)集中.我

使用什么SUB命令.我只要使用一條START命令，啟動(dòng)一個(gè)過程就可以提交任何一個(gè)JCL作業(yè)?。ㄌ崾荆阂紤]運(yùn)行的安全問題）Ha

！Ha

！Ha

！//SUBJOB

PROC

CLASS=‘X’,LIST=X//*

S

SUBJOB,DSN=XP99.JCL,MEM=ALOC//IEFPROC EXEC

PGM=IEBEDIT//SYSPRINT

DD//SYSUT1//SYSUT2//SYSIN//IEFRDERSYSOUT=&LISTDD

DDNAME=IEFRDERDDDDDDSYSOUT=(&CLASS,INTRDR),DCB=BLKSIZE=80DUMMYDISP=SHR,DSN=&DSN.(&MEM.)這個(gè)過程書寫如下：由

讀入器讀入

XP99.JCL(ALOC)

中的作業(yè)，并執(zhí)行之！系統(tǒng)命令：S

SUBJOB,DSN=XP99.JCL,MEM=ALOC（On

System

Console

Or on

SDSF）XP99.JCL(ALOC)

://XP99A//STEP//DDJOB..EXEC

..

DD

DSN=..讀入器使用案例-3：由匯編程序?qū)⒁粋€(gè)/多個(gè)JCL作業(yè)交給INTRDR去執(zhí)行！讀入器INTERNAL

READERSJ1CL10CL80C‘JOB

JCL語句’OUTAREA0CL80CL80OUTDCBSUBJOB

START..MVC

OUTAREA,J1CL1PUT

OUTDCB,OUTAREA..DSDC..DSDCDCBDS

=PS,MACRF=PM,DDNAME=TEST,RECFM=FB,LRECL=80,BLKSIZE=80SUBJOBJESPGM=SUBJOBEND//XP99ASM

EXEC..//TEST

DD

SYSOUT=(A,INTRDR),DCB=BLKSIZE=80可以實(shí)現(xiàn)下列流程：一個(gè)匯編程序用PUT宏指令將JCL語句扔給讀入器去執(zhí)行！一個(gè)JOBJOB1..JOBn//XP99A

JOB..//XP99N

JOB..//XP99B

JOB....PUT自動(dòng)執(zhí)行:XP99A、XP99B..XP99NTSO終端TSO終端Console

/

SDSFJES讀入器應(yīng)用方法小結(jié)提交作業(yè)無需使用SUB命令讀入器從一個(gè)Utility_IEBGENER中(以數(shù)據(jù)形式)“扔一個(gè)JOB”給讀入器去執(zhí)行！通過IEBEDIT從任意一個(gè)數(shù)據(jù)集的(Member)中“抓出一個(gè)JCL作業(yè)”,“扔給”讀入器！通過匯編程序宏語句

(以數(shù)據(jù)形式)“扔一個(gè)/多個(gè)JOB”給讀入器！一個(gè)JCL

JOB一個(gè)JCL

JOB一個(gè)/多個(gè)JCL

JOBs提問：在JES2的運(yùn)行環(huán)境中，有哪三類任務(wù)在運(yùn)行？STC_Started

Task05173

15:06:18.00

STC00564

0000009005173

15:06:18.01

STC00565

00000290$HASP373

TSOIEF695I

START

SDSFSTARTEDWITHJOBNAME

SDSF IS

ASSIGNED

TO

USER

START2,

GROUP

SYS1$HASP373

SDSF

STARTEDIEF403I

TSO

-

STARTED

-IEF403I

SDSF

-

STARTED

-05173

15:06:18.01

STC00565

0000009005173

15:06:18.03

STC00564

00000281TIME=15.06.1805173

15:06:18.04

STC00565

00000281TIME=15.06.1805173

15:06:18.18

STC00566

00000290IEF695I

START

IRRDPTAB

WITHJOBNAME

IRRDPTAB

IS

ASSIGNED

TO

USER

START2,

GROUP

SYS105173

15:06:18.18

STC00566

00000090 $HASP373

IRRDPTAB

STARTED05173

15:06:18.19

STC00567

00000290 IEF695I

START

TCPIP

WITHJOBNAME

TCPIP ISASSIGNED

TO

USER

TCPIP,

GROUP

OMVSGRP05173

15:06:18.19

STC00567

00000090 $HASP373

TCPIP

STARTEDTSU_TSO

USER0517315:21:27.84TSU0057800000281$HASP100

IBMUSER ONTSOINRDR0517315:21:28.38TSU0057800000090$HASP373

IBMUSER

STARTED0517315:21:28.38TSU0057800000281IEF125I

IBMUSER

-

LOGGED

ON

-

TIME=15.21.280517315:22:52.85TSU0057900000281$HASP100

TE001 ONTSOINRDR0517315:22:53.01TSU0057900000090$HASP373

TE001

STARTED0517315:22:53.02TSU0057900000281IEF125I

TE001

-

LOGGED

ON

-

TIME=15.22.530517315:22:53.3500000281IEF196I

IEF237I

0A82

ALLOCATED

TO

SYS000080517315:23:30.21TSU0057900000281IEF126I

TE001

-

LOGGED

OFF

-

TIME=15.23.300517315:23:30.21TSU0057900000281$HASP395

TE001

ENDED0517315:23:30.24TSU0057900000281$HASP250

TE001

PURGED

--

(JOBKEY

WASIEA989I

SLIP

TRAP

ID=X33E

MATCHED.BD33874A)05173

15:23:35.25

00000281JOBNAME=*UNAVAIL,

ASID=001B.0517315:23:51.75TSU0058000000281$HASP100

SP001ONTSOINRDR0517315:23:51.91TSU0058000000090$HASP373

SP001STARTED0517315:23:51.92TSU0058000000281IEF125I

SP001

-LOGGED

ON

-

TIME=15.23.51JOB05174

01:36:14.39

JOB00597

00000281REASON=00000034

40 540

0000028105174

01:36:14.41

JOB00597

000000900517401:36:14.41JOB0059700000281$HASP395IBMUSERCENDED0517401:36:14.4200000281$HASP309INIT

1INACTIVE..0517401:42:07.23JOB0059800000281$HASP100IBMUSERCON

INTRDR0517401:42:07.25JOB0059800000290IRR010IUSERID

IBMUSER

ISIEF450I

IBMUSERC

STEP

-

ABEND=S013

U0000TIME=01.36.14IEF404I

IBMUSERC

-

ENDED

-

TIME=01.36.14********C=AW.B.ASSIGNED

TO

THISICH70001I

IBMUSER LAST

ACCESS

AT

01:36:14

ON$HASP373

IBMUSERC

STARTED-

INIT

1 -CLASSIEF403I

IBMUSERC

-

STARTED

-

TIME=01.42.07IEC030I

B37-04,IFG0554A,IBMUSERC,STEP,ACCDEV,JOB.05174

01:42:07.29

JOB00598

00000281THURSDAY,

JUNE

23,

200505174

01:42:07.29

JOB00598

00000090A

-

SYS

SYS10517401:42:07.30JOB00598000002810517401:42:09.04JOB00598000000900A96,WORK02,SYS1.LOGREC.TEMJESJOB

–

通過讀入器讀進(jìn)一個(gè)作業(yè).任務(wù)–通過START命令來啟動(dòng)這個(gè)Task.TSO用戶

–

通過Logon.INTERNAL

READERBatch

JOBSSTCINDERSTARTED

TASKINTERNAL

READERTSO

LOGONSJOB、TASK、TSO-UserBatch

Job

SpoolingAny

Job

ControlLanguage

（JCL）in

the

input

stream.Any

Job

EntryControl

Language（JECL）in

the

input

stream.Any

data

(SYSIN)in

the

input

stream.JESSPOOLINPUTJCLSYSINBatch

Job

Jobqueue

Entry例①：//.

JOB

CLASS=R（R在JES2中未定義）例②//.

JOB

CLASS=A,..//

TYPRUN=HOLD（A在JES2中定義了，但是處于HOLD

狀態(tài)）以上兩例進(jìn)入排隊(duì)(未執(zhí)行)隊(duì)列.JESSPOOLJCLSYSIN資源：JOBNAME

/

CLASS

/

PRTY

/

JOBNO.QUEUEUM=*,MODE=JES,QAFF=(ANY),QHELD=NO,SCHENV=,XEQCOUNT=(

UM=*,CURRENT=0),XEQMEMBER(MVST)=(CURRENT=0)JOB的選中，有兩種MODE

(JES

&

WLM

)，在(JES2PARM)中定義.JES模式：這是一種傳統(tǒng)的模式，作業(yè)（根據(jù)其申請的資源條件，如優(yōu)先數(shù)、CLASS等）一旦被選中，則進(jìn)入JES2的管理模式，JES2選擇對應(yīng)的INIT啟動(dòng)處理，系統(tǒng)會發(fā)出如下消息：$HASP373

XP99JOB STARTED

-

INIT

1

-

CLASS

A

–

SYS

SYS1$D

JOBCLASS(A)$HASP837

JOBCLASS(A)

969$HASP837

JOBCLASS(A)$HASP837$HASP837$HASP837$HASP837$HASP837$HASP837

JOBCLASS(B)

970MODE=WLM,QAFF=(ANY),QHELD=NO,SCHENV=,UM=*,$D

JOBCLASS(A)$HASP837

JOBCLASS(A)

604$HASP837

JOBCLASS(A)$HASP837$HASP837$HASP837$HASP837

XEQMEMBER(MVST)=($HASP837XEQCOUNT=(CURRENT=0),UM=*,CURRENT=0)WLM模式：如果作業(yè)對應(yīng)的JOBCLASS，定義是MODE=WLM，那么這個(gè)作業(yè)被選中后進(jìn)入由WLM控制的

，在WLM中事先制定了相關(guān)的策略，即根據(jù)作業(yè)申請的資源（如優(yōu)先數(shù)、CLASS、作業(yè)名等）會對應(yīng)一個(gè)

Service

Class，最終由WLM動(dòng)態(tài)控制的INIT來啟動(dòng)處理，系統(tǒng)會發(fā)出如下消息：$HASP373

XP99JOB

STARTED

–

WLM

INIT

-

SRVCLASSBATWLMME

-

SYS

SYS2注：該模式用于Sysplex系統(tǒng)（或某些有特殊需求的作業(yè)），但Sysplex系統(tǒng)也并非必須使用該模式（取決各系統(tǒng)之間對批作業(yè)的處理策略）.顯示系統(tǒng)定義的作業(yè)優(yōu)先數(shù)：$D

JOBPRTY$HASP832JOBPRTY（1）PRIORITY=9,TIME=2$HASP832JOBPRTY（2）PRIORITY=8,TIME=5$HASP832JOBPRTY（3）PRIORITY=7,TIME=15$HASP832JOBPRTY（4）PRIORITY=6,TIME=279620$HASP832JOBPRTY（5）PRIORITY=5,TIME=279620$HASP832JOBPRTY（6）PRIORITY=4,TIME=279620$HASP832JOBPRTY（7）PRIORITY=3,TIME=279620$HASP832JOBPRTY（8）PRIORITY=2,TIME=279620$HASP832JOBPRTY（9）PRIORITY=1,TIME=279620TSO

Logon

SpoolingTSOUSERADDRESSSPACEJESRACFDatabaseRACF對TSO用戶進(jìn)行

檢查!UIDPASSWORD*

LOGON

AME也可以不實(shí)施RACFStarted

Task

SpoolingSTARTEDTASKADDRESSSPACESPOOLJCLSYSINJESJCLJCLSYS1.PARMLIB(JES2PARM)/********************************/*

STC

DEFAULTS/*******************************************************************//*

JOBSTEP

TIME/*

REGION

SIZE*/*/STCCLASS

TIME=(0060,00),REGION=4M,../*******************************************************************//*

JOB

DEFAULTS/**********************************************/*

ACCT#NOT

REQ/*

PGMRNM

NOT

RQ/*

JOB

STEP

TIME/*

REGION

SIZE/*

VERIFY

CMDS/*

IGNORE

BLP/*

ALLOWALL

CMD/*

JOB,

AL

GS/*

DEFAULT

MESSAGE

CLASS

*/JOBCLASS(A)

ACCT=NO,PGMRNAME=NO,TIME=(0060,00),REGION=4M,COMMAND=VERIFY,BLP=NO,AUTH=ALL,MSGLEVEL=(1,1),MSGCLASS=H,../*******************************************************************//*

TSO

DEFAULTS

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

JOB

STEP

TIME/*

REGION

SIZE*/*/TSUCLASS

TIME=(1440,00),REGION=4M,..問：下面這個(gè)作業(yè)的JOB語句，參數(shù)全部缺省了，可以執(zhí)行嗎？答：可以執(zhí)行，缺省參數(shù)值在這里定義！STC、TSU、JOB三種CLASS的定義*///

JOB//S

EXECPGM=IEFBR14輸出打

印

清

除輸

入

轉(zhuǎn)

執(zhí)

行換JES2

作業(yè)流程Stages

of

Job

Processing–

ConversionJob

Conversion（轉(zhuǎn)換）SPOOLJCLSYSINJESPROCLIBPROCJCL轉(zhuǎn)換成

識別的格式（相當(dāng)高級語言的編譯，畢竟JCL也是一種語言！）轉(zhuǎn)換是在SPOOL中進(jìn)行的.例：//

JOB CLASS=A,..

TYPRUN=SCANSCAN：在轉(zhuǎn)換過程中進(jìn)行語法檢查.Job

Interpreter-JES2（翻譯）JES2ADDRESS

SPACEINITATORADDRESS

SPACEINTERPRETERMYJCLMYCONTROLBLOCKS翻譯程序?qū)⒏袷皆俎D(zhuǎn)為相應(yīng)的控制塊，放在INIT

AS

調(diào)度工作區(qū)，供啟動(dòng)程序使用.輸

入 轉(zhuǎn)

換

執(zhí)

輸

出

打

印

清

除行JES2

作業(yè)流程Stages

of

Job

Processing–

Execution//XP99J

JOB

1,HXP,CLASS=A,MSGCLASS=H,//////S1MSGLEVEL=(1,1),NOTIFY=&SYSUID,PRTY=（通常缺?。〦XEC

PGM=IEBGENER,REGION=2M//SYSPRINT

DD

SYSOUT=*//SYSIN DD

DUMMY//SYSUT1

DD

*1111111111//SYSUT22222222222DD

SYSOUT=*Execution

phase一個(gè)作業(yè)的執(zhí)行，JES要考慮:

Job

ClassJob

Priority當(dāng)這個(gè)作業(yè)執(zhí)行完畢后、

JES從就緒隊(duì)列中選擇下一個(gè)等待執(zhí)行的作業(yè)，也是按此原則進(jìn)行的。作業(yè)執(zhí)行完畢后要查看返回碼:STEP

WAS

EXECUTED

–

COND

CODEIBM

Utility

通常正常/

結(jié)束代碼是：0000

/0004

、0008、0016-查看作業(yè)結(jié)果可以有兩種選擇：①

SDSF

②

ISPF3.8MODE=JES,QAFF=（ANY）,QHELD=NO,SCHENV=,

XEQCOUNT=（UM=*,

CURRENT=0）,XEQMEMBER（MVST）=（

UM=*,CURRENT=0）MODE=JES,QAFF=（ANY）,QHELD=NO,SCHENV=,

XEQCOUNT=（UM=*,

CURRENT=0）,XEQMEMBER（MVST）=（

UM=*,CURRENT=0）顯示系統(tǒng)定義的

JOBCLASS：$D

JOBCLASS（*）$HASP837

JOBCLASS(A）512$HASP837

JOBCLASS(A）$HASP837$HASP837$HASP837$HASP837$HASP837$HASP837

JOBCLASS(B）513$HASP837

JOBCLASS(B）$HASP837$HASP837$HASP837$HASP837$HASP837…$HASP837

JOBCLASS(Q)

750$HASP837

JOBCLASS(Q)$HASP837$HASP837$HASP837$HASP837MODE=JES,QAFF=(ANY),QHELD=NO,SCHENV=,XEQCOUNT=(

UM=*,CURRENT=0),XEQMEMBER(MVST)=(UM=*,JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID//XP99J1//STEP1

EXEC//STEPLIB

DD//SYSPRINT

DDPGM=TESTDSN=XP99.LOAD,DISP=SHRSYSOUT=*JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID//XP99J2//STEP1

EXEC//STEPLIB

DD//SYSPRINT

DDPGM=TESTDSN=XP99.LOAD,DISP=SHRSYSOUT=*JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID//XP99J3//STEP1

EXEC//STEPLIB

DD//SYSPRINT

DDPGM=TESTDSN=XP99.LOAD,DISP=SHRSYSOUT=*JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID//XP99J4//STEP1//STEPLIBEXEC

PGM=TESTDD

DSN=XP99.LOAD,DISP=SHR//SYSPRINT

DD

SYSOUT=*JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID//XP99J5//STEP1

EXEC//STEPLIB

DD//SYSPRINT

DDPGM=TESTDSN=XP99.LOAD,DISP=SHRSYSOUT=*案例：以下是5個(gè)程序相同的作業(yè)，同時(shí)提交這5個(gè)作業(yè)!===>SUB

Scroll

===>

CSR*******************************

Top

of

Data

******************************//XP99J1JOB..//XP99J2JOB..//XP99J3JOB..//XP99J4JOB..//XP99J5JOB..IKJ56250IJOBXP99J1(JOB00173)SUBMITTEDIKJ56250IJOBXP99J2(JOB00174)SUBMITTEDIKJ56250IJOBXP99J3(JOB00175)SUBMITTEDIKJ56250IJOBXP99J4(JOB00176)SUBMITTEDIKJ56250IJOBXP99J5(JOB00177)SUBMITTED***10.56.17JOB00173$HASP165XP99J1ENDEDATTSTMVS01MAXCC=0CN(INTERNAL)10.56.18JOB00175$HASP165XP99J3ENDEDATTSTMVS01MAXCC=0CN(INTERNAL)10.56.18JOB00174$HASP165XP99J2ENDEDATTSTMVS01MAXCC=0CN(INTERNAL)10.56.18JOB00177$HASP165XP99J5ENDEDATTSTMVS01MAXCC=0CN(INTERNAL)10.56.18***JOB00176$HASP165XP99J4ENDEDATTSTMVS01MAXCC=0CN(INTERNAL)這五個(gè)作業(yè)被并行提交，并產(chǎn)生結(jié)束的返回代碼！SDSF

HELD

OUTPUT

DISPLAY

ALL

CLASSESJobID

Owner Prty

C

ODisp

DestTot-Rec383838383838383838383838XP99J2JOB00179XP99144HHOLD

LOCAL38XP99J3JOB00180XP99144HHOLD

LOCAL38XP99J1JOB00178XP99144HHOLD

LOCAL38JOB00169JOB00168XP99XP99144144HHHOLDHOLDLOCALLOCALJOB00172XP99144HHOLDLOCAL思考：1)這五個(gè)作業(yè)連續(xù)提交了三次，為什么每次結(jié)果的排序都不一樣？

2)這五個(gè)作業(yè)是以怎樣的次序進(jìn)入JES2

的？NP

JOBNAMEXP99J2XP99J1XP99J5XP99J4XP99J3JOB00171JOB00170XP99XP99144144HHHOLDHOLDLOCALLOCALXP99J1JOB00173XP99144HHOLDLOCALXP99J5JOB00177XP99144HHOLDLOCALXP99J4JOB00176XP99144HHOLDLOCALXP99J3JOB00175XP99144HHOLDLOCALXP99J2JOB00174XP99144HHOLDLOCALXP99J5JOB00182XP99144HHOLDLOCALXP99J4JOB00181XP99144HHOLD

LOCAL215431543254231JOB

在執(zhí)行處理時(shí)JES2

提供了三種計(jì)時(shí)：ELAPSED

TIMETCB

CPU

TIMESRB

TIME通俗地講，ELAPSED TIME

是指一個(gè)作業(yè)從開始執(zhí)行→結(jié)束的整個(gè)（運(yùn)行）時(shí)間，其中含等待（資源、應(yīng)答）的時(shí)間。而TCB

CPU TIME

是作業(yè)在執(zhí)行時(shí)真正耗用主機(jī)CPU的時(shí)間。SRB TIME則是系統(tǒng)在為一個(gè)作業(yè)處理時(shí)所完成的一系列服務(wù)而耗用CPU的時(shí)間。問：你認(rèn)為在向用戶收取作業(yè)的計(jì)時(shí)費(fèi)時(shí)，選取上述哪些指標(biāo)比較合理？03.24.01JOB02671-

MONDAY,J

E

S

2 J

O

B L

O

G

-- S

Y

S

T

E

M S

P

221

JUN

2004

-IRR010I USERID

PRD1CICS

IS

ASSIGNED

TO

THISJOB.ICH70001I

PRD1CICS

LAST

ACCESS

AT

03:23:44

ON

MONDAY,

JUNE

21,HASP373

BATN124 STARTED

-

INIT

1 -

CLASS

A

-

SYSSP2IEF403I

BATN124

-

STARTED

-

TIME=03.24.01IEF404I

BATN124

-

ENDED

-

TIME=04.25.2803.24.01

JOB0267103.24.01

JOB02671200403.24.01

JOB0267103.24.01

JOB02671..04.25.28

JOB0267104.25.28

JOB02671-BATN124

ENDED.

TOTAL

TCB

CPUTIME=

19.9504.25.28

JOB02671 HASP395

BATN124NAME-TOTAL

ELAPSED

TIME=

61.4ENDED-

JES2

JOB

STATISTICS

-61.45

MINUTES

EXECUTION

TIME1

//BATN124

JOB

DEV,MSGLEVEL=(1,1),REGION=0MJCLLIB

ORDER=PRD.ABISBAT.PROCLIBEXEC

CDB0404//UPLIB//CMD..IEF376IJOB/BATN124

/STOP2004173.0425

CPU19MIN

57.34SECSRB 0MIN

01.13SEC輸

入 轉(zhuǎn)

換

執(zhí)

行

輸

打

印

清

除出JES2

作業(yè)流程Stages

of

Job

Processing–

OutputSYSIN

Data

ProcessingINITMYSPOOLJCLSYSINJESSYSIN如果JCL是從SYSIN中

數(shù)據(jù)，那么就是從SPOOL中

.SYSOUT

Data

ProcessingINITMYSPOOLJCLSYSINJESSYSOUT注意：數(shù)據(jù)是送到SPOOL中，而非設(shè)備.SYSOUT//XP99J

JOB

1,HXP,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1)//S1 EXEC

PGM=IEBGENER,REGION=2M//SYSPRINT

DD

SYSOUT=*//SYSIN DD

DUMMY//SYSUT1

DD

*1111111111//SYSUT22222222222DD

SYSOUT=*這個(gè)SYSOUT

表示何意？問：如何將數(shù)據(jù)直接送到O

隊(duì)列？如何將數(shù)據(jù)先接送到H隊(duì)列，然后再轉(zhuǎn)送到O（打印輸出）隊(duì)列？這個(gè)SYSOUT又表示何意？顯示系統(tǒng)定義的作業(yè)輸出優(yōu)先數(shù)：$D

OUTPRTY$HASP848$HASP848$HASP848$HASP848OUTPRTY(1)OUTPRTY(2)OUTPRTY(3)OUTPRTY(4)PRIORITY=144,RECORD=2000,PAGE=50PRIORITY=128,RECORD=5000,PAGE=100PRIORITY=112,RECORD=15000,PAGE=300PRIORITY=96,RECORD=16777215,$HASP848PAGE=16777215$HASP848OUTPRTY(5)PRIORITY=80,RECORD=16777215,$HASP848PAGE=16777215$HASP848OUTPRTY(6)PRIORITY=64,RECORD=16777215,$HASP848PAGE=16777215$HASP848OUTPRTY(7)PRIORITY=48,RECORD=16777215,$HASP848PAGE=16777215$HASP848OUTPRTY(8)PRIORITY=32,RECORD=16777215,$HASP848PAGE=167772