:>: -----Original Message----- :>: From: IBM Mainframe Discussion List [mailto:[email protected]] On :>: Behalf Of Shmuel Metz (Seymour J.) :>: Sent: Saturday, February 18, 2012 3:51 PM :>: To: [email protected] :>: Subject: Re: SV: REXX IEBCOPY Continuation? :>: :>: In :>: <a90e503c23f97441b05ee302853b0e6263ff850...@fspas01ev010.fspa.myntet.se>, :>: on 02/15/2012 :>: at 09:17 PM, Thomas Berg <[email protected]> said: :>: :>: >I guess that what You want is: :>: :>: >"NEWSTACK" :>: >V1 = "COPY1 COPY INDD=INDD1,OUTDD=OUTDD1" :>: >V2 = "S M=DBOK62" :>: >V3 = "S M=DP13" :>: >V4 = "S M=LAND1CPY" :>: >V5 = "S M=SSTDN" :>: >V6 = "S M=TRAY2LN" :>: >Queue V1 :>: >Queue V2 :>: >Queue V3 :>: >Queue V4 :>: >Queue V5 :>: >Queue V6 :>: >"EXECIO" queued() "DISKW SYSIN (FINIS" :>: >"DELSTACK" :>: >"TSOEXEC IEBCOPY" :>: :>: NFW; it's missing the leading spaces. :>: :>: "NEWSTACK" :>: Queue " COPY1 COPY INDD=INDD1,OUTDD=OUTDD1" :>: Queue " S M=DBOK62" :>: Queue " S M=DP13" :>: Queue " S M=LAND1CPY" :>: Queue " S M=SSTDN" :>: Queue " S M=TRAY2LN" :>: "EXECIO" queued() "DISKW SYSIN (FINIS" :>: "DELSTACK" :>: "CALL *(IEBCOPY)" /* needs APF and standard PARM */
Of course, you meant for COPY1 to be in col 1 on the first queue command. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
