On Wed, 27 Feb 2013 19:07:47 -0600, Steve Thompson wrote:
>
> 2.5.9.2 The LINKMVS and ATTCHMVS host command environments
> ...
> address 'LINKMVS' prog 'PARM DDLIST'
>
>... from which it appears to have been adapted. I do exactly this
>when I need to. It works.
><SNIP>
>
>Glad it worked for you. I tried it with IEBCOPY and couldn't make it work
>at all (yes, I compared the example in the REXX book to the info in the
>"DFSMSdfp Utilities" discussing this for IEBCOPY).
>
In more detail. The EXEC:
/* Rexx */ signal on novalue; /*
Doc: supplying alternate DdNames to IEBCOPY
*/
trace R
Pds1 = userid()'.TEMP.PDS'
Pds2 = userid()'.TEMP.PDS2'
RC = BPXWDYN( 'alloc rtddn(AltSysprint) sysout(R) msg(WTP)' )
RC = BPXWDYN( 'alloc rtddn(AltSysin) dummy msg(WTP)' )
RC = BPXWDYN( 'alloc rtddn(AltSysUt1) shr dsn('Pds1') msg(WTP)' )
RC = BPXWDYN( 'alloc rtddn(AltSysUt2) shr dsn('Pds2') msg(WTP)' )
Nulls = copies( '00'x, 8 )
DDList = ,
copies( Nulls, 4 ) || ,
AltSysin || ,
AltSysprint || ,
Nulls || ,
AltSysUt1 || ,
AltSysUt2
say length( DDList )
Empty = ''
address 'LINKMVS' 'IEBCOPY Empty DDList'
exit( RC )
Runs logging:
9 *-* RC = BPXWDYN( 'alloc rtddn(AltSysprint) sysout(R) msg(WTP)' )
>>> "0"
10 *-* RC = BPXWDYN( 'alloc rtddn(AltSysin) dummy msg(WTP)' )
>>> "0"
11 *-* RC = BPXWDYN( 'alloc rtddn(AltSysUt1) shr dsn('Pds1') msg(WTP)' )
>>> "0"
12 *-* RC = BPXWDYN( 'alloc rtddn(AltSysUt2) shr dsn('Pds2') msg(WTP)' )
>>> "0"
14 *-* Nulls = copies( '00'x, 8 )
>>> "????????"
15 *-* DDList = , copies( Nulls, 4 ) || , AltSysin || , AltSys
print || , Nulls || , AltSysUt1 || , AltSysUt2
>>> "????????????????????????????????ISRLDUMYSYS00042????????SYS00043S
YS00031"
22 *-* say length( DDList )
>>> "72"
72
23 *-* Empty = ''
>>> ""
25 *-* address 'LINKMVS' 'IEBCOPY Empty DDList'
>>> "IEBCOPY Empty DDList"
26 *-* exit( RC )
>>> "0"
With SYS00042 containing:
********************************* TOP OF DATA ******************************
IEBCOPY MESSAGES AND CONTROL STATEMENTS
IEB1135I IEBCOPY FMID HDZ1D10 SERVICE LEVEL UA61306 DATED 20110713 DFSMS 01.1
PUT1202 03/15/12
IEB1035I SPPG $STCTSO1 $STCTSO1 19:31:58 WED 27 FEB 2013 PARM=''
$STCTSO1 COPY INDD=SYS00043,OUTDD=SYS00031 GENERATED STATEMENT
IEB1013I COPYING FROM PDS INDD=SYS00043 VOL=TSO004 DSN=%%%%%%%%.TEMP.PDS
IEB1014I TO PDSU OUTDD=SYS00031 VOL=WORK02 DSN=%%%%%%%%.TEMP.PDS2
IEB167I FOLLOWING MEMBER(S) UNLOADED FROM INPUT DATA SET REFERENCED BY SYS00043
IEB154I BAR HAS BEEN SUCCESSFULLY UNLOADED
IEB154I FOO HAS BEEN SUCCESSFULLY UNLOADED
IEB1098I 2 OF 2 MEMBERS UNLOADED FROM INPUT DATA SET REFERENCED BY SYS00043
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
******************************** BOTTOM OF DATA ****************************
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
