|
midrange.com
John,
When I run this program this is what I get:
CALL PGM(JOHNSTABs) PARM(SK$UPCOU00 'c:tabbedfile.20032507140500.go
')
300 - CPYTOIMPF FROMFILE(*LIBL/SK$UPCOU00 *FIRST)
TOSTMF('c:tabbedfile.20032507140500.go') RCDDLM(*CRLF) FLDDLM(X'05')
Ownership of object QCPEXTEMPS in QTEMP type *USRSPC changed.
File QACP889015 created in library QTEMP.
Member QACP889015 added to file QACP889015 in QTEMP.
Ownership of object QACP889015 in QTEMP type *USRSPC changed.
Ownership of object QACEXFLD12 in QTEMP type *USRSPC changed.
Object copied.
All records copied from file SK$UPCOU00 in VGMDDTA.
Error Occurred in SQL Call Level Interface<-- Error type 10 is function
sequence error.
Object QACP889015 in QTEMP type *FILE deleted.
- RETURN /* RETURN due to end of CL program */
What am I doing wrong?
Please help.
Thanks,
John Cunha
NGR
>-----Original Message-----
>From: John Cunha
>Sent: July 25, 2003 2:08 PM
>To: 'RPG programming on the AS400 / iSeries'
>Subject: RE: Tabbed files for 3rd party vendor
>
>John,
>Can it be something like this:
>
>TOSTMF('c:tabbedfile')
>
>>-----Original Message-----
>>From: John Cunha
>>Sent: July 25, 2003 1:53 PM
>>To: 'RPG programming on the AS400 / iSeries'
>>Subject: RE: Tabbed files for 3rd party vendor
>>
>>Thanks John,
>>Can you please let me know what is the layout of the value which goes
into
>>TOSTMF(&TOSTMF) -->To stream file?
>>Thanks,
>>John Cunha
>>NGR
>>
>>>-----Original Message-----
>>>From: John Brandt Sr. [mailto:pgmr@xxxxxxxxxxxxxxx]
>>>Sent: July 25, 2003 1:20 PM
>>>To: 'RPG programming on the AS400 / iSeries'
>>>Subject: RE: Tabbed files for 3rd party vendor
>>>
>>>Do it programmatically using a variable defined as a hex 5. The
output
>>>file,
>>>if you look from the iSeries side, will be a hex 09.
>>>DCL VAR(&TAB) TYPE(*CHAR) LEN(1) VALUE(X'05')
>>>CPYTOIMPF FROMFILE(&FROMLIB/&FROMFILE &FROMMBR) +
>>> TOSTMF(&TOSTMF) RCDDLM(*CRLF) FLDDLM(&TAB)
>>>You get the idea.
>>>I created a copy of CPYTOIMPF of my own to allow named delimiters.
>>>John Brandt
>>>iStudio400.com
>>>
>>>
>>>-----Original Message-----
>>>From: John Cunha [mailto:John.Cunha@xxxxxxxxxxxx]
>>>Sent: Friday, July 25, 2003 11:53 AM
>>>To: RPG programming on the AS400 / iSeries
>>>Subject: Tabbed files for 3rd party vendor
>>>
>>>
>>>Here's my challenge:
>>>
>>>I am looking for a way (procedure) to take a PF DDS described file
tab
>>>it and sent it as flat file (.GO) to another server.
>>>
>>>We have one way of doing that which is writing a program per file and
>>>add X'05' between the fields to insert the tabs. This solution is
quite
>>>cumbersome and time consuming due to the number of files that need to
be
>>>transferred.
>>>
>>>
>>>
>>>Ps. CPYTOIMPF does seem to work since it only has '|' not a real
*TAB!
>>>
>>>
>>>
>>>....5..
>>>
>>>RS- A- 45
>>>
>>>DE0C0FF
>>>
>>>9251545
>>>
>>>
>>>
>>>Any suggestions?
>>>
>>>Thanks for the help.
>>>
>>>John Cunha
>>>
>>>NGR
>>>
>>>_______________________________________________
>>>
>>>>This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing
>>>list
>>>
>>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>
>>>>To subscribe, unsubscribe, or change list options,
>>>
>>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>
>>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>
>>>>Before posting, please take a moment to review the archives
>>>
>>>>at http://archive.midrange.com/rpg400-l.
>>>
>>>
>>>
>>>_______________________________________________
>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>list
>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>To subscribe, unsubscribe, or change list options,
>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>Before posting, please take a moment to review the archives
>>>at http://archive.midrange.com/rpg400-l.
>>>
>>>---
>>>Incoming mail is certified Virus Free.
>>>Checked by AVG anti-virus system (http://www.grisoft.com).
>>>Version: 6.0.504 / Virus Database: 302 - Release Date: 7/24/03
>>>
>>>
>>>---
>>>Outgoing mail is certified Virus Free.
>>>Checked by AVG anti-virus system (http://www.grisoft.com).
>>>Version: 6.0.502 / Virus Database: 300 - Release Date: 7/18/03
>>>
>>>_______________________________________________
>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>list
>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>To subscribe, unsubscribe, or change list options,
>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>Before posting, please take a moment to review the archives
>>>at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
