portable subfile from Windows to OpenVms

[Joe Boyle]

Oops, I saw only the first few lines.

You might be able to use an approach like that below to convert your PSF,
and use the output PSF to transfer using ascii, as this should be record
delimited, ( you might have to tinker with the placement of the cr and lf
chars though).

		can cle

		acc * path\portsubin

		define lfn integer size 2 = 10

		define lf char*1 = char(lfn)

		define crn integer size 2 = 13

		define cr char*1 = char(crn)

		set sub name path\portsubout portable 
		rep summ  items cr lf

		go


From: Joe Boyle [mailto:atla38 at dsl.pipex.com] 
Sent: 24 November 2006 15:47
To: 'Jari.Kaljunen at sergel.com'; 'powerh-l at lists.sowder.com'
Subject: RE: portable subfile from Windows to OpenVms

I think you have to get both subfile parts as ascii. 


From: powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com
[mailto:powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com] On Behalf Of
Jari.Kaljunen at sergel.com
Sent: 24 November 2006 15:23
To: powerh-l at lists.sowder.com
Subject: portable subfile from Windows to OpenVms

Hello,
 
I am migrating data from  Windows to OpenVms. First  I create portable
subfiles on Windows 
acc gs_paymentplan in sincos_2
set sub name d:\ak2sincos\t_gs_paymentplan portable keep 
rep sum projid GS_SPAYMENTPLANID
go
The portable subfile looks Ok on Windows.
Transfer to OpenVms with FTP from OpenVms:
ascii
get t_gs_paymentplan.psd
bin
get t_gs_paymentplan.ps
It is not possible to  transfer the ps-file in ASCII-mode because:
-RMS-W-RTB, 61440 byte record too large for user's buffer
426 Connection closed; transfer aborted.
When read it looks like this:
QUIZ_SC> set rep limit 10 page len 0
acc *t_gs_paymentplan 
QUIZ_SC> acc *t_gs_paymentplan
sho item
QUIZ_SC> sho item
INPUT OUTPUT
T_GS_PAYMENTPLAN TYPE SCALE SCALE DEC PICTURE
PROJID CHAR X(25)
GS_SPAYMENTPLANID CHAR X(10)
rep projid gs_spaymentplanid
QUIZ_SC> rep projid gs_spaymentplanid
QUIZ_SC> 
go
QUIZ_SC> go
24.11.2006 Sincos PAGE 1
Projid Gs
Spaymentplanid
0035-G-0001624677 000000737
035-G-0001643810 0 00000739 0
35-G-0001636110 00 0000758 00
3-G-0001114955 000 000761 003
-G-0001114955 0000 00763 0035
G-0001653258 00000 0767 0084-
-0027023803 000000 813 0035-G
0001652219 0000008 17 0043-G-
006015756 00000082 2 0035-G-0
01648912 000000854 0038-G-00
 
The record are obviusly not correct.
If I do conversion the result becomes 
$convert /fdl=sys$input t_gs_paymentplan.ps test.ps
file 
organization sequential 
record 
carriage_control carriage_return 
format variable 
$cop t_gs_paymentplan.psd test.psd
%COPY-S-COPIED, DISK99:[SINCOS_CONVERT]T_GS_PAYMENTPLAN.PSD;1 copied to
DISK99:[
SINCOS_CONVERT]TEST.PSD;11 (0.50KB)
$quiz_sc
Q U I Z (7.10.G)
Copyright 1998 COGNOS INC. (ALPHA)
Licensed PH-AXP-RUNTIME for customer: 8200290001 Sergel Kredttjanster AB axp
set rep limit 10 page len 0
QUIZ_SC> set rep limit 10 page len 0
acc *test
QUIZ_SC> acc *test
sho item
QUIZ_SC> sho item
INPUT OUTPUT
TEST TYPE SCALE SCALE DEC PICTURE
PROJID CHAR X(25)
GS_SPAYMENTPLANID CHAR X(10)
rep projid gs_spaymentplanid
QUIZ_SC> rep projid gs_spaymentplanid
QUIZ_SC> 
go
QUIZ_SC> go
24.11.2006 Sincos PAGE 1
Projid Gs
Spaymentplanid
0035-G-0001624677 000000737
0035-G-0001643810 000000739
0035-G-0001636110 000000758
0033-G-0001114955 000000761
0033-G-0001114955 000000763
0035-G-0001653258 000000767
0084-G-0027023803 000000813
0035-G-0001652219 000000817
0043-G-0006015756 000000822
0035-G-0001648912 000000854
 
Which is correct BUT from record number 10987 it becomes like this: (the
last field is count) the same record is written to output and quiz gets in
continuos loop!! 
0033-G-0001322471 000014734 10982
0033-G-0001380915 000014736 10983
0026-00743-000000001 000014737 10984
0026-00525-000000018 000014738 10985
0026-00699-000000010 000014745 10986
0026-00701-000000059 000014748 10987
0026-00701-000000059 000014748 10988
0026-00701-000000059 000014748 10989
0026-00701-000000059 000014748 10990
0026-00701-000000059 000014748 10991
0026-00701-000000059 000014748 10992
0026-00701-000000059 000014748 10993
0026-00701-000000059 000014748 10994
0026-00701-000000059 000014748 10995
I have a database with 30 tables with hundreds of fields to migrate so the
portable subfiles should be convinient to use. 
My question is: has anyone taken a portable subfile from Windows to OpenVms,
were there problems like this and what is possible to do to solve this?
Thanks in advance, Jari
 
 
 
 
 
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: winmail.dat
Type: application/ms-tnef
Size: 10102 bytes
Desc: not available
Url : http://lists.sowder.com/pipermail/powerh-l/attachments/20061124/ec4b390b/winmail.bin