2012黃老師課件-zos實用技術(shù)04jes2技術(shù)要點_第1頁
2012黃老師課件-zos實用技術(shù)04jes2技術(shù)要點_第2頁
2012黃老師課件-zos實用技術(shù)04jes2技術(shù)要點_第3頁
2012黃老師課件-zos實用技術(shù)04jes2技術(shù)要點_第4頁
2012黃老師課件-zos實用技術(shù)04jes2技術(shù)要點_第5頁
免費預(yù)覽已結(jié)束,剩余127頁可下載查看

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

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

2011.10.31.SDSF

OUTPUT

ALL

CLASSESCOMMAND

INPUT

===>ALL

FORMSJOBNAME

JobID

OwnerPrty

CFormsDestTot-RecCICS21A JOB02580

TE021128

ASTDLOCAL2,220…XP99TSU02702XP9996ASTDLOCAL23,752XP99JOB03019XP98128ASTDLOCAL3,009BILLAJOB03190BILL128ASTDLOCAL2,108BILLJOB03191BILL128ASTDLOCAL3,988問-1:上面兩個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如何實現(xiàn)?USERID:

BILLCC=0CC≠0問-2:JOB1

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

EXEC

PGM=P1//STEP2

EXECPGM=P2JOB2:XP99J2JES2的幾個要點啟動程序(INIT)JES2

參數(shù)定義JES2

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

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

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

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

(initiators),INIT是啟動JOB的執(zhí)行者(也是作業(yè)能否運行的系統(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)的啟動程序?_

通過SDSF的“INIT”選項:END Exit

SDSFSDSF

INITIATOR

DISPLAYTESTMVSCOMMAND

INPUT

===>SCROLL

===>

CNPIDStatusClassesJobNameStepNameProcStepJobIDCASID1INACTIVEA422INACTIVEBA43444546474849505152INACTIVEINACTIVEINACTIVEINACTIVEINACTIVEDRAINEDINACTIVEINACTIVEINACTIVEINACTIVE 17

HALTERINACTIVEINACTIVEINACTIVE3INACTIVECBA4INACTIVEDCBA5INACTIVEDCBA6INACTIVEDCBADCBADCBAIIITAAAAAAAA5354555657585960??啟動程序與CLASS的關(guān)系每個JOB

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

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

沒有?ID

StatusClassesJobname1ACTIVEAXP99J12INACTIVEAB…S11DRAINEDABCDS17…HALTERAINIT11、17被激活后狀態(tài)變?yōu)镮NACTIVE在JES2的參數(shù)庫(JES2PARM)中定義INIT,INIT的初始啟動狀態(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

-

未啟動HALTER

-

暫停(掛起)后兩種可通過“S”動作,使之變?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如何查看啟動程序?_通過JES2命令:$DI這個系統(tǒng)定義了20個啟動程

序,這意味著(在資源滿足的條件下)最多可以有20個JOB同時運行.案倒:提交下列作業(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)注(也是容易犯錯)的幾種現(xiàn)象:提交一個作業(yè)后,發(fā)現(xiàn)無任何動靜,如:沒有運行看不到結(jié)果處于等待狀態(tài)SDSF中找不到…等什么原因?如何排查、解決?系統(tǒng)中沒有定義CLASS=R進入SDSF選擇‘I’

(輸入隊列)查看、修改

INIT

CLASS系統(tǒng)中沒有定義MSGCLASS=A修改JCL的這個參數(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è)提交后被掛起,進入SDSF-I,該作業(yè)其它可能的情況:作業(yè)名不對(不是你的userid)INIT資源不夠與正在運行的作業(yè)同名…等.JES2過程&

JES2PARMJES2啟動:暖啟動(不清SPOOL)S

JES2,WARM,NOREQS

JES2,COLD,NOREQ

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

SYS1.PARMLIB

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

JES2,PARM=’WARM,NOREQ‘‘

(冷啟動: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

暖啟動ADCD.ZOSV1R5.PROCLIB(JES2)

_

JES2啟動過程*****************************************************************//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ù)的定義都放在這個成員中定義SPOOL

CKPT名定義啟動程序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ù)按當前有效的系統(tǒng)參數(shù)庫(*.PARMLIB)的存放順序來尋找!JES2

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

-

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

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

-

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

格式,并進行有關(guān)的檢查,然后按優(yōu)先級進行排隊,進入執(zhí)行隊列。轉(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ù)作業(yè)Class與優(yōu)先數(shù),排隊進入轉(zhuǎn)換隊列。//&SYSUID.J

JOB

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

SUBMITOF

Batch

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

WORKJOB

EntrySTARTTASK讀入器INTERNAL

READERSJES讀入器:Internal

reader讀入器是JES2的一項技術(shù),是將JOB送入系統(tǒng)段.z/OS通過又是通過多個讀入器把輸入流傳給JES2,而JES2讀入器來同時接收多個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)度的啟動程序中,使用了

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

來產(chǎn)生其它的批作業(yè),并將它們送入系統(tǒng)中運行,如:通過一個SYSOUT數(shù)據(jù)集格式來生成一個作業(yè),直接指向讀入器.(就是說JES2將SYSOUT數(shù)據(jù)集視為一個引入的作業(yè)讀入到SPOOL中)你也可以在一個(如匯編)源程序中將一個作業(yè)流寫到讀入器中.讀入器有一個特別的功能在XP99.J1中引出另一個作業(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在一個JOB中(根據(jù)條件碼)僅可實現(xiàn)

STEP

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

讀入器(INTRDR)則可實現(xiàn)

JOB

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

..//STEP EXEC

..//DD

DD

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

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

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

提交一個(JCL)JOB

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

使用什么SUB命令.我只要使用一條START命令,啟動一個過程就可以提交任何一個JCL作業(yè)?。ㄌ崾荆阂紤]運行的安全問題)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.)這個過程書寫如下:由

讀入器讀入

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ū)⒁粋€/多個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可以實現(xiàn)下列流程:一個匯編程序用PUT宏指令將JCL語句扔給讀入器去執(zhí)行!一個JOBJOB1..JOBn//XP99A

JOB..//XP99N

JOB..//XP99B

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

/

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

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

JOB一個JCL

JOB一個/多個JCL

JOBs提問:在JES2的運行環(huán)境中,有哪三類任務(wù)在運行?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

通過讀入器讀進一個作業(yè).任務(wù)–通過START命令來啟動這個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))以上兩例進入排隊(未執(zhí)行)隊列.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等)一旦被選中,則進入JES2的管理模式,JES2選擇對應(yīng)的INIT啟動處理,系統(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,那么這個作業(yè)被選中后進入由WLM控制的

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

Service

Class,最終由WLM動態(tài)控制的INIT來啟動處理,系統(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用戶進行

檢查!UIDPASSWORD*

LOGON

AME也可以不實施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,..問:下面這個作業(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)換成

識別的格式(相當高級語言的編譯,畢竟JCL也是一種語言!)轉(zhuǎn)換是在SPOOL中進行的.例://

JOB CLASS=A,..

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

Interpreter-JES2(翻譯)JES2ADDRESS

SPACEINITATORADDRESS

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

AS

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

入 轉(zhuǎn)

執(zhí)

除行JES2

作業(yè)流程Stages

of

Job

Processing–

Execution//XP99J

JOB

1,HXP,CLASS=A,MSGCLASS=H,//////S1MSGLEVEL=(1,1),NOTIFY=&SYSUID,PRTY=(通常缺省)EXEC

PGM=IEBGENER,REGION=2M//SYSPRINT

DD

SYSOUT=*//SYSIN DD

DUMMY//SYSUT1

DD

*1111111111//SYSUT22222222222DD

SYSOUT=*Execution

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

Job

ClassJob

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

JES從就緒隊列中選擇下一個等待執(zhí)行的作業(yè),也是按此原則進行的。作業(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個程序相同的作業(yè),同時提交這5個作業(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)這五個作業(yè)被并行提交,并產(chǎn)生結(jié)束的返回代碼!SDSF

HELD

OUTPUT

DISPLAY

ALL

CLASSESJobID

Owner Prty

C

ODisp

DestTot-Rec383838383838383838383838XP99J2JOB00179XP99144HHOLD

LOCAL38XP99J3JOB00180XP99144HHOLD

LOCAL38XP99J1JOB00178XP99144HHOLD

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

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

的?NP

JOBNAMEXP99J2XP99J1XP99J5XP99J4XP99J3JOB00171JOB00170XP99XP99144144HHHOLDHOLDLOCALLOCALXP99J1JOB00173XP99144HHOLDLOCALXP99J5JOB00177XP99144HHOLDLOCALXP99J4JOB00176XP99144HHOLDLOCALXP99J3JOB00175XP99144HHOLDLOCALXP99J2JOB00174XP99144HHOLDLOCALXP99J5JOB00182XP99144HHOLDLOCALXP99J4JOB00181XP99144HHOLD

LOCAL215431543254231JOB

在執(zhí)行處理時JES2

提供了三種計時:ELAPSED

TIMETCB

CPU

TIMESRB

TIME通俗地講,ELAPSED TIME

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

CPU TIME

是作業(yè)在執(zhí)行時真正耗用主機CPU的時間。SRB TIME則是系統(tǒng)在為一個作業(yè)處理時所完成的一系列服務(wù)而耗用CPU的時間。問:你認為在向用戶收取作業(yè)的計時費時,選取上述哪些指標比較合理?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=*這個SYSOUT

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

隊列?如何將數(shù)據(jù)先接送到H隊列,然后再轉(zhuǎn)送到O(打印輸出)隊列?這個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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論