Path: news.theplanet.net!diablo.theplanet.net!208.184.7.66.MISMATCH!newsfeed1.cidera.com!cpk-news-hub1.bbnplanet.com!paloalto-snh1.gtei.net!news.gtei.net!paloalto-snr1.gtei.net.POSTED!not-for-mail From: Dave McKenzie Subject: Re: duplicate tape Newsgroups: comp.sys.ibm.as400.misc References: <9kedoi$bki$1@news.onet.pl> <3B6B3181.4AAA@millcomm.com> Lines: 123 User-Agent: KNode/0.4 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7Bit Message-ID: <3TSa7.1281$qx.65212@paloalto-snr1.gtei.net> X-Trace: /whwgBSBNKz5V1aIf32x+sSWknFLqJZa54jSj+S4ixzM06u+37zL6NQ9KS89nRJLpx/CjTmlRxE7!ixFMAaR09MQrk7pIYybZrAQQUMDgDlYT2m30i4smQFEoFqnPgBdjilYR5zyyR2h7mX9e2RR+6244!AyPfXKtH X-Complaints-To: abuse@gte.net X-Abuse-Info: Please be sure to forward a copy of ALL headers X-Abuse-Info: Otherwise we will be unable to process your complaint properly NNTP-Posting-Date: Sat, 04 Aug 2001 13:35:59 GMT Distribution: world Date: Sat, 04 Aug 2001 13:35:59 GMT Xref: news.theplanet.net comp.sys.ibm.as400.misc:141541 Here are RPGLE replacements for the two PL/I pgms. They're public domain so anyone who has a free-tools site is free to include them (Martin, Craig... :-) --Dave -------------------------------------------------------- * * Replacement for TAATAPEM PL/I pgm for DUPTAPIN cmd in QUSRTOOL * * To compile: * 1. Compile this module with CRTRPGMOD * 2. Create the pgm TAATAPEM with CRTPGM, specifying * this module and BNDSRVPGM(QSYS/QC2IO) * Foutput o f32762 disk dRopen pr * extProc('_Ropen') d * value d * value dRreadn pr * extProc('_Rreadn') d * value d * value d 10i 0 value d 10i 0 value d RIOFB ds 64 based(pRIOFB) d num_bytes 37 40i 0 d buff ds d dataLen 1 2i 0 d data 3 32762 d DFT ds d DFTint 1 4i 0 d DFTchar 1 4 inz(X'0B000100') d pRFILE s * d pRIOFB s * d pData s * inz(%addr(data)) d pTapeFile s * inz(%addr(TapeFile)) d pMode s * inz(%addr(Mode)) d TapeFile s 11 d Mode s 3 d EOF c const(-1) c eval TapeFile = 'QTAPE' + X'00' c eval Mode = 'rr' + X'00' c eval pRFILE = Ropen(pTapeFile:pMode) c num_bytes doueq EOF c eval pRIOFB = Rreadn(pRFILE:pData:32760:DFTint) c num_bytes ifne EOF c eval dataLen = num_bytes c write output buff c end c enddo c eval *inlr = *on ---------------------------------------------------------- * * Replacement for TAATAPEM2 PL/I pgm for DUPTAPOUT cmd in QUSRTOOL * * To compile: * 1. Compile this module with CRTRPGMOD * 2. Create the pgm TAATAPEM2 with CRTPGM, specifying * this module and BNDSRVPGM(QSYS/QC2IO) * finput if f32762 disk d Ropen pr * extProc('_Ropen') d * value d * value d Rwrite pr * extProc('_Rwrite') d * value d * value d 10i 0 value d buff ds d dataLen 1 2i 0 d data 3 32762 d pRFILE s * d pRIOFB s * d pData s * inz(%addr(data)) d pTapeFile s * inz(%addr(TapeFile)) d pMode s * inz(%addr(Mode)) d TapeFile s 11 d Mode s 3 c eval TapeFile = 'QTAPE' + X'00' c eval Mode = 'wr' + X'00' c eval pRFILE = Ropen(pTapeFile:pMode) c *in77 doueq *on c read input buff 77 c *in77 ifne *on c eval pRIOFB = Rwrite(pRFILE:pData:dataLen) c end c enddo c eval *inlr = *on ------------------------------------------------- William Warning wrote: > Find someone with the PL/1 compiler. Have them compile the > Qusrtool DUPTAPIN & DUPTAPOUT source programs. Get the compiled > object programs and you are good-to-go. The hard part is finding > the PL/1. If you find PL/1, let me know. > * * * * * * * * * * * * * * * * * * * * * * * * * * * > qc wrote: >> >> How can I duplicate tape in one streamer? >> when I try to use comand DUPTAP FROMDEV(TAP01) TODEV(TAP01) >> I've got mesage "TODEV and FROMDEV must be different", >> any sugestion? >> >> marcin >