Writing to a PDS
Hunley, Ike
The following code works fine in TSO background, but fails in Batch. I've
used IXRJCL and IKJEFT01. All I want to do is build JCL and control card
members in a PDS...
I've also tried writing to flat(non-PDS) files and that works fine in TSO
background and Batch..
/* rexx */
/* trace ?I */
"ALLOC DA('O8X.DRS.PR.PDRS7A70.REPORT') F(GG) SHR REUSE"
CTL = 'O8X.DRS.PR.CONTROL.CARD1'
JCL = 'O8X.DRS.PR.JCLLIB'
"FREE fi(outrr)"
"FREE fi(outss)"
"FREE fi(outtt)"
"FREE fi(outyy)"
"delete 'o8x.bgdg'"
"delete 'o8x.bsub'"
startjob = 7800
endjob = 7850
job1 = 'Prod DR backup JOB'
job2 = 'Dummy br14 JOB'
mbr1 = 'Member'
wrt1 = 'being written to '
n = 0
iz3 = 000
iz2 = 00
iz3 = 0
a1 = 'A'
sp = ' '
T1 = 'DRS'
cc1 = 1
tic = ''''
sb1 = 'SUBMIT '
p = 7800
blnk = ' '
IE3 = ' EXEC PGM=IEFBR14'
ww1 = '//S'
ww2 = '010'
ww3 = ' EXEC PGM=ADRDSSU'
WW4 = '//SYSIN DD DISP=SHR,DSN='
ww5 = '('
ww6 = ')'
dsh = '-'
cma = ','
DDD1 = '//DISK'
DDD2 = ' DD DISP=SHR,UNIT='
DDD3 = ',VOL=SER='
par1 = ' PARALLEL'
uuu1 = ' DUMP INDDNAME(DISK'
uuu2 = ') OUTDDNAME(TAPE'
uuu3 = ' FULL ALLEXCP COMPRESS OPT(4) ALLDATA(*) ADMIN'
gdg1 = ' DEFINE GDG(NAME(DRS.PR.BACKUP.W'
gdg2 = ') LIMIT(3) SCRATCH)'
TTT1 = '//TAPE'
ttt2 = ' DD DSN=DRS.PR.BACKUP.W'
ttt3 = '//'
ttt4 = ' EXPDT=99000,UNIT=OFFS,DISP=(NEW,CATLG),VOL=(,,,99)'
ttt5 = '(+1)'
q1 = 'PDRS'
K1 = 'O8XS'
k2 = SUBSTR(Q1,2,3)
J1 = k1
j2 = ' JOB (DRS-08131),''BIN 29 HUNLEY'',NOTIFY=O8X,'
j3 = './ ADD NAME='
dd = 32
lastcard = 0
"FREE attr(ww)"
"ATTRIB ww RECFM(F B) LRECL(80) BLKSIZE(27920)"
"ALLOC DA('o8x.bgdg') SP(5,1) TRACKS " ,
"USING(ww) FI(outtt)"
"ALLOC DA('o8x.bsub') SP(5,1) TRACKS " ,
"USING(ww) FI(outyy)"
bl2 = substr(blnk,1,2)
y1 = '//O8XC JOB (8218,08017,8X,G),''BIN 259 IKE '', '
y2 = '// MSGCLASS=H,CLASS=6,USER=SPPDASD, '
y3 = '// NOTIFY=O8X,REGION=2M '
y4 = '//STEP1 EXEC PGM=IDCAMS '
y5 = '//SYSPRINT DD SYSOUT=* '
push y5
push y4
push y3
push y2
push y1
'execio 5 diskw outtt'
PRF = ' PROF NOPRE '
push prf
'execio 1 diskw outyy'
"EXECIO * DISKR GG (STEM VOL. FINIS"
DO N = 1 TO VOL.0
vol = SUBSTR(VOL.N,1,6)
dvt = SUBSTR(VOL.N,8,1)
unt = SUBSTR(VOL.N,10,4)
if length(p)=4 then n1=p
if length(p)=3 then n1=insert(iz1,p)
if length(p)=2 then n1=insert(iz2,p)
if length(p)=1 then n1=insert(iz3,p)
jmem = j1||n1
cmem = k2||n1||a1
if cc1 = 1 then do
x = SYSDSN("'"jcl"'")
If x = 'OK' Then do
"ALLOC FI(OUTrr) DA('"||jcl||"("jmem")') old REUSE"
say job1 wrt1 jcl jmem
end
Else
If x = 'DATASET NOT FOUND'
Then do
"ALLOC FI(OUTrr) DA('"||jcl||"("jmem")') new CATALOG "
" UNIT(3390) CYLINDERS SPACE(5,5) DIR(5) ",
" LRECL(80) BLKSIZE(27920) "
Say 'Created CNTL Dataset For output'
end
y = SYSDSN("'"ctl"'")
If y = 'OK' Then do
"ALLOC FI(OUTss) DA('"||ctl||"("cmem")') old REUSE"
say mbr1 wrt1 ctl cmem
end
Else
If y = 'DATASET NOT FOUND'
Then do
"ALLOC FI(OUTss) DA('"||ctl||"("cmem")') new CATALOG "
" UNIT(3390) CYLINDERS SPACE(5,5) DIR(5) ",
" LRECL(80) BLKSIZE(27920) "
Say 'Created CNTL Dataset For output'
end
l1 = ttt3||j1||n1||j2
l2 = '// MSGCLASS=H,CLASS=Z,USER=SPPDASD,REGION=4M'
L3 = '/*JOBPARM L=9999,T=1440,S=ANY'
l4 = ww1||p||WW2||ww3
l5 = '//SYSPRINT DD SYSOUT=*'
l6 = ww4||ctl||ww5||k2||p||a1||ww6
push l6
push l5
push l4
push L3
push l2
push l1
'execio 6 diskw outrr'
l1 = par1
push l1
'execio 1 diskw outss'
l1 = bl2||sb1||bl2||tic||jcl||ww5||jmem||ww6||tic
push l1
'execio 1 diskw outyy'
end
if cc1 >= 1 then
if cc1 <= 4 then do
l1 = ddd1||cc1||DDD2||UNT||DDD3||vol
l2 = ttt1||cc1||ttt2||vol||dvt||ttt5||cma
bl4 = substr(blnk,1,4)
l3 = ttt3||bl4||ttt4
push L3
push l2
push l1
'execio 3 diskw outrr'
l1 = uuu1||cc1||uuu2||cc1||ww6||sp||dsh
l2 = uuu3
push l2
push l1
'execio 2 diskw outss'
l1 = gdg1||vol||dvt||gdg2
push l1
'execio 1 diskw outtt'
end
cc1 = cc1 + 1
if cc1 > 4 then do
cc1 = 1
p = p + 1
if p = 7400 then p = 7410
"execio 0 diskw outrr (finis"
"execio 0 diskw outss (finis"
end
end
"EXECIO 0 DISKR GG (FINIS"
"execio 0 diskw outrr (finis"
"execio 0 diskw outss (finis"
"execio 0 diskw outtt (finis"
/* trace ?I */
if p < endjob then do
lftovr = endjob - p
say lftovr 'dummy jobs to create'
if lftovr > 15 then do
say lftovr 'is too many jobs. Reducing additional jobs to 10.'
lftovr = 10
end
do n = 1 to lftovr
p = p + 1
if length(p)=4 then n1=p
if length(p)=3 then n1=insert(iz1,p)
if length(p)=2 then n1=insert(iz2,p)
if length(p)=1 then n1=insert(iz3,p)
jmem = j1||n1
"ALLOC FI(OUTrr) DA('"||jcl||"("jmem")') old REUSE"
say job2 wrt1 jcl jmem
l1 = ttt3||j1||n1||j2
l2 = '// MSGCLASS=H,CLASS=Z,USER=SPPDASD,REGION=4M'
L3 = '/*JOBPARM L=9999,T=1440,S=ANY'
l4 = ww1||p||WW2||ie3
push l4
push L3
push l2
push l1
'execio 4 diskw outrr'
"execio 0 diskw outrr (finis"
l1 = bl2||sb1||bl2||tic||jcl||ww5||jmem||ww6||tic
push l1
'execio 1 diskw outyy'
end
"execio 0 diskw outyy (finis"
end
Maurice Hunley - BCBSFL
Blue Cross Blue Shield of Florida, Inc., and its subsidiary and
affiliate companies are not responsible for errors or omissions in this e-mail message. Any personal comments made in this e-mail do not reflect the views of Blue Cross Blue Shield of Florida, Inc.
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Hunley, Ike
14.11.29 JOB13242 $HASP373 O8XC STARTED - INIT 60 - CLASS 6 - SYS
SY1D
14.11.29 JOB13242 IEF403I O8XC - STARTED - TIME=14.11.29
14.11.31 JOB13242 IEC141I
013-14,IGG0191B,O8XC,TMPSTEP,OUTSS,BE3F,SMS903,O8X.DRS.PR.CONTROL.CARD1
14.11.34 JOB13242 IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013 REASON CODE=00000014
TIME=14.11.31 SEQ=12241 CPU=0000 ASID=0153
PSW AT TIME OF ERROR 075C1000 00DAAB7C ILC 2 INTC
0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00DAAB76 - 41003B1E 0A0D4DE0 3ABE5820
GPR 0-3 00DAAD60 A4013000 0000D5F0 00DAA242
GPR 4-7 0079F410 0079F7A4 0079F74C 0079F7A4
GPR 8-11 0079F76C 00FD02B8 00ECDBE8 0079BC4C
GPR 12-15 00E9403C 00000000 00DAA3A4 00000014
END OF SYMPTOM DUMP
2 //TMPSTEP EXEC PGM=IKJEFT01
3 //SYSEXEC DD DISP=SHR,DSN=O8X.JCL.CNTL
4 //SYSTSPRT DD SYSOUT=*
5 //SYSUDUMP DD SYSOUT=A
6 //GG DD DISP=SHR,DSN=O8X.DRS.PR.PDRS7A70.REPORT
//*//OUTSS DD DISP=MOD,DSN=O8X.DRS.PR.CONTROL.CARD1
//*//OUTRR DD DISP=MOD,DSN=O8X.DRS.PR.JCLLIB
7 //SYSTSIN DD *
1IKJ56644I NO VALID TSO USERID, DEFAULT USER ATTRIBUTES USED
READY
BLDMEM2A
IKJ56247I FILE OUTRR NOT FREED, IS NOT ALLOCATED
IKJ56247I FILE OUTSS NOT FREED, IS NOT ALLOCATED
IKJ56247I FILE OUTTT NOT FREED, IS NOT ALLOCATED
IKJ56247I FILE OUTYY NOT FREED, IS NOT ALLOCATED
IDC0550I ENTRY (A) O8X.BGDG DELETED
IDC0550I ENTRY (A) O8X.BSUB DELETED
IKJ56247I FILE WW NOT FREED, IS NOT ALLOCATED
Prod DR backup JOB being written to O8X.DRS.PR.JCLLIB O8XS7800
Member being written to O8X.DRS.PR.CONTROL.CARD1 DRS7800A
IRX0250E System abend code 013, reason code 00000020.
IRX0250E System abend code 013, reason code 00000020.
IRX0250E System abend code 013, reason code 00000020.
IRX0250E System abend code 013, reason code 00000020.
-----Original Message-----
From: Imbriale, Donald (Exchange) [mailto:dimb...@BEAR.COM]
Sent: Monday, July 16, 2001 3:26 PM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Writing to a PDS
Could you show us the batch JCL you are using? Also, what error messages
are you getting?
Don Imbriale
-----Original Message-----
From: Hunley, Ike [SMTP:Ike.H...@BCBSFL.COM]
Sent: Monday, July 16, 2001 14:27
To: TSO-...@VM.MARIST.EDU
Subject: Writing to a PDS
If anyone knows the answer I'd really appreciate it...
The following code works fine in TSO background, but fails in Batch. I've
used IXRJCL and IKJEFT01. All I want to do is build JCL and control card
members in a PDS...
I've also tried writing to flat(non-PDS) files and that works fine in TSO
background and Batch..
****************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************
Imbriale, Donald , Exchange
Jeremy C B Nicoll
> If anyone knows the answer I'd really appreciate it...
Fails, how?
What msgs if any in joblog?
Do the dataset allocation msgs show SMS details? Are you sure that
allocated files have characteristics you want? Foreground TSO user
options might default to card image files but batch could be something
else?
Why does the exec not check return-codes?
How far does it get? Where's a trace file?
--
Jeremy C B Nicoll - my opinions are my own.
Frank Schubert
message IEC141I. The definition of reason code 14 is:
14
An OPEN macro instruction was issued with OUTPUT or OUTIN
specified. DCB specifies DSORG=PO or POU, but the DSCB
indicates that the data set is not partitioned. Change the
DCB macro instruction DSORG subparameter to PS, or imply
partitioned organization by allocating space for the
directory on the SPACE parameter of the DD statement, or
verify that the DSNAME and VOLUME parameters on the DD
statement are correct.
An OPEN macro instruction was issued with INPUT specified.
The DSCB indicates that DSORG=PO, but the DCB specifies
neither DSORG=PO or PS.
Either you have opened a PS dataset for output specifying a member name, or you have
opened a PDS for input without specifying a member name. A quick scan through your
exec appears to indicate that you are only writing to it, so I would assume that there
is an existing dataset called 'O8X.DRS.PR.CONTROL.CARD1' which is a PS dataset.
Hope this helps.
Later.
In <174D9ADF...@mail.bcbsfl.com>, on 07/16/01
>Don Imbriale
--
----------------------------------------------------------------
@ Triangle Systems INC. / IOF Tech Support - Frank V. Schubert @
@ IOF Web page: http://www.triangle-systems.com @
----------------------------------------------------------------
Metz, Seymour
2. Add a trailing comma to the ALLOC for a new OUTSS
Shmuel (Seymour J.) Metz
> -----Original Message-----
> From: Hunley, Ike [SMTP:Ike.H...@BCBSFL.COM]
> Sent: Monday, July 16, 2001 3:49 PM
>
> Glad to... Here's the job. I re-pasted the code after the job...
----------------------------------------------------------------------
Imbriale, Donald , Exchange
Don Imbriale
****************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************
----------------------------------------------------------------------
Johnnie Hougaard Nielsen
> 2. Add a trailing comma to the ALLOC for a new OUTSS
Yes. And remember to check return codes from all external commands.
I've found SIGNAL ON ERROR to be extremely useful of reminding me of
such trivial errors. It is really not many external commands which are
not expected to have a return code of zero. For those, I use
SIGNAL OFF ERROR for the duration of the command.
Regards, Johnnie
Jeremy C B Nicoll
How could you fail to tell *us* that you got a S013-14 when you first
posted? And why bother asking us if there's an abend code to look up?
In your first post you also confused "background" and "batch" - these are
the same thing.
> 14.11.29 JOB13242 $HASP373 O8XC STARTED - INIT 60 - CLASS 6 -
> SY1D
> 14.11.29 JOB13242 IEF403I O8XC - STARTED - TIME=14.11.29
> 14.11.31 JOB13242 IEC141I
> 013-14,IGG0191B,O8XC,TMPSTEP,OUTSS,BE3F,SMS903,O8X.DRS.PR.CONTROL.CARD1
> 14.11.34 JOB13242 IEA995I SYMPTOM DUMP OUTPUT
> SYSTEM COMPLETION CODE=013 REASON CODE=00000014
> 2 //TMPSTEP EXEC PGM=IKJEFT01
> 3 //SYSEXEC DD DISP=SHR,DSN=O8X.JCL.CNTL
It's bad practice to use a -.CNTL dataset - which everyone would expect
to contain JCL, to hold rexx execs.
> 4 //SYSTSPRT DD SYSOUT=*
> 5 //SYSUDUMP DD SYSOUT=A
> 6 //GG DD DISP=SHR,DSN=O8X.DRS.PR.PDRS7A70.REPORT
> //*//OUTSS DD DISP=MOD,DSN=O8X.DRS.PR.CONTROL.CARD1
> //*//OUTRR DD DISP=MOD,DSN=O8X.DRS.PR.JCLLIB
> 7 //SYSTSIN DD *
> 1IKJ56644I NO VALID TSO USERID, DEFAULT USER ATTRIBUTES USED
Here's a clue. If you've ever run this exec in the foreground it will
have been under an assumed tso userid. In batch there isn't one, so
perhaps datasetnames are different.
> READY
> BLDMEM2A
> IKJ56247I FILE OUTRR NOT FREED, IS NOT ALLOCATED
> IKJ56247I FILE OUTSS NOT FREED, IS NOT ALLOCATED
> IKJ56247I FILE OUTTT NOT FREED, IS NOT ALLOCATED
> IKJ56247I FILE OUTYY NOT FREED, IS NOT ALLOCATED
> IDC0550I ENTRY (A) O8X.BGDG DELETED
> IDC0550I ENTRY (A) O8X.BSUB DELETED
> IKJ56247I FILE WW NOT FREED, IS NOT ALLOCATED
> Prod DR backup JOB being written to O8X.DRS.PR.JCLLIB O8XS7800
> Member being written to O8X.DRS.PR.CONTROL.CARD1 DRS7800A
> IRX0250E System abend code 013, reason code 00000020.
> IRX0250E System abend code 013, reason code 00000020.
> IRX0250E System abend code 013, reason code 00000020.
> IRX0250E System abend code 013, reason code 00000020.
> /* rexx */
> /* trace ?I */
> "ALLOC DA('O8X.DRS.PR.PDRS7A70.REPORT') F(GG) SHR REUSE"
what's this for - the jcl already allocated that. And "gg" is hardly a
useful or descriptive ddname is it?
How can you keep track of what value is in what variable? Haven't you
heard of using meaningful variable names? It doesn't make *our* job any
easier trying to work out what's going on. No comments either explaining
what you are doing & why?
> "FREE attr(ww)"
> "ATTRIB ww RECFM(F B) LRECL(80) BLKSIZE(27920)"
> "ALLOC DA('o8x.bgdg') SP(5,1) TRACKS " ,
> "USING(ww) FI(outtt)"
> "ALLOC DA('o8x.bsub') SP(5,1) TRACKS " ,
> "USING(ww) FI(outyy)"
Don't you think that ddnames like: OUTBGDG and OUTBSUB would be clearer
to everyone than OUTTT and OUTYY ?
> bl2 = substr(blnk,1,2)
> y1 = '//O8XC JOB (8218,08017,8X,G),''BIN 259 IKE '', '
> y2 = '// MSGCLASS=H,CLASS=6,USER=SPPDASD, '
> y3 = '// NOTIFY=O8X,REGION=2M '
> y4 = '//STEP1 EXEC PGM=IDCAMS '
> y5 = '//SYSPRINT DD SYSOUT=* '
> push y5
> push y4
> push y3
> push y2
> push y1
> 'execio 5 diskw outtt'
This writes 5 card images to //outtt which is a sequential file
> PRF = ' PROF NOPRE '
> push prf
> 'execio 1 diskw outyy'
This writes 1 card image to //outyy which is a sequential file
> "EXECIO * DISKR GG (STEM VOL. FINIS"
Assuming it works, this reads lines from //GG into vol. stem array
//GG is the -.REPORT dataset allocated in jcl and re-allocated at
start of this exec
> DO N = 1 TO VOL.0
> vol = SUBSTR(VOL.N,1,6)
> dvt = SUBSTR(VOL.N,8,1)
> unt = SUBSTR(VOL.N,10,4)
so each record was: "volser d unit...................."
> if length(p)=4 then n1=p
> if length(p)=3 then n1=insert(iz1,p)
> if length(p)=2 then n1=insert(iz2,p)
> if length(p)=1 then n1=insert(iz3,p)
What the hell's "p"? "7800"
> iz3 = 000
> iz2 = 00
> iz3 = 0
so all this code does is take the "p" value and prefixes it with
"0" or "00" or "000".
Something like this is usually written as
nl = right(p,4,"0")
ie right-pad "p" to a length of 4 bytes, using "0" as the pad char
Anyway, in this case nl = "7800"
> jmem = j1||n1
> cmem = k2||n1||a1
> if cc1 = 1 then do
> x = SYSDSN("'"jcl"'")
that tests if the "jcl" dataset exists
> If x = 'OK' Then do
> "ALLOC FI(OUTrr) DA('"||jcl||"("jmem")') old REUSE"
this alloc allocates a specific member of jcl without there being any
certainty that the required member exists. SYSDSN("'"jcl"("jmem")'")
should have been checked first.
> say job1 wrt1 jcl jmem
> end
> Else
> If x = 'DATASET NOT FOUND'
> Then do
> "ALLOC FI(OUTrr) DA('"||jcl||"("jmem")') new CATALOG "
> " UNIT(3390) CYLINDERS SPACE(5,5) DIR(5) ",
> " LRECL(80) BLKSIZE(27920) "
> Say 'Created CNTL Dataset For output'
despite coding a member name in the alloc all this would do, if it gets
rc=0 is allocate a pds. Writing to it later on would create the member.
Unfortunately you assume this will work and it might not - eg there may
be no spare dasd.
> end
> y = SYSDSN("'"ctl"'")
> If y = 'OK' Then do
> "ALLOC FI(OUTss) DA('"||ctl||"("cmem")') old REUSE"
> say mbr1 wrt1 ctl cmem
same assumption that cmem exists without checking it
> end
> Else
> If y = 'DATASET NOT FOUND'
> Then do
> "ALLOC FI(OUTss) DA('"||ctl||"("cmem")') new CATALOG "
> " UNIT(3390) CYLINDERS SPACE(5,5) DIR(5) ",
> " LRECL(80) BLKSIZE(27920) "
> Say 'Created CNTL Dataset For output'
same assumption - allocate might not work
> end
> l1 = ttt3||j1||n1||j2
> l2 = '// MSGCLASS=H,CLASS=Z,USER=SPPDASD,REGION=4M'
> L3 = '/*JOBPARM L=9999,T=1440,S=ANY'
> l4 = ww1||p||WW2||ww3
> l5 = '//SYSPRINT DD SYSOUT=*'
> l6 = ww4||ctl||ww5||k2||p||a1||ww6
> push l6
> push l5
> push l4
> push L3
> push l2
> push l1
> 'execio 6 diskw outrr'
success of this will depend a lot on whether the allocates worked
> l1 = par1
> push l1
> 'execio 1 diskw outss'
as above
--
Jeremy C B Nicoll - my opinions are my own.
----------------------------------------------------------------------
Hunley, Ike
I promise I'll clean up AND document my code.
Ike
> bl2 = substr(blnk,1,2)
> end
> end
Blue Cross Blue Shield of Florida, Inc., and its subsidiary and
affiliate companies are not responsible for errors or omissions in this e-mail message. Any personal comments made in this e-mail do not reflect the views of Blue Cross Blue Shield of Florida, Inc.
----------------------------------------------------------------------
Hunley, Ike
I'll do just that. I'm on a "GET THIS DONE RIGHT NOW!" project, crunching
data for an upcoming Disaster Recovery exercise, moving from a totally
manual process to REXX code. All the information has been outstanding and
extremely helpful.
I'm grateful to you all.
Ike
-----Original Message-----
From: Johnnie Hougaard Nielsen [mailto:sfr...@POST1.TELE.DK]
Sent: Monday, July 16, 2001 6:49 PM
To: TSO-...@VM.MARIST.EDU
Subject: Re: Writing to a PDS
Regards, Johnnie
----------------------------------------------------------------------
Hunley, Ike
Ike
Paynter, Bob
The "EXECIO 0 DISKW OUTSS (FINIS" does not free the allocated dd. May need
to add
"FREE F(OUTRR)" or remove the EXECIO 0 DISKW OUTSS (FINIS if all of the
data goes
in the same dataset. The ALLOC appears to be in a loop of for each line from
in the GG file.
Just some quick views of the exec. I would not write code with these type of
variables names
but that does not hurt the exec only fixing it by others.
Bob Paynter
> -----Original Message-----
> From: Hunley, Ike [SMTP:Ike.H...@BCBSFL.COM]
> Sent: Monday, July 16, 2001 6:54 PM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: Writing to a PDS
>