Duptap between 2 as400?
Joseph Lai
Anyone can tell me is that possible to duptap
between 2 as/400? some guys mentioned a taatools called Duptapin and
Duptapout, but I
can't find out those command! I have V3R1,
V3R2, V4R1 and V4R3 machines installed in my
site, but all of them can't find out these
command! Any hints?
Best Regards,
Joseph Lai
jose...@system-pro-solutions.com
Tim
a V2 system, you probably weren't able to create them.
Joseph Lai wrote in message <36f2...@news1.us.ibm.net>...
Jack E. Kingsley II (TAMPA FLORIDA)
they were removed, if you can't locate them I could e-mail you them to
you, let me know.
Peter R Rowley
I have been waiting for some nice person to come along and convert the -very
simple, short- PL/I programs in to something more useful in todays environment.
I don't suppose any of the IBM's online would be kind enough? C++? ILE/RPG even
better!
Peter
--------------------
"Tim" <scot...@home.com.xyz> wrote:
>DUPTAPIN and DUPTAPOUT were written in PL/I so even if you had TAATOOLS from
>a V2 system, you probably weren't able to create them.
>
>
>Joseph Lai wrote in message <36f2...@news1.us.ibm.net>...
>>Hi!
>>
>>Anyone can tell me is that possible to duptap
>>between 2 as/400? some guys mentioned a taatools called Duptapin and
>>Duptapout, but I
>>can't find out those command! I have V3R1,
>>V3R2, V4R1 and V4R3 machines installed in my
>>site, but all of them can't find out these
>>command! Any hints?
>>
>>Best Regards,
>>Joseph Lai
>>jose...@system-pro-solutions.com
>>
>>
>
--
Navan Limited
http://www.prowley.dircon.co.uk/
Tim
IBM has stated that the compiler is supported at least thru V4R4
Long live PL/I
Peter R Rowley wrote in message <36f5c1ec...@news.dircon.co.uk>...
Peter R Rowley
Quote from System Handbook GA19-5486-17, dated Sept 98:
PL/I is not offered as a licensed program under OS/400 V4R2 or later. Customers
are encouraged to migrate to ILE languages..... However, as an interim, PRPQ
P10131 is available which offers PL/I compile for V4R3. There is also runtime
support in V4R3 for PL/I programs
I wouldn't want to be developing production code on that basis!
Peter
------------------------------------
"Tim" <scot...@home.com.xyz> wrote:
--
Navan (UK) Limited
Tim
My information is direct from the Language group.
Peter R Rowley wrote in message <36f5eb5...@news.dircon.co.uk>...
Dave McKenzie
I have a couple ILE RPG pgms to replace the PL/I pgms. I'll email the
source to you.
Dave
Peter R Rowley
Peter
--------------------------------------
"Tim" <scot...@home.com.xyz> wrote:
>The quote from the System Handbook isn't the latest word on the subject.
>
>My information is direct from the Language group.
>
>Peter R Rowley wrote in message <36f5eb5...@news.dircon.co.uk>...
>>Hi Tim,
>>
>>Quote from System Handbook GA19-5486-17, dated Sept 98:
>>
>>PL/I is not offered as a licensed program under OS/400 V4R2 or later.
>Customers
>>are encouraged to migrate to ILE languages..... However, as an interim,
>PRPQ
>>P10131 is available which offers PL/I compile for V4R3. There is also
>runtime
>>support in V4R3 for PL/I programs
>>
>>
>>I wouldn't want to be developing production code on that basis!
>>
>>Peter
>>
>>------------------------------------
>>
>>
>>"Tim" <scot...@home.com.xyz> wrote:
>>
>>>You can still purchase PL/I. It is 5799-GCG.
>>>
>>>IBM has stated that the compiler is supported at least thru V4R4
>>>
>>>Long live PL/I
>>>
>>>Peter R Rowley wrote in message <36f5c1ec...@news.dircon.co.uk>...
John Hamrick
I'd like a copy of that source too, if possible. Could you email me a
copy or post it somewhere on the net where we all could download it?
Thanks.
John Hamrick,
Fisher Auto Parts, Inc.
Dave McKenzie wrote in message <7d6rg4$cpe$1...@news-1.news.gte.net>...
>Hi Peter,
>
>I have a couple ILE RPG pgms to replace the PL/I pgms. I'll email the
>source to you.
>
>Dave
>
>On Sat, 20 Mar 1999 15:50:03 GMT, peter.rowley@-nospam-navan.co.uk
>(Peter R Rowley) wrote:
>
Dave McKenzie
I know we're not supposed to post source on this NG, but as they're
tiny pgms :-) ...
--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 =
c 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
* (Of course, the 77 in the following line goes in the
* = position :-)
c read input buff 77
c *in77 ifne *on
c eval pRIOFB =
c Rwrite(pRFILE:pData:dataLen)
c end
c enddo
c eval *inlr = *on
----------------------------------------------------------------
Juan Ramon García
server and mount it on AS/400 B then you should be able to use the SAV
command ..... but NO, IBM does not want to support it .... probably because
they want to sell more tape units... Any UNIX machine is able to do so ..
why not an AS/400???
Peter R Rowley
people in offering it - thanks!
Just one little point to intending users - you must be running V4R2 to compile
it...
Peter
----------------
dav...@galois.com (Dave McKenzie) wrote:
--
Dave McKenzie
I'm curious what led you to that conclusion. I compiled it OK on a
V3R7 system. I thought it might be that the QSYS/QC2IO *srvpgm might
not be present if ILE C wasn't installed (which it is on my V3R7
system), but QC2IO is also present on my V4R3 system, which *doesn't*
have ILE C!
Did you have trouble compiling on a pre-V4R2 system?
--Dave
Peter R Rowley
I had trouble compiling to previous releases, but the thing that led me to
assume min release V4R2 was the use of external procedures. I know, I know, I
shouldn't assume....
Peter
----------------
dav...@galois.com (Dave McKenzie) wrote:
>Hi Peter,
>
>I'm curious what led you to that conclusion. I compiled it OK on a
>V3R7 system. I thought it might be that the QSYS/QC2IO *srvpgm might
>not be present if ILE C wasn't installed (which it is on my V3R7
>system), but QC2IO is also present on my V4R3 system, which *doesn't*
>have ILE C!
>
>Did you have trouble compiling on a pre-V4R2 system?
>
>--Dave
>
>On Thu, 25 Mar 1999 08:26:58 GMT, peter.rowley@-nospam-navan.co.uk
>(Peter R Rowley) wrote:
>
>>Just one little point to intending users - you must be running V4R2 to compile
>>it...
>>
>>Peter
>>
>>----------------
>>
>>dav...@galois.com (Dave McKenzie) wrote:
>>
>>>Hi John,
>>>
>>>I know we're not supposed to post source on this NG, but as they're
>>>tiny pgms :-) ...
>>>
>>>--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)
--