ADRUIXIT
- From: vs.errol@xxxxxxxxxxxx (Errol Van staden)
- Date: 31 May 2007 04:54:49 -0700
Hi List. has anyone recently written an ADRUIXIT exit to set the default tape
blocksize to 32760 for ADRDSSU (instead of 65520). My assembler is a bit rusty
but I think it would look this
ADRUIXIT CSECT
ADRUIXIT AMODE 31
ADRUIXIT RMODE 24
STM 14,12,12(13) Save registers
USING ADRUIXIT,15 Addressability to ADRUIXIT
USING ADRUFOB,1 Addressability to ADRUFO
SR 2,2 Zero register 2
CH 2,UFFUNCT Check entry type
BNE FUNCENT Branch to function entry
SR 3,3 Parm change entry, save RC 0
B FINISH Finished
FUNCENT LH 2,UFBDYOFF Get offset to UFOFUNCT
AR 2,1 Calculate address of UFOFUNCT
USING UFOFUNCT,2 Addressability to UFOFUNCT
OI UFOINSOP,UFOBK32K Turn on UFOBK32K (allow 32k tape BKSZ) bit
LA 3,2 Save return code 2
DROP 1 Done using 1 for ADRUFO
DROP 2 Done using 2 for UFOFUNCT
DROP 15 Done using 15 for ADRUIXIT
FINISH LR 15,3 Set return code
L 14,12(,13) Restore register 14
LM 0,12,20(13) Restore registers 0 thru 12
BR 14 Return
ADRUFO Include ADRUFO control block
END
I am not sure if this will only allow 32k if specidied in the JCL or if it will also
allow ADRDSSU called by HSM to default to 32k
Can anyone give me some advice??
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.
- Prev by Date: Re: SETPROG LNKLST--problem or procedural error?
- Next by Date: Re: Is WaveMind spamming entire IBM-MAIN readership?
- Previous by thread: fopen get errno=25
- Next by thread: ADRUIXIT
- Index(es):
Relevant Pages
|
|
